0 Members and 2 Guests are viewing this topic.
const 1 = bossname; 2 = bossname; 3 = bossname; 4 = bossname; 5 = bossname;procedure OnMapChange(NewMap: String); begin random = (Random(1,5) then begin WriteConsole(0,''random' has been summoned kill him for reward !',$EE81FAA1);Command('/addbot2 random');end; end;
procedure OnMapChange(NewMap: String);var name: stringbeginname := 'default boss name';case random(1,5) of 1: name := 'boss 1'; 2: name := 'boss 2'; 3: name := 'boss 3'; 4: name := 'boss 4'; 5: name := 'boss 5'; end;writeconsole(0,name+' has been selected to kill you',$ffaa4444);command('/addbot2 '+name);end;
name := 'default boss name';
const PlainTextColour=$EE81FAA1;// function description goes hereprocedure SummonRandomBotBoss();var NewBossName:string;begin case Random(1,6) of // note that Random(1, 6) can return 1-5, but not 6! 1: NewBossName := 'boss 1'; 2: NewBossName := 'boss 2'; 3: NewBossName := 'boss 3'; 4: NewBossName := 'boss 4'; 5: NewBossName := 'boss 5'; end; Command('/addbot2 '+NewBossName); Writeconsole(0, NewBossName+' has been summoned! Kill him for reward!', PlainTextColour);end;// STD event description goes hereprocedure OnMapChange(NewMap: String);begin SummonRandomBotBoss();end;
const PlainTextColour=$EE81FAA1;var NewBossName:string; // function description goes hereprocedure SummonRandomBotBoss();begin case Random(1,6) of // note that Random(1, 6) can return 1-5, but not 6! 1: NewBossName:='boss 1'; 2: NewBossName:='boss 2'; 3: NewBossName:='boss 3'; 4: NewBossName:='boss 4'; 5: NewBossName:='boss 5'; end; Command('/addbot2 '+NewBossName); WriteConsole(0, NewBossName+' has been summoned! Kill him for reward!', PlainTextColour);end;// function description goes hereprocedure CheckBotBoss(Victim:byte);begin// assume that bot name is the same as bot file name if (IdToName(Victim)=NewBossName) then begin Command('/kick '+NewBossName); WriteConsole(0, NewBossName+' has been defited!', PlainTextColour); end;end;// function description goes hereprocedure InitScript();begin NewBossName:=''; // never forget to initialize all your variables!!!end;// STD event description goes hereprocedure ActivateServer();begin InitScript();end;// STD event description goes hereprocedure OnMapChange(NewMap: String);begin SummonRandomBotBoss();end;// STD event description goes hereprocedure OnPlayerKill(Killer, Victim: byte; Weapon: string);begin CheckBotBoss(Victim);end;
[*] boom -> [Error] (9:29): colon (':') expected
const PlainTextColour=$EE81FAA1; var NewBossName:string; // function description goes here procedureSummonRandomBotBoss(); begin caseRandom(1,6) of// note that Random(1, 6) can return 1-5, but not 6! 1: NewBossName := 'ViRuS ZoMbIe'; 2: NewBossName := 'GlAdIaToR ZoMbIe'; 3: NewBossName := 'CoWbOy ZoMbIe'; 4: NewBossName := 'SpArTaAa ZoMbIe'; 5: NewBossName := 'WTF ZoMbIe'; end; Command('/addbot2 '+NewBossName); Writeconsole(0, NewBossName+' has been summoned! Kill him for reward!', PlainTextColour); end; // function description goes here procedureCheckBotBoss(Victim:byte); begin end; procedureInitScript(); begin NewBossName:=''; end; // STD event description goes here procedureActivateServer(); begin InitScript(); end; // STD event description goes here procedureOnMapChange(NewMap: String); begin SummonRandomBotBoss(); end; // STD event description goes here procedureOnPlayerKill(Killer, Victim: byte; Weapon: string); begin CheckBotBoss(Victim); end;
procedure OnPlayerKill(Killer, Victim: byte;Weapon: string); begin if Killer = Victim then begin writeConsole(Killer, 'you cant kill yourself for money !', Color); end else begin money[Killer] := money[Killer]+1; writeConsole(Killer, 'You just got $1 your money is now: $' + inttostr(money[Killer]), Color); end; end;
GlAdIaTor ZoMbIe SpArTaAa ZoMbIe ViRuS ZoMbIe WTF ZoMbIe
OnPlayerKill(Killer, Victim: byte;Weapon: byte);