equal
deleted
inserted
replaced
56 if i < length(s) then |
56 if i < length(s) then |
57 begin |
57 begin |
58 ammo^.ammoName:= copy(s, 1, i - 1); |
58 ammo^.ammoName:= copy(s, 1, i - 1); |
59 delete(s, 1, i); |
59 delete(s, 1, i); |
60 // TODO: split into 4 shortstrings |
60 // TODO: split into 4 shortstrings |
61 ammo^.ammoStr:= s; |
61 i:= length(s) div 4; |
|
62 ammo^.a:= copy(s, 1, i); |
|
63 ammo^.b:= copy(s, i + 1, i); |
|
64 ammo^.c:= copy(s, i * 2 + 1, i); |
|
65 ammo^.d:= copy(s, i * 3 + 1, i); |
62 inc(ammo) |
66 inc(ammo) |
63 end; |
67 end; |
64 end; |
68 end; |
65 |
69 |
66 pfsClose(f) |
70 pfsClose(f) |
119 procedure sendAmmoConfig(var ammo: TAmmo); |
123 procedure sendAmmoConfig(var ammo: TAmmo); |
120 var i: Longword; |
124 var i: Longword; |
121 begin |
125 begin |
122 with ammo do |
126 with ammo do |
123 begin |
127 begin |
124 //ipcToEngine('e$turntime ' + inttostr(ammo.turntime * 1000)); |
128 ipcToEngine('eammloadt ' + ammo.a); |
125 //ipcToEngine('e$minesnum ' + inttostr(ammo.minesnum)); |
129 ipcToEngine('eammprob ' + ammo.b); |
|
130 ipcToEngine('eammdelay ' + ammo.c); |
|
131 ipcToEngine('eammreinf ' + ammo.d); |
126 end |
132 end |
127 end; |
133 end; |
128 |
134 |
129 end. |
135 end. |