请问复刻版源码怎么修改?

yuanlongyu

看不懂,求指教

1. 设定攻击范围
   
2. 
   
3. procedure SetAminationPosition(mode, step: integer; range: integer = 0); overload;
   
4. begin
   
5.   SetAminationPosition(Bx, By, Ax, Ay, mode, step, range);
   
6. end;
   
7. 
   
8. procedure SetAminationPosition(Bx, By, Ax, Ay, mode, step: integer; range: integer = 0); overload;
   
9. var
   
10.   i, i1, i2: integer;
    
11. begin
    
12.   FillChar(Bfield[4, 0, 0], 4096 * 2, 0);
    
13.   //按攻击类型
    
14.   case mode of
    
15.     0:
    
16.     begin
    
17.       Bfield[4, Ax, Ay] := 1;
    
18.     end;
    
19.     3:
    
20.     begin
    
21.       for i1 := max(Ax - range, 0) to min(Ax + range, 63) do
    
22.         for i2 := max(Ay - range, 0) to min(Ay + range, 63) do
    
23.           Bfield[4, i1, i2] := (abs(i1 - Bx) + abs(i2 - By)) * 2 + random(24) + 1;
    
24.     end;
    
25.     1:
    
26.     begin
    
27.       i := 1;
    
28.       i1 := sign(Ax - Bx);
    
29.       i2 := sign(Ay - By);
    
30.       if i1 > 0 then
    
31.         step := min(63 - Bx, step);
    
32.       if i2 > 0 then
    
33.         step := min(63 - By, step);
    
34.       if i1 < 0 then
    
35.         step := min(Bx, step);
    
36.       if i2 < 0 then
    
37.         step := min(By, step);
    
38.       if (i1 = 0) and (i2 = 0) then
    
39.         step := 0;
    
40.       while i <= step do
    
41.       begin
    
42.         Bfield[4, Bx + i1 * i, By + i2 * i] := i * 2;
    
43.         i := i + 1;
    
44.       end;
    
45.     end;
    
46.     2:
    
47.     begin
    
48.       for i1 := max(Bx - step, 0) to min(Bx + step, 63) do
    
49.         Bfield[4, i1, By] := abs(i1 - Bx) * 2;
    
50.       for i2 := max(By - step, 0) to min(By + step, 63) do
    
51.         Bfield[4, Bx, i2] := abs(i2 - By) * 2;
    
52.     end;
    
53.   end;
    
54.   case mode of
    
55.     0: maxdelaypicnum := 1;
    
56.     3: maxdelaypicnum := 24;
    
57.     1: maxdelaypicnum := step * 4;
    
58.     2: maxdelaypicnum := step * 4;
    
59.   end;

复制代码

怎样使 点 改为 菱形(可增大攻击范围)           线 改为 楔形(可增大宽度)
          十 改为 米形(可增加斜线)
(如果可以  也请指教怎样增加自伤 杀体 杀内伤等机能)
复刻版就是这里的http://pan.baidu.com/s/1pJ9Giwj#path=%252F