SRL Archive - Non-RuneScape Scripts

Simba Bots wars[lape]

CynicRus

2013-12-23 05:45:44

Hey:) Today I had nothing to do and I wrote this funny script. Well, just enter the name of your character, and if you're lucky - you can win-)


program SimbaWars;
type

TWeapon = record
 name: string;
 damage: integer;
end;

WPA = array of TWeapon;

TPerson = record
 name: string;
 alive: boolean;
 health: integer;
 MyWeapon: TWeapon;
end;

function Weapon(name: string;dmg: integer):TWeapon;
begin
 result.name:=name;
 result.damage:=dmg;
end;


//Person stuff
function TPerson.GetWeapon:TWeapon;
var
 weapons: array of TWeapon;
begin
 SetLength(Weapons,6);
 Weapons[0]:= Weapon('bitchslap in the face',15);
 Weapons[1]:= Weapon('knife in the back',20);
 Weapons[2]:= Weapon('9mm bullet in the knee',35);
 Weapons[3]:= Weapon('axe in the arm',40);
 Weapons[4]:= Weapon('sniper in the head',100);
 Weapons[5]:= Weapon('call of Cthulhu',200);
 MyWeapon:=Weapons[Random(6)];
end;

procedure TPerson.Init(aname: string)
begin
 name:=aname;
 alive:=true;
 health:=100;
 GetWeapon;
end;

function TPerson.isAlive(): boolean;
begin
 result:=alive;
end;



Procedure TPerson.ReceiveHit(Wpn: TWeapon);
var
 hit,hitpercent,hehe: integer;
 hitmsg: string;
 msg: string;
begin
  Hit:=RandomRange(0,wpn.damage);
  health:= health - hit;
  hitmsg:='';
  hitpercent:=Round((hit/wpn.damage)*100);
  if (hitPercent > 80) then
     hitMsg = '4mayor '
  else
   if (hitPercent < 20) then
     hitMsg = '3minor';

  msg:= name +a recieves '+hitmsg+' hit with a '+wpn.name+' and looses '+inttostr(hit)+' HP having: '+IntToStr(health);
  writeLn(msg);
  if health <=0 then
   alive:=false
    else
    begin
     hehe:=randomrange(0,20);
      if (hehe > 10) and (hehe < 20) then
      begin
       health:=health*2;
       msg:=Name +' finds a Cthulhu, doubling their health to '+inttostr(health)+'HP';
       WriteLn(msg);
       end;
    end;
end;

var
 Pers,Pers2: TPerson;
 Luck: integer;
begin
 WriteLn('Simba bot wars....just for lulz');
 Pers.init('Warrior ');
 Pers2.init('Developer ');
 while pers.IsAlive and pers2.IsAlive do
  begin
   luck:=randomrange(0,2);
   case luck of
   0: Pers.ReceiveHit(Pers2.MyWeapon);
   1: Pers2.ReceiveHit(Pers.MyWeapon);
   end;
  end;
 if pers.IsAlive then
  WriteLn(Pers.name + ' won!'+Pers2.name + ' died!')
   else
  WriteLn(Pers2.name + ' won!'+Pers.name + ' died!');
end.

Well, my result is:

