equal
deleted
inserted
replaced
464 begin |
464 begin |
465 cTagsMask:= map[cTagsMask] |
465 cTagsMask:= map[cTagsMask] |
466 end; |
466 end; |
467 |
467 |
468 procedure chAddTrigger(var s: shortstring); |
468 procedure chAddTrigger(var s: shortstring); |
469 var t: LongWord; |
469 var ttype, gt, geartrig, Ticks, Lives: LongWord; |
470 begin |
470 X, Y: LongInt; |
471 val(s, t); |
471 c: char; |
472 AddTrigger(t, 1, 2) |
472 tmp: shortstring; |
473 end; |
473 begin |
|
474 c:= s[1]; |
|
475 Delete(s, 1, 1); |
|
476 case c of |
|
477 's': begin // s12345 1 1 33 0 0 123456 |
|
478 SplitBySpace(s, tmp); |
|
479 val(s, ttype); |
|
480 SplitBySpace(tmp, s); |
|
481 val(tmp, Ticks); |
|
482 SplitBySpace(s, tmp); |
|
483 val(s, Lives); |
|
484 SplitBySpace(tmp, s); |
|
485 val(tmp, gt); |
|
486 SplitBySpace(s, tmp); |
|
487 val(s, X); |
|
488 SplitBySpace(tmp, s); |
|
489 val(tmp, Y); |
|
490 SplitBySpace(s, tmp); |
|
491 val(s, geartrig); |
|
492 AddTriggerSpawner(ttype, Ticks, Lives, X, Y, TGearType(gt), geartrig); |
|
493 end; |
|
494 end |
|
495 end; |