Some antiviruses detect ScarBrowser as a virus, it's nothing to worry about though. No harm done.
I'll get to it as soon as I can. I'll keep everything the same. Here's my fighter, has forms:
program SantyFighter;
{.include srl/srl.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{
Credits:
~Ruroken: Amazing Combat Selection Functions...Definitely Someone To Notice
~SKy Scripter: Lovely AllNoActive Function...I Could Have Made It But Would Have Taken
Years
~Nielsie95: Helping Me When I Had Any Errors, And Also For Encouraging Me To Post
My Photo On My Millenium Thread
~SRL Developer Team: This Script Would Be Nothing Without The SRL Include
}
var
{***********************************************************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{//////////////////////////////// Form Variables \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{***********************************************************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{*************************************Forms*****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
SantyForm : TForm;
frmDesign : TForm;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{***********************************Canvases****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
D : TCanvas;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{************************************Labels*****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
Label1, Label2, Label3, Label4, Label5, Label6, Label7, Label8,
Label9, Label10, Label11, Label12, Label13, Label14, Label15,
Label16, Label17 : TLabel;
lblUser : TLabel;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{**********************************CheckBoxes***************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5 : TCheckBox;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{************************************Images*****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
Background, Image2 : TImage;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{**********************************Edit Boxes***************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
ColourOne, ColourTwo, ColourThree : TEdit;
EdUser, EdPass, EdNick : TEdit;
IDScript, StatsID, StatsPass : TEdit;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{**********************************ComboBoxes***************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
NameFood, NameMonster : TComboBox;
EatHP, RunAwayHp, RunDirection : TComboBox;
cbActive : TComboBox;
ChooseBackground : TComboBox;
FightPreference, FightStyle : TComboBox;
TypeArrow : TComboBox;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{***********************************Buttons*****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
PickOne, PickTwo, PickThree : TButton;
Close, btnDelete, btnCreate, btnNext, btnBack : TButton;
FightButton : TButton;
Button1, Button2 : TButton;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{**********************************GroupBoxes***************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
GroupBox1, GroupBox2, GroupBox3, GroupBox4 : TGroupBox;
{***********************************************************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{/////////////////////////////// Script Variables \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{***********************************************************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{************************************Strings****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
Direction, MonsterName, FoodName : string;
ToTrain, Style : string;
ArrowType : string;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{***********************************Integers****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
BoneTries, BonesPicked, BonesBuried, MonstersKilled, FoodEaten, ArrowsPicked,
ArrowTries, MinimapClicks, RunAways : Integer;
OneColour, TwoColour, ThreeColour : Integer;
Color1, Color2, Color3 : Integer;
HPEat, HPRun : Integer;
cUser : Integer;
AllArrows : Integer;
Time : Integer;
Player, NPC : Integer;
ArrowTip, ArrowColor, Arrow, Arrow1, Arrow2, Arrow3, Arrow4, Arrow5,
ArrowTipColor : Integer;
XX, YY, L, N, C, S, A, I, R, Z, T, M, B, K, H, J, W, F, G : Integer;
Bone : Integer;
Background8 : Integer;
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
{***********************************Booleans****************************************}
{~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
BuryBones, EatFood, CollectArrows, MapFinding, ArrowPickup, TrainDef : Boolean;
RunOtherForm, Started : Boolean;
Equipped : Boolean;
procedure AddUser;
begin
SetArrayLength(Players, GetArrayLength(Players) + 1);
Players[GetArrayLength(Players) - 1].Name := 'Username';
Players[GetArrayLength(Players) - 1].Pass := 'Password';
Players[GetArrayLength(Players) - 1].Nick := 'Nickname';
Players[GetArrayLength(Players) - 1].Active := True;
end;
procedure Inititate(Sender : TObject);
begin
lblUser.Caption := IntToStr(cUser);
Players[cUser].Nick := edNick.Text;
Players[cUser].Name := edUser.Text;
Players[cUser].Pass := edPass.Text;
if (cbActive.Text = 'True') then
Players[cUser].Active := True
else
Players[cUser].Active := False;
cUser := GetArrayLength(Players) - 1;
end;
procedure CreateUser(Sender : TObject);
begin
Players[cUser].Nick := edNick.Text;
Players[cUser].Name := edUser.Text;
Players[cUser].Pass := edPass.Text;
if (cbActive.Text = 'True') then
Players[cUser].Active := True
else
Players[cUser].Active := False;
AddUser;
cUser := GetArrayLength(Players) - 1;
lblUser.Caption := IntToStr(cUser);
edNick.Text := Players[cUser].Nick;
edUser.Text := Players[cUser].Name;
edPass.Text := Players[cUser].Pass;
if (Players[cUser].Active) then
cbActive.Text := 'True'
else
cbActive.Text := 'False';
end;
procedure ForwardUser(Sender : TObject);
begin
Players[cUser].Nick := edNick.Text;
Players[cUser].Name := edUser.Text;
Players[cUser].Pass := edPass.Text;
if (cbActive.Text = 'True') then
Players[cUser].Active := True
else
Players[cUser].Active := False;
if (cUser + 1 > GetArrayLength(Players) - 1) then
cUser := 0
else
cUser := cUser + 1;
lblUser.Caption := IntToStr(cUser);
edNick.Text := Players[cUser].Nick;
edUser.Text := Players[cUser].Name;
edPass.Text := Players[cUser].Pass;
if (Players[cUser].Active) then
cbActive.Text := 'True'
else
cbActive.Text := 'False';
end;
procedure BackUser(Sender : TObject);
begin
Players[cUser].Nick := edNick.Text;
Players[cUser].Name := edUser.Text;
Players[cUser].Pass := edPass.Text;
if (cbActive.Text = 'True') then
Players[cUser].Active := True
else
Players[cUser].Active := False;
if (cUser - 1 < 0) then
cUser := GetArrayLength(Players) - 1
else
cUser := cUser - 1;
lblUser.Caption := IntToStr(cUser);
edNick.Text := Players[cUser].Nick;
edUser.Text := Players[cUser].Name;
edPass.Text := Players[cUser].Pass;
if (Players[cUser].Active) then
cbActive.Text := 'True'
else
cbActive.Text := 'False';
end;
procedure DeleteUser(Sender : TObject);
var
lo, na, ni : string;
ac : Boolean;
begin
lo := Players[GetArrayLength(Players) - 1].Loc;
na := Players[GetArrayLength(Players) - 1].Name;
ni := Players[GetArrayLength(Players) - 1].Nick;
ac := Players[GetArrayLength(Players) - 1].Active;
Players[cUser].Loc := lo;
Players[cUser].Name := na;
Players[cUser].Nick := ni;
Players[cUser].Active := ac;
SetArrayLength(Players, GetArrayLength(Players) - 1);
if (cUser + 1 > GetArrayLength(Players) - 1) then
cUser := 0
else
cUser := cUser + 1;
lblUser.Caption := IntToStr(cUser);
edNick.Text := Players[cUser].Nick;
edUser.Text := Players[cUser].Name;
edPass.Text := Players[cUser].Pass;
if (Players[cUser].Active) then
cbActive.Text := 'True'
else
cbActive.Text := 'False';
end;
procedure Start(Sender : TObject);
begin
lblUser.Caption := IntToStr(cUser);
edNick.Text := Players[cUser].Nick;
edUser.Text := Players[cUser].Name;
edPass.Text := Players[cUser].Pass;
if (Players[cUser].Active) then
cbActive.Text := 'True'
else
cbActive.Text := 'False';
end;
procedure OnKeyPress(Sender : TObject; var Key : Char);
begin
Key := Chr(VK_CANCEL);
end;
procedure DragForm(Sender : TObject; Button : TMouseButton; Shift : TShiftState; X, Y : Integer);
var
sx, sy, tx, ty : integer;
begin
getmousepos(tx, ty);
repeat
getmousepos(sx, sy);
SantyForm.Top := SantyForm.Top - (ty - sy);
SantyForm.Left := SantyForm.Left - (tx - sx);
sleep(1);
tx := sx;
ty := sy;
until (not IsMouseButtonDown(True));
end;
procedure GetColor1(Sender : TObject);
begin
PickColor(Color1, r, z);
ColourOne.Text := IntToStr(Color1);
ColourOne.Font.Color := Color1;
if Color1 < 3500000 then
begin
ColourOne.Color := clWhite;
end else
ColourOne.Color := clBlack;
end;
procedure GetColor2(Sender : TObject);
begin
PickColor(Color2, r, z);
ColourTwo.Text := IntToStr(Color2);
if Color2 < 3500000 then
begin
ColourTwo.Color := clWhite;
end else
ColourTwo.Color := clBlack;
end;
procedure GetColor3(Sender : TObject);
begin
PickColor(Color3, r, z);
ColourThree.Text := IntToStr(Color3);
ColourThree.Font.Color := Color3;
if Color3 < 3500000 then
begin
ColourThree.Color := clWhite;
end else
ColourThree.Color := clBlack;
end;
procedure SetCaption(what : string);
begin
Label4.Caption := what;
end;
procedure ChangeCaption(Sender : TObject; Shift : TShiftState; X, Y : Integer);
begin
case Sender of
CheckBox1 : SetCaption('Bury Bones?');
CheckBox2 : SetCaption('Eat Food If Dying?');
ColourOne : SetCaption('First Distinct Colour Of Monster');
ColourTwo : SetCaption('Second Distinct Colour Of Monster');
ColourThree : SetCaption('Third Distinct Colour Of Monster');
FightStyle : SetCaption('1-Attack, 2-Strength, 3-Defence, 4-Shared');
NameMonster : SetCaption('Name Of The Monster As Shown In Client');
NameFood : SetCaption('Name Of The Food To Eat As Shown In Client');
EatHP : SetCaption('Hitpoints To Eat Food');
RunAwayHp : SetCaption('Hitpoints To Run Away');
RunDirection : SetCaption('N-North, S-South, E-East, W-West');
FightButton : SetCaption('Start Fighting');
PickOne : SetCaption('Pick First Colour Of The Monster');
PickTwo : SetCaption('Pick Second Colour Of The Monster');
PickThree : SetCaption('Pick Third Colour Of The Monster');
ChooseBackground : SetCaption('ChangeBackground');
Close : SetCaption('Cancel');
edUser : SetCaption('Username Of Player');
edPass : SetCaption('Password Of Player');
edNick : SetCaption('Nickname Of Player');
cbActive : SetCaption('Active Or Inactive');
btnBack : SetCaption('Previous Player');
btnNext : SetCaption('Next Player');
btnCreate : SetCaption('Create Player');
btnDelete : SetCaption('Delete Player');
end;
end;
procedure ChangeBackgrounds(sender : TObject);
begin
SantyForm.HIDE;
case ChooseBackground.text of
'Blue-Swirl' : begin
H := BitmapFromString(1, 500, 'z78DAA596496EDD301044AF448A43' +
'37971ABEEE7FA420AF15A81042C24FECC533608BD5644FA894FEF' +
'CE4039EBFB9F097855F4B810D76E870C00DEEF003512819A2502A' +
'44A118E46C5921670BD10B67F93C55CE56A257CE56A257A257142' +
'AD12B0A95E815053E4F0D858642E34F0D85C61D1A0A8D3B34741A' +
'3A0D9D860E9FA7CE5B3A6A1DB5CE153B9A1DB5CEAD3A6A1D9D8E0' +
'EFF4CC659E394216A7C6F7C6F44373260C475223AA79C53CE2947' +
'CEB9B973D639EB9C75223A0A7C92063A833B8F2AE4E603CD61421' +
'78E7FA44FB4895DA2B7E95671CF4598EFB7C4BBAE37C67B77E126' +
'3989FCB8642CB2D7249F45321CD94E77FEED2315D984ABD42E685' +
'2D326552E52F77C77423FEFDEB87848CF0437E9A5E010BAD026F6' +
'1FD31EE80FD4BBAD1337A1BEF1106A364E999A24D9CB92CF22AC9' +
'2F926B53061546A0875EE76E121D53F651E93F489CE66918EAAD2' +
'637D9A5997CE9CE777934E3EA6899EE75AA73B4F53535EA75E67B' +
'F3FEC017B98E8FFDB0FBA0D9ADC2DC94B87646F915AAC52D34526' +
'68971EF387FED7EE1D5FECE7366DE643AA5FA4A63EEDDE53F2AFD' +
'9B61F6CD4F14515DE37EDCCA7DD5BA7CE99F770FEBB03AF9D7C4E' +
'BD7A4C5B7A7BD8D2F3AE9E37F6D3DE7EDADEF30ED719D74D3EA64' +
'DFECD3E7FDFEAEFFB7CBC766C137751C56F2CC27C3B93702917C3' +
'B71CE26476F136AB781E179AF8A2F048555C5338A82C9E2ADD2EE' +
'B725C8778B0F063AB38B4706B26FE2DBC5C1577174E2FDFDE2F7C' +
'60F908C3256EE21B87D0844D58C58506D3CD70AA976B3DC4C786A' +
'75DC5E586E335F1C0E187AB38E470CBF9F6CFE1A5F347DCF52E24' +
'4A264A264A264A264A264A6E42626562E5E517E1A851E0');
K := BitmapFromString(1, 1, 'FFFFFF');
SafeCopyCanvas(GetBitmapCanvas(H), Background.Canvas, 0, 0, 1, 465, 0, 0, 696, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 2, 696);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 694, 0, 696, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 696, 2);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 463, 696, 465);
end;
'Green-Mirage' : begin
BackGround.Canvas.Refresh;
J := BitmapFromString(696, 2, 'z78DAED98D976E3200C865F4' +
'912FBA513C7EFFF4823090860C78EE77472D24E73D1AF84456697' +
'F8013D818177120782371B5AE012EFB83E78AFAD82A663A1D4B96' +
'8FE152C9800E0000376349C0F412C60089A3381070A1708CC8589' +
'1121828D1612981881EDC50926CE99396D13C00C2E21DC20248B5' +
'8E893E18FBB64B89412C1158CA65D72C05653D09A522733DB3171' +
'E19A81D3B742CF393788CC854B93D85162F4DC1F8C46293DA448D' +
'A37E0BE61E0363A96C4A3889A0E3C160856461488C788F293E767' +
'91F17AADEF67295502CF98674E3C273C1899259E4FA7336C07E69' +
'9CF6B51D785FF3A52A55BA4E6B721BADB8F26B85967F52C5F6DFF' +
'DDBCCADEEB88EEF222D2175A9D67DF16DC24A789492FA5DE9907A' +
'45F4472E180E8BCAE4E2370FEDE2CA93328EB38CEB9ACAFD9E1B9' +
'7DD5F606AC4A93DA6FDCAEE638AEA87B2F6ADBA0D6FA313ACDE9B' +
'99E816382B63A47BBF9564FF5FB1D699333F2EC776B6F83E6ACF7' +
'FFF11AD59B67BC97ACE69BC2DC6A6FDDB716CA6DCC8E98EEEC23A' +
'216FF18F5C599C49E3A534A272E258E82AC92632B7FD59C595BDD' +
'B495D07224E006E63A7BACADE63BB3E56A5FBE75CCDCB7F37C6C0' +
'1779963BF1A011E59CE114E9B375B22C92D6BB493A34DD7453E8D' +
'6D8D9EC5B4E36A8E5113ACD6BD51A2171CB8E7AFDBFE6CBBAEDD0' +
'6E33D964F81C66F8E344D7A22404B856017C9EF8856BFD211ACEE' +
'E15F4F3A41B4179DC3D751CFC27F417D20BD99F88FC84FC797F25' +
'C1FA68E17E5BC3EEF0FBC70F38CD8C51BC49E4B6E927C1709496F' +
'2A21FF3FB80FBFAB9ED05EB84D4FD008EACB7A82BCD3D96A74454' +
'F60CF132FA2243CD1133C92128A86509584C88C2949F79315AD80' +
'B9140B594F889C5E544998CB575CBCDD95844A5136285A98B4876' +
'9D0132088266042EAF40427FAC0093D212B09C8F3B6D613F69484' +
'8F9EF09EF7FECF57007E9E9E40FF959E90BA77EE9E86903D48F52' +
'31F3D810EDECB615755C007AAC218DBEB8B69C3EAB51B1FED9375' +
'1D2CBBE54811DAF67FD413FAFC355FA927D8433DE1B192F04C4F5' +
'0DFF4444318D7715F4F589F23589DD3AFE809DB3B4D23B4129BE1' +
'3D2E22F6B3F5F54AEA7FAB9E90540788AA1BA4E1256ED5BF83FA7' +
'AB6C47E9F0A2D0FD7149A155D65A73C6CB5883EFF98128951E119' +
'E5E1BC46F1484FD053E02F455BC0A77A859EFA3B9F690B35F27CA' +
'C2AE43512DA8EF417AAC236FF585B7814035C070F422B8D71AD16' +
'8E7AC27325E1A31B7CF4848F9EF01BF404705E638FA624D010D95' +
'E8B7A3012F5D6523DE10FAD2291FA');
K := BitmapFromString(1, 1, 'FFFFFF');
SafeCopyCanvas(GetBitmapCanvas(J), Background.Canvas, 0, 0, 696, 1, 0, 0, 1600, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 2, 696);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 694, 0, 696, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 696, 2);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 463, 696, 465);
end;
'Purple-Charm' : begin
BackGround.Canvas.Refresh;
W := BitmapFromString(296, 2, 'z78DAED974992ED261045B' +
'744B6C01081D8FF927CD438FC2A6AE20A7F4FEC2F226EF0542249' +
'9ABA077CCA11D34F597146919D255425355C2D3DA8644655471BF' +
'54ADD32BE68AAF265A395F3A6A4BD1ABC315FC41F7EA0DD9B8C68' +
'5EA547F59446DDD1EA2635DC0B2A36C47C5A1371424871332BDB9' +
'689143BF42CA7553DCA61AAB5745D6AA5695541434B21535925B5' +
'C8515C4EC962D2C58A4A945D44F40A235ECEE2FC5EC5A80DF4280' +
'DEDA516A5E668BC7A95FA459D92AF1A25BEA852FC072A14FB17F5' +
'FB231F45BF15F99F959F3E3F8DF039CF7617BFCB537FDEFF93E7D' +
'78EE833CFBF32F46F3B4A5FFD7CFF7776F867DBEF117EBDFE99D9' +
'D3F7E7FC3FE5F9FFEED4C6ABC977F5D58E0E4AC11F268AFBE024D' +
'714FBED242E81AFB854C11BE410FC43B60CBCE8F21FDC112FEAF8' +
'12CEA253B34C13A537B4518FDBCD2E67C390F03AC3F11A26DA6D4' +
'AF76D5B26AEB8B4E2AB457B363C79E58C6A25770CC3086319969C' +
'B866EDE9B6EACC89157B2EE773ACAAB756F1D376D41AA5ED3AC2B' +
'AD61589059F41A36631FB6A1EAB9F2D63937C4B19DA46DAF076A4' +
'63D91FDA25C7387AC93E46DBD9466F67D6D1DACC18F9B6EAA9C35' +
'AA52E444BA27906F1E14A5F15C6F4831CCE3EC8E7E8B5E69D8FDD' +
'B94928114FDFF4D77DB4C8F0BCDAB8D6C6A82753ED960CAF98259' +
'450C6E44617874D550FE6F0E245C8B4C1DC76339D04DD0A0794E4' +
'A04CF30E773A54A2FF2FEC13C82561A8BEFA43DEB1467A4720375' +
'68D45F70D7CB69F7A41E3901DE7AD934C3639C0AB4857F85858F1' +
'E1CB16AB5F993AFEC6589A0B630963EFC8B5E44BD8567A8832A20' +
'1D04EA6ACE8605F9DCABE2B10516639605F4719397BB241C02EEC' +
'D972D5365AD8CF15FE1D2435211E4BF2EA6FDEFDE6DD6FDEFDF77' +
'8171FE593778F1BDC0AD12A5CBB5D02DFE837D7A09A402B19706D' +
'C9C9E540D439652B6E83FDC2B5CBD64FBC2839934F699831676EF' +
'C2A65FA653AE1CB5D5B880FBCBAE384672C9C765FB70C531C1508' +
'25B710EBB8FFB2CAE5A0506F2FD17040AC6960860A1778CD21FF6' +
'8832BC3D9D6CB35A203DF2380E743B726317ABFB9362FAE419F8A' +
'BDED9774017DF6F5E626D4C5BB87590FBF3EF5F9E621E3D3EA89A' +
'0906BDEBD1C7547EB9D7E910AC8C8014A90150C69E77534808E0F' +
'D10E58CC00AE51A4BB33F080E0D711C172C3FA13E63558AFCC583' +
'22350232E0A0CEE440670DCAA1C7ECD70BB6E43C2EF9B029BDBD0' +
'C95A78E19C21AC26EB3441D9FA03DEF0C7F2');
K := BitmapFromString(1, 1, 'FFFFFF');
SafeCopyCanvas(GetBitmapCanvas(W), Background.Canvas, 0, 0, 296, 1, 0, 0, 7500, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 2, 696);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 694, 0, 696, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 696, 2);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 463, 696, 465);
end;
'Red-Ripple' : begin
BackGround.Canvas.Refresh;
B := BitmapFromString(696, 1, 'z78DAD597DB4E262110845F8933C3' +
'250CF0FE8FB4F1034399C91A5DF36FA21715A374D187EAA6C798B' +
'79F2B81159C6F583C98C1FB0DF9A7A901BCC00672BE71BEC1D30A' +
'D841FE7B3B308270DE9CB961B8EF5F8244740F41A2E3CFA65B904' +
'83BD9E8C4DBC94927EA4EDE3AA9ECC4DE31EEB00166C033601864' +
'7BC0306018E46DC030F06AC030F00430131F260C138609C38461E' +
'2C38467C233F164C236619B4370FE0095A70BDE726F157F2EF173' +
'F91C258A15913D91AEA877066EC94C918C45C9A43B79EE53F2BF6' +
'A51A446AB6A416A6AA4EE4B0F55949C45E1F879DBA3FF8655C3AA' +
'61D5B8A561D5A274D0B25ABD8655EDD26B55BA0FDB1AA52B61A8F' +
'6746B59BD0C4FE9A7970B6C8543A5BC0CABDC8827D589CFE544B7' +
'E26D4132D35E303DDAA7581F58042FC12C9804A3601025788982E' +
'ADC46B4A10AE9A293266A290FCDA48772DC433F53F4738B7E8AA8' +
'284945BCD448F5D31F9AB9E47580A14479356028E6BC26170C579' +
'357E6927707DB0BDB0BFF335619AB8CE719AB8C55C62A93E1CC5D' +
'89F3891C266E495C9FF030C19FE04FF047CE479823CC11E608738' +
'43972327032E0498039C01C600E9C0CF8C0AFC6E38387D9C3EC61' +
'F6F8E0F1C1C3EC6076303B981DCC0E66C779C779B7CEC36FE1B7F' +
'05BF82DFC162B8B95C5CA6280E9FBB8DC23CC4881579140623730' +
'BC0763E462737EACFCDDCBF9283C97F057B9B71F7F16CDF6D38BF' +
'F59E2AA12EF38D7EE9C78C955961C36C9ED3C39DFF98F52972AF5' +
'1A27945DD320B52EA2817EB4B174B23593444B5534368FF6B60EA' +
'3E8B3886EC7D1F3D2F6D67912FD57E98B7EFA65F5CEEEA328FD75' +
'49DF35E9C7794AB47BD64B2F27E9F14B7ABFC94C98B2193A99215' +
'166CB2533A7CA2CEAB23D1A995D4E665A945997650616998D4D66' +
'6697592AD375496FCF5EF798CCE131BD75AAEBB4D757405F87E7D' +
'BF1F95BF3DD37EBB9633889B1496682CCFF2E998FA7467BAADFFF' +
'7107687263979D44F563453F417CCEA2A22ABB503F3BD207FDA87' +
'254335574220AD9AAF07FD931AAD462C8B6EF643F4CB23796C76E' +
'3F65B777B28BC66F6EF5F6B1D5C77FDAED5FBDE17F7DB7D7ADDE7' +
'D73AB4F92492FDF4DE67C4F7DD8EDABD4284BD5A27CAF39F98E33' +
'E7FBEEC3175FFF555FAC5F991E5D266A3A1DB4B7C726DD176471B' +
'8E575F0E735F903257356ED');
K := BitmapFromString(1, 1, 'FFFFFF');
SafeCopyCanvas(GetBitmapCanvas(B), Background.Canvas, 0, 0, 669, 1, 0, 0, 1600, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 2, 696);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 694, 0, 696, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 696, 2);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 463, 696, 465);
end;
end;
K := BitmapFromString(1, 1, 'FFFFFF');
SantyForm.show;
end;
procedure ChangeForm(Senders : TObject);
begin
if (FightPreference.text) = 'Melee' then
begin
SantyForm.Hide;
FightStyle.Items.Clear;
FightStyle.Items.Add('Attack');
FightStyle.Items.Add('Strength');
FightStyle.Items.Add('Defence');
FightStyle.Items.Add('Shared');
CheckBox1.SetBounds(320, 305, 97, 17);
CheckBox2.SetBounds(205, 305, 97, 17);
CheckBox4.SetBounds(435, 305, 97, 17);
CheckBox5.Hide;
CheckBox3.Hide;
SantyForm.Show;
end;
if (FightPreference.text) = 'Range' then
begin
FightStyle.Items.Clear;
FightStyle.Items.Add('Longrange');
FightStyle.Items.Add('Accurate');
FightStyle.Items.Add('Rapid');
SantyForm.Hide;
CheckBox1.SetBounds(175, 305, 97, 17);
CheckBox2.SetBounds(290, 305, 97, 17);
CheckBox3.SetBounds(520, 305, 97, 17);
CheckBox4.SetBounds(405, 305, 97, 17);
GroupBox2.SetBounds(256, 65, 199, 162);
TypeArrow.Show;
Label17.Show;
CheckBox3.Show;
CheckBox5.Hide;
SantyForm.Show;
end;
if (FightPreference.text) = 'Magic' then
begin
FightStyle.items.Clear;
FightStyle.Items.Add('Automatic');
FightStyle.Items.Add(' ');
FightStyle.Items.Add('Wind Strike');
FightStyle.Items.Add('Water Strike');
FightStyle.Items.Add('Earth Strike');
FightStyle.Items.Add('Fire Strike');
FightStyle.Items.Add(' ');
FightStyle.Items.Add('Wind Bolt');
FightStyle.Items.Add('Water Bolt');
FightStyle.Items.Add('Earth Bolt');
FightStyle.Items.Add('Fire Bolt');
FightStyle.Items.Add(' ');
FightStyle.Items.Add('Wind Blast');
FightStyle.Items.Add('Water Blast');
FightStyle.Items.Add('Earth Blast');
FightStyle.Items.Add('Fire Blast');
FightStyle.Items.Add(' ');
FightStyle.Items.Add('Wind Wave');
FightStyle.Items.Add('Water Wave');
FightStyle.Items.Add('Earth Wave');
FightStyle.Items.Add('Fire Wave');
SantyForm.Hide;
Wait(5);
CheckBox3.Hide;
CheckBox1.SetBounds(175, 305, 97, 17);
CheckBox2.SetBounds(290, 305, 97, 17);
CheckBox4.SetBounds(405, 305, 97, 17);
CheckBox5.Show;
SantyForm.Show;
end;
end;
procedure ClickButton(sender : TObject);
begin
GetSelf.Visible := False;
ScriptID := (IDScript.text);
OneColour := strtoint(ColourOne.text);
TwoColour := strtoint(ColourTwo.text);
ThreeColour := strtoint(ColourThree.text);
ToTrain := FightPreference.text;
ArrowType := TypeArrow.text;
Style := FightStyle.text;
MonsterName := NameMonster.text;
Direction := RunDirection.text;
FoodName := NameFood.text;
HPEat := strtoint(EatHP.text);
HPRun := strtoint(RunAwayHp.text);
if (Checkbox1.checked) then
BuryBones := True;
if (Checkbox2.checked) then
EatFood := True;
if (Checkbox3.checked) then
CollectArrows := True;
if (Checkbox4.checked) then
MapFinding := True;
if (CheckBox5.checked) then
TrainDef := True;
if StrToInt(EatHp.text) > 99 then
HPEat := 80;
if StrToInt(EatHp.text) < 1 then
HPEat := 5;
ClearDebug;
Started := True;
SantyForm.Caption := SantyForm.Caption + '.';
SantyForm.ModalResult := mrOk;
GetSelf.Visible := True;
end;
procedure SantyShowForm;
begin
SantyForm := CreateForm;
with SantyForm do
begin
SetBounds(0, 0, 696, 465);
Position := poScreenCenter;
BorderStyle := bsNone;
Visible := False;
PixelsPerInch := 96;
OnMouseDown := @DragForm;
FormStyle := FsStayOnTop;
end;
Background := TImage.Create(SantyForm);
with Background do
begin
Parent := SantyForm;
SetBounds(0, 0, 696, 465);
OnMouseDown := @DragForm;
end;
GroupBox1 := TGroupBox.Create(SantyForm);
with GroupBox1 do
begin
Parent := SantyForm;
SetBounds(9, 65, 243, 207);
Caption := 'Monster Information';
Font.Height := -11;
Font.Name := 'MS Sans Serif';
ParentFont := False;
TabOrder := 24;
end;
GroupBox2 := TGroupBox.Create(SantyForm);
with GroupBox2 do
begin
Parent := SantyForm;
SetBounds(256, 65, 199, 117);
Caption := 'Style Information';
TabOrder := 25;
end;
GroupBox3 := TGroupBox.Create(SantyForm);
with GroupBox3 do
begin
Parent := SantyForm;
SetBounds(460, 65, 221, 207);
Caption := 'Health Information';
TabOrder := 26;
end;
GroupBox4 := TGroupBox.Create(SantyForm);
with GroupBox4 do
begin
Parent := SantyForm;
SetBounds(140, 280, 480, 65);
Caption := 'Miscellaneous Information';
TabOrder := 24;
end;
Label1 := TLabel.Create(SantyForm);
with label1 do
begin
Parent := SantyForm;
SetBounds(28, 86, 52, 13);
Caption := 'First Colour';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label2 := TLabel.Create(SantyForm);
with label2 do
begin
Parent := SantyForm;
SetBounds(28, 134, 70, 13);
Caption := 'Second Colour';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label3 := TLabel.Create(SantyForm);
with Label3 do
begin
Parent := SantyForm;
SetBounds(28, 182, 57, 13);
Caption := 'Third Colour';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label4 := TLabel.Create(SantyForm);
with Label4 do
begin
Parent := SantyForm;
SetBounds(520, 430, 0, 0);
Caption := 'Santy Fighter Version 2!';
Font.Color := clWhite;
OnMouseDown := @DragForm;
end;
Label5 := TLabel.Create(SantyForm);
with label5 do
begin
Parent := SantyForm;
SetBounds(262, 132, 53, 13);
Caption := 'Fight Mode';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label6 := TLabel.Create(SantyForm);
with label6 do
begin
Parent := SantyForm;
SetBounds(28, 230, 76, 13);
Caption := 'Monster'#39's Name';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label7 := TLabel.Create(SantyForm);
with label7 do
begin
Parent := SantyForm;
SetBounds(465, 86, 63, 13);
Caption := 'Food Name?';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label8 := TLabel.Create(SantyForm);
with Label8 do
begin
Parent := SantyForm;
SetBounds(465, 134, 109, 13);
Caption := 'Hitpoints To Eat Food?';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label9 := TLabel.Create(SantyForm);
with Label9 do
begin
Parent := SantyForm;
SetBounds(465, 182, 115, 13);
Caption := 'Hitpoints To Run Away?';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label10 := TLabel.Create(SantyForm);
with Label10 do
begin
Parent := SantyForm;
SetBounds(465, 230, 100, 13);
Caption := 'Run Away Direction?';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label11 := TLabel.Create(SantyForm);
with Label11 do
begin
Parent := SantyForm;
SetBounds(250, 10, 0, 0);
Alignment := taCenter;
Caption := 'SANTY FIGHTER';
Font.Color := clYellow;
Font.Height := -27;
Font.Name := 'Monotype Corsiva';
end;
Label12 := TLabel.Create(SantyForm);
with Label12 do
begin
Parent := SantyForm;
SetBounds(40, 344, 48, 13);
Caption := 'Username';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label13 := TLabel.Create(SantyForm);
with Label13 do
begin
Parent := SantyForm;
SetBounds(40, 367, 46, 13);
Caption := 'Password';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label14 := TLabel.Create(SantyForm);
with Label14 do
begin
Parent := SantyForm;
SetBounds(40, 390, 48, 13);
Caption := 'Nickname';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label15 := TLabel.Create(SantyForm);
with Label15 do
begin
Parent := SantyForm;
SetBounds(40, 414, 30, 13);
Caption := 'Active';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label16 := TLabel.Create(SantyForm);
with Label16 do
begin
Parent := SantyForm;
SetBounds(263, 86, 0, 0);
Caption := 'Fight Preference';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
end;
Label17 := TLabel.Create(SantyForm);
with Label17 do
begin
Parent := SantyForm;
SetBounds(263, 182, 0, 0);
Caption := 'Arrow Type';
Font.Color := clYellow;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Visible := False;
end;
CheckBox1 := TCheckBox.Create(SantyForm);
with CheckBox1 do
begin
Parent := SantyForm;
SetBounds(320, 305, 97, 17);
Caption := 'Bury Bones?';
Font.Height := -11;
Font.Name := 'MS Sans Serif';
CheckBox1.TabOrder := 10;
OnMouseMove := @ChangeCaption;
end;
CheckBox2 := TCheckBox.Create(SantyForm);
with CheckBox2 do
begin
Parent := SantyForm;
SetBounds(205, 305, 97, 17);
Caption := 'Eat Food?';
TabOrder := 9;
OnMouseMove := @ChangeCaption;
end;
CheckBox3 := TCheckBox.Create(SantyForm);
with CheckBox3 do
begin
Parent := SantyForm;
SetBounds(520, 305, 97, 17);
Caption := 'Collect Arrows?';
TabOrder := 50;
Visible := False;
end;
CheckBox4 := TCheckbox.Create(SantyForm);
with CheckBox4 do
begin
Parent := SantyForm;
SetBounds(435, 305, 97, 17);
Caption := 'Map Finding?';
TabOrder := 100;
end;
CheckBox5 := TCheckBox.Create(SantyForm);
with CheckBox5 do
begin
Parent := SantyForm;
SetBounds(520, 305, 97, 17);
Caption := 'Magic Defence?';
TabOrder := 101;
Visible := False;
end;
ColourOne := TEdit.Create(SantyForm);
with ColourOne do
begin
Parent := SantyForm;
SetBounds(112, 84, 81, 21);
Hint := 'Type A Distinct Colour Of The Monster';
Color := clBlack;
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
ShowHint := True;
TabOrder := 11;
Text := 'OneColour';
OnMouseMove := @ChangeCaption;
end;
ColourTwo := TEdit.Create(SantyForm);
with ColourTwo do
begin
Parent := SantyForm;
SetBounds(112, 131, 81, 21);
Hint := 'Type Another Distinct Colour Of The Monster';
Color := clBlack;
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
ShowHint := True;
TabOrder := 19;
Text := 'TwoColour';
OnMouseMove := @ChangeCaption;
end;
ColourThree := TEdit.Create(SantyForm);
with ColourThree do
begin
Parent := SantyForm;
SetBounds(112, 178, 81, 21);
Hint := 'Type Another Distinct Colour Of The Monster';
Color := clBlack;
Font.Color := clWhite;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
ShowHint := True;
TabOrder := 12;
Text := 'ThreeColour';
OnMouseMove := @ChangeCaption;
end;
FightPreference := TComboBox.Create(SantyForm);
with FightPreference do
begin
Parent := SantyForm;
SetBounds(347, 84, 81, 21);
Color := clBlack;
Font.Color := clWhite;
Text := 'Preference';
Items.Add('Melee');
Items.Add('Range');
Items.Add('Magic');
OnChange := @ChangeForm;
OnKeyPress := @OnKeyPress;
end;
FightStyle := TComboBox.Create(SantyForm);
with FightStyle do
begin
Parent := SantyForm;
SetBounds(325, 132, 121, 21);
Color := clBlack;
Font.Color := clWhite;
ShowHint := True;
TabOrder := 14;
Text := 'FightStyle';
OnKeyPress := @OnKeyPress;
end;
TypeArrow := TComboBox.Create(SantyForm);
with TypeArrow do
begin
Parent := SantyForm;
SetBounds(325, 178, 121, 21);
Color := clBlack;
Font.Color := clWhite;
TabOrder := 20;
Text := 'Arrow';
Visible := False;
Items.Add('Automatic');
Items.Add(' ');
Items.Add('Bronze');
Items.Add('Iron');
Items.Add('Steel');
Items.Add('Mithril');
Items.Add('Adamant');
Items.Add('Rune');
OnKeyPress := @OnKeyPress;
end;
NameMonster := TComboBox.Create(SantyForm);
with NameMonster do
begin
Parent := SantyForm;
SetBounds(118, 227, 121, 21);
Hint := 'Type The Name Of The Monster As Shown In Client';
Color := clBlack;
Font.Color := clWhite;
ShowHint := True;
TabOrder := 13;
Text := 'MonsterName';
Items.Add('Cow')
Items.Add('Calf')
Items.Add('Dark Wizard')
Items.Add('Goblin')
Items.Add('Guard')
Items.Add('Giant Rat')
end;
NameFood := TComboBox.Create(SantyForm);
with NameFood do
begin
Parent := SantyForm;
SetBounds(542, 85, 121, 21);
Hint := 'Name Of The Food To Eat';
Color := clBlack;
Font.Color := clWhite;
ShowHint := True;
TabOrder := 15;
Text := 'FoodName';
Items.Add('Shrimp');
Items.Add('Sardine');
Items.Add('Herring');
Items.Add('Anchovy');
Items.Add('Mackerel');
Items.Add('Trout');
Items.Add('Cod');
Items.Add('Pike');
Items.Add('Salmon');
Items.Add('Tuna');
Items.Add('Lobster');
Items.Add('Bass');
Items.Add('Swordfish');
Items.Add('Shark');
OnKeyPress := @OnKeyPress;
end;
EatHP := TComboBox.Create(SantyForm);
with EatHP do
begin
Parent := SantyForm;
SetBounds(590, 132, 72, 21);
Hint := 'Hitpoints To Eat Food';
Color := clBlack;
Font.Color := clWhite;
ShowHint := True;
TabOrder := 16;
Text := 'EatHP';
for t := 1 to 99 do
Items.Add(inttostr(t));
OnKeyPress := @OnKeyPress;
end;
RunAwayHP := TComboBox.Create(SantyForm);
with RunAwayHP do
begin
Parent := SantyForm;
SetBounds(590, 179, 72, 21);
Hint := 'Hitpoints To Run Away When Food Finishes';
Color := clBlack;
Font.Color := clWhite;
ShowHint := True;
TabOrder := 17;
Text := 'RunAwayHP';
for M := 1 to 99 do
Items.Add(inttostr(M));
OnKeyPress := @OnKeyPress;
end;
RunDirection := TComboBox.Create(SantyForm);
with RunDirection do
begin
Parent := SantyForm;
SetBounds(580, 227, 82, 21);
Hint := 'N : North, S : South, E : East, W : West';
Color := clBlack;
Font.Color := clWhite;
ShowHint := True;
TabOrder := 18;
Text := 'Direction';
Items.Add('N');
Items.Add('S');
Items.Add('E');
Items.Add('W');
OnKeyPress := @OnKeyPress;
end;
FightButton := TButton.Create(SantyForm);
with FightButton do
begin
Parent := SantyForm;
SetBounds(279, 374, 75, 25);
Hint := 'Click To Fight!';
Caption := 'Fight!';
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [fsBold, fsUnderline];
ShowHint := True;
TabOrder := 20;
OnClick := @ClickButton;
OnMouseMove := @ChangeCaption;
end;
PickOne := TButton.Create(SantyForm);
with PickOne do
begin
Parent := SantyForm;
SetBounds(204, 83, 45, 21);
Caption := 'Pick!';
TabOrder := 22;
OnClick := @GetColor1;
OnMouseMove := @ChangeCaption;
end;
PickTwo := TButton.Create(SantyForm);
with PickTwo do
begin
Parent := SantyForm;
SetBounds(204, 130, 45, 21);
Caption := 'Pick!';
TabOrder := 21;
OnClick := @GetColor2;
OnMouseMove := @ChangeCaption;
end;
PickThree := TButton.Create(SantyForm);
with PickThree do
begin
Parent := SantyForm;
SetBounds(204, 177, 45, 21);
Caption := 'Pick!';
TabOrder := 23;
OnClick := @GetColor3;
OnMouseMove := @ChangeCaption;
end;
ChooseBackground := TComboBox.Create(SantyForm);
with ChooseBackground do
begin
Parent := SantyForm;
SetBounds(5, 5, 100, 15);
Text := 'Background';
Font.Color := clRed;
TabOrder := 29;
OnChange := @ChangeBackgrounds;
Items.Add('Blue-Swirl');
Items.Add('Red-Ripple');
Items.Add('Green-Mirage');
Items.Add('Purple-Charm');
OnKeyPress := @OnKeyPress;
end;
edUser := TEdit.Create(SantyForm);
with edUser do
begin
Parent := SantyForm;
SetBounds(4, 342, 121, 21);
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
TabOrder := 25;
edUser.Text := 'Username';
OnMouseMove := @ChangeCaption;
end;
edPass := TEdit.Create(SantyForm);
with edPass do
begin
Parent := SantyForm;
SetBounds(4, 365, 121, 21);
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
TabOrder := 26;
Text := 'Password';
OnMouseMove := @ChangeCaption;
end;
edNick := TEdit.Create(SantyForm);
with edNick do
begin
Parent := SantyForm;
SetBounds(4, 388, 121, 21);
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
TabOrder := 27;
Text := 'Nickname';
OnMouseMove := @ChangeCaption;
end;
cbActive := TComboBox.Create(SantyForm);
with cbActive do
begin
Parent := SantyForm;
SetBounds(4, 411, 121, 21);
Font.Color := clRed;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
ItemHeight := 13;
TabOrder := 28;
Text := 'Active';
Items.Add('True');
Items.Add('False');
OnKeyPress := @OnKeyPress;
end;
btnBack := TButton.Create(SantyForm);
with btnBack do
begin
btnBack.Parent := SantyForm;
SetBounds(230, 405, 45, 25);
Caption := '<';
TabOrder := 0;
OnClick := @BackUser;
OnMouseMove := @ChangeCaption;
end;
btnNext := TButton.Create(SantyForm);
with btnNext do
begin
Parent := SantyForm;
SetBounds(439, 405, 45, 25);
Caption := '>';
TabOrder := 1;
OnClick := @forwardUser;
OnMouseMove := @ChangeCaption;
end;
btnCreate := TButton.Create(SantyForm);
with btnCreate do
begin
Parent := SantyForm;
SetBounds(361, 405, 75, 25);
Caption := 'Create';
TabOrder := 2;
OnClick := @CreateUser;
OnMouseMove := @ChangeCaption;
end;
btnDelete := TButton.Create(SantyForm);
with btnDelete do
begin
Parent := SantyForm;
SetBounds(279, 405, 75, 25);
Caption := 'Delete';
TabOrder := 3;
OnClick := @DeleteUser;
OnMouseMove := @ChangeCaption;
end;
lblUser := TLabel.Create(SantyForm);
with lblUser do
begin
Parent := SantyForm;
Setbounds(355, 430, 50, 13);
Font.Color := clYellow;
Caption := IntToStr(cUser);
end;
Close := TButton.Create(SantyForm);
with Close do
begin
Parent := SantyForm;
SetBounds(361, 374, 75, 25);
Caption := 'Cancel';
ModalResult := mrCancel;
OnMouseMove := @ChangeCaption;
end;
IDScript := TEdit.Create(SantyForm);
with IDScript do
begin
Parent := SantyForm;
SetBounds(0, 0, 1, 1);
Text := '186';
Font.Color := clRed;
TabOrder := 10;
end;
b := BitmapFromString(696, 1, 'z78DAD597DB4E262110845F8933C3' +
'250CF0FE8FB4F1034399C91A5DF36FA21715A374D187EAA6C798B' +
'79F2B81159C6F583C98C1FB0DF9A7A901BCC00672BE71BEC1D30A' +
'D841FE7B3B308270DE9CB961B8EF5F8244740F41A2E3CFA65B904' +
'83BD9E8C4DBC94927EA4EDE3AA9ECC4DE31EEB00166C033601864' +
'7BC0306018E46DC030F06AC030F00430131F260C138609C38461E' +
'2C38467C233F164C236619B4370FE0095A70BDE726F157F2EF173' +
'F91C258A15913D91AEA877066EC94C918C45C9A43B79EE53F2BF6' +
'A51A446AB6A416A6AA4EE4B0F55949C45E1F879DBA3FF8655C3AA' +
'61D5B8A561D5A274D0B25ABD8655EDD26B55BA0FDB1AA52B61A8F' +
'6746B59BD0C4FE9A7970B6C8543A5BC0CABDC8827D589CFE544B7' +
'E26D4132D35E303DDAA7581F58042FC12C9804A3601025788982E' +
'ADC46B4A10AE9A293266A290FCDA48772DC433F53F4738B7E8AA8' +
'284945BCD448F5D31F9AB9E47580A14479356028E6BC26170C579' +
'357E6927707DB0BDB0BFF335619AB8CE719AB8C55C62A93E1CC5D' +
'89F3891C266E495C9FF030C19FE04FF047CE479823CC11E608738' +
'43972327032E0498039C01C600E9C0CF8C0AFC6E38387D9C3EC61' +
'F6F8E0F1C1C3EC6076303B981DCC0E66C779C779B7CEC36FE1B7F' +
'05BF82DFC162B8B95C5CA6280E9FBB8DC23CC4881579140623730' +
'BC0763E462737EACFCDDCBF9283C97F057B9B71F7F16CDF6D38BF' +
'F59E2AA12EF38D7EE9C78C955961C36C9ED3C39DFF98F52972AF5' +
'1A27945DD320B52EA2817EB4B174B23593444B5534368FF6B60EA' +
'3E8B3886EC7D1F3D2F6D67912FD57E98B7EFA65F5CEEEA328FD75' +
'49DF35E9C7794AB47BD64B2F27E9F14B7ABFC94C98B2193A99215' +
'166CB2533A7CA2CEAB23D1A995D4E665A945997650616998D4D66' +
'6697592AD375496FCF5EF798CCE131BD75AAEBB4D757405F87E7D' +
'BF1F95BF3DD37EBB9633889B1496682CCFF2E998FA7467BAADFFF' +
'7107687263979D44F563453F417CCEA2A22ABB503F3BD207FDA87' +
'254335574220AD9AAF07FD931AAD462C8B6EF643F4CB23796C76E' +
'3F65B777B28BC66F6EF5F6B1D5C77FDAED5FBDE17F7DB7D7ADDE7' +
'D73AB4F92492FDF4DE67C4F7DD8EDABD4284BD5A27CAF39F98E33' +
'E7FBEEC3175FFF555FAC5F991E5D266A3A1DB4B7C726DD176471B' +
'8E575F0E735F903257356ED');
K := BitmapFromString(1, 1, 'FFFFFF');
SafeCopyCanvas(GetBitmapCanvas(b), Background.Canvas, 0, 0, 669, 1, 0, 0, 1600, 465);
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 2, 696)
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 694, 0, 696, 465)
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 0, 696, 2)
SafeCopyCanvas(GetBitmapCanvas(K), Background.Canvas, 0, 0, 1, 1, 0, 463, 696, 465)
end;
procedure SafeSantyShowForm;
var
v : TvariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('SantyShowForm', v);
end;
procedure SantyShowFormModal;
begin
SantyForm.ShowModal;
end;
procedure SafeSantyShowFormModal;
var
v : TvariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('SantyShowFormModal', v);
end;
procedure OpenForm;
begin
SafeSantyShowForm;
SafeSantyShowFormModal;
end;
procedure Clicked(Sender : TObject);
begin
SRLID := StatsID.text;
SRLPassword := StatsPass.text;
if (SRLID = '') or (SRLPassword = '') or
(SRLID = 'SRL ID') or (SRLPassword = 'SRL Password') then
begin
frmDesign.Close;
WriteLn('Invalid SRL ID or Password');
Started := False;
end else
frmDesign.Close;
RunOtherForm := True;
end;
procedure Clicked2(Sender : TObject);
begin
frmDesign.ModalResult := MROK;
end;
procedure BeginScript;
begin
frmDesign := CreateForm;
with frmDesign do
begin
Position := poScreenCenter;
SetBounds(0, 0, 424, 151);
BorderStyle := bsNone;
Color := clBtnFace;
Font.Height := -11;
Visible := False;
PixelsPerInch := 96;
end;
Image2 := TImage.Create(frmDesign);
with Image2 do
begin
Parent := frmDesign;
SetBounds(0, 0, 424, 151);
Background8 := BitmapFromString(424, 151, 'z78DAED9DEB7AABBA0E455F' +
'29E19E9F01D2F77FA49D5AEE5E7285A80990EB18FB7C3A7C699A9' +
'502D69C16BE1C0E00000000000000000000000000000000000000' +
'00000000000000000000000000000000000000000000000000000' +
'00000000000000000000000000000F09E0C43351C2F5E7CE6EFFC' +
'2AE7ED19CEEA7DBEC333DF33000000F83D2F8E55D734DD737EDB4' +
'77DB7F93366BFDB339CD5BDBFC333DF330000005B311EAAB13E8C' +
'65D397E570A90FC5971C8F4DDBD5CD78E8CABA141DD4F155FCDEE' +
'5D28C65F16CDFF351DFCDFB2636CA777B866FBEDF7778E67BE6C1' +
'39C1DE1592072427D85C11720800003C9BBB935CAD63E2F1DAB66' +
'82ACF0978F1B1BEC57B1DBF97FF4D6CF4D41FBFF7E6EE6E3E4A7E' +
'30DE2FC92738400080C77A0FC9C9A2713A3FCF3BBD850EF079FC5' +
'EFEF7593A4E6CE9C8B735E30CB71AA9B8D4E178FE79DE116D3B32' +
'70FE3B2F3D275B5D973DAEE96DF7E1EE1E6F3E2784BC91F83D955' +
'BC8B700008F757A13F95FFCDE7C943CAF8FEFEEFAE615D6FB694E' +
'C566A9575C3AF26DE938C3FC4F98F706DBFEEED273F2A8F3B0FE6' +
'CACFF3E6B1CE37EA30AB33C9E6DEFB3D1FDEB707D000077777ADE' +
'4F2FE7B6AC061D9367BBFAD83ABDF0CAA56BBF9AA3E703EF53D95' +
'BE352B6AA7DE5D49D72FE95350E674DA5D19EA5FC73B2FE3BEFF7' +
'C96BCEC6FAEBB295DF5BFF94D9F3756EFBD5ADDEE4049B376ECB3' +
'F0000B01F97A63ED5076FD4D6D7E19AF04F7F38BD073DDB5DE3F7' +
'963E855CE3F7B4C2E6CC92C8F115F99EC19EF9ADBE49BE2B5BEA7' +
'396FA3DFBCDF73B1B7B5444F3FFAE1DFD5E7EAD4F393DC90F5EF6' +
'90DC020000CFC0D7B11E8A7392A5BB6EBC1EEA283DF7D9DA5DD6F' +
'3A08D5CDFFAE765F7F77B39EFD471DB27836BBE49FEDFB8D5E8B5' +
'A5672FFF1CEE715DD6DF7B4BFFAE357E6FBE6DE6B465C9033F39C' +
'1E40ADD5B0CB9851C0B00F0E0CA9E64E6B1AD8E3F79BB39B5C751' +
'8EAFDDF64331264F6A24CF8BEB532AD057D7FF8D7F28889A03F20' +
'C7EEFB6F1787BFBBD357FE3D2BF778FBFF1517ECF7341F7B92EEB' +
'47272EFDBB5655F6F48CDAD9DE59D2AEE5FBA80C908CFA905C617' +
'248CC2D1FBFA60D00C0C39C9EE46AC9CC264AF6CEF77BC97A5C8E' +
'8EE8DAE0B64E6F4D5CEFDF5ECBEFDDF67CF655FCDEA3AECBFAD18' +
'9F75C0D2619A737FFC4D6ACB739EFF762C670B2CAFCB83E0000D8' +
'BAA6570F6D99F4C1431E8EE370C2EB43771AD39F5AD7777D7FDB0' +
'EDEACBD1F1598D691E7F17BF9E3A9F07BF8BDF9772E8D8FF57BB6' +
'5F16DBAC33135FDABB757AFAA96ECC1B2187C47CA29FF94ACE09F' +
'9873C0C00B0A3D353FECD7DCF781E8B36463D8FC366781DD57B62' +
'4F5FAFE0A754637D1F7F0FBFF75A75A4DBCE0F7E6F6FBFE7CE599' +
'88DF7F77B495F6CA29DAAAA7E7EDB975CA1B2C71F4F16422E2227' +
'03003CCC0D6ABFA7B3BD3D36333BB452D8FA8028C29AD518B6AAA' +
'BDC367E7EE93BF7732CB7CDCFBD8FDF5BEAFA5ED1877BEFCF7FE7' +
'FA7AF2AA1E536883D21E6DED7D623C9E9985E1E6049D3D7074000' +
'04F467CF26272F51FD509EBF4F46F59D7277B2DADD82360ABBACA' +
'6DE3E7EFB382DC1EF54C6FE4FF3DBDD32BD65DF7B82EDE2CF5BBF' +
'A3DF97CB3C252E2DC6CBBCECF092A93486E21C702003C9DD35395' +
'3D594BC15BAD458FD08E51D6E392F7EB71DD21CEEFE8B1DEEFEDF' +
'139F7F77BDBEE2B31BF62DB7EDEE99E67EF3E7E6FABEBB295F75E' +
'EFF76295CFB45369BFD10D9A36EEADB8926409934F707D00008F2' +
'5E6E4FE3C1ED327B96115851FE7A67AF7EA3D63756E8B4646688B' +
'162439DFACD075FDE978EB1EA04B9DCC6D9FB9D4B7CC3F23BECD0' +
'BCDFFD6FC4AC2F3AB04DFDFEFED71F61EE551D738DB9CD592EFEF' +
'F7A43DDAD535B58B9376FDD3C6BFDBFBC453809FD6FDDDF665F51' +
'5FD1E955BC8B700000F737A4E8CB9DD8EE84B6673A89516B43F54' +
'CF73A34B3954637D58BFE77BBE9359F399F9EFB4DF61E93E08B7E' +
'D9EE0FD5BF32BF42E3DAB5BBD3FE72FBDCDF7EEF79D6FBB2EEBAF' +
'C81EFB68CCBB53699BF1BE52CF7313FF96B474271BC49ABFF1842' +
'6927B0100EEEAF1266A7A8EEB739ECE6815905A81F67B9ECA6CF0' +
'576CB4CBC06D9F99B3D3C1D26FB866F7849CB99F7B9CD5FC79A6F' +
'3BFB56697D8ADBEF3B6D765FD15D9E30ECF6F8FBF9ED27E6709DD' +
'D29D1120394ECFE61C723200C0C64E4F2A75926F1DA72719FB8FB' +
'CADE6DCFDAAEC85CFFC3E9E5096D523F7E055D86AA6C67ED52D48' +
'AE94335FDEB66B69EF493E99ED27BA99446721E6F002006CEBF44' +
'C1E8EA3EFBECED535E787E866E99099ED88EB64BF24C7E9CD5712' +
'00D777CF7DC46069DBD4ADDB7AB358EB33FDC79C0C93E4195C1F0' +
'0C06A2427C7B550C2B8EB18250FABE3893CEC38BDA8057185D559' +
'A7B762B53DF81CD7779F716B705B3BFDA9EF7DB7772FC368D737E' +
'1F76CCE91392032A39FD9BB00009B12C7F9C79516FECDAE4DE6DF' +
'A9A72D394E92B30AF32CDD5F8CCADE33F71CFFC8302A7B781946F' +
'20FD717006047E5954CABD6CFB7153FCE12ECD7D7C8DF5F0C5E9D' +
'896A9EDE7F27E422CE120040EAD3AAAF6603279664DD3066A6EFD' +
'AAE3C738601603F24CFE875DA25173D4F6E04007822D7A756CA5A' +
'FCBB613F74EDF7E2EBB28F52586795330C00DB22B945F24CCC397' +
'A0DE79097EE9F0F0100DED0256AA777E8CABA9CCAC9CC8F03803D' +
'FCDE746E915CB4DEF5010080CEAB3CF50080A7CB4E212F79FD500' +
'000887D676785040000721D00C0FBF591390F00407E0300782C7D' +
'5D1755B3C727C7DDCA58D91800DE88BD33DB7E3919004032CC355' +
'65BAF3326CF3BE80B03C0AB23796C8F67B8927B717A0070A76CB6' +
'DB4A0232D38DF96E00F092B971E70CC62A2E00F0AE7D64CE03009' +
'0AF0000DE1BC6F50100390A00E023FACE3CC50000F21200C02764' +
'579E980000B908005E96B6AC8FE5F174A8CB62ECABAEAF16ECC47' +
'DEC9A72A82572260100603DB7298BE8976899E81A6712A0AB9BAF' +
'B290D6D1776D579EC7EEDCD62789F2D3FCF678BCB4FD573594FDB' +
'93F716E0100E03644474453F25D9F68965631D135D1B81C450378' +
'3FA4D723AD602C9BBE2CA5757C1DBAB1FA89DDD035FD7CAD2FB6C' +
'4A12D2F95B44DCE2D0000AC27FA3DD19759BF273A259AA5552C7A' +
'BFA071F21E2A7EF0697895BDD85E428CFD23C7EF5D5BDFA1BF1CF' +
'BF6308E319E9B6164054E0000D8C2EF054D495426E88EE7F75C15' +
'A3CA071F8CF4712EE7B6AC0699CBFF756D0A75FBD352BE8FFFF07' +
'BD212757D0FBF070000DBFA3D55DFF35426F57BBFB54C344EF48E' +
'FA1E7C1A3FE31CFA43D3D83ED1E5D28C65A19FE736653DD47D736' +
'92E6DD11EEAE2302423F7A455E2F70000605BBFA76B0B218A0689' +
'1E8936E9E7B95ABF74954FF48EFA1E7CB4DF3B74655D7A3DA3E8F' +
'7A4655DA9FBEEDC74C783C4637D6D69CDEB3ECF654D0300F8045E' +
'31D725CF7383D668F5113D126DFAF17BD34FA97E340EBF079F88D' +
'4B493FA9E9AA361676D7465DBB5276959BAC525DE2FB4CA573C1B' +
'B20338770500BC1FAF9BDF44533CC5897A14B4C953AE64D646D03' +
'B9EE7C287F6F8ACD393FE5178258E6E0DADA91BBBF17488C74EEB' +
'ABBBAA3CBCF04A2CD7AC58543C8F0680F7717A2F9DD344533CC5B' +
'1DA14AB7C51D154AD4FB93EEE0AF86CD7F77B149FFEE9A9EBBAE6' +
'2BC7EFC9980A69A1724C860400208FE5637524C7EF894EE9CFB12' +
'3F7B82B00E671DBDAACEB93E397CE965559E0FD00E0B53CDEAB8F' +
'4EB13A921F01602B8E555D9DBB1865FD3DBD0A5F581B53DAE97BB' +
'83E0000B8BFD38BAB40C87ACB6AE5BD18951271DE0076F17B45D5' +
'9FEAC4F54954FB6B58BF87EB03008079A7E7FA3DD117AB3B418F3' +
'87B0077F57BD2FF0AADB2A9DB4B7FF4AAF1000000D6E969BF273A' +
'129D9EE80B7E0FE0FE7ECFC6D01E9B637B3EF712E7475F0000004' +
'ECFF57B4A4DA2DF73D4873309B093DF6BBA612286F6588F6D752E' +
'A45FD6745DD9B79EEB7BDDD9BB0000B086795D10ED101D114DF9D' +
'FEF4DAA0FE713600FCAAAEAEAB3C4B8B3869AAF217DB1E8FA32AA' +
'7C124FDD6938579C5B00807745F27CCEDA0E564792F91A4177B41' +
'2716E01F6A0B894455D156355D545792CABBAD3C7D242EB537B38' +
'8D3A7EC2FA2D000060C95F5FC56A87688AD51A39163DE20C036CD' +
'D3DAB2FCD51A26E77D7A3A68D31B6D0BAE94F757CAA6BE66EE4B4' +
'7A3D3F8B130F00F02A78EB33CCF7F4F51C8DF82437E888688A561' +
'9EDF7B42A71E60134E7B13FF6CB572B92D6D4375DD35797FADA0E' +
'25167D75A8C658F10BC7B1859A3876637BFD2FC4E16B3C8EB53EC' +
'EC906BAFA1777FA30110000F6603EEBCEE76D1D6DFED7EAE02988' +
'D51AAD44A24DB7B9BE1B3511E069882325E22E33FF8ECFA7EBDD5' +
'DF7E5701C6EDC33A2EEEAEADA04FB7A6C4A89B263B544F9B7CEC5' +
'B93EF712E51569D7310EC3652C2436D7DEDAB1E8DAFA702C97F60' +
'425DA7F8BAB0F00B0AD9AE84C6B2B78597B61843C2F395FAB8056' +
'074F41B4CA68F5113DBAEDEF121D144DB45A899AC02BD27CB543D' +
'7C83E83722CED68380DCDB064CF1D55E58BAD2F7C9A3ED62D54B7' +
'DCA4758778B874C72E59C7AFAFAE4EF42C6D7028AF47A79C1C127' +
'F2B44AA7C0000DB227935C9B4197D73C9E192CFE5B7921D3142FE' +
'B7BAE02988D51A39BEADB227DAA73F59EB23571CDE035D038F4E2' +
'CF4AAFC2E50684D122F75591FF52B9207627B517DA2A48F16AAE5' +
'BAD5CBF1F1DC0C631367F82EDC1347FBD5F8C9E212973A580000C' +
'8704736D34A1ECEFF9CE8F724E787FC6F7541F4C2BA3EAB35F3DA' +
'E4FE2D41EFE4F39327C2006FEAF7746D5CEE7C193B71E92EEDA59' +
'9707A7A4CACB42C7D6CDB9A89B1158728B9E2D835E550C7E8F8BD' +
'89D535CDBEBDBA6FC87ACE00005B918CBB539976621FDB8C3590F' +
'FCFDEFF67FEE81B953ACCEB48A238568FD41328EDFA44D744E362' +
'4D4F29207E0FDEDBEFE968EB72D23AA2F7CB717AB695252DF4BB6' +
'EAF5B7452DF0BD1CD0C36EA3C13E2FC1812000058E3F46C8EB579' +
'D8CBD813B95D65FEA4A6277E2FE885AB269EFA18D7A755CCD609A' +
'D0E72C5E1735C9F44DD2E16383D5BDF330E5057F6E26C91F0BADE' +
'05FB06BF27FDC4EBB1FC163BF602006CE5F4EC5E4836F7E6FBBDF' +
'87AC8F992FF93A7C3B6BE672B09394AA4944B2B9AA77A5C71F834' +
'BF67E72579F3A4FE7892AB5DA28A76ECC7F1D2F65F951ED131911' +
'9D4E83EBB9787CE3CFA77BDB9635C7700000F6F0D8424336BA767' +
'F6BCB0793BF95DFD9E90FFEDC8404F41E69FEA7A6A65750DBF07B' +
'8BE9FD1B0DDE9547933D3E328D99CCA9EE3F7F48C2D5DD5B7CF76' +
'6366D051F72BA52AA84700AA2A9F97C1A8F5010058727636FF55D' +
'9B379F89FEB5331FEAE93EDAD2E2CF07B4A83E6354BEB1A4E0FF0' +
'7B7ADE938D7196FA6C65AFE88BF270B075F5D8A2AB6B9B9E188F6' +
'12B7B496EF9717ADAD7FDF27839F33E6CC5AFEEAAF2C0D22D00F0' +
'A1480ECCD9CFC8CEB398C8BD3AAA1EFAC4A749CE375A201A91B83' +
'EA523515F66AB7C392A86DF035C9F9EAF94AC71A4D6269A980915' +
'E2C4DA7AAAB5EAD7658654D2DE65746E4E5F525E91A7C04E9E99F' +
'F4B259BE92C87F70380CFF4783AFBE58C7871DDDD4F4E9ECCD813' +
'1FA466648816C4BD3692D559FF698DAB2F6684B95E432F59AF8FD' +
'9B800CAEFE99D32E2B15DDF527BBFD0CAE26E1D6A1D4E1DE5A77A' +
'470F1DF57E3A7A571D79BF975BCAB26BBEFAA54ECFCB7B36FBE10' +
'001E05DDD9DCE6FB765B9FC9C2C51F2B997EDAD2E24AA31AB2CA2' +
'41AEC70BC756D7F07B007614ABDDB9266959AA4DE991B176DCAC5' +
'E7539AEC7A257D734EFAC0F4DD50DB247B68DD5E574D8C2EF79AE' +
'CF1BB1CC8C0F0078666CBEB2396D8DD3F3FC9EE4642F634B3EB77' +
'95EAFB4ACD5C1BED3EA8BD520D126BBCB27B33300FEF07EE7EA6A' +
'A0645FC258FD0BC7B636EE8D92F51CA0F7533DBEA239B6E7739FC' +
'4AE2BFB76ABCADEBCEB9BCF96FAA7D40001E0B1B5BBA5F96AABAC' +
'E555F924574FE470670FA6A51A91E885D123AB59A26500304F712' +
'98BBA92F622D1F37BF37171CBADDB4B7F8CF1D29D8718ADDFDB2F' +
'8BDA5C9A1FB97300605B6ECB45DB7ABC79D717FD9ECAD869265F5' +
'625C8519689B1794AAD44BFB87300B2FC5E5994E52831B6A3A62A' +
'AAF2EAFBCE6D3D31AECFEC6F68E7C2C7572403E8DE9F7277EDA11' +
'B865262EC2D869FDA991A7BF79D977A3F2A7E00B05F465AEAF1F6' +
'CE4876D646CCE4216F27995C3B4093F9FFD00BA32FFA79AEE8916' +
'853747A4AB9B87300B2FC5E5BB4551DDB4E388ECF79ED883E338E' +
'C2CEEF98E89D39CF6D93A8F283F67BF7CFB4F9DE8F3B0700B6E57' +
'93C9EEBFAC4EFE9FEBBCDE726E74FD4EE1C05D11ECF8ED68B4ECF' +
'6816770E4096DF53BDA4C4F599F9BCC9AC5EBBAE8BA90426FD35E' +
'BF7F45380F07A3DB6D5B9B8BFD39B777D9EF7E3CE0180BDFD9E97' +
'911EF50D253F4BAE4E5C9FF67EC6E9595DF014C4531CD1A3C4E95' +
'1DF0358EAF74C5F4947190DAB7B58F2CEB2ABFAE65C5575D37665' +
'737D73958CDC503D35798F445BDF93BCA1A3DE7D0300009E07C9C' +
'F366FDBFA5E92F975054F29856847D491A029A22F5A714483AC36' +
'51DF0358ECF7B4D3B3AE2F8C86B5AD4CFB3D89498F4F4579BD18A' +
'BEF5F3D9655DDE9E33897BF6EFA532DC75C11008067C6E66D9BDB' +
'E5785E17B48268BF97A341FA982B02F087D31B8BB13E26B571DBB' +
'2E6FDDEA91EBA42A2EDF1E996CED90600F834B4BBB3512BC802BF' +
'27AF68E50A5AC6D906D8CFEF498C2B277B7E2F54F839DB00001FE' +
'7F79C713B3106EDD06A82DF037880DFF31CA0F57BAAAA6FABF79C' +
'6700808F767DE649AE7E229CE5F7F4EBF83D80357E4FDA91BCA2D' +
'B5486DF8BAECFD96787F30C00F0C978EA6075C4F57B5A89B44EE1' +
'F70096FA3DDBA666FD9EBC9ED4F774AF0DBF0700009EDF13BD50F' +
'5BD893A9EA744FA15FC1EC0BCD3536DE436BF2733B05CBFA74668' +
'70B601003EDAEFE9317B8EDF8BB37A57F83DE6EA024CF83D5B0F9' +
'F6D53B1257A7ECFCED7082D5A56E0E46C03007C32A205B61A90CC' +
'D7307E2FBE92E3F7D4735ECE36C084DFCBAEEF2DF67B54F600004' +
'0F1C7FCDC357E4F291AE71960C2EFD9B6A35B5086DF8B4E0FBF07' +
'000037F9BDE8FA72FC9EAD4E98791C9C678009BFA7A36D41197EE' +
'F67B5CCE6D89D92517CF83D0000F0FC5ED00BD18EB8DE728EDFB3' +
'D16819E71960C2EF79F5BD6CBFA75D9FB45FBD8336E719000004D' +
'185B80A5FF47BFF9CDE8D7E8FFA1E80E7F4CC688735F5BDE8F764' +
'FF5CEDF75869190000B4DFD3AB2E8BDF939D73D7F83DAB65CCD20' +
'510BF373F3317BF070000AFE2F798A50B30EFF7B22B7B0BFC9E8C' +
'BC0DAD98F30C00009638D23BE8C5667E8F517C00DAE9E927B9D93' +
'37373FC5ED9D4DF3F90FA5ED81D9BB30D000016D188B8D272D08E' +
'C57E2F63962E4F7501BFA7FD5E6C4DBACA672A7EC7B13894AD6D8' +
'F89DF0BAB273153030000FEF07B6AD6865E79CFD317D1A0896A9E' +
'3A4E2A12F83DC0EFE5CCD4709EF0263D2FEBF7642D3EF6D400008' +
'00CBF277A6175C4AA8CFBF496591B009ED39BDF3337DFEFA9FE94' +
'8EBABEC77C0D0000489C9ED18809BFA7146A81DF73F6D2C5F5017' +
'E2F39B62D658DDF637E2E0000787E4FC5557E4F572DACAEE1F700' +
'BFE7CDD7D8C8EFC9DAE9FA98F30F00F0C9585DD8D8EF39F335F07' +
'B80DF9B18BFB7DAEFE9BD7264065673E9CE0363F900003E1AD182' +
'38335729C5C6F53D337E0FBF071FEAF4A4EFA37B407666AE75800' +
'BFD5EACD58BDF636D160000FC9E52045DE55BE0F73C77675FD14A' +
'87EB83CFF47BDEC8BDF98ADF6D7E4FB93EAE0200007E2FD95F632' +
'BBF67B58C517C80DFD3F7BF1EBF679FF366F83DEBFA74955E3FD5' +
'E52A0000E0F7AC464C38BDA57E4FBFAE6B7AF83DF84CA7E7D5F7B' +
'C576EF37B613DA5B80A9FAEDEE3FA00003ED8E9E9A8956233BFE7' +
'BD6274902B026FEEF7ECC8BD9CFA9E9DBD3BEFF7645744D9554D5' +
'65852912B0200F0717ECF6881568A79BFF7C73AB15E7D8F517C80' +
'DFD3ADC09B998BDF03008057F47B56E3F07BF0697E6F7EFD3D6F2' +
'6FB1ABFC75E1B0000F83DA305ABFCDEFCAA62CEFA7BF83D7857E2' +
'EED2BAB2E7B8B5F8CE4DFD9E5D411DBF0700F0D17ECFC46DFDDE8' +
'496D9275CE158DEC9758177F27B89EBF3EA7B5E5FC96B6576ED3E' +
'D5B79AF77BACBD0C00F0414E4FD6589EF57BEE3326AD5039F53DA' +
'B5046FBB4327275E09DFC9E375A75DBFA9EAEF269BF37B17B0E7E' +
'0F00E0C3FC9EB7939AAEEFCDEF8EB1597D2F44FC1EBCB9DF53F7F' +
'98DF5BDD9F727E3F7EC2A7CAABE87EB0300F804A7A7EB7B5617B2' +
'FCDEFC3EEFB3F5BD791DE41AC1BBFABD09A7B7477DCFB66855D9C' +
'3EF01007C9CDF53553E6FBDE58DEB7BB3AE0FBF071FE4F7669D5E' +
'32EA4F79B9057E4FD6D2347EAF3D74C350EAC895020078276C9E9' +
'FF07B4A2372FC9EDD67ED0FFDB2AFE0F7E04D719FE46654F6E2EB' +
'76BDA39CE7B96AD5F489BD36A8F20100BC3536CFDB3D35ECFE1A0' +
'B9EE78698E5F7ACF6A9C8958257A7ACAAAE3EE78CDC5BECF7BC75' +
'2F55FCC3EFE988DF03007857BF37BB879A8EF39AE2E9CE1FFA953' +
'18A4FB492EB056FEEF772EA7B76978D59BF17676A482B56C7C91C' +
'7C76D40500786FBF677BF77A0D16A311C9AA2C397E2F5FBFF07BF' +
'0D64ECFF37B767F996DEB7B7ABDF489F91ABAEDCB2AEB54F90000' +
'DEC9E9E9CA9ECEF352DF73E6E72EF67B0BEB7B9E1A6AC5E4DAC14' +
'BFA3D190B31EBF46E1CBFE7B4BB642516FB24D7EC9C1823A3F800' +
'00DECFEF497432FFC4535DBD2ACB567ECFDB4557FB3DD9D703BF0' +
'7AFE5F4D47D1B63597C155F3ADA75CBE7DBCB44EBD36DC7F37B26' +
'CEEFB581EB0300782BA797B1A7868D138A63F779578AB3A0BE273' +
'30A8D26268A193E93EB08CF4F3156DF1367D52E84655F36D7FFAC' +
'DFDBB4BE27FF5675AA87AEF09CDEC4CAEA76740763F900005ED7E' +
'F39597D7E670D1D4547265CDF46F5BDC4E9893E26FBF67E6B28D7' +
'119E1F7DC746EF67EF6D13B7F27BF5A1A9BAC11BBF97B474EFD92' +
'E7E0F00E0D5FD9EF70CD768811DBF273AB295DFF3542FAD8128C5' +
'A4BE074F8FBE57932A9FAD5D87BBBD3A5CFFBFBFD1EFE9BE92EA1' +
'9CDFBBD8959BA3AAA9CC0D504007849BFA73D9EF724D7ACC3EFF9' +
'BD6445BE9BD6DFB37A37A1894637A9F2C153FB3DB9FFFBEA508DF' +
'A3819C5E7F4748A73D1159DB4081DB5DF4B7A5BAA9FE5FA3D3B16' +
'D7ACA69E383D73CC3505007819A7379BCF27765C72E66B4CF83D4' +
'777B4DFB3FA25BAF6477D4F56B130BA29C75C537852BFE7DCB176' +
'24AAEEE9E876115B4A53155529AFC4D7C32B3AEA7D6D92D8557D7' +
'3F65655FAA3BE6722D71400E0C5FC5E469CD708D111AB2FA23B13' +
'7A64D5CAE85A52E533B31ABD6A09D7149ECEE975E5A9FAE901A96' +
'3EDF112D79751DF93BE8F6D5912BD9F4A3BADAABA69DD59BADE4E' +
'D936726501005E85FCDCEEA9836847D4916CDD497E9A53DF33359' +
'0C4F5193DE5CAC213F93D7D97AA98DCD5E6DE3E1655D30D874B75' +
'6D5C5E7D6FB1DF3BD755D3C62A9FAACC27C7B6EDDBB11CAAC2CFF' +
'50500786AA767C7ED78B95DA2D5055989452A7B414796FA3DAFBE' +
'271A277AE7D640C4EF190DE5A92E3C9DDF5B5ADF935525432BD06' +
'D41C71BFD9EAEEF492BB6D1D939716214077E0F00E055FC9E3772' +
'DB46471DD6D4F744B3AC9669A59BAF8150DF836766380DCD50483' +
'C5CCAB1EDFF98B521AB539A5660BDDFFAFA9EB4DCEAD41CBBD344' +
'EBF69EF69AF875B87C5DBEB8D60000CF86E4E7FC7C3EE1F182466' +
'8A7B7A6BE97A36E89C7F3666A043D4D1416E0A1F4D5F9743EE9E8' +
'DDDB71A6B9A9ECDD1673EA7BF1A96E6CD1DFEB67C6762D0ED07BD' +
'A6B734278856B0D00F06C7819DB3BD62A10D7E797D9B8463B3CBF' +
'B7817E89D353ABAF589738A1AD00776728FB737FF2625FF7F5F9F' +
'BEEBDB6AC5FD1F47ABEFB2F532DC2BEAE5F09554467ADBF893E5A' +
'747ABFA3FBB457C5E3B919C66B5A68CA01BF0700F074487E965C9' +
'D93D53D45B0CF86DC35F18C1EDDA66BFF3FF3FDA595A2A1F33ACB' +
'758707FB40A93CCB3D198E8F555DFDEFFD7E8EED1D1E7CA0B485D' +
'CE8AEED2C1E4FF7D1265AB7AAF2E97A7EF8E9357B1CFA8B648F4B' +
'77692F8D3C2FB8A694EF9C1022D71A00E051E86C2CF95972F5FF3' +
'DF46B0ED7D93ECDF3FFB27DE2F7B4D313EFF787DFCB8D9EEA597D' +
'B41ACAB586A7737AD5F50EEDF55DAAABD0F1AEF6E25425F0FBF9A' +
'9EA01A5C76A94A0757D4D5DB4D544655EDA751CD137DDBF3BD675' +
'DF3797C3388C8344C9247AFC5E79690E1DBBAD01003CCEEFA93CA' +
'CB3B4CEDE92CFBD6CAFB5C0EA85E888D5173DB26E4A9BE2F1A4A2' +
'CDEBA056CCC4F5056DE58AC36B21AD6F5594D6E11C4FCC7B9298C' +
'CDDF8DDD2E3E70C6D79A9C66E6CAFFF85A87308F33500009E139B' +
'AB752697DC2E797EA2D7AF3D9EA320F3BAB35ED7B882F0DEC4F9E' +
'6321729CE3DAFDAA68ED5B9D077ABAE1DA65329D1F5907D7B18C7' +
'8918AAFAB1156BBF17A2EE558D876B47F0ECD5F424EA6F22CF02B' +
'88200008FE26746EDBFCC6CF3B6CEEA92E775E6D78AA095223E11' +
'7694C5FD3EEA9B887EC50A61D035AB775C41F8048E97E2EA9FE49' +
'E8FC7DAE9456FA6FCD5ACDF4B46B1AA79EBB7459D2BA4CDEA631D' +
'B98E00008FC2E6649BB725AED7859C591256B392E7C241E3ACF67' +
'11DE1BDD1777BE2F7A475DCE4ACBC761A7B76A1AAAF8FE5DFD235' +
'7FFB0C574602C7DE9F1A1BCC7C0D008007FB3D939375AEF69EEDD' +
'AFC6F35C25393DB5CA8FC5BDAEF69D7C77584F746DFF313F53D69' +
'BFE178E9274BC55EA2FDA9F57B12655697EE8BE94AE36DDF04000' +
'0EEEA004DDED6AF2479DEF8BDA56A92F54D949659BF477D0F3EC2' +
'EF8DC5A16C754CFCDE5DFC95B4B5647C85895C29008057C4CBEA9' +
'2F3EFE3B5B4A245BF67B48F2B056FEEF78A6B6B3BE9F82897F533' +
'BF5EFE75F6A40600783FEF1756EE923C2FABE73DC8795AEDE3EA0' +
'0000000000000000000000000000008FF01725E750A');
D := GetBitmapCanvas(background8);
CopyCanvas(D, Image2.Canvas, 0, 0, 424, 151, 0, 0, 424, 151);
FreeBitmap(Background8);
end;
Button1 := TButton.Create(frmDesign);
with Button1 do
begin
Parent := frmDesign;
SetBounds(135, 80, 75, 25);
Caption := 'Begin';
TabOrder := 8;
OnClick := @Clicked;
end;
Button2 := TButton.Create(frmDesign);
with Button2 do
begin
Parent := frmDesign;
SetBounds(215, 80, 75, 25);
Caption := 'Cancel';
TabOrder := 9;
OnClick := @Clicked2;
end;
StatsID := TEdit.Create(frmDesign);
with StatsID do
begin
Parent := frmDesign;
SetBounds(110, 124, 100, 25);
Text := 'SRL ID';
Font.Color := ClRed;
TabOrder := 15;
end;
StatsPass := TEdit.Create(frmDesign);
with StatsPass do
begin
Parent := frmDesign;
SetBounds(215, 124, 100, 25);
Text := 'SRL Password';
Font.Color := ClRed;
TabOrder := 16;
end;
end;
procedure SafeBeginScriptForm;
var v : TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('BeginScript', v);
end;
procedure ShowBeginScriptFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeBeginScriptFormModal;
var v : TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowBeginScriptFormModal', v);
end;
function AllNoActive : Boolean;
var
i : Integer;
begin
Result := True;
for i := 0 to GetArrayLength(Players) - 1 do
if (Players[i].Active) then
begin
Result := False;
Break;
end;
end;
procedure AvoidBan;
begin
case 1 + random(15) of
1 : MMouse(400, 10, 399, 9);
2 : GameTab(3 + Random(2));
3 : RandomRClick;
4 : AlmostLogout;
5 : PickUpMouse;
6 : BoredHuman;
7 : MouseBox(MSX1, MSY1, MSX2, MSY2, 7);
8 : begin
if Style = 'Attack' then
begin
HoverSkill('Attack', False)
end else
if Style = 'Defence' then
begin
HoverSkill('Defence', False)
end else
if Style = 'Strength' then
begin
HoverSkill('Strength', False)
end else
if Style = 'Shared' then
begin
HoverSkill('Attack', False);
HoverSkill('Strength', False);
HoverSkill('Defence', False);
end;
end;
9 :
if (ToTrain = 'Magic') then
begin
HoverSkill('Magic', False);
end else
if (ToTrain = 'Range') then
begin
HoverSkill('Range', False);
end;
end;
GameTab(4);
end;
function HasStaff : boolean;
begin
result := false;
if GetColor(597, 276) and
GetColor(594, 310) and
GetColor(595, 345) = 2070783 then result := true;
end;
function AutoPickSpell : boolean;
begin
result := false;
GameTab(1);
wait(700 - random(400) + random(400))
if not GetColor(632, 374) = 2070783 then Mouse(715, 382, 2, 7, true);
Wait(500 + random(400) - random(400));
if Players[CurrentPlayer].Boolean1 = true then
begin
GameTab(1);
Mouse(692, 273, 10, 10, true);
wait(1000 - random(400) + random(400))
end;
if Players[CurrentPlayer].Boolean1 = false then
begin
GameTab(1);
Mouse(692, 333, 10, 10, true);
wait(1000 - random(400) + random(400))
end;
if (not (GetColor(710, 354) = 2841)) then
begin
Mouse(710, 354, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (not (GetColor(669, 354) = 4352)) then
begin
Mouse(669, 354, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (not (GetColor(630, 355) = 655876)) then
begin
Mouse(630, 355, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(589, 355) = 12632764) then
begin
Mouse(589, 355, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(709, 314) = 974) then
begin
Mouse(709, 314, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(669, 312) = 307460) then
begin
Mouse(669, 312, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(629, 313) = 16468811) then
begin
Mouse(629, 313, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(588, 313) = 12632764) then
begin
Mouse(588, 313, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(708, 269) = 225773) then
begin
Mouse(708, 269, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(668, 269) = 307460) then
begin
Mouse(668, 269, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(630, 268) = 16468811) then
begin
Mouse(630, 268, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(593, 267) = 12632764) then
begin
Mouse(593, 267, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(710, 228) = 505852) then
begin
Mouse(710, 228, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (not (GetColor(670, 228) = 4352)) then
begin
Mouse(590, 227, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(630, 227) = 16349818) then
begin
Mouse(630, 227, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
if (GetColor(590, 227) = 16645886) then
begin
Mouse(590, 227, 3, 3, true);
wait(400 - random(400) + random(400))
exit;
end;
begin
wait(1000 - random(400) + random(400))
GameTab(1);
if GetColor(627, 375) and
GetColor(632, 374) = 2070783 then Result := true;
end;
end;
procedure SetCombat(ToTrain, Style : string; TrainDef : Boolean);
var
EnoughRunes : boolean;
begin
EnoughRunes := false;
GameTab(1);
if ToTrain = 'Melee' then
begin
if Style = 'Attack' then SetFightMode(1);
if Style = 'Strength' then SetFightMode(2);
if Style = 'Shared' then SetFightMode(3);
if Style = 'Defence' then SetFightMode(4);
end;
if ToTrain = 'Range' then
begin
if Style = 'Accurate' then SetFightMode(1);
if Style = 'Rapid' then SetFightMode(2);
if Style = 'Longrange' then SetFightMode(3);
end;
if ToTrain = 'Magic' then
begin
HasStaff;
if HasStaff = false then
begin
Disguise('No Staff Found');
TerminateScript;
end;
if TrainDef = true then
begin
GameTab(1);
Mouse(692, 273, 10, 10, true);
end;
if TrainDef = false then
begin
GameTab(1);
Mouse(692, 333, 10, 10, true);
end;
if (Style = 'Fire Strike') and (GetColor(710, 228) = 505852) then Mouse(710, 228, 3, 3, true);
if (Style = 'Earth Strike') and (not (GetColor(670, 228) = 4352)) then Mouse(590, 227, 3, 3, true);
if (Style = 'Water Strike') and (GetColor(630, 227) = 16349818) then Mouse(630, 227, 3, 3, true);
if (Style = 'Wind Strike') and (GetColor(590, 227) = 16645886) then Mouse(590, 227, 3, 3, true);
if (Style = 'Fire Bolt') and (GetColor(708, 269) = 225773) then Mouse(708, 269, 3, 3, true);
if (Style = 'Earth Bolt') and (GetColor(668, 269) = 307460) then Mouse(668, 269, 3, 3, true);
if (Style = 'Water Bolt') and (GetColor(630, 268) = 16468811) then Mouse(630, 268, 3, 3, true);
if (Style = 'Wind Bolt') and (GetColor(593, 267) = 12632764) then Mouse(593, 267, 3, 3, true);
if (Style = 'Fire Blast') and (GetColor(709, 314) = 974) then Mouse(709, 314, 3, 3, true);
if (Style = 'Earth Blast') and (GetColor(669, 312) = 307460) then Mouse(669, 312, 3, 3, true);
if (Style = 'Water Blast') and (GetColor(629, 313) = 16468811) then Mouse(629, 313, 3, 3, true);
if (Style = 'Wind Blast') and (GetColor(588, 313) = 12632764) then Mouse(588, 313, 3, 3, true);
if (Style = 'Fire Wave') and (not (GetColor(710, 354) = 2841)) then Mouse(710, 354, 3, 3, true);
if (Style = 'Earth Wave') and (not (GetColor(669, 354) = 4352)) then Mouse(669, 354, 3, 3, true);
if (Style = 'Water Wave') and (not (GetColor(630, 355) = 655876)) then Mouse(630, 355, 3, 3, true);
if (Style = 'Wind Wave') and (GetColor(589, 355) = 12632764) then Mouse(589, 355, 3, 3, true);
begin
wait(1000 - random(400) + random(400))
GameTab(1);
if GetColor(627, 375) and
GetColor(632, 374) = 2070783 then EnoughRunes := true;
if EnoughRunes = false then
begin
AutoPickSpell;
end;
if Style = 'Automatic' then AutoPickSpell;
GameTab(2);
end;
end;
end;
procedure Eat; forward;
procedure SantyFight;
begin
repeat
if (FindColorSpiralTolerance(X, Y, OneColour, MSX1, MSY1, MSX2, MSY2, 10)) or
(FindColorSpiralTolerance(X, Y, TwoColour, MSX1, MSY1, MSX2, MSY2, 10)) or
(FindColorSpiralTolerance(X, Y, ThreeColour, MSX1, MSY1, MSX2, MSY2, 10)) then
MMouse(X, Y, 2, 2);
Wait(250 + Random(100));
until (IsUpTextMulti('ttack', 'Atta', MonsterName));
begin
Mouse(x, y, 2, 2, True);
Flag
repeat
FindNormalRandoms;
Eat;
OutFight;
until (IsFight = false);
Eat;
MonstersKilled := MonstersKilled + 1;
ReportVars[1] := ReportVars[1] + 1;
end;
end;
procedure FindFreeFight;
begin
if (MapFinding) then
Player := DTMFromString('78DA63EC60626030644001FFFEFD63E002D28' +
'C40FC1F0818416A8C19D000231209A4BB806A8C08A8E924C29C76' +
'C2E60000B2DA0ABE');
NPC := DTMFromString('78DA63CC626260106440017FFE30317001694' +
'620FE0F048C394035420C6880118904D220738409A8C924C29C6C' +
'C2E60000956B0888');
if (FindDTM(NPC, A, I, MMX1, MMY1, MMX2, MMY2)) and
not (FindDTM(Player, X, Y, A + 15, I + 15, A - 15, I - 15)) then
begin
Mouse(A, I, 2, 2, True);
Flag;
MinimapClicks := MinimapClicks + 1;
ReportVars[9] := ReportVars[9] + 1;
end else
begin
if (FindDTM(NPC, A, I, MMX1, MMY1, MMX2, MMY2)) and
(FindDTM(Player, X, Y, A + 15, I + 15, A - 15, I - 15)) then
Exit;
end;
end;
procedure CheckForWieldedArrows;
begin
AllArrows := DTMFromString('78DA635CCCC4C07083010558795931FC07D28' +
'C40FC1F08189702D5DC6440038C4824905E48849A254035D708A8' +
'01D9751DBF1A006B590D3B');
begin
GameTab(5);
if FindDTM(AllArrows, x, y, MIX1, MIY1, MIX2, MIY2) then
Equipped := True;
Exit;
end;
Equipped := False;
end;
procedure FindArrowColour;
begin
if ToTrain = 'Range' then
begin
case ArrowType of
'Automatic' : begin
Arrow := DTMFromString('78DA635CCCC4C07083010558F98533F003694' +
'620FE0F048C4B816A6E32A0014624124883D45C27A06611116A16' +
'126117C8CDD7F0AB0100DD8C0DE9');
Arrow1 := DTMFromString('78DA635CCCC4C070830105587959310801694' +
'620FE0F048C4B816A6E32A001462412482F2442CD12A09A6B04D4' +
'80ECBA8E5F0D00DADE0C4E');
Arrow2 := DTMFromString('78DA633CCBC4C070830105989B07318800694' +
'620FE0F048CE731D540646124903E0354739D801A905DD708A839' +
'4DD82E00336C0D1E');
Arrow3 := DTMFromString('78DA63AC626260B8C18002C20202184480342' +
'310FF0702C66AA09AEB0C6880118904D21544A8A904AAB946404D' +
'39A67BD0D50000A5A40BB0');
Arrow4 := DTMFromString('78DA63AC646260B8C980023C9C9D190481342' +
'310FF0702C66AA09A5B0C6880118904D22073AE1150530154739D' +
'809A6AC26A008D010B8B');
Arrow5 := DTMFromString('78DA63F4676260F8CB80029C8D65192481342' +
'310FF0702C6404C3510591809A4416A7E135003B2EB170135BE40' +
'357FF0AB01005E4C0B39');
if (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, True);
Exit;
end;
if not (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) and
(FindDTM(Arrow1, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, True);
Exit;
end;
if not (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow1, x, y, MIX1, MIY1, MIX2, MIY2)) and
(FindDTM(Arrow2, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, True);
Exit;
end;
if not (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow1, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow2, x, y, MIX1, MIY1, MIX2, MIY2)) and
(FindDTM(Arrow3, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, True);
Exit;
end;
if not (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow1, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow2, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow3, x, y, MIX1, MIY1, MIX2, MIY2)) and
(FindDTM(Arrow4, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, True);
Exit;
end;
if not (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow1, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow2, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow3, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow4, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
Mouse(x, y, 2, 2, True);
Exit;
end;
if not (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow1, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow2, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow3, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow4, x, y, MIX1, MIY1, MIX2, MIY2)) and
not (FindDTM(Arrow5, x, y, MIX1, MIY1, MIX2, MIY2)) then
WriteLn('You Don''t Have Any Arrows');
TerminateScript;
end;
'Rune' : begin
Arrow := DTMFromString('78DA635CCCC4C07083010558F98533F003694' +
'620FE0F048C4B816A6E32A0014624124883D45C27A06611116A16' +
'126117C8CDD7F0AB0100DD8C0DE9');
if (FindDTM(Arrow, x, y, MIX1, MIY1, MIX2, MIY2)) then
ArrowColor := GetColor(x, y);
WriteLn(inttostr(ArrowColor));
end;
'Adamant' : begin
Arrow1 := DTMFromString('78DA635CCCC4C070830105587959310801694' +
'620FE0F048C4B816A6E32A001462412482F2442CD12A09A6B04D4' +
'80ECBA8E5F0D00DADE0C4E');
if (FindDTM(Arrow1, x, y, MIX1, MIY1, MIX2, MIY2)) then
ArrowColor := GetColor(x, y);
WriteLn(inttostr(ArrowColor));
end;
'Mithril' : begin
Arrow2 := DTMFromString('78DA633CCBC4C070830105989B07318800694' +
'620FE0F048CE731D540646124903E0354739D801A905DD708A839' +
'4DD82E00336C0D1E');
if (FindDTM(Arrow2, x, y, MIX1, MIY1, MIX2, MIY2)) then
ArrowColor := GetColor(x, y);
WriteLn(inttostr(ArrowColor));
end;
'Steel' : begin
Arrow3 := DTMFromString('78DA63AC626260B8C18002C20202184480342' +
'310FF0702C66AA09AEB0C6880118904D21544A8A904AAB946404D' +
'39A67BD0D50000A5A40BB0');
if (FindDTM(Arrow3, x, y, MIX1, MIY1, MIX2, MIY2)) then
ArrowColor := GetColor(x, y);
WriteLn(inttostr(ArrowColor));
end;
'Iron' : begin
Arrow4 := DTMFromString('78DA63AC646260B8C980023C9C9D190481342' +
'310FF0702C66AA09A5B0C6880118904D22073AE1150530154739D' +
'809A6AC26A008D010B8B');
if (FindDTM(Arrow4, x, y, MIX1, MIY1, MIX2, MIY2)) then
ArrowColor := GetColor(x, y);
WriteLn(inttostr(ArrowColor));
end;
'Bronze' : begin
Arrow5 := DTMFromString('78DA63F4676260F8CB80029C8D65192481342' +
'310FF0702C6404C3510591809A4416A7E135003B2EB170135BE40' +
'357FF0AB01005E4C0B39');
if (FindDTM(Arrow5, x, y, MIX1, MIY1, MIX2, MIY2)) then
ArrowColor := GetColor(x, y);
WriteLn(inttostr(ArrowColor));
end;
end;
Arrowtip := DTMFromString('78DA632C60626078C58002428D3918B880342' +
'310FF0702C63CA09AB70C6880118904D28544A8C905AA794D404D' +
'3E50CD1BDC6A9881180073F00B78');
if FindDTM(Arrowtip, C, S, MIX1, MIY1, MIX2, MIY2) then
ArrowTipColor := GetColor(C, S);
WriteLN(inttostr(ArrowTipColor));
end;
end;
procedure PickupArrows;
begin
if (ArrowPickup) then
begin
if FindColorCircleTolerance(L, N, ArrowTipColor, X, Y, 80, 5) then
Mouse(L, N, 2, 2, False);
ClickOption('rrow', 1);
ArrowsPicked := ArrowsPicked + 1;
ReportVars[5] := ReportVars[5] + 1;
Exit;
end else
ArrowTries := 0;
repeat
Wait(1000);
if not (FindColorCircleTolerance(L, N, ArrowTipColor, X, Y, 80, 5)) then
ArrowTries := ArrowTries + 1;
until (ArrowTries = 5);
end;
procedure EquipArrows;
var
x, y : Integer;
begin
if ((ToTrain = 'Range') and (Equipped = False)) then
begin
Arrowtip := DTMFromString('78DA632C60626078C58002428D3918B880342' +
'310FF0702C63CA09AB70C6880118904D28544A8C905AA794D404D' +
'3E50CD1BDC6A9881180073F00B78');
if FindDTM(Arrowtip, x, y, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 2, 2, True);
end else
Exit;
end;
procedure PickBones;
begin
if (BuryBones) then
begin
if FindColorCircleTolerance(F, G, 11185078, x, y, 75, 10) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, False);
ClickOption('ones', 1);
BonesPicked := BonesPicked + 1;
Exit;
end else
begin
BoneTries := 0;
repeat
FindNormalRandoms;
Wait(1000);
if (not (FindColorCircleTolerance(F, G, 11185078, x, y, 75, 10))) then
BoneTries := BoneTries + 1;
until (BoneTries = 5);
Exit;
end;
end;
end;
procedure BoneBury;
begin
if (BuryBones) then
begin
Bone := DTMFromString('78DA637467626078CA8002AE9C3B07A619A17' +
'C464FA09A670C688011554D1050CD0B026A5C806A5E1350E30F54' +
'F380801A37A09ADB04D4D802D53C26A0C609A8E63E01352140354' +
'FF0AB01004A0B0D2A');
Gametab(4);
FindNormalRandoms;
Wait(2000);
if FindDTM(Bone, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 2, 2, True);
BonesBuried := BonesBuried + 1;
ReportVars[7] := ReportVars[7] + 1;
end else
Exit;
end;
end;
procedure Eat;
var
Anchovy, Bass, Cod, Herring, Lobster, Mackerel, Pike, Salmon,
Sardine, Shark, Shrimp, Swordfish, Trout, Tuna : Integer;
begin
if (GetHP <= HPEat) then
GameTab(4);
begin
case FoodName of
'Anchovy' : begin
Anchovy := DTMFromString('78DA637463626058C5C8800C5CBDD219FE036' +
'990E87F2060F405AAD982AA06220B2381741850CD4A026A9C8930' +
'C70FA8663E01355640352B08A8B103AAD940408D0350CD42FC6A0' +
'0D4D50DA6');
if (FindDTM(Anchovy, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
begin
if not (FindDTM(Anchovy, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
RunAways := RunAways + 1;
ReportVars[11] := ReportVars[11] + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
RunAways := RunAways + 1;
ReportVars[11] := ReportVars[11] + 1;
NextPlayer(False);
FreeDTM(Anchovy);
end;
end;
'Bass' : begin
Bass := DTMFromString('78DA63F46062600860644006B77D6418FE036' +
'990E87F2060F403AA09425503918591403A1CA8C69F801A5B22D4' +
'5803D5841150E308541341408D3B508D3301352140356E04D4380' +
'3D578E257030006CD0BB8');
if (FindDTM(Bass, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Bass, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
RunAways := RunAways + 1;
ReportVars[11] := ReportVars[11] + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
RunAways := RunAways + 1;
ReportVars[11] := ReportVars[11] + 1;
NextPlayer(False);
FreeDTM(Bass);
Exit;
end;
'Cod' : begin
Cod := DTMFromString('78DA639CCBC4C0A0C9C8800CDCFDAA19FE036' +
'990E87F20605C0A54A38EAA06220B2381F47CA01A43026AA603D5' +
'181350D30F54634040CD0CA01A35026A9600D5C81350B30AA8469' +
'1809A854035DAF8D50000FA460D44');
if (FindDTM(Cod, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Cod, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
RunAways := RunAways + 1;
ReportVars[11] := ReportVars[11] + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Cod);
Exit;
end;
'Herring' : begin
Herring := DTMFromString('78DA632C646260F06764400613CA8A18FE036' +
'990E87F2060AC01AAF145550391859140BA04A82698809A1CA09A' +
'30026A52816A8208A8C900AAF121A0261FA8C683809A5222D480F' +
'CEE48404D2D508D3B7E35003ACE0E21');
if (FindDTM(Herring, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Herring, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
RunAways := RunAways + 1;
ReportVars[11] := ReportVars[11] + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
FreeDTM(Herring);
NextPlayer(False);
Exit;
end;
'Lobster' : begin
Lobster := DTMFromString('78DA63F4656260F061644006C9C61C0CFF813' +
'448F43F103082D444A2AA81C8C248201D0454134C404D08508D13' +
'0135FE4035F604D43800D5781050630D54E34F408D33504D007E3' +
'500B9F80A76');
if (FindDTM(Lobster, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Lobster, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Lobster);
Exit;
end;
'Mackerel' : begin
Mackerel := DTMFromString('78DA633CCAC4C0A0C5C8800CE6F45832FC07D' +
'220D1FF40C07800A8C608550D44164602E98B40359A04D4EC02AA' +
'D126A06627508D1E0135BB816A0C09A8390E54A342849B09A901F' +
'95D0DBF1A004E800EEB');
if (FindDTM(Mackerel, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Mackerel, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Mackerel);
Exit;
end;
'Pike' : begin
Pike := DTMFromString('78DA633CCEC4C0B08691011934AD2866F80FA' +
'441A2FF8180F12250CD32543510591809A40F00D56C21A00664D7' +
'6622CC594940CD2EA09AF504D480DC3C97809A9D40359B08A8D94' +
'384BF4E00D52CC4AF0600B53F1530');
if (FindDTM(Pike, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Pike, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Pike);
Exit;
end;
'Salmon' : begin
Salmon := DTMFromString('78DA639CC3C4C0A0CDC8800C6E794931FC07D' +
'220D1FF40C0B818A84613550D44164602E91540352A04D4CC03AA' +
'3122A0660A508D310135FD40358644B8479E809A594035CA04D44' +
'C06AAD1C2AF0600367B0D66');
if (FindDTM(Salmon, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Salmon, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Salmon);
Exit;
end;
'Sardine' : begin
Sardine := DTMFromString('78DA633CCAC4C0A0C5C8800C96B43731FC07D' +
'220D1FF40C07818A8460F550D44164602E9B34035CA04D45C00AA' +
'5125A0663F508D36013587806AD409A8390E54A342845DBAF8D50' +
'00087630E47');
if (FindDTM(Sardine, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Sardine, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Sardine);
Exit;
end;
'Shark' : begin
Shark := DTMFromString('78DA632C6562605062644006F39B7319FE036' +
'990E87F2060CC01AA31415503918591403A15A84687809A0CA01A' +
'65026AF2816AA408A8A905AA5124A0A60AA8C698809A46A01A530' +
'26AEA806A54F1AB0100658C0C40');
if (FindDTM(Shark, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Shark, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Shark);
Exit;
end;
'Shrimp' : begin
Shrimp := DTMFromString('78DA63F46062603062644006B3330519FE036' +
'990E87F20600C07AA5147550391859140DA0DA8C694801A474CBB' +
'30D45801D5A81150E34A847B7C816AE4F0AB010022610957');
if (FindDTM(Shrimp, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Shrimp, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Shrimp);
Exit;
end;
'Swordfish' : begin
Swordfish := DTMFromString('78DA639CCBC4C0B094910119CC2B5CC6F01F4' +
'88344FF0301E314A09AF5A86A20B23012482F07AA594B40CD3CA0' +
'9AB904D42C03AA594440CD74A09AC504D480DCBC8A809A3540352' +
'BF0AB01002DE21108');
if (FindDTM(Swordfish, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Swordfish, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Swordfish);
Exit;
end;
'Trout' : begin
Trout := DTMFromString('78DA632C626260D06264400635E9490CFF813' +
'448F43F10306603D518A3AA81C8C248205D0A546340404D2D508D' +
'2A0135C54035F204D4A402D5181250530754234D404D16508D267' +
'E35007C830B45');
if (FindDTM(Trout, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Trout, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Trout);
Exit;
end;
'Tuna' : begin
Tuna := DTMFromString('78DA632C66626058CDC8800C66D45531FC07D' +
'220D1FF40C0980554B315550D44164602E974A09A3504D4D413A1' +
'A604A8660B0135154035EB09A8A903AA5944404D3E50CD12FC6A0' +
'04E3D0FB8');
if (FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
FindNormalRandoms;
Mouse(x, y, 2, 2, True);
ReportVars[3] := ReportVars[3] + 1;
FoodEaten := FoodEaten + 1;
end else
if not (FindDTM(Tuna, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
Exit;
end else
if (not (EatFood) and (GetHP <= HPRun)) then
RunAwayDirection(Direction);
ReportVars[11] := ReportVars[11] + 1;
RunAways := RunAways + 1;
NextPlayer(False);
FreeDTM(Tuna);
Exit;
end;
end;
end;
end;
procedure Retaliate(AutoRet : Boolean);
var
x, y : integer;
begin
GameTab(1);
begin
if not FindColor(x, y, 1777020, 624, 385, 719, 396) then
begin
Mouse(666, 381, 8, 8, True);
end;
end;
end;
procedure ProgressReport;
begin
ClearDebug;
WriteLn('*************************************************************************');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn(' ');
WriteLn(' Santy Fighter Report: ');
WriteLn(' ');
WriteLn('Worked For: '+IntToStr(TimeFromMark(Time)/3600));
WriteLn(' ');
WriteLn('Monsters Killed: '+IntToStr(MonstersKilled));
WriteLn(' ');
WriteLn('Food Eaten: '+IntToStr(FoodEaten));
WriteLn(' ');
WriteLn('Bundles Of Arrows Picked: '+IntToStr(ArrowsPicked));
WriteLn(' ');
WriteLn('Bones Picked: '+IntToStr(BonesPicked));
WriteLn(' ');
WriteLn('Bones Buried: '+IntToStr(BonesBuried));
WriteLn(' ');
WriteLn('Minimap Clicks: '+IntToStr(MinimapClicks));
WriteLn(' ');
WriteLn('Runaways: '+IntToStr(RunAways));
WriteLn(' ');
WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
WriteLn('*************************************************************************');
end;
begin
try
MarkTime(Time);
getself.visible := false;
LoadUs;
cUser := 0;
if (GetArrayLength(Players) = 0) then
AddUser;
SafeBeginScriptForm;
SafeBeginScriptFormModal;
if (RunOtherForm) then
OpenForm;
getself.visible := True
SaveUs;
if (Started = True) then
begin
BenMouse := True;
MouseSpeed := 5;
ActivateClient;
SetupSrl;
FreeForm(frmDesign);
FreeForm(SantyForm);
repeat
if (not(LoggedIn)) then LoginPlayer;
FindNormalRandoms;
FindArrowColour;
CheckForWieldedArrows;
EquipArrows;
Retaliate(True);
SetCombat(ToTrain, Style, TrainDef);
AvoidBan;
SantyFight;
PickupArrows;
EquipArrows;
PickBones;
BoneBury;
AvoidBan;
FindNormalRandoms;
ProgressReport;
SRLRandomsReport;
until (AllNoActive);
end;
except
GetSelf.Visible := True;
end;
end.