[PHP]
Simba wars….just for lulz
Warrior receives a recieves hit with a call of Cthulhu and looses 6 HP having: 94
Developer receives a recieves hit with a call of Cthulhu and looses 67 HP having: 33
Warrior receives a recieves hit with a call of Cthulhu and looses 140 HP having: -46
Developer won!Warrior died!
Successfully executed.
Compiled successfully in 344 ms.
Simba wars….just for lulz
Developer receives a recieves hit with a knife in the back and looses 15 HP having: 85
Developer finds a Cthulhu, doubling their health to 170HP
Warrior receives a recieves hit with a sniper in the head and looses 30 HP having: 70
Warrior finds a Cthulhu, doubling their health to 140HP
Developer receives a recieves hit with a knife in the back and looses 10 HP having: 160
Warrior receives a recieves hit with a sniper in the head and looses 18 HP having: 122
Warrior finds a Cthulhu, doubling their health to 244HP
Developer receives a recieves hit with a knife in the back and looses 7 HP having: 153
Developer receives a recieves hit with a knife in the back and looses 15 HP having: 138
Developer receives a recieves hit with a knife in the back and looses 16 HP having: 122
Developer finds a Cthulhu, doubling their health to 244HP
Warrior receives a recieves hit with a sniper in the head and looses 89 HP having: 155
Warrior finds a Cthulhu, doubling their health to 310HP
Warrior receives a recieves hit with a sniper in the head and looses 50 HP having: 260
Warrior receives a recieves hit with a sniper in the head and looses 32 HP having: 228
Developer receives a recieves hit with a knife in the back and looses 9 HP having: 235
Developer finds a Cthulhu, doubling their health to 470HP
Developer receives a recieves hit with a knife in the back and looses 5 HP having: 465
Developer finds a Cthulhu, doubling their health to 930HP
Warrior receives a recieves hit with a sniper in the head and looses 56 HP having: 172
Warrior receives a recieves hit with a sniper in the head and looses 50 HP having: 122
Developer receives a recieves hit with a knife in the back and looses 6 HP having: 924
Developer finds a Cthulhu, doubling their health to 1848HP
Warrior receives a recieves hit with a sniper in the head and looses 66 HP having: 56
Warrior finds a Cthulhu, doubling their health to 112HP
Developer receives a recieves hit with a knife in the back and looses 1 HP having: 1847
Developer finds a Cthulhu, doubling their health to 3694HP
Warrior receives a recieves hit with a sniper in the head and looses 55 HP having: 57
Warrior finds a Cthulhu, doubling their health to 114HP
Developer receives a recieves hit with a knife in the back and looses 6 HP having: 3688
Warrior receives a recieves hit with a sniper in the head and looses 71 HP having: 43
Warrior finds a Cthulhu, doubling their health to 86HP
Developer receives a recieves hit with a knife in the back and looses 2 HP having: 3686
Developer finds a Cthulhu, doubling their health to 7372HP
Warrior receives a recieves hit with a sniper in the head and looses 72 HP having: 14
Developer receives a recieves hit with a knife in the back and looses 1 HP having: 7371
Developer finds a Cthulhu, doubling their health to 14742HP
Warrior receives a recieves hit with a sniper in the head and looses 91 HP having: -77
Developer won!Warrior died!
Successfully executed.
Compiled successfully in 343 ms.
Simba bot wars….just for lulz
Developer receives a recieves hit with a knife in the back and looses 12 HP having: 88
Developer finds a Cthulhu, doubling their health to 176HP
Developer receives a recieves hit with a knife in the back and looses 13 HP having: 163
Warrior receives a recieves hit with a sniper in the head and looses 36 HP having: 64
Warrior finds a Cthulhu, doubling their health to 128HP
Developer receives a recieves hit with a knife in the back and looses 10 HP having: 153
Developer receives a recieves hit with a knife in the back and looses 19 HP having: 134
Developer finds a Cthulhu, doubling their health to 268HP
Developer receives a recieves hit with a knife in the back and looses 19 HP having: 249
Developer receives a recieves hit with a knife in the back and looses 18 HP having: 231
Developer receives a recieves hit with a knife in the back and looses 17 HP having: 214
Developer finds a Cthulhu, doubling their health to 428HP
Warrior receives a recieves hit with a sniper in the head and looses 15 HP having: 113
Warrior finds a Cthulhu, doubling their health to 226HP
Warrior receives a recieves hit with a sniper in the head and looses 45 HP having: 181
Warrior receives a recieves hit with a sniper in the head and looses 24 HP having: 157
Warrior finds a Cthulhu, doubling their health to 314HP
Warrior receives a recieves hit with a sniper in the head and looses 99 HP having: 215
Warrior finds a Cthulhu, doubling their health to 430HP
Warrior receives a recieves hit with a sniper in the head and looses 12 HP having: 418
Developer receives a recieves hit with a knife in the back and looses 5 HP having: 423
Developer receives a recieves hit with a knife in the back and looses 11 HP having: 412
Warrior receives a recieves hit with a sniper in the head and looses 46 HP having: 372
Warrior finds a Cthulhu, doubling their health to 744HP
Warrior receives a recieves hit with a sniper in the head and looses 91 HP having: 653
Developer receives a recieves hit with a knife in the back and looses 15 HP having: 397
Warrior receives a recieves hit with a sniper in the head and looses 30 HP having: 623
Warrior receives a recieves hit with a sniper in the head and looses 62 HP having: 561
Warrior receives a recieves hit with a sniper in the head and looses 69 HP having: 492
Developer receives a recieves hit with a knife in the back and looses 12 HP having: 385
Developer receives a recieves hit with a knife in the back and looses 3 HP having: 382
Developer receives a recieves hit with a knife in the back and looses 3 HP having: 379
Developer finds a Cthulhu, doubling their health to 758HP
Developer receives a recieves hit with a knife in the back and looses 12 HP having: 746
Developer finds a Cthulhu, doubling their health to 1492HP
Warrior receives a recieves hit with a sniper in the head and looses 63 HP having: 429
Warrior receives a recieves hit with a sniper in the head and looses 1 HP having: 428
Warrior receives a recieves hit with a sniper in the head and looses 76 HP having: 352
Developer receives a recieves hit with a knife in the back and looses 16 HP having: 1476
Developer receives a recieves hit with a knife in the back and looses 8 HP having: 1468
Developer finds a Cthulhu, doubling their health to 2936HP
Developer receives a recieves hit with a knife in the back and looses 3 HP having: 2933
Developer finds a Cthulhu, doubling their health to 5866HP
Warrior receives a recieves hit with a sniper in the head and looses 92 HP having: 260
Warrior receives a recieves hit with a sniper in the head and looses 62 HP having: 198
Developer receives a recieves hit with a knife in the back and looses 9 HP having: 5857
Developer finds a Cthulhu, doubling their health to 11714HP
Developer receives a recieves hit with a knife in the back and looses 19 HP having: 11695
Developer receives a recieves hit with a knife in the back and looses 4 HP having: 11691
Developer receives a recieves hit with a knife in the back and looses 16 HP having: 11675
Developer receives a recieves hit with a knife in the back and looses 7 HP having: 11668
Developer receives a recieves hit with a knife in the back and looses 13 HP having: 11655
Developer finds a Cthulhu, doubling their health to 23310HP
Developer receives a recieves hit with a knife in the back and looses 7 HP having: 23303
Warrior receives a recieves hit with a sniper in the head and looses 82 HP having: 116
Warrior receives a recieves hit with a sniper in the head and looses 78 HP having: 38
Warrior receives a recieves hit with a sniper in the head and looses 50 HP having: -12
Developer won!Warrior died!
Successfully executed.
[/PHP]

