hedgewars/CCHandlers.inc
changeset 595 5ee863f2f568
parent 594 221ffeb92f30
child 602 f7628ebfccde
equal deleted inserted replaced
594:221ffeb92f30 595:5ee863f2f568
   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;