SAIL - RandExplosionInArea

[Serpent]

Code: Select all

Export Function RandExplosionInArea(area, time, num);
var i, c, tmp;
begin
tmp := AreaToList(area, 0);
Randomize;

for i = 1 to num do
    begin
    c := Rand(1, tmp[1]);
    MineExplosion(tmp[1][c], tmp[2][c], 1);
    Wait(time);
    end;

End;

Funkcja powoduje losowe wybuchy w danej arei.

Code: Select all

RandExplosionInArea(area, time, num);
area - Area w której mają wystąpić wybuchy.
time - Czas pomiędzy wybuchami.
num - Ilość wybuchów.