hedgewars/CCHandlers.inc
changeset 613 e8cf72d0e0f7
parent 606 9d800fdfd3bd
child 615 b646b3c43369
equal deleted inserted replaced
612:333d095319de 613:e8cf72d0e0f7
   473     tmp: shortstring;
   473     tmp: shortstring;
   474 begin
   474 begin
   475 c:= s[1];
   475 c:= s[1];
   476 Delete(s, 1, 1);
   476 Delete(s, 1, 1);
   477 case c of
   477 case c of
   478   's': begin // s12345 1 1 33 0 0 123456
   478   's': begin // sTYPE TICKS LIVES GEARTYPE X Y GEARTRIGGER
   479        SplitBySpace(s, tmp);
   479        SplitBySpace(s, tmp);
   480        val(s, ttype);
   480        val(s, ttype);
   481        SplitBySpace(tmp, s);
   481        SplitBySpace(tmp, s);
   482        val(tmp, Ticks);
   482        val(tmp, Ticks);
   483        SplitBySpace(s, tmp);
   483        SplitBySpace(s, tmp);
   490        val(tmp, Y);
   490        val(tmp, Y);
   491        SplitBySpace(s, tmp);
   491        SplitBySpace(s, tmp);
   492        val(s, geartrig);
   492        val(s, geartrig);
   493        AddTriggerSpawner(ttype, Ticks, Lives, X, Y, TGearType(gt), geartrig);
   493        AddTriggerSpawner(ttype, Ticks, Lives, X, Y, TGearType(gt), geartrig);
   494        end;
   494        end;
       
   495   'C': begin
       
   496        val(s, ttype);
       
   497        AddTriggerSuccess(ttype);
       
   498        end;
   495   end
   499   end
   496 end;
   500 end;