0 Members and 5 Guests are viewing this topic.
1-Arrow rain 2-Knife wave3-Regeneration (health)4-Mine
@Stuffy and dnmr, you should unite to make ZS dominate the world.
procedure Necrophilia(ID: byte);var i, j: integer; dist, range, X, Y: single;begin range := 1337; j := 0; for i := 1 to 32 do if GetPlayerStat(i, 'Active') = True then if (GetPlayerStat(i, 'Health') <= 0) or (GetPlayerStat(i, 'Alive') = False) then if GetPlayerStat(i, 'Team') <> GetPlayerStat(ID, 'Team') then begin dist := Distance(GetPlayerStat(ID, 'X'), GetPlayerStat(ID, 'Y'), GetPlayerStat(i, 'X'), GetPlayerStat(i, 'Y')); if dist <= range then begin range := dist; j := i; end; end; if j > 0 then begin GetPlayerXY(j, X, Y); CreateBullet(X, Y, 0, -5, 10, 4, ID); CreateBullet(X, Y, -2.8, -3.2, 10, 4, ID); CreateBullet(X, Y, -2.8, 3.2, 10, 4, ID); for i := -Round(Bullets / 2) to Round(Bullets / 2) do CreateBullet(X + 10 * i, Y - 15 * abs(i), -0.54 * i, -2.3, 8, 10, ID); end else WriteConsole(ID, 'No target', $FF0000);end;