SAIL - RandExplosionInArea

[zoNE]

Код: Выделить всё

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.

Код: Выделить всё

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

Author: Serpent
Topic: https://forum.original-war.net/viewtopi ... =42&t=4558