0 Members and 1 Guest are viewing this topic.
const//systemsVERSION = '0.0.1 beta' //colours
procedure OnJoinGame(ID, Team: byte);begin Command('/setteam1 + inttostr(ID));//Player greetingif Team = 1 then beginDrawText(ID, 'Blah!',cGreet); end; end;
How to code this thing: If NumOfAlpha equals to 0 then begin Command('/nextmap') and DrawText(ID, 'Blah',cSomeColour)How it will be in Pascal?
If AlphaPlayers = 0 then begin  Command('/nextmap');  DrawText(0, 'Blah', cSomeColour);end;
procedure OnPlayerSpeak(ID: byte; Text: string);begin if (Text = '!knife') then begin   ForceWeapon(ID,GetPlayerStat(ID,'Primary'),14,0);   WriteConsole(ID, 'You recieved a bonus knife',cInfo); end;end;
boolean bla = false;
if Text = '/test' then bla := true;
int i := 50;if bla = true then begin if i = 0 then begin bla := false; i := 50; end; else {More STuff HERE} i--;end;
Use your knife to kill gays and spas to push them
Use your chainsaw to rape hunters
You got raped and became a gay
Gays have taken over the world
procedure AppOnIdle(Ticks: integer);begin if timer > 0 then begin timer := timer - 1; if timer = 0 then WriteLn('Skill cooled down'); end;end;procedure OnPlayerSpeak(ID: Byte; Text: string);begin if (text = '!knife') then begin ForceWeapon(ID,GetPlayerStat(ID,'Primary'),14,0); WriteConsole(ID, 'Knife used. 30 seconds cooldown',cInfo); timer := 60; end;end;
procedure OnPlayerSpeak(ID: Byte; Text: string);beginif (text = '!knife') then begin if timer=0 then begin ForceWeapon(ID,GetPlayerStat(ID,'Primary'),14,0); WriteConsole(ID, 'Knife used. 30 seconds cooldown',cInfo); timer := 30; else WriteConsole(ID, inttostr(timer) + 'seconds coolldown',cInfo); end;end;
procedure OnPlayerSpeak(ID: Byte; Text: string);begin if (text = '!credits') then begin//Some stuff goes here end; if (text = '!kit') then begin if timer = 0 then begin  ForceWeapon(ID,5,14,0);  WriteConsole(ID, 'Hunter Kit used. 30 seconds cooldown',cInfo);  timer := 30; else  WriteConsole(ID, inttostr(timer) + 'seconds coolldown',cInfo); end; end;end;
const DPM = 3;var dp: array[1..32] of integer; procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);begin if (GetPlayerStat(Victim,'Team') = 1 then begin dp[ID] := 1 end;end;procedure OnPlayerRespawn(ID: Byte);begin if GetPlayerStat(ID, 'Team') = 1 then begin SetWeaponActive(ID,13,false); end; if dp[ID] := DPM then if (GetPlayerStat(ID,'Team')) <> 5 then begin   Command('/setteam5 ' +inttostr(ID)); end;end;
constDeathPointMax = 3;Num_Of_Pl=10;vardp: array[1..Num_Of_Pl] of integer;PlayerLock: array[1..32] of byte;//Lock procedure by DorkeyDear(Curt)procedure Lock(Id, Team: byte);begin PlayerLock[Id] := Team; if (Team < 6) then begin  SayToPlayer(Id, 'You are locked on team ' + InttoStr(Team) + '.');  if (GetPlayerStat(Id, 'Team') <> Team) then Command('/setteam' + InttoStr(Team) + ' ' + InttoStr(Id)); end; end;procedure DeathPointCount(ID: byte);begin dp[ID]:=dp[ID]+1;  if dp[ID]=DeathPointMax then begin   WriteConsole(ID,'Sorry, out of respawns!',$EE00FFFF);   Lock(ID, 5) end else   WriteConsole(ID,'Now you have '+inttostr(dp[ID])+'/'+inttostr(DeathPointMax)+' deathpoints',$EE00FFFF);end;procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);begin if (GetPlayerStat(Victim,'Team') = 1 then begin DeathPointCount(Victim) end;end;procedure OnPlayerRespawn(ID: Byte);begin if dp[ID] := DeathPointMax then if (GetPlayerStat(ID,'Team')) <> 5 then begin   Command('/setteam5 ' +inttostr(ID)); end;end;
mmmm my compiler said 1 / 1 maniac~1.pas Fatal: Syntax error, BEGIN expected but identifier ONST foundwith your code.....
Well , i tried to make a dethpoint code ,and im near from finishing it Here it goes:Code:constDeathPointMax = 3;Num_Of_Pl=10;vardp: array[1..Num_Of_Pl] of integer;PlayerLock: array[1..32] of byte;//Lock procedure by DorkeyDear(Curt)procedure Lock(Id, Team: byte);begin PlayerLock[Id] := Team; if (Team < 6) then begin SayToPlayer(Id, 'You are locked on team ' + InttoStr(Team) + '.'); if (GetPlayerStat(Id, 'Team') <> Team) then Command('/setteam' + InttoStr(Team) + ' ' + InttoStr(Id)); end; end;procedure DeathPointCount(ID: byte);begin dp[ID]:=dp[ID]+1; if dp[ID]=DeathPointMax then begin WriteConsole(ID,'Sorry, out of respawns!',$EE00FFFF); Lock(ID, 5) end else WriteConsole(ID,'Now you have '+inttostr(dp[ID])+'/'+inttostr(DeathPointMax)+' deathpoints',$EE00FFFF);end;procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);beginif (GetPlayerStat(Victim,'Team') = 1 then begin DeathPointCount(Victim)end;end;procedure OnPlayerRespawn(ID: Byte);beginif dp[ID] := DeathPointMax then if (GetPlayerStat(ID,'Team')) <> 5 then begin Command('/setteam5 ' +inttostr(ID));end;end;Can u be so kind and check it please? --------------------------------------------------