I have made a script like this:
Code:
procedure InitHooks;
begin
RegisterHook('OnFire',On_Fire);
end;
procedure OnFire;
var
a,b : integer;
WormObj : TWorm;
begin
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
WormObj := GetTekWormObj;
if (WormObj.SelWeapon.WT = 2) and (WormObj.SelWeapon.WN = 22) then begin
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
a:=GetSyncRandom(1920,1);
b:=GetSyncRandom(696,1);
MakeMine(a,b);
end;
end;
When I use it, it makes so many mines that round never ends. How can I make it to do only as many mines as the script says?
And is it possible to make the script check maps size?