Janilabo

2013-12-23 06:20:15

Haha weird little script Cynic! :D
You keep coming up with some interesting snippets man - good job.

Fixed the code by the way, it was missing a ' from line 71:

program SimbaWars;
type

TWeapon = record
 name: string;
 damage: integer;
end;

WPA = array of TWeapon;

TPerson = record
 name: string;
 alive: boolean;
 health: integer;
 MyWeapon: TWeapon;
end;

function Weapon(name: string;dmg: integer):TWeapon;
begin
 result.name:=name;
 result.damage:=dmg;
end;


//Person stuff
function TPerson.GetWeapon:TWeapon;
var
 weapons: array of TWeapon;
begin
 SetLength(Weapons,6);
 Weapons[0]:= Weapon('bitchslap in the face',15);
 Weapons[1]:= Weapon('knife in the back',20);
 Weapons[2]:= Weapon('9mm bullet in the knee',35);
 Weapons[3]:= Weapon('axe in the arm',40);
 Weapons[4]:= Weapon('sniper in the head',100);
 Weapons[5]:= Weapon('call of Cthulhu',200);
 MyWeapon:=Weapons[Random(6)];
end;

procedure TPerson.Init(aname: string)
begin
 name:=aname;
 alive:=true;
 health:=100;
 GetWeapon;
end;

function TPerson.isAlive(): boolean;
begin
 result:=alive;
end;



Procedure TPerson.ReceiveHit(Wpn: TWeapon);
var
 hit,hitpercent,hehe: integer;
 hitmsg: string;
 msg: string;
begin
  Hit:=RandomRange(0,wpn.damage);
  health:= health - hit;
  hitmsg:='';
  hitpercent:=Round((hit/wpn.damage)*100);
  if (hitPercent > 80) then
     hitMsg = '4mayor '
  else
   if (hitPercent < 20) then
     hitMsg = '3minor';

  msg:= 'name +a recieves '+hitmsg+' hit with a '+wpn.name+' and looses '+inttostr(hit)+' HP having: '+IntToStr(health);
  writeLn(msg);
  if health <=0 then
   alive:=false
    else
    begin
     hehe:=randomrange(0,20);
      if (hehe > 10) and (hehe < 20) then
      begin
       health:=health*2;
       msg:=Name +' finds a Cthulhu, doubling their health to '+inttostr(health)+'HP';
       WriteLn(msg);
       end;
    end;
end;

var
 Pers,Pers2: TPerson;
 Luck: integer;
begin
 WriteLn('Simba bot wars....just for lulz');
 Pers.init('Warrior ');
 Pers2.init('Developer ');
 while pers.IsAlive and pers2.IsAlive do
  begin
   luck:=randomrange(0,2);
   case luck of
   0: Pers.ReceiveHit(Pers2.MyWeapon);
   1: Pers2.ReceiveHit(Pers.MyWeapon);
   end;
  end;
 if pers.IsAlive then
  WriteLn(Pers.name + ' won!'+Pers2.name + ' died!')
   else
  WriteLn(Pers2.name + ' won!'+Pers.name + ' died!');
end.

-Jani