lol, thanks a lot xinez, keep em coming. Thats my best proggy yet. I really appreciate that.
Printable View
lol, thanks a lot xinez, keep em coming. Thats my best proggy yet. I really appreciate that.
alched:131 times
gained:8515 exp
responded: 0 times
time running: 20 mins and 52 seconds
found scaperune random
found freaky forester logged out
could not cast high alch
next player
it works well just is a bit slow and doesnt do any randoms?
it does randoms... freaky forester is unsolvableQuote:
Originally Posted by tb71290bt
Hello...i would like to try your alcher part...i've tried ambles alcher, but ive lot about 1m to it for slow responses to questions...now i need to know what to have in versions. First what type of scar, second what type of srl, third how well you think i can trust this with (like how many alchs), can it run over night and be safe as in having good anti-random i know srl has something but still scripts need some too. Please answer these questions honestly and i will get a proggy back to u A.S.A.P
After the proggy yesterday, i was pleased with the script, so I had a good look over the script, I changed 3 things in the script, and left it to run overnight. 2 of the 3 things i changed were minor, the other is noted under the report, so i would like to hope if this is your script then you could fix them all...
And I got this proggy report:
SCAR Code:<----------Doofy Progress Report---------->
Current Player: ***********
Teleported 14369 times.
Gained 689712 XP.
Time Running:10 Hours, 25 Minutes and 42 Seconds
POST YOUR PROGGIES FOR GODS SAKE!!!
<----------------------------------------->
I also got rid of the autoresponder and added some of my own antiban, the autoresponder i h8ed.... that is why it doesnt show it in the proggy report!
Hope you like it!
Perhaps save the scar edits...zip the scar scrippt that u made the edits on upload it??? so people like me dont lose 1m anymore..and what scar and srl types??Quote:
Originally Posted by xinez
@stripes: The latest SCAR and SRLQuote:
Originally Posted by stripes
@xines: Dude, thanks so much for the proggies. Keep posting more!!!
could this script work for 5 hours + without changing stuff like xinez did ?
And can you make new script with those changes^^?
ill check this script anytime soon after ive crafted some nats...
btw if it check inventory does it always check it exactly after 10 alches or is there randomness?
thanks :P
you are the first one to ask that last question, and no, i put random ness in there. not much, but some. And ive never had someone leave it on for too long, cuz of the inv checking problem before, so it probably could run for 5 + hours if xines did for 10Quote:
Originally Posted by Koukero
my proggy disappeared from this post somehow
it worked for 59 minutes 38 seconds :)
alched a bit under 1k
logged out when my screen went black bcause i wasnt on computer ... (im not sure bout that one)
and after it alchs item, most of the time it goes straight and clicks mage book again, would be more humanly if itd just wait for spells to appear automatically ^^
dont know why it logged out when it went black, it must have been for some reason cuz it still works when the monitor is not on... and i might use that last suggestion in a some future update. Not sure yet.Quote:
Originally Posted by Koukero
Doofy, can I form this script up?
Its was going nice but then i came back and saw my mage lvl was 4 :D
There was written.. Cannot teleport from lost and found department :f:
Hell yeah, would you send it to me so I can post it here?? I give you full cred for forms. I was thinking about doing that soon, but im not sure how to use the PlayerForm. But yeah, make it sick. And try to keep all the variables and stuff the same. I'm sure you'll do great =]Quote:
Originally Posted by SantaClause
And @ siider: I have know idea wat you're talking about, so i can't help you there.
hey looks nice Doofy i can post u a nice long 15hr or so proggy when and if Santaclause does the forms (much easyer using forms im still quite new ;))
Just found a virus in SCAR...did the script do it or perhaps scar...watch out everyone either way VIRUS FOUND in scar
thats a load of bs, someone check this out.Quote:
Originally Posted by stripes
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:
SCAR Code: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.
<----------Doofy Progress Report---------->
Current Player:**** *****
Teleported 1296 times.
Gained 71928 XP.
**** ***** responded 0 times.
Time Running:1 Hours, 2 Minutes and 50 Seconds
POST YOUR PROGGIES FOR GODS SAKE!!!
<----------------------------------------->
Successfully executed
Santaclause : I set everything up and got this error
[Runtime Error] : Exception: Access violation at address 00406BEF in module 'scar.exe'. Write of address FFFFFFF9 in line 1375 in script C:\SantaclauseFighterWithForms.scar
Which SCAR you using?
Just download Santy Fighter from the thread in Fighting section...
If not, then close SCAR and open it again.
lol..... lets keep that stuff in his thread alright?? lol
I was about to say :p
Finishing off forms now..
*awaits the forms :D
Haha. They're done. Me and Doofy are discussing it...
He should add SRL Stats...
yeah, i think they need some major tweaking. And santy, could you make the script stats??? idk how
I edited this script quite a bit, its gotten me 60-81 magic so far. Standing on duel arena ledge, with lots of antiban :P
Thought you'd enjoy this proggie.
Code:<----------Doofy Progress Report---------->
Current Player:******
Alched 987 times.
Gained 64155 XP.
You have said so far: haha, owned, really good fight, noobs, noobs, lol nice, nice, impressive, haha, wow, impressive, lol ouch, wow, really good fight, impressive, noobs, noobs, owned, owned.
madeupnamehere responded 0 times.
Time Running:1 Hours, 43 Minutes and 9 Seconds
<----------------------------------------->
Mine don't work either, I thought you would know.
not a bad proggie Spork-eh, but I hate the "you said so far" thing and im not sure wat else you edited. But w/e, maybe i'll put more antiban into the next version
Just added a bunch of random generic duel arena phrases to the script. Sorry if you dont like it. =P
Awsome, really fast put i dont got acc to use on, no need for main acc... lol
keep going
also fix this by editing in from line 690 to 696 or somethingQuote:
<----------Doofy Progress Report---------->
Current Player:********
Alched 23 times.
Gained 1495 XP.
******* responded 0 times.
Time Running:1 Minutes and 40 Seconds
POST YOUR PROGGIES FOR GODS SAKE!!!
<----------------------------------------->
really hate when it click on gametab 7 all the time
Quote:
end;
wait(600 + random(250));
if not gametab(7) then
Gametab(7);
Wait(400 + random(500));
if (FindColor(x,y,3195184,ax,ay,bx,by)){green liquid color} or (FindColor(x,y,849658,ax,ay,bx,by)){coins color} then
begin
Great script!!!!Works very well!
I alched 500 yew shorts with no prob.
Great job,no bugs,good report!
Thanks,
Larry
thanks for the comments guys, make sure to download the new version im releasing right now, now forms but insanely fixed alching, no gamteabs all the time, and better antirandoms. The only thing is, they dont seem to work =[. But im preety sure thats SRL's problem lol.
<----------Doofy Progress Report---------->
Current Player:fdhgdfjhgd
Teleported 60 times.
Gained 3330 XP.
billybob24bo responded 0 times.
Time Running:5 Minutes and 54 Seconds
POST YOUR PROGGIES FOR GODS SAKE!!!
<----------------------------------------->
<----------Doofy Progress Report---------->
Current Player: jhfrskghsg
Teleported 406 times.
Gained 22533 XP.
billybob24bo responded 0 times.
Time Running:38 Minutes and 35 Seconds
POST YOUR PROGGIES FOR GODS SAKE!!!
<----------------------------------------->
very nice but is there a way to make it not stop every 10 law runes i go through??? like it will stop after 10 law runes then click on random things like invent and prayer then click back to magic and start up
Nice script
Regards,
Matty24
ill test it on updated versions soon even tho this post is old :o\
Just been testing your script, its very good, pretty fast.
Just dies on the teleport random, and the training camp.
hence the short running times.
Good enough though, nice script.
<----------Doofy Progress Report---------->
Current Player:*******
Teleported 123 times.
Gained 6826.5 XP.
******* responded 0 times.
Time Running:11 Minutes and 42 Seconds
<----------Doofy Progress Report---------->
Current Player:********
Teleported 79 times.
******* responded 0 times.
Time Running:10 Minutes and 42 Seconds
thanks for the comments and proggies guys, i might update antiban later, im not sure yet. but randoms neer seem to be working for me, not just on this script. I always miss frog randoms now. anyone else having this problem?
EDIT: I'm uploading v.51 right now, its barely changed, just antiban is called more.
ooh bad luck you got last version ready right before interface update,i guess its not working anymore
lol yeah.... dont use this till everything is fixed and i say so... if i get my forms to work, the next version might have em... sit tight
doofy can u change progress report? i mean theres a line that says
*username* responded 0 times
many people forgot to put out their real names from there.. its risky.. thanks