equal
deleted
inserted
replaced
141 procedure chScript(var s: shortstring); |
141 procedure chScript(var s: shortstring); |
142 begin |
142 begin |
143 if s[1]='"' then Delete(s, 1, 1); |
143 if s[1]='"' then Delete(s, 1, 1); |
144 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
144 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1); |
145 ScriptLoad(s) |
145 ScriptLoad(s) |
146 end; |
|
147 |
|
148 procedure chTurnTime(var s: shortstring); |
|
149 var temp: Longint; |
|
150 begin |
|
151 val(s, temp); |
|
152 cHedgehogTurnTime:= temp * 1000; |
|
153 end; |
146 end; |
154 |
147 |
155 procedure chAddHH(var id: shortstring); |
148 procedure chAddHH(var id: shortstring); |
156 var s: shortstring; |
149 var s: shortstring; |
157 Gear: PGear; |
150 Gear: PGear; |