0 Members and 1 Guest are viewing this topic.
var Timer, ChosenPlayer: integer;procedure AppOnIdle(Ticks: integer);var i: integer;begin if (Timer > 0) then begin if (GetPlayerStat(ChosenPlayer, 'Active') = true) then begin case Timer of 7: WriteConsole(ChosenPlayer, 'Admin has chosen you to die in 5...', $DFDF39); 6: WriteConsole(ChosenPlayer, '4...', $DFDF39); 5: WriteConsole(ChosenPlayer, '3...', $DFDF39) 4: WriteConsole(ChosenPlayer, '2...', $DFDF39) 3: WriteConsole(ChosenPlayer, '1...', $DFDF39) 2: Command('/kill ' + IntToStr(ChosenPlayer)); 1: WriteConsole(ChosenPlayer, 'That was a warning...', $DFDF39) end; Dec(Timer, 1); end; end;end;function OnCommand(ID: Byte; Text: string): boolean;var i: integer;begin if (GetPiece(Text, ' ', 0) = '/pwnagetime') then begin delete(Text, 1, length(GetPiece(Text, ' ', 0)) + 1); for i:= 1 to 32 do begin if (IDToName(i) = Text) then begin ChosenPlayer:= i; WriteConsole(ID, 'Player found - ID: ' + IntToStr(ChosenPlayer), $DFDF39); Timer:= 7; break; end; end; end; Result:= false;end;