SAIL - RandExplosionInArea

Gotowe kody SAIL'a, informacje na temat moddingu, itd.

Moderator: zoNE

Post Reply
User avatar
zoNE
The Great Uniter & Site Administrator
The Great Uniter & Site Administrator
Posts: 2059
Joined: Fri Feb 17, 2006 3:44 pm
Location: Poland
Contact:

SAIL - RandExplosionInArea

Post by zoNE »

Serpent wrote:

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.
Author: Serpent
Topic: https://forum.original-war.net/viewtopi ... =42&t=4558
Post Reply