munk
2007-07-26 00:49:40
<!– BEGIN TEMPLATE: formanswers –>
munk - SRL Member Application Form
munk
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
php, javascript, html(xhtml,dhtml,css),java,vbscript,pascal,actionscript…
Other Communitys
php-ffmpeg on google groups, headweight.net
How Long have You Played Runescape
since it came out
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I've been a programmer since I was 9. I love learning new languages and developing new ideas. I think i could be a good resource to the SRL members as my knowledge of SCAR and SRL continue to grow everyday, and I'd love it if you accepted me as a member.
I have played runescape since it came out, and was one of the original cheaters. Since then i have played on and off, mostly off. It became something to do when i was really really really bored. Then i found the SRL community and how nice and easy the include made Scar scripting, and i love the idea of open source scripts for cheating. Now, even though i dont play runescape that often, i love writing scripts for it.
The SRL community is great. Ideas are shared and developed on beautifully, while weeding out the leechers/noobs(Noob Points!!). Nobody gets flamed for no reason (unlike most forums) but people are still put in there place when they break the rules. Its easily the best forum I've ever been a part of.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
munk - SRL Member Application Form
munk
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
php, javascript, html(xhtml,dhtml,css),java,vbscript,pascal,actionscript…
Other Communitys
php-ffmpeg on google groups, headweight.net
How Long have You Played Runescape
since it came out
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I've been a programmer since I was 9. I love learning new languages and developing new ideas. I think i could be a good resource to the SRL members as my knowledge of SCAR and SRL continue to grow everyday, and I'd love it if you accepted me as a member.
I have played runescape since it came out, and was one of the original cheaters. Since then i have played on and off, mostly off. It became something to do when i was really really really bored. Then i found the SRL community and how nice and easy the include made Scar scripting, and i love the idea of open source scripts for cheating. Now, even though i dont play runescape that often, i love writing scripts for it.
The SRL community is great. Ideas are shared and developed on beautifully, while weeding out the leechers/noobs(Noob Points!!). Nobody gets flamed for no reason (unlike most forums) but people are still put in there place when they break the rules. Its easily the best forum I've ever been a part of.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program trainomatic5000;
{.include srl/srl.scar}
{.include srl/srl/extended/xinventory.scar}
// Instructions:
// 1. Press play
// 2. Setup Forms
// 3. Enjoy
const
version = 2.1;
var
frm5000 : TForm;
btnPlayers,
btnLoc,
btnSettings,
btnInfo,
btnUpdate,
btnClicktoupdate,
btnStart : TButton;
pnlLoc,
pnlSettings,
pnlPlayers,
pnlInfo : TPanel;
imgBG : TImage;
frmbg2 : integer;
Label1 : TLabel;
Label2 : TLabel;
lblUpdate : TLabel;
Label3 : TLabel;
newVersion : string;
cboxLoc : TComboBox;
txtColor1 : TEdit;
txtColor2 : TEdit;
txtColor3 : TEdit;
colorpick1 : TButton;
colorpick2 : TButton;
colorpick3 : TButton;
lblloc : TLabel;
Label15 : TLabel;
Label56 : TLabel;
Label11 : TLabel;
runDir : TComboBox;
txtKillswitch : TEdit;
txtKillsend : TEdit;
chkFood : TCheckBox;
foodBox : TGroupBox;
Label22 : TLabel;
Label29 : TLabel;
txtFoodname : TEdit;
txtHp : TEdit;
lblname : TLabel;
lblpassword : TLabel;
lblnick : TLabel;
lblhp : TLabel;
lblfightstyle : TLabel;
lblPlayerNo : TLabel;
btnPrev : TButton;
btnNext : TButton;
v: extended;
var
j,count,pcount,oc,oatt,ostr,odef,b,p,killstilswitch,killslimit,lowesthp,cp: integer;
colors: TIntegerArray;
directiontorun,foodname: string;
var
txtName, txtPass, txtNick, txtMinhp: array of TEdit;
fightStyle: array of TcomboBox;
chkActive: array of TCheckBox;
procedure save;
var
i:integer;
begin
SaveSetting('trainomatic','KillsTilSwitch',txtkillswitch.text);
Savesetting('trainomatic','KillsTilEnd',txtKillsend.text);
saveSetting('trainomatic','runDir',runDir.text);
saveSetting('trainomatic','location',cboxLoc.text);
for i:=0 to cp do
begin
SaveSetting('trainomatic','name'+inttostr(i),players[i].name);
SaveSetting('trainomatic','pass'+inttostr(i),players[i].pass);
SaveSetting('trainomatic','nick'+inttostr(i),players[i].nick);
SaveSetting('trainomatic','fightstyle'+inttostr(i),inttostr(players[i].integer1));
SaveSetting('trainomatic','minHP'+inttostr(i),inttostr(players[i].integer2));
SaveSetting('trainomatic','active'+inttostr(i),booltostr(players[i].active));
end;
for i:=cp+1 to 7 do
begin
SaveSetting('trainomatic','name'+inttostr(i),'');
SaveSetting('trainomatic','pass'+inttostr(i),'');
SaveSetting('trainomatic','nick'+inttostr(i),'');
SaveSetting('trainomatic','fightstyle'+inttostr(i),'');
SaveSetting('trainomatic','minHP'+inttostr(i),'');
SaveSetting('trainomatic','active'+inttostr(i),'');
end;
end;
procedure load;
var
i:integer;
test:string;
active:boolean;
begin
test := LoadSetting('trainomatic','runDir');
if not (test='') then runDir.text:=test;
test := LoadSetting('trainomatic','KillsTilEnd');
if not (test='') then txtKillsend.Text:=test;
test := LoadSetting('trainomatic','KillsTilSwitch');
if not (test='') then txtKillswitch.Text:=test;
test := LoadSetting('trainomatic','location');
if not (test='') then cboxLoc.Text:=test;
for i:=0 to 7 do
begin
test:=LoadSetting('trainomatic','name'+inttostr(i));
if (test='') then
begin
break;
end else
begin
txtName[i].text:=test;
txtPass[i].text:=LoadSetting('trainomatic','pass'+inttostr(i));
txtNick[i].text:=LoadSetting('trainomatic','nick'+inttostr(i));
fightStyle[i].text:=LoadSetting('trainomatic','fightstyle'+inttostr(i));
txtMinHp[i].text:=LoadSetting('trainomatic','minHP'+inttostr(i));
active:=strtobool(LoadSetting('trainomatic','active'+inttostr(i)));
chkActive[i].checked:=active;
end;
end;
end;
procedure theSender(sender :tobject);
var
Color,i,pc: integer;
begin
case sender of
btnLoc: begin
pnlLoc.visible:=true;
pnlSettings.visible:=false;
pnlPlayers.visible:=false;
pnlInfo.visible:=false;
btnLoc.enabled:=false;
btnSettings.enabled:=true;
btnPlayers.enabled:=true;
btnInfo.enabled:=true;
end;
btnSettings: begin
pnlLoc.visible:=false;
pnlSettings.visible:=true;
pnlPlayers.visible:=false;
pnlInfo.visible:=false;
btnLoc.enabled:=true;
btnSettings.enabled:=false;
btnPlayers.enabled:=true;
btnInfo.enabled:=true;
end;
btnPlayers: begin
pnlLoc.visible:=false;
pnlSettings.visible:=false;
pnlPlayers.visible:=true;
pnlInfo.visible:=false;
btnLoc.enabled:=true;
btnSettings.enabled:=true;
btnPlayers.enabled:=false;
btnInfo.enabled:=true;
end;
btnInfo: begin
pnlLoc.visible:=false;
pnlSettings.visible:=false;
pnlPlayers.visible:=false;
pnlInfo.visible:=true;
btnLoc.enabled:=true;
btnSettings.enabled:=true;
btnPlayers.enabled:=true;
btnInfo.enabled:=false;
end;
btnUpdate: begin
newVersion:=getPage('http://www.headweight.net/projects/trainomatic5000/currentversion.txt');
if newVersion='' then
begin
writeln('Connection Error');
end else
begin
v:=strToFloat(newVersion);
btnUpdate.visible:=false;
if version >= v then
begin
lblUpdate.caption:='v'+newVersion+' is up to date!';
end else
begin
btnClickToUpdate.visible:=true;
end;
end;
end;
btnClicktoupdate: OpenWebPage('http://www.villavu.com/forum/showthread.php?t=12904?p=150748');
cboxLoc : begin
case (cboxLoc.text) of
'Custom...': begin
txtColor1.enabled:=true;
txtColor2.enabled:=true;
txtColor3.enabled:=true;
colorpick1.enabled:=true;
colorpick2.enabled:=true;
colorpick3.enabled:=true;
end;
'Lumbridge Castle Basement Spiders': begin
txtColor1.enabled:=false;
txtColor2.enabled:=false;
txtColor3.enabled:=false;
colorpick1.enabled:=false;
colorpick2.enabled:=false;
colorpick3.enabled:=false;
colors[0]:=1977645;
colors[1]:=4482662;
colors[2]:=3427661;
end;
'Edgville Dungeon Giant Rats': begin
txtColor1.enabled:=false;
txtColor2.enabled:=false;
txtColor3.enabled:=false;
colorpick1.enabled:=false;
colorpick2.enabled:=false;
colorpick3.enabled:=false;
colors[0]:=9278344;
colors[1]:=4607309;
colors[2]:=8289928;
end;
'Cows': begin
txtColor1.enabled:=false;
txtColor2.enabled:=false;
txtColor3.enabled:=false;
colorpick1.enabled:=false;
colorpick2.enabled:=false;
colorpick3.enabled:=false;
colors[0]:=7240331;
colors[1]:=2967396;
colors[2]:=5528426;
end;
'Goblins (stronghold)': begin
txtColor1.enabled:=false;
txtColor2.enabled:=false;
txtColor3.enabled:=false;
colorpick1.enabled:=false;
colorpick2.enabled:=false;
colorpick3.enabled:=false;
colors[0]:=3114112;
colors[1]:=4747059;
colors[2]:=1858938;
end;
end;
end;
colorpick1: begin
PickColor(Color, x, y);
txtColor1.text:=inttostr(color);
end;
colorpick2: begin
PickColor(Color, x, y);
txtColor2.text:=inttostr(color);
end;
colorpick3: begin
PickColor(Color, x, y);
txtColor3.text:=inttostr(color);
end;
chkFood: begin
if chkFood.checked then
begin
foodbox.enabled:=true;
end else
begin
foodbox.enabled:=false;
end;
end;
btnPrev: begin
cp:=cp-1;
lblPlayerNo.caption:=inttostr(cp);
btnNext.enabled:=true;
if cp=0 then
begin
btnPrev.enabled:=false
end;
for i:=0 to 7 do
begin
if i=cp then
begin
txtName[i].visible:=true;
txtPass[i].visible:=true;
txtNick[i].visible:=true;
txtMinhp[i].visible:=true;
chkActive[i].visible:=true;
FightStyle[i].visible:=true;
end else
begin
txtName[i].visible:=false;
txtPass[i].visible:=false;
txtNick[i].visible:=false;
txtMinhp[i].visible:=false;
chkActive[i].visible:=false;
FightStyle[i].visible:=false;
end;
end;
end;
btnNext: begin
cp:=cp+1;
lblPlayerNo.caption:=inttostr(cp);
btnPrev.enabled:=true;
if cp=7 then
begin
btnNext.enabled:=false
end;
for i:=0 to 7 do
begin
if i=cp then
begin
txtName[i].visible:=true;
txtPass[i].visible:=true;
txtNick[i].visible:=true;
txtMinhp[i].visible:=true;
chkActive[i].visible:=true;
FightStyle[i].visible:=true;
end else
begin
txtName[i].visible:=false;
txtPass[i].visible:=false;
txtNick[i].visible:=false;
txtMinhp[i].visible:=false;
chkActive[i].visible:=false;
FightStyle[i].visible:=false;
end;
end;
end;
btnStart: begin
if (cboxLoc.text='Custom...') then
begin
colors[0]:=strtoint(txtColor1.text);
colors[1]:=strtoint(txtColor2.text);
colors[2]:=strtoint(txtColor3.text);
end;
pc:=0;
for i:=0 to 7 do
begin
if (trim(txtName[i].text)='')then
begin
if pc=0 then
begin
writeln('No players Declared');
TerminateScript;
end else
begin
writeln(inttostr(pc) + ' players');
break;
end;
end else
begin
NumberOfPlayers(pc+1);
if (fightStyle[i].text='') then fightstyle[i].text:='1';
if (txtMinHp[i].text='') then txtMinHp[i].text:='7';
Players[pc].Name := txtName[i].text;
Players[pc].Pass := txtPass[i].text;
Players[pc].Nick := txtNick[i].text;
Players[pc].integer1 := strtoint(fightStyle[i].text);
Players[pc].integer2 := strtoint(txtMinHp[i].text);
Players[pc].Active := chkActive[i].checked;
inc(pc);
end;
end;
save;
killstilswitch:=strtoint(txtKillswitch.text);
killslimit:=strtoint(txtKillsend.text);
directiontorun:=runDir.text;
if chkFood.checked then
begin
foodName:=txtFoodname.text;
lowestHP:=strtoint(txtHp.text);
end;
frm5000.modalresult := mrOk;
end;
end;
end;
procedure Initform;
var
i:integer;
canvas:TCanvas;
begin
frm5000 := CreateForm;
frm5000.Left := 326;
frm5000.Top := 168;
frm5000.BorderStyle := bsSingle;
frm5000.Caption := 'Train-o-matic 5000';
frm5000.ClientHeight := 275;
frm5000.ClientWidth := 394;
frm5000.Color := clWhite;
frm5000.Font.Color := clWindowText;
frm5000.Font.Height := -11;
frm5000.Font.Name := 'MS Sans Serif';
frm5000.Font.Style := [];
frm5000.Visible := false;
frm5000.PixelsPerInch := 96;
btnPlayers := TButton.Create(frm5000);
btnPlayers.Parent := frm5000;
btnPlayers.onclick:= @theSender;
btnPlayers.Left := 7;
btnPlayers.Top := 55;
btnPlayers.Width := 75;
btnPlayers.Height := 20;
btnPlayers.Caption := 'Players';
btnPlayers.TabOrder := 0;
btnLoc := TButton.Create(frm5000);
btnLoc.Parent := frm5000;
btnLoc.onclick:= @theSender;
btnLoc.Left := 81;
btnLoc.Top := 55;
btnLoc.Width := 75;
btnLoc.Height := 20;
btnLoc.Caption := 'Location';
btnLoc.TabOrder := 1;
btnSettings := TButton.Create(frm5000);
btnSettings.Parent := frm5000;
btnSettings.onclick:=@theSender;
btnSettings.Left := 155;
btnSettings.Top := 55;
btnSettings.Width := 75;
btnSettings.Height := 20;
btnSettings.Caption := 'Settings';
btnSettings.TabOrder := 2;
btnInfo := TButton.Create(frm5000);
btnInfo.Parent := frm5000;
btnInfo.onclick:= @theSender;
btnInfo.Left := 312;
btnInfo.Top := 55;
btnInfo.Width := 75;
btnInfo.Height := 20;
btnInfo.Caption := 'Info';
btnInfo.TabOrder := 8;
btnInfo.enabled := false;
btnStart := TButton.Create(frm5000);
btnStart.Parent := frm5000;
btnStart.onclick:= @theSender;
btnStart.Left := 322;
btnStart.Top := 242;
btnStart.Width := 65;
btnStart.Height := 25;
btnStart.Caption := 'Start';
btnStart.TabOrder := 10;
pnlLoc := TPanel.Create(frm5000);
pnlLoc.Parent := frm5000;
pnlLoc.Left := 7;
pnlLoc.Top := 75;
pnlLoc.Width := 379;
pnlLoc.Height := 160;
pnlLoc.TabOrder := 3;
pnlLoc.Visible := False;
pnlSettings := TPanel.Create(frm5000);
pnlSettings.Parent := frm5000;
pnlSettings.Left := 7;
pnlSettings.Top := 75;
pnlSettings.Width := 379;
pnlSettings.Height := 160;
pnlSettings.TabOrder := 4;
pnlSettings.Visible := False;
pnlPlayers := TPanel.Create(frm5000);
pnlPlayers.Parent := frm5000;
pnlPlayers.Left := 7;
pnlPlayers.Top := 75;
pnlPlayers.Width := 379;
pnlPlayers.Height := 160;
pnlPlayers.TabOrder := 5;
pnlPlayers.Visible := False;
pnlInfo := TPanel.Create(frm5000);
pnlInfo.Parent := frm5000;
pnlInfo.Left := 7;
pnlInfo.Top := 75;
pnlInfo.Width := 379;
pnlInfo.Height := 160;
pnlInfo.TabOrder := 4;
pnlInfo.Visible := True;
Label1 := TLabel.Create(pnlInfo);
Label1.Parent := pnlInfo;
Label1.Left := 125;
Label1.Top := 18;
Label1.Width := 141;
Label1.Height := 22;
Label1.Alignment := taCenter;
Label1.Caption := 'Scripted and Designed by';
Label2 := TLabel.Create(pnlInfo);
Label2.Parent := pnlInfo;
Label2.Left := 172;
Label2.Top := 45;
Label2.Width := 31;
Label2.Height := 16;
Label2.Alignment := taCenter;
Label2.Caption := 'munk';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -13;
Label2.Font.Name := 'Myriad Pro';
Label2.Font.Style := [];
Label2.ParentFont := False;
lblUpdate := TLabel.Create(pnlInfo);
lblUpdate.Parent := pnlInfo;
lblUpdate.Alignment := taCenter;
lblUpdate.Left := 145;
lblUpdate.Top := 90;
lblUpdate.Width := 150;
lblUpdate.Height := 27;
Label3 := TLabel.Create(pnlInfo);
Label3.Parent := pnlInfo;
Label3.Left := 112;
Label3.Top := 139;
Label3.Width := 153;
Label3.Height := 14;
Label3.Caption := 'Copyright 2007 headweight.net';
Label3.Font.Color := clWindowText;
Label3.Font.Height := -11;
Label3.Font.Name := 'Myriad Pro';
Label3.Font.Style := [];
Label3.ParentFont := False;
btnUpdate := TButton.Create(pnlInfo);
btnUpdate.Parent := pnlInfo;
btnUpdate.onclick:=@theSender;
btnUpdate.Left := 137;
btnUpdate.Top := 90;
btnUpdate.Width := 100;
btnUpdate.Height := 25;
btnUpdate.Caption := 'Check For Updates';
btnUpdate.TabOrder := 0;
btnClicktoupdate := TButton.Create(pnlInfo);
btnClicktoupdate.Parent := pnlInfo;
btnClicktoupdate.onclick:=@theSender;
btnClicktoupdate.Left := 77;
btnClicktoupdate.Top := 90;
btnClicktoupdate.Width := 220;
btnClicktoupdate.Height := 25;
btnClicktoupdate.Caption := 'Newer Version Available. Click Here to update!';
btnClicktoupdate.TabOrder := 0;
btnClicktoupdate.visible :=false;
imgBG := TImage.Create(frm5000);
imgBG.Parent := frm5000;
imgBG.SetBounds(0, 0, 380, 28);
canvas:=GetBitmapCanvas(frmbg2);
SafeCopyCanvas(Canvas, imgBG.Canvas, 0, 0, 380, 28, 0, 0, 380, 28);
imgBG.Left := 8;
imgBG.Top := 10;
imgBG.Width := 380;
imgBG.Height := 28;
cboxLoc := TComboBox.Create(pnlLoc);
cboxLoc.Parent := pnlLoc;
cboxLoc.Left := 27;
cboxLoc.Top := 29;
cboxLoc.Width := 326;
cboxLoc.Height := 21;
cboxLoc.ItemHeight := 13;
cboxLoc.TabOrder := 0;
cboxLoc.Text := 'Choose Your Location....';
cboxLoc.Items.Add('Lumbridge Castle Basement Spiders');
cboxLoc.Items.Add('Edgville Dungeon Giant Rats');
cboxLoc.Items.Add('Cows');
cboxLoc.Items.Add('Goblins (stronghold)');
cboxLoc.Items.Add('Custom...');
// cboxLoc.style:=csDropDownList;
cboxLoc.onchange:=@theSender;
txtColor1 := TEdit.Create(pnlLoc);
txtColor1.Parent := pnlLoc;
txtColor1.Left := 160;
txtColor1.Top := 61;
txtColor1.Width := 121;
txtColor1.Height := 21;
txtColor1.Enabled := False;
txtColor1.TabOrder := 1;
txtColor1.Text := '0';
txtColor2 := TEdit.Create(pnlLoc);
txtColor2.Parent := pnlLoc;
txtColor2.Left := 160;
txtColor2.Top := 90;
txtColor2.Width := 121;
txtColor2.Height := 21;
txtColor2.Enabled := False;
txtColor2.TabOrder := 2;
txtColor2.Text := '0';
txtColor3 := TEdit.Create(pnlLoc);
txtColor3.Parent := pnlLoc;
txtColor3.Left := 160;
txtColor3.Top := 119;
txtColor3.Width := 121;
txtColor3.Height := 21;
txtColor3.Enabled := False;
txtColor3.TabOrder := 3;
txtColor3.Text := '0';
colorpick1 := TButton.Create(pnlLoc);
colorpick1.Parent := pnlLoc;
colorpick1.Left := 85;
colorpick1.Top := 61;
colorpick1.Width := 75;
colorpick1.Height := 20;
colorpick1.Caption := 'Pick Color';
colorpick1.Enabled := False;
colorpick1.TabOrder := 4;
colorpick1.onclick := @theSender;
colorpick2 := TButton.Create(pnlLoc);
colorpick2.Parent := pnlLoc;
colorpick2.Left := 85;
colorpick2.Top := 90;
colorpick2.Width := 75;
colorpick2.Height := 20;
colorpick2.Caption := 'Pick Color';
colorpick2.Enabled := False;
colorpick2.TabOrder := 5;
colorpick2.onclick := @theSender;
colorpick3 := TButton.Create(pnlLoc);
colorpick3.Parent := pnlLoc;
colorpick3.Left := 85;
colorpick3.Top := 119;
colorpick3.Width := 75;
colorpick3.Height := 20;
colorpick3.Caption := 'Pick Color';
colorpick3.Enabled := False;
colorpick3.TabOrder := 6;
colorpick3.onclick := @theSender;
lblloc := TLabel.Create(pnlLoc);
lblloc.Parent := pnlLoc;
lblloc.Left := 27;
lblloc.Top := 12;
lblloc.Width := 94;
lblloc.Height := 13;
lblloc.Caption := 'Select your location:';
lblloc.Font.Color := clWindowText;
lblloc.Font.Height := -11;
lblloc.Font.Name := 'Myriad Pro';
lblloc.Font.Style := [];
lblloc.ParentFont := False;
Label15 := TLabel.Create(pnlLoc);
Label15.Parent := pnlSettings;
Label15.Left := 10;
Label15.Top := 126;
Label15.Width := 88;
Label15.Height := 14;
Label15.Caption := 'Direction To Run:';
Label15.Font.Color := clWindowText;
Label15.Font.Height := -12;
Label15.Font.Name := 'Myriad Pro';
Label15.Font.Style := [];
Label15.ParentFont := False;
Label56 := TLabel.Create(pnlSettings);
Label56.Parent := pnlSettings;
Label56.Left := 10;
Label56.Top := 34;
Label56.Width := 102;
Label56.Height := 14;
Label56.Caption := 'Kills til Player Switch:';
Label56.Font.Color := clWindowText;
Label56.Font.Height := -12;
Label56.Font.Name := 'Myriad Pro';
Label56.Font.Style := [];
Label56.ParentFont := False;
Label11 := TLabel.Create(pnlSettings);
Label11.Parent := pnlSettings;
Label11.Left := 10;
Label11.Top := 65;
Label11.Width := 86;
Label11.Height := 14;
Label11.Caption := 'Kills til End Script:';
Label11.Font.Color := clWindowText;
Label11.Font.Height := -12;
Label11.Font.Name := 'Myriad Pro';
Label11.Font.Style := [];
Label11.ParentFont := False;
runDir := TComboBox.Create(pnlSettings);
runDir.Parent := pnlSettings;
runDir.Left := 123;
runDir.Top := 120;
runDir.Width := 52;
runDir.Height := 22;
// runDir.Style := csOwnerDrawFixed;
runDir.ItemHeight := 16;
runDir.TabOrder := 0;
runDir.Items.Add('N');
runDir.Items.Add('E');
runDir.Items.Add('S');
runDir.Items.Add('W');
txtKillswitch := TEdit.Create(pnlSettings);
txtKillswitch.Parent := pnlSettings;
txtKillswitch.Left := 123;
txtKillswitch.Top := 29;
txtKillswitch.Width := 50;
txtKillswitch.Height := 20;
txtKillswitch.TabOrder := 1;
txtKillsend := TEdit.Create(pnlSettings);
txtKillsend.Parent := pnlSettings;
txtKillsend.Left := 123;
txtKillsend.Top := 60;
txtKillsend.Width := 50;
txtKillsend.Height := 20;
txtKillsend.TabOrder := 2;
chkFood := TCheckBox.Create(pnlSettings);
chkFood.Parent := pnlSettings;
chkFood.Left := 193;
chkFood.Top := 25;
chkFood.Width := 150;
chkFood.Height := 17;
chkFood.Caption := 'Eat food?';
chkFood.Font.Color := clWindowText;
chkFood.Font.Height := -11;
chkFood.Font.Name := 'Myriad Pro';
chkFood.Font.Style := [];
chkFood.ParentFont := False;
chkFood.TabOrder := 3;
chkFood.onClick := @theSender;
foodBox := TGroupBox.Create(pnlSettings);
foodBox.Parent := pnlSettings;
foodBox.Left := 186;
foodBox.Top := 50;
foodBox.Width := 178;
foodBox.Height := 97;
foodBox.Caption := 'Food';
foodBox.TabOrder := 4;
foodBox.enabled:=false;
Label22 := TLabel.Create(foodBox);
Label22.Parent := foodBox;
Label22.Left := 13;
Label22.Top := 23;
Label22.Width := 65;
Label22.Height := 13;
Label22.Caption := 'Name of Food:';
Label22.Font.Color := clWindowText;
Label22.Font.Height := -11;
Label22.Font.Name := 'Myriad Pro';
Label22.Font.Style := [];
Label22.ParentFont := False;
Label29 := TLabel.Create(foodBox);
Label29.Parent := foodBox;
Label29.Left := 57;
Label29.Top := 72;
Label29.Width := 63;
Label29.Height := 14;
Label29.Caption := 'Hp to Eat at:';
Label29.Font.Color := clWindowText;
Label29.Font.Height := -12;
Label29.Font.Name := 'Myriad Pro';
Label29.Font.Style := [];
Label29.ParentFont := False;
txtFoodname := TEdit.Create(foodBox);
txtFoodname.Parent := foodBox;
txtFoodname.Left := 12;
txtFoodname.Top := 36;
txtFoodname.Width := 154;
txtFoodname.Height := 20;
txtFoodname.TabOrder := 0;
txtHp := TEdit.Create(foodBox);
txtHp.Parent := foodBox;
txtHp.Left := 127;
txtHp.Top := 66;
txtHp.Width := 39;
txtHp.Height := 20;
txtHp.MaxLength := 2;
txtHp.TabOrder := 1;
btnPrev := TButton.Create(pnlPlayers);
btnPrev.Parent := pnlPlayers;
btnPrev.Left := 270;
btnPrev.Top := 105;
btnPrev.Width := 20;
btnPrev.Height := 20;
btnPrev.Caption := '<';
btnPrev.TabOrder := 6;
btnPrev.enabled := false;
btnPrev.onclick := @theSender;
btnNext := TButton.Create(pnlPlayers);
btnNext.Parent := pnlPlayers;
btnNext.Left := 316;
btnNext.Top := 105;
btnNext.Width := 20;
btnNext.Height := 20;
btnNext.Caption := '>';
btnNext.TabOrder := 7;
btnNext.onclick := @theSender;
lblname := TLabel.Create(pnlPlayers);
lblname.Parent := pnlPlayers;
lblname.Left := 30;
lblname.Top := 22;
lblname.Width := 44;
lblname.Height := 18;
lblname.Caption := 'Name:';
lblname.Font.Color := clWindowText;
lblname.Font.Height := -13;
lblname.Font.Name := 'Myriad Pro';
lblname.Font.Style := [];
lblname.ParentFont := False;
lblpassword := TLabel.Create(pnlPlayers);
lblpassword.Parent := pnlPlayers;
lblpassword.Left := 30;
lblpassword.Top := 50;
lblpassword.Width := 26;
lblpassword.Height := 16;
lblpassword.Caption := 'Pass:';
lblpassword.Font.Color := clWindowText;
lblpassword.Font.Height := -13;
lblpassword.Font.Name := 'Myriad Pro';
lblpassword.Font.Style := [];
lblpassword.ParentFont := False;
lblnick := TLabel.Create(pnlPlayers);
lblnick.Parent := pnlPlayers;
lblnick.Left := 30;
lblnick.Top := 78;
lblnick.Width := 44;
lblnick.Height := 21;
lblnick.Caption := 'Nick:';
lblnick.Font.Color := clWindowText;
lblnick.Font.Height := -13;
lblnick.Font.Name := 'Myriad Pro';
lblnick.Font.Style := [];
lblnick.ParentFont := False;
lblhp := TLabel.Create(pnlPlayers);
lblhp.Parent := pnlPlayers;
lblhp.Left := 30;
lblhp.Top := 107;
lblhp.Width := 40;
lblhp.Height := 13;
lblhp.Caption := 'Min. Hp:';
lblfightstyle := TLabel.Create(pnlPlayers);
lblfightstyle.Parent := pnlPlayers;
lblfightstyle.Left := 270;
lblfightstyle.Top := 21;
lblfightstyle.Width := 71;
lblfightstyle.Height := 16;
lblfightstyle.Caption := 'Attack Mode:';
lblfightstyle.Font.Color := clWindowText;
lblfightstyle.Font.Height := -13;
lblfightstyle.Font.Name := 'Myriad Pro';
lblfightstyle.Font.Style := [];
lblfightstyle.ParentFont := False;
lblPlayerNo := TLabel.Create(pnlPlayers);
lblPlayerNo.Parent := pnlPlayers;
lblPlayerNo.Left := 300;
lblPlayerNo.Top := 108;
lblPlayerNo.Width := 20;
lblPlayerNo.Height := 15;
lblPlayerNo.Alignment := taCenter;
lblPlayerNo.Caption := '0';
for i:=0 to 7 do
begin
txtName[i] := TEdit.Create(pnlPlayers);
txtName[i].Parent := pnlPlayers;
txtName[i].Left := 90;
txtName[i].Top := 20;
txtName[i].Width := 150;
txtName[i].Height := 21;
txtName[i].TabOrder := 0;
txtName[i].visible:=false;
txtPass[i] := TEdit.Create(pnlPlayers);
txtPass[i].Parent := pnlPlayers;
txtPass[i].Left := 90;
txtPass[i].Top := 49;
txtPass[i].Width := 150;
txtPass[i].Height := 21;
txtPass[i].TabOrder := 1;
txtPass[i].visible:=false;
txtNick[i] := TEdit.Create(pnlPlayers);
txtNick[i].Parent := pnlPlayers;
txtNick[i].Left := 90;
txtNick[i].Top := 78;
txtNick[i].Width := 150;
txtNick[i].Height := 21;
txtNick[i].TabOrder := 2;
txtNick[i].visible:=false;
txtMinhp[i] := TEdit.Create(pnlPlayers);
txtMinhp[i].Parent := pnlPlayers;
txtMinhp[i].Left := 90;
txtMinhp[i].Top := 106;
txtMinhp[i].Width := 40;
txtMinhp[i].Height := 21;
txtMinhp[i].TabOrder := 3;
txtMinhp[i].text := '7';
txtMinhp[i].visible:=false;
chkActive[i] := TCheckBox.Create(pnlPlayers);
chkActive[i].Parent := pnlPlayers;
chkActive[i].Left := 155;
chkActive[i].checked := true;
chkActive[i].Top := 111;
chkActive[i].Width := 97;
chkActive[i].Height := 17;
chkActive[i].Caption := 'Active?';
chkActive[i].TabOrder := 4;
chkActive[i].visible:=false;
FightStyle[i] := TComboBox.Create(pnlPlayers);
FightStyle[i].Parent := pnlPlayers;
FightStyle[i].Left := 274;
FightStyle[i].Top := 46;
FightStyle[i].Width := 60;
FightStyle[i].Height := 22;
// FightStyle[i].Style := csOwnerDrawFixed;
FightStyle[i].ItemHeight := 16;
FightStyle[i].TabOrder := 5;
FightStyle[i].text := '1';
FightStyle[i].Items.Add('1');
FightStyle[i].Items.Add('2');
FightStyle[i].Items.Add('3');
FightStyle[i].Items.Add('4');
FightStyle[i].visible:=false;
end;
txtName[0].visible:=true;
txtPass[0].visible:=true;
txtNick[0].visible:=true;
txtMinhp[0].visible:=true;
chkActive[0].visible:=true;
FightStyle[0].visible:=true;
load;
theSender(cboxLoc);
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frm5000.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
SetArrayLength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure createBMP;
begin
frmbg2 := BitmapFromString(380, 28, 'z78DAED5DEB7AE3AA0E7D2' +
'573879FF892F77FA4B3A4456794CF75EAB693A4A73BF0EDEE4EEA' +
'8001212D5D109772919AB5A683CABFF2C9AAB56B5DB56E5A5FE55' +
'55EE5555EE5B985DC989C79D64A5EFD353ECF16CEF0F9CD54DB7B' +
'D35A4DE5FB9C6FF9BFD3D7ABDC6F5B14A9F33ACF73F1C19529FBD' +
'9AD5309D1C7690BDD7797620ED58754E31C6A6A71092D4DD1FB4B' +
'2AB18782AD11535ADA92E6D774BECAABBCCAAB3CAF50C252E62A7' +
'AD958AAD62435ACC1FB20FF4D0B3879081338FBEA5B74C1BB356C' +
'61729D3FF1B7E427F2FC12734F7D0B9B5BB7436445E91FA50E703' +
'04B5DE7B5AFAD853AD7292FD927CF7EB5E55E7B75252E6509F339' +
'34F5FBFA7A957B6F8B2CB5CFBDF7E2AA9BA6E856878572171727D' +
'0B84BF8595C07F299FDE204D92CBEE137602160A0059F2B169AFB' +
'8C4DF09ACF577995577995A715DA138870288B37AD51EB24D5CD0' +
'EE005FA2CB8778C40328EBFFBE820AE87B6CB9FFC44F93C51104A' +
'5FF3151258B4AA156860802C75D58297810E1D27E8CDD08CDD65A' +
'A7E731B7E3637A347952CA37DD5A60533948B5A9ED23BA8E3F7F5' +
'F52A0F294B920A94223548ED97BF959F10F97035D5F25387594EC' +
'BB073F2A357799557799557795651C64DCE4C84B374A9F3A2B54A' +
'A53E4B5D156CBFF53CFEAA10692952D72075D37A99B4D2A661ED1' +
'2E4F944022C4E2ABFBB54A94002D52F035325FC1E9BC3C76999D0' +
'97BC5B5B6A5FF116352C21F81443884E86D0FAF48E9DEAF7F5F52' +
'A8FC13951EA9CA47696A0D56B6D5289FFC306A4D3168F95DC3EC0' +
'39E77DC447913FC4D2DFF1721EBD83ADECC57A60BFD33EDFDF8EF' +
'1FBFEEEA3F71F2C69F7FE7C9E9FCFBBFA33BDC6F6FDF9E61CA3F5' +
'80FF64DFF7D1FBEFD7CBBEF93DE8F3316DEEE9FC1E717DF7DE5FE' +
'767EFFF2B0683D259BD54B4E110C38CE55FA5BAEEDC14699F9F9D' +
'7CFA699CC3CA46F5AF9B974A7BD1E2A4E20596DABC7779128B467' +
'301B2A4F444AC356BA1F4615FD0B3EB3C2C481980212E5BDBCA96' +
'7E6D5FAFF2C0B23AA943104E527BD44AB4A30B8EC505CE8997E8F' +
'C86A7A765787B2F5E2B1FDAE3FCCFFA881720A90E6C5C3CC03176' +
'612925AF69EB19DB2BE33B619B3ECDAFC89D82D4CD2839D8FFA05' +
'DDA15B34B40DB5079725B3FD13EE505DBD779D816AD8C779AC04F' +
'DA9F7827C1FC18ACDB40E597B0169773CA6047F8F181BF9BED5BB' +
'FB01670A2B4785FC53ACA36A15A6C7319734EFEEF4DD555883934' +
'5FB27C63DEF21637F72310829D49BB524DAA50DB3297197316341' +
'EACC62D4E7E054BF1184895A13C59D6B0776E21CEBC93BA998295' +
'DE72A44594710E6B5DF3EA878C26FD98026AAC3D8CE73D564C22E' +
'840550FA5F9A3362D9DDF23AEEFDEFBEB688C76EF7005D9A3D221' +
'F4BFD4B6DC12B64D7231060799B5C605AF97651AB09EE947601E7' +
'D7FF2D8A1EE64A94438B3976AF939C46E80F4A65AA9B2602D5A09' +
'E2D4F345FE3328DCCE18FB22A64A52A1058B91A3484D3585B8904' +
'7A1C194EBD0A9D9285141933A5081F60B49B004CFD51C3CEDB7F6' +
'F52A8FC4393400AC5289458755472D39C3CE790176AD29037D887' +
'7120F920F0C2E6D354496333EE2CD4570C5C9BB6989157C31F177' +
'E0E365EAA022F939BB6D9A8304776DCA150184F0B6CB29B943ED8' +
'3FC4A77FDCA41EA86AFB14EA5B32FF2E1E66B2BEBD015CFB44FAE' +
'48044289CCA263C43FE746FB70F65DB03FC73238FF254118A8DC4' +
'E329EB51DB64F0ECF1DC7B5D2512C193827FA49D605B3D77C6AAD' +
'61898CB97AA5379963E72AF88CBDD9D8AF22A6E5E760832191A35' +
'48E710ED035D720B1600D80384CEBA09005D27F1E9423BC7AED0E' +
'A43A3D4DCAECADDCD401E7BF15ACB2A4893490973C4168442CEFF' +
'1F3E0A4E0893AC681736EC7BFDD83E6ED1A91CEB9973960C6F52D' +
'E014E0F8909B85D4085AAF932010F9499A9F827333A56A70DE630' +
'52F7E9A16DA876780D8FED8FDB547389C37EE35ED6B9BA4AE4D2A' +
'88B3A4996F4E3AE4FBFB55E950343511852E001040BAF92733747' +
'25DA5A8C1D569ABA7214AE52FC823815928DA840C1665529FE7EE' +
'239224C623B21D68D3DAAFC8F395D28604A1774CDB678F3147172' +
'A670CB22462018919F8E42074AD1A35419352AE58B795B32DC8B2' +
'C55FDBD7AB3C52E05034EAE2D06239D64823738848C1B5FAB4A8A' +
'E24DA4D05E8B86D7F3EE323DEC015B1CF80684217FDB52D93D62C' +
'75D8098308B55CF2948AFE9A94337F249D49ABE490E4F6AAA70C4' +
'CAE6C1B9BB7418ACCE057C213639854FBCBD8F5C061A764B4EEFD' +
'2B67919641E7AA378D78A7DA4BCFC018CBB46A2CDF7CE8EFB6ED5' +
'36E52B228BFA55F78E80E60EBF304BD2C610ED5765A43697956FB' +
'C6657893892AD576CA55F0095F5A440A045A86D6A7211CAE11118' +
'E72D4213D695D142A99411B8B9B8173303AD59D37E8A569F6EAFB' +
'6E3D00DD2C80BE90372942BE39B178F4676C219214D105E50B87A' +
'4F4465B778A698A8231203E55BE648D4BDC44C6AC91F2884FCA36' +
'E9DD3BE0843944508DC3A02F71C59EF1BD3F94E62D76A20D5FBD1' +
'8234AE1445C9F8FC2378210AB68BBCBDC4FC5F5DD7B7F1D69139C' +
'37D5BEC9A8CA94D1B0445738C751542F964568F5798E8B58C1051' +
'2F4228834B8095F07DAC14BD625FC209CA35688C1CF95C6800BDB' +
'34436FAD21E23948F43163C6F6FB811F901C9E3BB74A1D9446D9A' +
'11C1EFBF702326BA2C38AD56E71435F53D43D648DDA9AE628952D' +
'80249652801E31E76A2B6BBFB6AF5779D6BED0051ED855D794F8C' +
'48B4547FC06297A70BBCB87F2F1848F18EBBD4C60CAE1E2DB3C09' +
'D219B441BB9F0A78EED3D5A33A709BE252A9100C8B785CD60F78D' +
'7B0D593F61441B1DF0638D0447EAC6E0A0992274B5059A99804F0' +
'2889136B974FE31C2D446883F726AD59EB0476BB41EB9C9C4F3D2' +
'EA19EC2395C17DA9FB92ECAAFC61C8A6146046B852E297E3F9159' +
'218B9E90EB3C78352B71A3AEC2A7D7F17E3887B347244C2946E6A' +
'22B0532C809521992A5AA94BF0CAA502AA2841D74259433731DB1' +
'B0000DE2EA79B051C7D29B22D211DC31884F6A0C823240C81E982' +
'DA51A3396C665C04E8987E3E8F8A4587EE2058CD1815A66681617' +
'AE175ACA6D7928CDDFC63927E2FAD823A8D3F965117E3F7D11E7D' +
'C637F593B15CFD1681DF8CD89073FC8199A0BD62EB80573E8EB3C' +
'7823E358B4F0DDDA84054C18FCE2AAEEC1FE83700EF9AAC624700' +
'7810AFBB4414748EE028CE8746CD01F73C1FC95DCD316975631FD' +
'1E3302D5F69D39E4EAD0CEC62814AA642AD9F9FB58FD0A4490463' +
'B7C37CEB66AB2F4200CD4AAEF567B2D554EB35737F6C8AFEDEB55' +
'7E1ACE114B4086C4D96287CE0A3EF57D1F31DA8C4EE2B2E698A91' +
'98D6A90F0502654A2A976DF21CB4B8A12A9B31EF37CF6AE75F4AE' +
'BC916C2FA7ECD2028EB4B905AF879790F363B358048A04BC1411B' +
'18C763CE3B762C48256EA8063A4B60AF7179C56C1501CA49C7BC7' +
'DFBD6F9F1C582D33B4E4F4B1185221B752438BE0ED217B6866995' +
'14C45621326CCE20C4CF427C5C33CDC179F5EC77B142E09E78D5E' +
'2A5A1E542E93EA7896414C515EA4D9D49AB5040E6B30F19BE28AE' +
'4628FA24D4FA1A3A57579ACEF5B09EB8A3752FA4F52F505C10CB1' +
'4C9B201D37030084DA1563CCB594356F1863EC41D108108D2C281' +
'A99DCDA343307FE0824D7635BDAF4509ABFEDB73A11D767F7B82C' +
'E63A7D10D7F7C8FD458946CDDD6AE2CAFD4A145B0E3A754E62AB7' +
'A1AD6E68170D42AC25D490A1CABBF489CCE934F9E5A7E4E0B1891' +
'A116E0373D54E2404AA049D09820695F65D97C8898452713EEDDA' +
'6DEF000D8B745A115D7EBD54C5293DD4B76A5FC61350293774951' +
'FA84F92D6B18689C54443D6538D4B5EACC0B5F6B1369557537FF6' +
'BFB7A951F86734294E8C5E2C143FC297DF9848F187CA9BDB5A9B1' +
'A6ABE53343FBA09E2B9A71D7C8644062ECBC76185BB2F7AE6A9B3' +
'4AEAB8AD9C1DB2F2142327AAFC7034B27C706F7AF0160013CB928' +
'F5FA539E17EE0B72B9BF3E976568B89C3E897512AE21014D4BBEA' +
'4F51D7FF7BE7DE5F063142AD3A923B745EB244C9A73881D97A357' +
'0F9503475E2254330813F70FD6F1DED60FCA176AD05CEB0D75051' +
'358DCA63C567C546293D2410F9F0591306D3B4A5D12985A12D774' +
'8E82051F3A224A4C5A2FC91BB592DEC0DF502141C48D23B9A7AA7' +
'C563770BA269B42304CADD597068C2A1834C6E485CDA6249AF6DA' +
'4A0A31FA0D1B60AE9787D2FCCD38E433717D96DE36B1E5AC1FC4F' +
'53D667FF17322372228F23D0229E554989935465AA2184D31AC58' +
'7C2DDA9975ADA9426C4AB8C3E3F35C9C43C4AB1AC41817714ED15' +
'AA57A27606770E020F9ED148F57487120399E8C0687596A8E017B' +
'31822E7B2A8BC4AAC4C35EA883184F4D98248B0C281A1C49B3EE2' +
'422CFB1F76973267A241E507BF5C003A0572FBE7874FD6BFB7A95' +
'9F86737AC0B6000FD9D20C3DCC7D01E7503671DD192D90FDEA258' +
'9524E621D051F19DA0779260F166F6099F244C3560B2904E139CB' +
'BB11A7D67A4F3E4C7A63CC0319F09BBE5C80972405D60A5D30F68' +
'963849C11EDA589DC51FDE55C3432299C02C14A6DE52DC3AB1B25' +
'A2368AE1A588B700147EFB44AAC1398C87B4F69CA13A3A413A60D' +
'1D18BB639C7E1C7A94574058E4E7D3AFD6A1D97E0C1B544162C87' +
'EB783E27C0513680A333CB36EE48AB7A24FDD07D860DA45DDAAA6' +
'B54E43C550E236A82114A44C2E43C4A51F49E8083B8BAF2144C0F' +
'4DD23B3D725CC4395607543AA725A755A918D11C26E0B64BA8F48' +
'0481C2DA83149FC912255E17D9880227E830C84B3B5A638474E77' +
'2488A40BD0517E02CD1F9CEF3E13D767F9863096AD7DFA5CF93DF' +
'6976D93EFCF36C9A378A6C641AC4DC06740889ACFF6EAAC287725' +
'6DADC34245FC66F1D5B38A8D19A075911CD57851259E498EFC492' +
'CD818352BCF44D32FAC15DCB635206E6CB1086AAC75BEC2394489' +
'FB2820AD571C5EA2C147B4CFA01C46BF28AD0EB9A0EF201ED6E6A' +
'264A59D25B35EDE7E6D5FAFF2C3704E9CC027C1ACC183D5CC7999' +
'3E8D73F6F69C24D10AB2DD62C0FE81D8530F7107FDA43415079E0' +
'C799CA7D8C0B9C0AA5BA8B5540969DEE60F64E8CEEAC8DD0D75A6' +
'14CF932660470124A7565C522F733A81BF41ACA04B30B791BDE50' +
'CDAB1B617465C9BD38542D673068543A803AE4C79FB749B6ACD18' +
'9139F45B413881F56489C2056098D23C50A2E66A48628D9EF1955' +
'8AFD791EF20912CF9701D4FE40490B8F0C8E80EF1934126708DEA' +
'84F9DD20C54564CFB3EFF530EEC8DAD5CD590608FDA9AE1091539' +
'8748DDCC07B5C53A3D15B8FB94C4E2B29627C69ACDD23C745AA23' +
'1E23D591DAB9526F7EABE0B3D076BCC8BB36472F8FCAD32032354' +
'C12139C26BC4C2A03334806B71E9426037BFF11347F3FBEF198FD' +
'453F234D872ACD87F78D14A5D4A5080DEB908132876F821886489' +
'8A8C6C6EE121B1F79CA1EEF45A56D816733690BE5CBD18BCD131F' +
'8A458744367B70AC20A3FB04E06FA44FEC4C4CB2E67E89EFEC622' +
'225E201DA3DE42C5AC2D2002E493CE5DAAF1026351746F95A3C50' +
'140F48549407CDE7927E6D5FDF2EDCE99329FF1DD86247DDB4FC0' +
'37E95C1433690FE258BA73E5CDC27DAA4575D579C56D3E1784FF8' +
'A344DBB428A718629E689700CB053B4E0A6CA081BAD8F1BDB9BB9' +
'1C981DCE6C816AD3CC76283C10FD58F003154E3C636BBE8CAC5C6' +
'89316637491C3DF46C602EB15E4E27CFB0DFE6C3CA89E326F18C4' +
'D2C2EE98B6D1AFBB338B0DA6813EAC3944774EE88ED175BB4D303' +
'A332C6A9AF6C01E3070707BF0A1098512C3A877E90FD29690A6CB' +
'5C0842A528054811993F5D2FB5C80134210DF73884B17F45A0FD7' +
'88A7F0D44E65354A6A3DC94771EB94DA4B1D7C9BF60A468AD2264' +
'CA9A445B5CE0CC4BC05996C49D3FEC871ED710E23C649ED1A4312' +
'252BDB2A0826FB465CA603138376D173AA7E66FB62C7696168916' +
'2DD94E8A30CFC9675367E02CDDF8F6F3C667FD11E458B2291338B' +
'89090CAB448C02DFBA34AB2C6BEF64E0BC9DB1F359C5C653D9F3F' +
'8CC8AC3686BFE6E287F44957356692B530AE1FC605A5CF0E20BCF' +
'9B9E01590EF18052D7C0036F73E8D32268E08F7FE7361EA8E0016' +
'1EC65281465FDB57DFDAB40002DFF359C63D1CE3FC33972B43C82' +
'87E412BE8673FE9C1292AA918A4A2DC37A23D924DFCE68500FC56' +
'6ACD9E728193034E2E24D6FDA6B4C37ADF7D45E55DE141D4582AC' +
'C979027612FA50A56EF85E557FC108D77C81245B8A64A8EB8BFB2' +
'77CB8CD45A589042E6C1F52F8519BD4F1F90F3D6332DAD4B71DFA' +
'1AE53E30500B3C3D21E9AC6BE09718F1825DB695E5701DFF1C42F' +
'E634521BA202679D37C83C6D741BEF0EC34E60A7A9FA8902356A1' +
'AAFEEEDE91CB8C24A1A669FD1D8C2F9553D5ED6AAE6C8E02BBB2E' +
'4C68CF10B124DC0F1F61548243D745CD6D64D31C858237A0A6840' +
'92CC972BF4B8549CC6EA0E7B0EB1509AF057601EF1278E58FDB7D' +
'CAA1D3827E10B40FA403AE947D0FCFDF8C663F697C1A563BDD806' +
'E7847900D694E30AFD2B2489449AD774F86E3FADECEF9D64994DA' +
'59A613356D183CC5D60A4B3CEC6847D854DA37A471976B9BD7FC7' +
'E201CEA1177C34E6B063AF4DEFF8777678A016C9F3A4B1EB12AD9' +
'75AFEB57DFD2B606BAC3AFF359CE3B5FC2B9C033E5C42837C5C8B' +
'D8FCC512F06D9C0326EFC081D7B289A20A9CF37656947C5E3310E' +
'09F4E954D48874DE4CCF1295463BD1FA3A0DC5439A271AA059AED' +
'1AC43BD673E85EDD61C215679102E9927B5A2360775AA2583C5C1' +
'61F10DE75686EDFE1C392654AF2C1E22148AB54C317793B757C4A' +
'31F5B08F362748127FE5CDD167B29CB2BDE0C135495483A4F0148' +
'D6CEDA589603F5A47323B6614211E60162C8B07E8C7E7A9137D37' +
'EEEE11AB604FBBDCC6393C296C708EAEBB646A4DA1B606B851194' +
'7741BE7D4AC794DC4922C6F98FBFCD07191DA6D442BD79D364CBA' +
'4782C4D193DE24114BBF9226B5D650E47415D4447B46E31DCA99F' +
'53E8CE7D2FCFDF8C663F6D7DEFE66718E4AA82C3ECC86C9BDA426' +
'926C6957EF73547F42398A4323F2B13628E2E4A3D8A7372B44AC1' +
'7C6A274A19D7E9531D8C6EB923B110F303B84CC61C5540327AD62' +
'1D095778C0EE65D2BCAEA96499295359642FCBF9CBBEFCDABEEE8' +
'073AA16EBD3E1277B0F57D4B2FF7C8F19B216FB2DA20B7EC2BFEE' +
'FB65CB7B1F133FA789D17E3E92806AB12DDBBEF8D7DB3887CF242' +
'D6CF313FC2A41D15D214F4315242F0CE53B7E2BDD54E0FC3D8895' +
'7E2AAB64AB903C285247FC00E34B45328FC84CD046E9F3298F95E' +
'ED6A14D2BB212EB7D9AC0CF254F7B467B0E7225A60B4F82000F94' +
'28918735CC711509CBCF7B6B00E6D07EEA8DBB484EF3E1ECF4F47' +
'7558CF11DDEFE66D5997B97EB336204FFE9B55E6528D202FDC181' +
'9DCF926BBF4B06593DBB5CF30CB5B7758DBA0D87FE1D93C16FE48' +
'6A5AD9BF91B79DE8459E28904984FF5765E14BB52CC88B2F35B0D' +
'7AEB820B2079A7DC37F1717DE0B72A49720C833A6396CC7BC0280' +
'F1DD73E1ACD463B68A4AC48E138495C951C98D74CFBF433D2A225' +
'A7FF17A59337EB96F1C8E03187154CC07D79E09CE7D2FCFDF8C66' +
'3F6D7DE6F654E5A8D3B8CD6DA6A02B1B928312DB19733F7CD6DF2' +
'8E5D239C7E76567F1BE34DE94C6F8BC989A41CDB15C9D05914037' +
'7B5F5F9C3A83083ED693482EEB195A6741554B2CF57E7AF6D6494' +
'C1F645623625164E52EF0B8A88BFB6AF3BE01C2BF12DF61817E96' +
'8715AAE36842987DB5D4BD0B2F797D9EFF2198B492CAAB1F8E7C8' +
'1245F4625BA00F71DF82C53916B97D915FE99D425D6215E3A17C3' +
'C1F87AC2DDB36F524E36AF5FA713388CA1AECB5393B70F95E2417' +
'93FF133FB0CF90A6326B487C8D8B6852B13E102D970AC6AE171F4' +
'082D2A63484896E72FA836861D0DB883268D2E765155CFF3D9C23' +
'51163D4BBE37C173E9C38CDFB7DB64D57CC82AAD6AEF6DABCBC80' +
'BF70728F411072B7978E5820D3971DE0B9655DE07B8E7701D6DBC' +
'2EEDDE240B6667A1DCE74913E635A1B5834880717CF64CCD7E5C3' +
'62F1031B0C16F94D76A9F59A145969428658EE2907B0105F134F1' +
'2CFEAAEA0F730EDC635C36B29A23B238879AA0F89E7A5A1591162' +
'0D2A2545D084986959BAF4229C36FF17E1C8916F6E3BB1252DE86' +
'5EFE5C9ABF1FDF78CCFE3A8A4326FF61A4AEE60B4C1AA5F587F38' +
'475B371C883369841516F8BC34E5CA17040B2F5E58BF6ABFBA19A' +
'FD4D5E36871565BA8A6ACD4E0F72136B965A0293FAC9A781F36DF' +
'6219B338ABB92929D91F06AA5579BBCEFAE8522B7654914F3413E' +
'3D51CDBA64829D531DCF27D1727E6D5F77F65B913E8FB001518A4' +
'526839E0F4A36658F5EACE58498676F7BF92CCED95B9688D0F663' +
'3915A5734E2F5BD4261CBF60CF21E7B7B24CF9B96D53A320D6C1E' +
'78DEFE04F5427B48BE2E47EAB59ACA7F9429DE948B3A0F55EE31F' +
'F4BC49201E20BF52DBD185B6A391BB55F3B98DBC1FCAF118DF522' +
'6F4E825AF7CAB438F3ED2896E9F7B553D5D4F452DB3031F4EE7CF' +
'951FF2763D4D9BA7A1C342028E1C3B46A3E709743D652E47CE639' +
'0088C2567C952D32E8772E7E89E687BF29A1E1C7B0A9B56F1DBF7' +
'38EFD78B5101F64618E6C196398C628F8098117F5496BFF7AE961' +
'0AEAF201C8F71578C6856CB8F64D709BDBCE357BADFB82C726306' +
'00C62E5A44CA1439EBB0BCB52AF703CAF839547BD700AD5BA6324' +
'6486D414ED14218D2F359347F6FBEF198FD7574AE9C08D39C3682' +
'3206BC0D0D01CB4B09B5CA582582576E61EDF2FF453CC6A1E55A8' +
'A64A181AE2F3CAC6F4FC633B45EDACC09A46D2234BD1599516772' +
'91DCD2403D9289C0490C0E761CC68C9DD572505B9CDC660249769' +
'5D7D1226D7B92DAF8BCC891C0AE23085CA5BC642E6845B3A5359D' +
'F3C08838E080D8E49C21003AA67ECD452CD66DB516B35FD8D7037' +
'18EC5301687FC89E7FC30BEE5DE38C7BEE111CED923347E429CB6' +
'6FFF037E458668E309C5B2DDA02D273DA7F3B938E4136D328FE8F' +
'01D90AE28EF9871547951915CC88DF13C43DFB4F9BEAC8FCCE4A2' +
'575F2A7E4AC25968D36B1D6752462F36B29771413C87A23728298' +
'AE8E060B94C7ACA60BEE22737F398496C7DBDE0FB8BE6ED6F50D3' +
'D53AD1848B64A23595CBE9222B3C7FED2C2D252046B5953EE6991' +
'A04718E0E547F97FBE0D710A9F352DA2ACA719FE69FDF8F4FB899' +
'27D0C8778D62E9000172F64E2265D34C6B43736245875CA93954C' +
'961E6549206CDD0D23F91BDE4FBE3DAE31C6BA162D58823896A0D' +
'972602B4681CF3646F2F1DD14A3BABDD88029528970E09548B973' +
'5DB2E4FA0F9C7F08DC7ECAF7D9E4046238F0B174D164AE53FC503' +
'4E96713BB9A26E8E887ED54187440572A3AC532C1A9E10B163F35' +
'713DBD0D6448547472AF998EAA5C81032252FF7143520F16C66B9' +
'41C6A59579293151D8A60323719AAC17D87A4E2DF59A135B83FE2' +
'5AE5B7212666C66DDBF8A0C9DFE3EAB5FD5CBA9DB2439D37C1DF6' +
'B1D1CB6FEDEB0E38C74A796292A2658F7F681BD9A391A3C2278F7' +
'08EED9738C77AB82CCEB11E2E1BF9639112D1CBDE8FB6C73FD692' +
'C37268DB3177340C4EB2BB2F20C9DD832BB3886C7293E74736ED4' +
'FB6A95925F3E0F6E30A16ADAA558DB390921E43E499DC7E28E724' +
'F23B34499E4F7ECB2C94AE6E504D9DDC7DA4F9BED691B59E1AB4B' +
'D5D94FC8D8ABB5A2C85C5D54963E39B462CC4BDBFEC282F3D7A5D' +
'80695DE8FE12E51E83E14718DC52BD09C42790F7125F7D5B7AD22' +
'6C6FA76DF4A989DC638AD9080ADD01BF216A5C338286AEECCA332' +
'8B8E2F331E27394C94B3AEE33372729EB8F76160B9372BBAA4E46' +
'FE0C06B16391CC61C66D1E0F5D6A77564A3B576F5474A16EB89B3' +
'9975DF2CDEA02146C2D48B9CCCBDE2A89C8783EFF29314793519D' +
'66F53FB787802CD7F7B8F9FE21B8FDC5F47F73E18B4365641F1A1' +
'642E6841A22CB2D36CD55015F033C995C425E96DF2EBD599D0679' +
'DB4A295F2CD6E23163F2E09D7B748C4BB9EFE5BCA24593D401221' +
'4B46EEA9C8CD2298595A4D472E446EA6FD4D61ECCBE62464543F3' +
'594622AE9416DF5128E8BD9929D2CF3382557269DC322F7D574CD' +
'023B62FE6D2CDC6FEDEB1F151B9DB28F403E0CC6D772FB993D1AB' +
'1F1C0D3AE10ABD8B8208BA36C3B4459FBE8E57DCB7B547354F668' +
'E76A74764D69A9DBDDFF486E36ECF967E4C89936B50ECE4049C1C' +
'8403EBFFEAD57675E6C66758373462E144A4C4679D016C4BEC829' +
'F9E236773DCD0AB423D96FA944B8A2CCBDB7E2F43D83C35BC7964' +
'9E09FBCC793A360FB03FBF10DF9F771BD9C6AD69462F462301A4A' +
'772525E6A7D7F17ED8E0E63D9E57F12D365F2B6FB6D21C77E4DB5' +
'754F4F82C6D472B455A22B56BA5C4193E326B2932F7528D286B56' +
'7357E9D5AAD953638FA4F9AFEDF1AFD1DB63F6D7FE1E4F4A345A1' +
'7ED7D6AC69F6511F83BF3C691FE536DFDD338C744DA8F79E33F38' +
'2E320B8BC399FE87ABA67EE48170CEDCB54A16434C65A991A8C02' +
'2C67DE55ED627F92DB63072305A1FD96FEDEBA98571C5B763727E' +
'5531F949A8579247518E8C440BCCD1775E5FFE6C9BE448560721C' +
'4513D6BEC3BDDAC435258ECBDCF884589C1EF52BEECE5A091B383' +
'92EBDF3AA252F545DFC94CB8E7C394D48CCDA0FAC4B835DA39CDD' +
'DEB9C8D537C9872842A325F85B34709C28859CE09A59ED54CC725' +
'D95AED6D839F5DC7FB6183DDE9277B3BE49098F4B3900FD3BE476' +
'78BCAA32B39FEAC7CFBFB9562097FEB15F572C5F731B1F6FC97F9' +
'2E1BBB5AB5A32C70F7A6F9C7F08DC7ECAF23496D63A5080218317' +
'8F95B89B1F9D78160950E478FCFBDF7E100E70C4CCB3DC5F7379C' +
'811B71F0076A9F9CB0DB7790ED2C48577445B44F6F29B1C17E0EB' +
'997C9CD487BB7F7F26FEDEBF1029FA7714F58727E55E122512725' +
'7BA27E696C051FDC2FFCFD36ADC5D548EDE159A68C509DF48A77E' +
'DBF350EFE69652FFB7B67AC36C737E447ECCB9EB239BAF5D872C8' +
'BDC4E15EB0F628F27FCA2C7A58CEDCA73CAE7C36E3E2EC7126298' +
'FD88EC9483F9EA4DC61F71CF4997BA29F154B60225586278B6F4E' +
'D9CDD9A3058BD253ED7E872BFBF851EC578AF282EB45EA3DCABD6' +
'371CB705369650B6776CA6368FE317CE331FB6B1F974EAEC2F9E4' +
'9C1073F2585A3495A8D0EEA99F4087563A5B9D9116722E0FDFDCE' +
'643E60DA4D417EC7A9D1FCB2E926A4404D97ED9D77E0EED5EB628' +
'F1F4EDAEBFA4AFC7302A139373E674D52F2CF6A421AD25DE545A6' +
'2B977CEEFE2AFB569BF45EAE2936C81CFEFF3ABF313FED59E9A39' +
'FAD65ECEDA9B6BEC599BA33B076DBF7B6CC63B2AA3A9FCC4A2B53' +
'3F7955BAEC5B7B273C8D1D95B260D66B0E75E47F316113D971B1F' +
'F1137B23F648F760A430A5395F797FCAFBB9B6A9F32B75A4397E7' +
'6A73C9EE61FC3371EB3BF8E56D08E853B883D5653890728BF7E0E' +
'1D1EC521DB51EC7713D90367CC5A0BBFB65EFBFBE3F8078BC3BFB' +
'F977F6B5FAFF2485E6D25A6ADDFA1FCF36DEEF33C0CA3AAA9B751' +
'C167BFB5EFCB7EF7F6899BA373CAF6FE6B567BFFF5F9F9DCB77F6' +
'5243D78CFFDFD3B3603EACFDC7147E761DBB85552EA9973EB3F61' +
'079D59A9EFEC943DDD3E92E6EFCD371EB9BFCEF4483AACA6FEE4D' +
'D749427C7EEA3DBA3F8FE58F673B8EFFD5FEDE5DFDAD7ABBCCAAB' +
'BCCAABBCCAABBCCAABBCCAABBCCAABBCCAABBCCAABBCCA7FBEFC0' +
'F4952E0E4');
end;
procedure form;
begin
setarraylength(colors,3);
setarraylength(txtName,8);
setarraylength(txtPass,8);
setarraylength(txtNick,8);
setarraylength(fightstyle,8);
setarraylength(txtMinHp,8);
setarraylength(chkActive,8);
createBMP;
SafeInitForm;
SafeShowFormModal;
FreeForm(frm5000);
frm5000 := nil;
SetArrayLength(txtName, 0);
SetArrayLength(txtPass, 0);
SetArrayLength(txtNick, 0);
SetArrayLength(fightstyle, 0);
SetArrayLength(txtMinhp, 0);
SetArrayLength(chkActive, 0);
freeBitmap(frmbg2);
end;
procedure setRet(ret:boolean);
begin
gametab(1);
case getColor(619,388) of
5593689: begin
if ret=true then mouse(600+random(100),370+random(20),0,0,true);
end;
2106255: begin
if ret=false then mouse(600+random(100),370+random(20),0,0,true);
end;
end;
end;
procedure newplaya;
begin
wait(2000+random(1000));
if not loggedin then loginplayer;
makecompass('n');
pcount:=0;
highestangle;
gametab(1);
SetFightMode(Players[currentplayer].integer1);
setRet(true);
oc:=getcombatlevel;
oatt:=getskilllevel('attack');
ostr:=getskilllevel('strength');
odef:=getskilllevel('defence');
setchat('on',1);
setchat('off',2);
setchat('off',3);
setRun(true);
marktime(b);
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure randoms;
begin
Findfastrandoms;
FindNormalRandoms;
end;
procedure proggie;
begin
if timefrommark(p)>120000 then
begin
ClearDebug;
writeln('Train-o-Matic 5000!')
writeln(' ');
writeln('Time : ' + scripttime2(2));
writeln('Kills : ' + inttostr(count));
writeln('(better report coming soon)-munk');
writeln(' ');
ReportVars[0]:=count;
SRLrandomsreport;
end;
end;
Procedure ban;
Begin
if(not(LoggedIn))then loginplayer;
findtalk;
if (timefromMark(b)>20000) then
begin
marktime(b);
case random(8) of
0: begin
SendArrowSilentWait(Random(4), 1000 + Random(600));
SendArrowSilentWait(Random(4), 1500 + Random(1000));
MakeCompass('n');
highestangle;
end;
1: HoverSkill('Attack', false);
2: HoverSkill('Strength', false);
3: HoverSkill('Defence', false);
4: begin
MMouse(10+random(300),-500,0,0);
wait(200+random(2000));
MMouse(300+random(300),-700,0,0);
end;
5: mouse(msx1+random(msx2),msy1+random(msx2),0,0,false);
6: begin
findColorTolerance(x,y,3627895,msx1,msy1,msx2,msy2,10);
mouse(x,y,1,1,false);
if not popup('xamine') then
begin
MMouse(x,y,300,300);
end;
end;
7: gameTab(1+random(10));
end;
end;
end;
procedure setup;
begin
SetUpSRL;
ScriptID:='232';
count:=0;
mousespeed:=12;
activateclient;
wait(2000+random(1000));
if not loggedin then loginplayer;
makecompass('n');
highestangle;
gametab(1);
SetFightMode(Players[currentplayer].integer1);
setRet(true);
//oc:=getcombatlevel;
// oatt:=getskilllevel('attack');
//ostr:=getskilllevel('strength');
// odef:=getskilllevel('defence');
setchat('on',1);
setchat('off',2);
setchat('off',3);
setRun(true);
marktime(b);
marktime(p);
end;
procedure HPcheck;
begin
if getHP<=lowestHP then
begin
if not(foodName='') then
begin
if FindItemName(foodName)=True then
begin
ClickItemName(foodName,true);
end;
end;
end;
if getHP<=players[currentplayer].integer2 then
begin
setrun(true);
runAwayDirection(directiontorun);
wait(8000 + random(2000));
logout;
nextplayer(false);
newplaya;
end;
end;
procedure attack;
begin
if not loggedin then loginplayer;
if FindColor(x, y, 65280, 250, 100, 300, 200) then
begin
gametab(2);
repeat
HPcheck;
ban;
findtalk;
wait(random(1000));
until not(FindColor(x, y, 65280, 250, 100, 300, 200));
attack;
end else
begin
for j:=0 to 2 do
begin
if findobj(x,y,'ttack',colors[j],5) then
begin
if (10 > random(100)) then
begin
mouse(x,y,0,0,true);
inc(count);
inc(pcount);
flag;
wait(random(1000));
attack;
exit;
end else
begin
mouse(x,y,0,0,false);
if popup('Attack') then
begin
inc(count);
inc(pcount);
randoms;
flag;
wait(random(1000));
exit;
end else
begin
if 10>random(100) then
begin
popup('ancel');
end else
begin
MMouse(x,y,random(600),random(400));
end;
end;
end;
end;
end;
if (findcolor(x,y,195836,MMX1+50,MMY1+50,MMX2-50,MMY2-50)) then
begin
mouse(x,y,7,7,true);
randoms;
flag;
end;
end;
end;
procedure responder;
var msg: string;
begin
if (inChat(Players[currentplayer].Name) or inChat(Players[currentplayer].Nick) or inChat(left(Players[currentplayer].Name,4))) then
begin
case random(11) of
0: msg:='hey';
1: msg:='sup';
2: msg:='whatchu want?';
3: msg:='cant talk right now, sry';
4: msg:='what do you want?';
5: msg:='...?';
6: msg:='??';
7: msg:='haha';
8: msg:='sry, i dont feel like talking, im turning chat off now';
9: msg:='hello';
10: msg:='thats me!';
end;
typesend(HumanText(msg, 50));
end;
if (inChat('noob') or inChat('nub') or inChat('newb') or inChat('noobie') or inChat('nooby') or inChat('newbie')) then
begin
case random(11) of
0: msg:='thanks buddy';
1: msg:='haha, ok';
2: msg:='nice';
3: msg:='haha, your funny';
4: msg:='ok, gj';
5: msg:='right back atcha';
6: msg:='...?';
7: msg:='haha';
8: msg:='alright, im turning chat off now';
9: msg:='yeah';
10: msg:='it happens';
end;
typesend(HumanText(msg, 50));
end;
if (inChat('trade me') or inChat('let me buy') or inChat('can i have') or inChat('can i buy') or inChat('trade me your') or inChat('lemme see your')) then
begin
case random(11) of
0: msg:='nah, sry';
1: msg:='nfs';
2: msg:='go away';
3: msg:='no';
4: msg:='leave me alone';
5: msg:='no, sorry';
6: msg:='...?';
7: msg:='not now, dawg! not now!';
8: msg:='...turning off trade requests';
9: msg:='nope';
10: msg:='negative';
end;
typesend(HumanText(msg, 50));
end;
if (inChat('hello') or inChat('whats up') or inChat('hey') or inChat('hows it goin')) then
begin
case random(11) of
0: msg:='hey';
1: msg:='sup';
2: msg:='whatchu want?';
3: msg:='cant talk right now, sry';
4: msg:='what do you want?';
5: msg:='...?';
6: msg:='??';
7: msg:='haha';
8: msg:='sry, i dont feel like talking, im turning chat off now';
9: msg:='hello';
10: msg:='thats me!';
end;
typesend(HumanText(msg, 50));
end;
if (inChat('fight?') or inChat('fight me') or inChat('fite me') or inChat('lets go to wild')) then
begin
case random(11) of
0: msg:='nah, not right now';
1: msg:='just go away';
2: msg:='go away';
3: msg:='haha, no';
4: msg:='not now, dawg! not now!';
5: msg:='maybe later';
6: msg:='haha, im ignoring you now';
7: msg:='leave me alone';
8: msg:='whatever';
9: msg:='i am training right now';
10: msg:='ha!';
end;
typesend(HumanText(msg, 50));
end;
if (inChat('att lvl?') or inChat('attack lvl?') or inChat('att level?') or inChat('attack level?') or inChat('attack?') or inChat('att?')) then
begin
sayCurrentLevels('attack');
end;
if (inChat('str lvl?') or inChat('strength lvl?') or inChat('str level?') or inChat('strength level?') or inChat('strength?') or inChat('str?')) then
begin
sayCurrentLevels('strength');
end;
if (inChat('def lvl?') or inChat('defence lvl?') or inChat('def level?') or inChat('defence level?') or inChat('defence?') or inChat('def?') or inChat('defense?') or inChat('defense lvl?') or inChat('defense level?')) then
begin
sayCurrentLevels('defence');
end;
end;
begin
form;
setup;
repeat
attack;
ban;
HPcheck;
randoms;
proggie;
responder;
if (pcount=killstilswitch) then
begin
wait(8000+random(1000));
logout;
nextplayer(true);
newplaya;
end;
until(count=killslimit);
end.
——————————————————
<!– END TEMPLATE: formanswers –>