Dizzy
01-16-2007, 10:40 PM
Alright, I've already posted most of the info on my site, so if you want to see the official download page for the script, then click here (http://geocities.com/dizzycoders/scar/scripts/FCAFKSRL.html).
This is a remake of the original version - this time, using SRL.
Before the script used the SSI2 include, which is now outdated BIG TIME. So I finnaly decided to upgrade! After testing the script with SRL, I was amazed. Everything seemed to run alot smoother (yes, that includes the mouse :P).
So I thank the people for working hard on creating the ultimate include, SRL.
Here's some info taken off of the site about the script:
Features: Logs in if you are logged out when you start the script. Special waitin procedures made for people who don't have a fast internet connection. Less laggy bitmap and color finding procedures. More accurate and faster AFK waiting procedure (Our main target of updating at the moment), Re-enters caves when you lose, A little slow but good login procedure (Slow on purpose for Dial-up users), will logout after a specified amount of rounds, IF wanted to: the script will log back in after sleeping for about 15-30 minutes. Etc..
Now, here's some info taken off of the script (on how to setup the script):
{.Setting up the script/recomended game settings:
# We recomend leaving your private chat ON, or on FRIENDS.
# The Cave Color rarely changes, so the pre-set color STILL WORKS.
# We still recomend that you update the Cave Color atleast once a day.
# The script can work on Normal brightness, but it's recomended that you
# run the script on Very-Bright.
# Setting up DeathTotal: In the setup form, you will see DeathTotal.
# DeathTotal is how much times you want the script to enter the caves
# (and most likely lose though). Once DeathTotal hits its Mark (whatever
# number you set it to), the script will log your character off and take
# a break. If you checked 'Log back in', then the script will log your
# character back on, then reset the DeathTotal to the mark you set.
# Therefor creating a loop.
# The time the script takes a break for is RANDOM. From 15-30 minutes.
# In the later versions, we will be adding Sleeper marks which will make
# the script act like if you went to sleep for a while (as if you were
# taking a cat nap, or actually sleeping for 2 hours).
# .................................................. ..................../
If you need any help setting up the script or find any bugs/errors,
then please contact us via email:
dizzycoders@yahoo.com
# Thank you.
/Setup Help}
Copy 'n paste the script:
{.Script Info:
# ScriptName = Fight Caves AFK Trainer SRL Version
# Author = Dizzy's Coding Crew
# Description = Will enter Fight Caves and sit there just 'AFK' training. Then re-enters when loses.
# Version = Beta 1.6
# Date = 1/16/07
# Comments = Start in front of Fight Caves. Camera at its lowest and pointing SOUTH!
# Cont. Comm = Or make sure you're at Cave entrance and start Logged Off.
# Comments2 = Just target the RS window and run the script.
# Comments3 = When you run the script, a Setup form will appear...
# Comments4 = ...FILL IT OUT!
# Notice = New and more Accurate Waiting Procedure Coming Soon!!
# ScriptInfo = Get more scripts at: http://geocities.com/dizzycoders/
/Script Info}
{.Setting up the script/recomended game settings:
# We recomend leaving your private chat ON, or on FRIENDS.
# The Cave Color rarely changes, so the pre-set color STILL WORKS.
# We still recomend that you update the Cave Color atleast once a day.
# The script can work on Normal brightness, but it's recomended that you
# run the script on Very-Bright.
# Setting up DeathTotal: In the setup form, you will see DeathTotal.
# DeathTotal is hor much times you want the script to enter the caves
# (and most likely lose though). Once DeathTotal hits its Mark (whatever
# number you set it to), the script will log your character off and take
# a break. If you checked 'Log back in', then the script will log your
# character back on, then reset the DeathTotal to the mark you set.
# Therefor creating a loop.
# The time the script takes a break for is RANDOM. From 15-30 minutes.
# In the later versions, we will be adding Sleeper marks which will make
# the script act like if you went to sleep for a while (as if you were
# taking a cat nap, or actually sleeping for 2 hours).
# .................................................. ..................../
If you need any help setting up the script or find any bugs/errors,
then please contact us via email:
dizzycoders@yahoo.com
# Thank you.
/Setup Help}
var
sleepTime, stage: Integer;
Mej, Enter, yourLife, MGIcon, window: Integer;
roundDone, InCave, LogBackIn: Boolean;
MyUser, MyPass: string;
DeathsXX, continueTxt, ClickToPlay, LoginScreen, CaveColor: Integer;
frmDesign: TForm;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
UsernameC: TEdit;
PasswordC: TEdit;
Button1: TButton;
CheckBox1: TCheckBox;
DeathTotal: TEdit;
LoginBtn: TCheckBox;
CaveCol: TEdit;
{.include SRL\SRL.SCAR}
const
MyScarName = 'Dizzy'#39's Coding Crew
'; //what to hide scar as
procedure Hello;
begin
Writeln('+++Fight Caves AFK Attack Trainer SRL Version BETA+++');
Writeln('+++Version : 1.3 ---------------------------------+++');
Writeln('+++Created by Dizzy'#39's Coding Crew ----------------+++');
end;
procedure KillMe;
begin
TerminateScript;
end;
procedure PointCamSouth;
begin
SendArrowSilentWait(3, 1700 + random(100));
Wait(100 + random(50));
SendArrowSilentWait(2, 1500 + random(400));
Wait(100 + random(50));
end;
procedure Randoms;
begin
FindNormalRandoms;
Wait(10 + random(6));
UseBoxSolver := true;
Wait(10 + random(6));
UseCerterSolver := true;
Wait(10 + random(6));
UseSandwichSolver := true;
Wait(10 + random(6));
FindMaze;
Wait(10 + random(6));
Solvepinball;
Wait(10 + random(6));
FindTalk;
end;
procedure LoadCaveBmp;
begin
Mej := BitmapFromString(104, 8, 'z78DACD97C10EC3200C437F699B34' +
'A93B5269FFFF4BD3DA1EA882CD0B45D3768826089004E3B8E BAB3' +
'C97FB5ACABA94C3EE23D1CEF2D9EC72FBFEE2AAD3F8EF6D1D 39CE' +
'F488B9CEBDB66B79BF1E87CFF65FD9CE3E62676995BF5A4B6 226F' +
'BC4B538235F817D365A823AB5D6E36DAE679C253BCB2AD5B5 5598' +
'B4B74CE23C5538DCEF1584743023CEF23EE81504A44514C91 1CC7' +
'80AC9BEE6733D1B18C36FA4F32A3DDE7CCD551788E384553C 1A93' +
'78232369BC85D904DE14B361E66C5438DCA0E452CBC09DCE6 E399' +
'9F0BCCAB4D12B715F96239E21D5B93E7E8E198061C5C31D6D 80BB' +
'2AC158026F43AC7BDD73CCCA1DBC360B2F086561D55A36978 67F9' +
'2BB146FA7F1C66F8A28F0CB78534C1EF3559C90B8D321954E D800' +
'F1928A1CA8B2C6DB1FC21B673CA431ACF6EBE87FFBA540349 5EC9' +
'816214AA32ABCA91DC8599D6F3A813AAE9FA5DEB6BD38A1D2 87F8' +
'99683C5E5B949D52BCFC3F51DA9803FFC262757DC94E3A37F B453' +
'0214E127935FB01634C8508');
Enter := BitmapFromString(33, 8, 'z78DA7373430003BCC0D4C5D4C4C49' +
'C7812C9603752F552621779AEA5BFC923C117F8D3801B5E40 0B93' +
'497503AE7C81DF04881A5CF61263322E35C49889CB0DF8E39 D181' +
'BF1BB90F85447BC38E5BE204F9CF814424CDC919A0769ED0B 624A' +
'785C660200B4A26E52');
yourLife := BitmapFromString(62, 10, 'z78DADD97410AC4300845AF940E0C' +
'B44B85B9FF950A9D4D8AF1F71BCDA659483192EAD36AAA22B A8BF' +
'6F290EFBEA9D5BF42B66B4535B56FBC11FE3F5BF93EE630AE 1BA5' +
'34138F79EB963D1FFBD9CCC2368CDEDBC5F651E6F87C8609E 38F5' +
'BE7902D66B24EAF2ABFE33388EBD22FEF2D4E85472B33C07C 4E5F' +
'CB9CC8082533FDDCF45ECB16F7A2412EAA98D31DAC98B9F7E CEC3' +
'284797FA8CE0F65419DC3CC32BD1167307FA3083027E6977A B73E' +
'624A7A7361707E749A30F644253CD0A66F17CC5C8E7AE5C5C 2C7E' +
'8F6671CD7D49715F584E25C75BB9B3B3FDD55A236299EABB3 16FC' +
'1628AFF87F9CCEE604CD0C5561');
MGIcon := BitmapFromString(9, 8, 'z78DA7590510EC0200843AF84388C7E' +
'AE6EDEFF48CBC4652CB09F8690D76A016340302A95BD93D4E D7C3' +
'49FB9D80D988412949FBAF6CBABFCEB525EE7C66D34F1F9D6 6BF9' +
'E827B1A2704F87579FA36F2D46BB3832EA35679BEF7AE1E78 651F' +
'EEDFDB8A6DAFB5897EEAD5E5D04617A');
continueTxt := BitmapFromString(145, 11, 'z78DAE59ADD6EC33008855F699B5' +
'4ADB94C2EFAFE8FB469EB452202FE8E31A9A7F502556E0CE6 E760' +
'20DD96F5767F7FFBFE3C1EBF74FB59D976EB76C5AE3FE9BA6 EF7F' +
'5F03DA40D6E5DF484A795EE71F85896CFDB93C6B2F89379BA 97B2' +
'971BD33ECE7D67BBC60EEA79BCB35D7E5A12E132FA00BEF6D 13E1' +
'6652E4F15655E04CE1351F199ABF1AEFE5AA6D1495E251C2E CC0F' +
'2994995B89234B3D43855E723E7C6DDE8EF3C36BEF880A2B6 10E2' +
'7BE26BE9BED168EF5126FAE4951466C3E814706DB4AAD2DFB EAD5' +
'41E86BE8CEA54F5955BAFADADE2AECBCE2EE2F7E26D39D1D7 83A1' +
'626D2EDAFFCF90CEA3D5D8825C7D663AE2563E95C17C0B3B1 17EC' +
'2231E0AE632B5564547BBB1D7017E6A21384F2BC2D56A19E0 D6D0' +
'6F33C4262388E99BEBB8378D9DD45FA4DA045434AEC85D8E6 963F' +
'BEC5D02E62134F17AEE3D0AA83CF43467143F34C50AB37220 7D4F' +
'99E4F633F56D8BC816B8232826B506BA9D23B23964BEFCB3C 5D48' +
'4FF9DA4E368A5126BC23506332B4C0DE4AA48F6E5462467AC 30E5' +
'82F39D2BC98C17D4A39CAD2A844B8C8A04C441F8FBA6A94C9 7BC9' +
'043E5141B9E8065EE01DDCB02A7D509C0BD801B5740A4D991 B99D' +
'4784351D6D7B5A9FDB5F7764CEEC79D5E7554652B7455A105 B8B5' +
'85B941629AC7CF96C1179A0B25A4A3884DEF92A524A619151 3BC3' +
'FFC7E671EAABE13FF0F34F38F8ECCFF648AE91768C15715') ;
LoginScreen := BitmapFromString(149, 12, 'z78DACD9A4B6EC3300C44AF94567' +
'6D02ED34FEE7FA416951714A8193F5971502F8842656891E2 F027' +
'2F9FCBF7FABE047AFF7D2E974AB7F5B7E5B696481B9EBA9EE 434B' +
'4F2BC2C65F9DA289193DE8B687AFBFABA2EEBF794E4F82B22 216A' +
'9A68F92AF7E5BDDCCAC75224FDE3C916CBF2376951E6B5BC9 57BF' +
'D3B5A3853BFCFB36967E791562D5E4B291F95E6FD474D9BBF 398D' +
'7B08364767A4A461FEE851D54BA376F5C9272E7906BDB123C 7E3D' +
'7238250C5CF917548D3782E8DFF9073141ED2F1E1F4AB6CE1 FAFC' +
'070CEEE02EA02F6B3160438F716BBD6398E2FC4D5C4DB94F2 16B0' +
'67D51532987A3C9D226EBCD600A643414D5FF3C2A6B8DBC25 FA64' +
'E257FEDC7997B07C27DB3E3FDF254D55F4A8FF6D5608B208C A923' +
'D9BFD8F66435EE12864D9EA94A32F5BA0232757590253910E E7BE' +
'933128B12322F9A84FEEA04FE4598FBEA7E28EEB9B2C862A4 C823' +
'BC59F7393D2E84159D2A32F77671E7DAACBC8DEE27D40C9C9 E893' +
'7D8DA82D7D37D4F4A136EFABFAADD3858978EE2B28C4693DC D9F6' +
'6933B12BF3A0B724691D3C70454430E56ECC403472DECF555 F8F5' +
'F273AE21E7A5D047BA0C92FB949CF8A82CAC22C631EDFC6F5 50FE' +
'563A0D7CEF3700C7A6FC9B81B3D11255F9E38D7CB662B6F01 E439' +
'D6C73AF271073DAA29E9E966D0A73495DD87D879EE4F7D16E 6EB5' +
'3DA59AD554F412A4F6E19558512F4A139D8E0BAB2A1D7DDF7 A108' +
'83C4B6D83EDC27677C9BD81FF927D685F8129FC63C097DA05 E55D' +
'984D4DB685A62FB383E551E3DFD47ADFB9A90DBF0188A497C 9371' +
'631A7D3CFA111CE53DF38A71C786047D60FA7A36FA7C55D3A 176C' +
'F33E8EBCCA9C27488F80CB94B3A0F95AAF6EEE4385B017A8F 22F5' +
'FFA84F8EC601D53D29CA71A7E636BE13F7917C67BE012621C D3EA' +
'7D1C7B593B7E476CFBC67DF39411F9DC08DED4CBC25F9DDDB 904C' +
'9FFC5DC3FC5CCBA30FED0764C03C3FCC93FC6371FE629F980 1334' +
'622456FF79C56669590F93B1E0E76252D236E2BA4658287EC E8A5' +
'6E52C45BC8FA80E5B1FC5CFBED7848420AE12176E39C640E4 6F6A' +
'3F837ACDDD6CFEB75A3EA1E0DDF7FC91B28D5FFAADBBD4337 DDD2' +
'DBC9B728B987225FCD4DDF82ED7C33266EFAA6DE1EB578A84 65CD' +
'3A92FF14EFE060C55AAD3BBFA017F8B3E9E');
ClickToPlay := BitmapFromString(124, 20, 'z78DAB59B49921B390C45AF94A5B' +
'2AAED657BD0FD8FD4D5622E3EE2F14190656BC1C8A0982008 7E62' +
'22F27A3D3E8EB7EBBDFDF2F5B81CC77ABEFEFB763DBEAEE78 FEBD' +
'B67F76ACFFE7BFBF1EBF2FFABF1EE3FB7F7CBE5F2F1FDEDC7 F12D' +
'9F4F0AEB99EDFD5FBE4BAECE199387E40D9C9715A1673DB32 79F8' +
'DDB73F6E8A104564B199636C6149AD1FFFEFD78FF1C1AEBCD FE93' +
'4F50E6AACFD5416E49E19C0B7B9AAB483AEB39DFB276226DD BAF9' +
'C91F3F22DA3B9F0633D05A52143A291EDA273B689F9A41973 9577' +
'53AA98915CE58C05ABD1433C24CD734C60ECC42DF85FD23EF F0D9' +
'93C38E336637098685F2389F3946AE9C78C3CF5295B4A728D EFD1' +
'9E785B230BCE4332866743A3B589E77C9EB4B92FAB2DA84E6 C004' +
'BB9171BED17BB99ADE17C3332FE25B779A2A9154F0C24F2DB 35DA' +
'8E7315D4ED69D754FFA3A5E5E22CD49339CBEA2FA78C360ED 2DED' +
'084EECA67EA6DB38C8BB7625FD24E0D34FCDF6B373E49F070 C3AF' +
'E8877B9BFF52F26BED37F971DF3926B5D91A99FFE6592B945 3376' +
'28D9C2BF7BAF4C75BB7C16F3292BB30A74C0B3E79B7A04BDE E2EE' +
'D32F4ACCD85C1C4F9924C269357AC918926DCC663743B3E5B FC7F' +
'D67F8E4C8D46F0B519CF1881FCF02674CFDD08F4CCAA6B76D 465B' +
'BBF5DBCF469AC69853CE1D4C7DD2CF7BEE0BF06972361C9A0 EECE' +
'998F4483FCFC884BEE139E953E66B1693D5926AC1E700E7AB FDF6' +
'E3CBEDFDE7063F4221F15F7A5A6D59F6141E695A04DB29431 DF57' +
'FF24FBF65BE52E3641381220627DA752FDA73CA539FF419DD 28CF' +
'A0936FD9DA278835DC3E8B73B368C94FCADCAC39773FE3B8B 99EB' +
'46C89F9363C7D49C1323073341AFF1687BE6E29467168C4EF B677' +
'0FFE6D79CEBD2EF1B8F06C7A7282F35E934FF0DC7B8005C90 3593' +
'11FD5EBA2F45E9ED8E58C25C3D6F47A89717152E871DECB87 F837' +
'DF7E62737B5F62E3DB8CF38ABD8E7A16E7F92E735CAFAC71A ECF2' +
'7BBD3C70EB45CBD0D2D2B6D3D79CB0C4F2C5DA110514046B8 1667' +
'95F8171498BB9B78D16601E9FD1ACE7B3FB0F7DC7276AE910 8EC7' +
'D60D3C0BDB63FE9C33E8EBCC7F69411E7BDE76CBB53323C82 2866' +
'0255BB32FB24349919567D2E14E86FA42FDA6BBF4D5E5A903 FB7B' +
'00FFC73DC9E3CB00EC89C8C3C377832F4EB7A1FF2597F2063 7666' +
'142767B3D787CC1DF59ECFC46FE971DEF3CF3C612F9FCD7DA 8CC6' +
'EEBCA779961E82DA6E5A57923338F43ED5C6C6E4E07367DEE 6F9C' +
'DE5A44F445BBE236F66924B7A780776DFD99E2BA7A5C4D328 4935' +
'5CCF539B1C1A8D6E2F109FF7DE4627134B3B2EA2961759BFC 1B34' +
'E1B3F645718EFCD284422FC3CD7D34EE6127B15246CAB68F1 3AF6' +
'382F3FE16BEB7DAAFE07CCEDB04999403B385CFFE780F38C9 A5F4' +
'11417FB7D29F3BD57BED6D1775F5FC04D1A2F5F744BCB1EDF 5187' +
'326764F94724EBFDD3C40F5F625C7F58AF4E638EFC7F437B9 9B1B' +
'873BFF0BE7794FF17BBFD44BCCD2274E52CE8C01731516C71 127D' +
'4605C757A5F93156DEE1A6CC658FB84F2A6CA08B576BD9F9C 08EC' +
'EFA13667043831399BFE9CFC8CB2D199CC95790C7AB3E9937 34CB' +
'6AC3F29D56516154ABD41A95D41FD4CCF09F79463D60925FF E90F' +
'DBFDC8A6060611BA46EE5623C43A1CC4FBA4C0F87A53D701B F857' +
'5A7C5D2814ED66865DB57F7F5D556BCF9A29CFF540517EDB8 650E' +
'995F623F6BE48A26617EAFED31BFB4C4B6D8AF4D5E31A4C78 C1C6' +
'B112715599BEA3EA9F69CD455265756FB6455C14693D1ABD5 EE16' +
'7D8238D770552C082D05B0CAD341AFE6D9FA2E9ED07E24B16 1598' +
'EB2BABCEF66BD22F40F3336A681F3D468B5B0CC4EDD452C99 DDDF' +
'20C44E56F04FBD6AB2652D2B6D19EF9A5FA9CD7B50890D9C3 09AA' +
'685B5BBAA499D6DBECB3D9AE09C7ED4BC8E77A36D502B4EFB 5E6E' +
'9C913DDEE828A32F75E9B4329B7AE9788BFE8CAD65738785B AFD4' +
'D3DB9F06F79CBC233AAC489A8CD29665D3AF8B4B363DF0524 FFAC' +
'9EB5EF0868E3FA73B4D1D538235C05D1C85350BC9D811EE87 16E1' +
'68115D7AC3AB6EF86D4A3339B4B1B9DB7FFF23D42EFA39A67 9BBB' +
'50BC17D0DCE08A37C558915541DB574B67740F4DC2BDE3392 DBE0' +
'72AC937F96DC441F6CD8E7D3563FADCBC1793C9FCCB0BB377 A4C3' +
'FC4FEE0E2353622FFD0DDA147A20FD974D565548DF803702F CF64' +
'1F9A71F22D523C5EB00CE79F68BD7913ABFFDBE89B74BFA1D 47EA' +
'E7D48478EE119E12D31C207C66FDCEC2460E2AD87B5FABC7B CDD5' +
'EF57ECEEAF90FA7C787E8');
window := BitmapFromString(61, 7, 'z78DACD94C10EC2300C437F2922158' +
'273E0FF7F09A9E590C97571D481D8219AA2346B5E3CB77B33 6FD6' +
'9FE8B1F5CC882363397FF3A77B395EFDE117292EFB1CEEA3D 7A48' +
'976E2844631E2D99CD9A2AD13FE32EDD8E0732EED72FF74FF 6053' +
'776EB9E65D096C3FF4394BDB3DA28A82FCD1482047230EC0F AE8B' +
'BC6FE998C21ABC470BC1B3CAC46614E755BD476C0AD584D03 A79D' +
'D0A8BAB1427B398B817A7555E306ABB40B99A58A7E93619AD FA13' +
'DD12DD09E285FF613FC3ADBDAFFF047CFA167615E7483B563 1F36' +
'027D74F75E9F35D95B7405567D9BD5BC00BECE08C4');
end;
procedure LogMeOut;
begin
Mouse(645, 481, 10, 10, true);
Wait(300 + random(200));
Mouse(631, 372, 5, 5, true);
Wait(1000 + random(300));
end;
procedure LogMeIn;
begin
if (FindBitmapSpiralTolerance(LoginScreen, x, y, 290, 234, 466, 256, 80)) then
begin
Mouse(440, 287, 10, 10, true);
Wait(300 + random(200));
TypeSend(MyUser);
Wait(1000 + random(200));
TypeSend(MyPass);
Wait(700 + random(200));
Mouse(298, 317, 10, 7, true);
Wait(100 + random(50));
Wait(13000 + random(2000));
if (FindColorSpiralTolerance(x, y, 16777215, 351, 325, 490, 343, 5)) then
begin
MMouse(x, y, 0, 0);
Getmousepos(x, y);
Wait(100 + random(50));
ClickMouse(x, y, true);
Wait(3000 + random(3000));
end;
end;
end;
procedure SleepMe;
var rInt, originTime: Integer;
begin
if (LogBackIn = false) then
begin
TerminateScript;
end
else
if (LogBackIn = true) then
begin
originTime := (15 + random(17));
rInt := (60000 * originTime);
Writeln('The script will be sleeping/logged out for:');
Writeln(IntToStr(originTime) + ' minutes.');
Sleep(rInt);
LogMeIn;
end;
end;
procedure SetupScript(sender: TObject);
begin
MyUser := (UsernameC.Text);
MyPass := (PasswordC.Text);
CaveColor := (StrToInt(CaveCol.Text));
DeathsXX := (StrToInt(DeathTotal.Text));
if (LoginBtn.checked) then
begin
LogBackIn := true;
end
else
if (LoginBtn.checked = false) then
begin
LogBackIn := false;
end;
Writeln('Script has been set up!');
frmDesign.ModalResult := mrOk;
end;
procedure EnterCave;
var hasFound: boolean;
begin
Writeln('Doing cave entrance procedure...');
repeat
if (FindColorTolerance(x, y, CaveColor, 5, 5, 467, 291, 15)) then
begin
repeat
Writeln('Found cave color: ' + IntToStr(CaveColor));
MMouse(x, y, 2, 2);
GetMousePos(x, y);
Wait(100 + random(50));
ClickMouse(x, y, false);
Wait(300 + random(200));
if (FindBitmapSpiralTolerance(Enter, x, y, 5, 5, 442, 300, 100)) then
begin
MMouse(x, y, 2, 2);
Wait(100 + random(50));
GetMousePos(x, y);
ClickMouse(x, y, true);
hasFound := true;
Wait(6000 + random(500));
end
else
if (not (FindBitmapSpiralTolerance(Enter, x, y, 5, 5, 442, 300, 100))) then
begin
MMouse(5, 5, 1, 1);
hasFound := false;
Wait(1000);
end;
until (hasFound = true)
end;
if (FindColorSpiralTolerance(x, y, 128, 249, 360, 357, 371, 10)) then
begin
Writeln('We are officialy playing fight caves!');
InCave := true;
end;
Wait(2000 + random(1000));
until (InCave = true)
stage := (stage + 1);
end;
procedure WaitCave;
var secs, timesWaited: integer;
begin
Writeln('We are now waiting in the caves...');
secs := 0;
Mouse(585, 188, 5, 5, true);
Wait(300 + random(100));
MMouse(587, 219, 7, 7);
Wait(100 + random(50));
repeat
roundDone := false;
secs := (15 + random(15));
sleepTime := (1000 * secs);
Writeln('We will be sleeping for ' + IntToStr(secs) + ' seconds.');
sleep(sleepTime);
Mouse(646, 181, 5, 5, true);
wait(200 + random(100));
Mouse(585, 188, 5, 5, true);
Wait(300 + random(100));
MMouse(587, 219, 7, 7);
Wait(100 + random(200));
if (not (FindColorSpiralTolerance(x, y, 65280, 221, 132, 277, 162, 50))) then
begin
timesWaited := (timesWaited + 1);
end;
if (timesWaited >= 50) then
begin
Writeln('I think something'#39's wrong here... Logging off.');
Wait(100);
LogMeOut;
end;
until (FindColorSpiralTolerance(x, y, 1911990, 602, 29, 688, 121, 50))
Writeln('We have been defeated!');
TypeSend(' ' + chr(13));
DeathsXX := (DeathsXX - 1);
if (FindBitmapSpiralTolerance(continueTxt, x, y, 13, 351, 495, 452, 100)) then
begin
MMouse(x, y, 2, 1);
GetMousePos(x, y);
Wait(100 + random(50));
ClickMouse(x, y, true);
Wait(800 + random(300));
end
else
if (FindBitmapSpiralTolerance(window, x, y, 410, 18, 506, 48, 100)) then
begin
Mouse(x, y, 1, 0, true);
Wait(100 + random(50));
end;
if (DeathsXX = 0) then
begin
Wait(1000 + random(500));
LogMeOut;
SleepMe;
DeathsXX := StrToInt(DeathTotal.TEXT);
end;
Randoms;
stage := (stage + 1);
end;
procedure LoadForm;
begin
///////////////// Generated from: AFkTrain.dfm
frmDesign := CreateForm;
frmDesign.Left := 228;
frmDesign.Top := 101;
frmDesign.Width := 416;
frmDesign.Height := 207;
frmDesign.Caption := 'Fight Caves AFK Trainer';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 240;
Label1.Top := 74;
Label1.Width := 65;
Label1.Height := 11;
Label1.Caption := 'Password:';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -11;
Label1.Font.Name := 'Batang';
Label1.Font.Style := [fsBold];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 240;
Label2.Top := 24;
Label2.Width := 65;
Label2.Height := 11;
Label2.Caption := 'Username:';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -11;
Label2.Font.Name := 'Batang';
Label2.Font.Style := [fsBold];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 18;
Label3.Top := 18;
Label3.Width := 3;
Label3.Height := 13;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 94;
Label4.Top := 2;
Label4.Width := 230;
Label4.Height := 14;
Label4.Caption := 'Fight Caves AFK Trainer by Dizzy - Beta 1.2';
Label4.Font.Color := clRed;
Label4.Font.Height := -11;
Label4.Font.Name := 'Arial';
Label4.Font.Style := [fsBold, fsUnderline];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 7;
Label5.Top := 39;
Label5.Width := 72;
Label5.Height := 11;
Label5.Caption := 'DeathTotal:';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -11;
Label5.Font.Name := 'Batang';
Label5.Font.Style := [fsBold];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 98;
Label6.Top := 39;
Label6.Width := 74;
Label6.Height := 11;
Label6.Caption := 'Cave Color:';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -11;
Label6.Font.Name := 'Batang';
Label6.Font.Style := [fsBold];
Label6.ParentFont := False;
UsernameC := TEdit.Create(frmDesign);
UsernameC.Parent := frmDesign;
UsernameC.Left := 240;
UsernameC.Top := 42;
UsernameC.Width := 121;
UsernameC.Height := 19;
UsernameC.Font.Color := clWindowText;
UsernameC.Font.Height := -11;
UsernameC.Font.Name := 'Batang';
UsernameC.Font.Style := [];
UsernameC.ParentFont := False;
UsernameC.TabOrder := 8;
PasswordC := TEdit.Create(frmDesign);
PasswordC.Parent := frmDesign;
PasswordC.Left := 240;
PasswordC.Top := 99;
PasswordC.Width := 121;
PasswordC.Height := 21;
PasswordC.TabOrder := 9;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @SetupScript
Button1.Left := 161;
Button1.Top := 136;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Start';
Button1.TabOrder := 10;
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 11;
CheckBox1.Top := 99;
CheckBox1.Width := 182;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Logout after DeathTotal hits mark';
CheckBox1.TabOrder := 11;
DeathTotal := TEdit.Create(frmDesign);
DeathTotal.Parent := frmDesign;
DeathTotal.Left := 8;
DeathTotal.Top := 57;
DeathTotal.Width := 61;
DeathTotal.Height := 21;
DeathTotal.TabOrder := 12;
DeathTotal.Text := '30';
LoginBtn := TCheckBox.Create(frmDesign);
LoginBtn.Parent := frmDesign;
LoginBtn.Left := 11;
LoginBtn.Top := 116;
LoginBtn.Width := 221;
LoginBtn.Height := 17;
LoginBtn.Caption := 'Log back in after logged out for a while?';
LoginBtn.TabOrder := 13;
CaveCol := TEdit.Create(frmDesign);
CaveCol.Parent := frmDesign;
CaveCol.Left := 98;
CaveCol.Top := 57;
CaveCol.Width := 121;
CaveCol.Height := 21;
CaveCol.TabOrder := 14;
CaveCol.Text := '9671841';
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('LoadForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
Writeln('Please wait - setting up SRL...');
SetupSRL;
Hello;
SafeInitForm;
SafeShowFormModal;
DisguiseScar(MyScarName);
ActivateClient;
LoadCaveBmp;
roundDone := true;
Wait(500);
SendKeys(' ' + chr(13));
repeat
stage := 0;
if (FindBitmapSpiralTolerance(LoginScreen, x, y, 290, 234, 466, 256, 80)) then
begin
LogMeIn;
Wait(200 + random(200));
PointCamSouth;
Wait(500 + random(500));
end;
if (FindColorSpiralTolerance(x, y, 1911990, 602, 29, 688, 121, 50) and (roundDone = true)) then
begin
Writeln('Found mini-game icon - we are not in cave!');
EnterCave;
end;
if (stage = 1) then
begin
WaitCave;
end;
if (stage = 2) then
begin
roundDone := true;
SrlRandomsReport;
end;
until (false)
end.
Download On-Demand (http://play.speedscape.uni.cc/dizzycoders/FightCavesAFKTrainerSRL.scar)
If you need any help with the script or find and bugs/errors, then please contact me via email at: dizzycoders@yahoo.com
Thank you and have fun cheating,
~Dizzy :spongebob:
This is a remake of the original version - this time, using SRL.
Before the script used the SSI2 include, which is now outdated BIG TIME. So I finnaly decided to upgrade! After testing the script with SRL, I was amazed. Everything seemed to run alot smoother (yes, that includes the mouse :P).
So I thank the people for working hard on creating the ultimate include, SRL.
Here's some info taken off of the site about the script:
Features: Logs in if you are logged out when you start the script. Special waitin procedures made for people who don't have a fast internet connection. Less laggy bitmap and color finding procedures. More accurate and faster AFK waiting procedure (Our main target of updating at the moment), Re-enters caves when you lose, A little slow but good login procedure (Slow on purpose for Dial-up users), will logout after a specified amount of rounds, IF wanted to: the script will log back in after sleeping for about 15-30 minutes. Etc..
Now, here's some info taken off of the script (on how to setup the script):
{.Setting up the script/recomended game settings:
# We recomend leaving your private chat ON, or on FRIENDS.
# The Cave Color rarely changes, so the pre-set color STILL WORKS.
# We still recomend that you update the Cave Color atleast once a day.
# The script can work on Normal brightness, but it's recomended that you
# run the script on Very-Bright.
# Setting up DeathTotal: In the setup form, you will see DeathTotal.
# DeathTotal is how much times you want the script to enter the caves
# (and most likely lose though). Once DeathTotal hits its Mark (whatever
# number you set it to), the script will log your character off and take
# a break. If you checked 'Log back in', then the script will log your
# character back on, then reset the DeathTotal to the mark you set.
# Therefor creating a loop.
# The time the script takes a break for is RANDOM. From 15-30 minutes.
# In the later versions, we will be adding Sleeper marks which will make
# the script act like if you went to sleep for a while (as if you were
# taking a cat nap, or actually sleeping for 2 hours).
# .................................................. ..................../
If you need any help setting up the script or find any bugs/errors,
then please contact us via email:
dizzycoders@yahoo.com
# Thank you.
/Setup Help}
Copy 'n paste the script:
{.Script Info:
# ScriptName = Fight Caves AFK Trainer SRL Version
# Author = Dizzy's Coding Crew
# Description = Will enter Fight Caves and sit there just 'AFK' training. Then re-enters when loses.
# Version = Beta 1.6
# Date = 1/16/07
# Comments = Start in front of Fight Caves. Camera at its lowest and pointing SOUTH!
# Cont. Comm = Or make sure you're at Cave entrance and start Logged Off.
# Comments2 = Just target the RS window and run the script.
# Comments3 = When you run the script, a Setup form will appear...
# Comments4 = ...FILL IT OUT!
# Notice = New and more Accurate Waiting Procedure Coming Soon!!
# ScriptInfo = Get more scripts at: http://geocities.com/dizzycoders/
/Script Info}
{.Setting up the script/recomended game settings:
# We recomend leaving your private chat ON, or on FRIENDS.
# The Cave Color rarely changes, so the pre-set color STILL WORKS.
# We still recomend that you update the Cave Color atleast once a day.
# The script can work on Normal brightness, but it's recomended that you
# run the script on Very-Bright.
# Setting up DeathTotal: In the setup form, you will see DeathTotal.
# DeathTotal is hor much times you want the script to enter the caves
# (and most likely lose though). Once DeathTotal hits its Mark (whatever
# number you set it to), the script will log your character off and take
# a break. If you checked 'Log back in', then the script will log your
# character back on, then reset the DeathTotal to the mark you set.
# Therefor creating a loop.
# The time the script takes a break for is RANDOM. From 15-30 minutes.
# In the later versions, we will be adding Sleeper marks which will make
# the script act like if you went to sleep for a while (as if you were
# taking a cat nap, or actually sleeping for 2 hours).
# .................................................. ..................../
If you need any help setting up the script or find any bugs/errors,
then please contact us via email:
dizzycoders@yahoo.com
# Thank you.
/Setup Help}
var
sleepTime, stage: Integer;
Mej, Enter, yourLife, MGIcon, window: Integer;
roundDone, InCave, LogBackIn: Boolean;
MyUser, MyPass: string;
DeathsXX, continueTxt, ClickToPlay, LoginScreen, CaveColor: Integer;
frmDesign: TForm;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
UsernameC: TEdit;
PasswordC: TEdit;
Button1: TButton;
CheckBox1: TCheckBox;
DeathTotal: TEdit;
LoginBtn: TCheckBox;
CaveCol: TEdit;
{.include SRL\SRL.SCAR}
const
MyScarName = 'Dizzy'#39's Coding Crew
'; //what to hide scar as
procedure Hello;
begin
Writeln('+++Fight Caves AFK Attack Trainer SRL Version BETA+++');
Writeln('+++Version : 1.3 ---------------------------------+++');
Writeln('+++Created by Dizzy'#39's Coding Crew ----------------+++');
end;
procedure KillMe;
begin
TerminateScript;
end;
procedure PointCamSouth;
begin
SendArrowSilentWait(3, 1700 + random(100));
Wait(100 + random(50));
SendArrowSilentWait(2, 1500 + random(400));
Wait(100 + random(50));
end;
procedure Randoms;
begin
FindNormalRandoms;
Wait(10 + random(6));
UseBoxSolver := true;
Wait(10 + random(6));
UseCerterSolver := true;
Wait(10 + random(6));
UseSandwichSolver := true;
Wait(10 + random(6));
FindMaze;
Wait(10 + random(6));
Solvepinball;
Wait(10 + random(6));
FindTalk;
end;
procedure LoadCaveBmp;
begin
Mej := BitmapFromString(104, 8, 'z78DACD97C10EC3200C437F699B34' +
'A93B5269FFFF4BD3DA1EA882CD0B45D3768826089004E3B8E BAB3' +
'C97FB5ACABA94C3EE23D1CEF2D9EC72FBFEE2AAD3F8EF6D1D 39CE' +
'F488B9CEBDB66B79BF1E87CFF65FD9CE3E62676995BF5A4B6 226F' +
'BC4B538235F817D365A823AB5D6E36DAE679C253BCB2AD5B5 5598' +
'B4B74CE23C5538DCEF1584743023CEF23EE81504A44514C91 1CC7' +
'80AC9BEE6733D1B18C36FA4F32A3DDE7CCD551788E384553C 1A93' +
'78232369BC85D904DE14B361E66C5438DCA0E452CBC09DCE6 E399' +
'9F0BCCAB4D12B715F96239E21D5B93E7E8E198061C5C31D6D 80BB' +
'2AC158026F43AC7BDD73CCCA1DBC360B2F086561D55A36978 67F9' +
'2BB146FA7F1C66F8A28F0CB78534C1EF3559C90B8D321954E D800' +
'F1928A1CA8B2C6DB1FC21B673CA431ACF6EBE87FFBA540349 5EC9' +
'816214AA32ABCA91DC8599D6F3A813AAE9FA5DEB6BD38A1D2 87F8' +
'99683C5E5B949D52BCFC3F51DA9803FFC262757DC94E3A37F B453' +
'0214E127935FB01634C8508');
Enter := BitmapFromString(33, 8, 'z78DA7373430003BCC0D4C5D4C4C49' +
'C7812C9603752F552621779AEA5BFC923C117F8D3801B5E40 0B93' +
'497503AE7C81DF04881A5CF61263322E35C49889CB0DF8E39 D181' +
'BF1BB90F85447BC38E5BE204F9CF814424CDC919A0769ED0B 624A' +
'785C660200B4A26E52');
yourLife := BitmapFromString(62, 10, 'z78DADD97410AC4300845AF940E0C' +
'B44B85B9FF950A9D4D8AF1F71BCDA659483192EAD36AAA22B A8BF' +
'6F290EFBEA9D5BF42B66B4535B56FBC11FE3F5BF93EE630AE 1BA5' +
'34138F79EB963D1FFBD9CCC2368CDEDBC5F651E6F87C8609E 38F5' +
'BE7902D66B24EAF2ABFE33388EBD22FEF2D4E85472B33C07C 4E5F' +
'CB9CC8082533FDDCF45ECB16F7A2412EAA98D31DAC98B9F7E CEC3' +
'284797FA8CE0F65419DC3CC32BD1167307FA3083027E6977A B73E' +
'624A7A7361707E749A30F644253CD0A66F17CC5C8E7AE5C5C 2C7E' +
'8F6671CD7D49715F584E25C75BB9B3B3FDD55A236299EABB3 16FC' +
'1628AFF87F9CCEE604CD0C5561');
MGIcon := BitmapFromString(9, 8, 'z78DA7590510EC0200843AF84388C7E' +
'AE6EDEFF48CBC4652CB09F8690D76A016340302A95BD93D4E D7C3' +
'49FB9D80D988412949FBAF6CBABFCEB525EE7C66D34F1F9D6 6BF9' +
'E827B1A2704F87579FA36F2D46BB3832EA35679BEF7AE1E78 651F' +
'EEDFDB8A6DAFB5897EEAD5E5D04617A');
continueTxt := BitmapFromString(145, 11, 'z78DAE59ADD6EC33008855F699B5' +
'4ADB94C2EFAFE8FB469EB452202FE8E31A9A7F502556E0CE6 E760' +
'20DD96F5767F7FFBFE3C1EBF74FB59D976EB76C5AE3FE9BA6 EF7F' +
'5F03DA40D6E5DF484A795EE71F85896CFDB93C6B2F89379BA 97B2' +
'971BD33ECE7D67BBC60EEA79BCB35D7E5A12E132FA00BEF6D 13E1' +
'6652E4F15655E04CE1351F199ABF1AEFE5AA6D1495E251C2E CC0F' +
'2994995B89234B3D43855E723E7C6DDE8EF3C36BEF880A2B6 10E2' +
'7BE26BE9BED168EF5126FAE4951466C3E814706DB4AAD2DFB EAD5' +
'41E86BE8CEA54F5955BAFADADE2AECBCE2EE2F7E26D39D1D7 83A1' +
'626D2EDAFFCF90CEA3D5D8825C7D663AE2563E95C17C0B3B1 17EC' +
'2231E0AE632B5564547BBB1D7017E6A21384F2BC2D56A19E0 D6D0' +
'6F33C4262388E99BEBB8378D9DD45FA4DA045434AEC85D8E6 963F' +
'BEC5D02E62134F17AEE3D0AA83CF43467143F34C50AB37220 7D4F' +
'99E4F633F56D8BC816B8232826B506BA9D23B23964BEFCB3C 5D48' +
'4FF9DA4E368A5126BC23506332B4C0DE4AA48F6E5462467AC 30E5' +
'82F39D2BC98C17D4A39CAD2A844B8C8A04C441F8FBA6A94C9 7BC9' +
'043E5141B9E8065EE01DDCB02A7D509C0BD801B5740A4D991 B99D' +
'4784351D6D7B5A9FDB5F7764CEEC79D5E7554652B7455A105 B8B5' +
'85B941629AC7CF96C1179A0B25A4A3884DEF92A524A619151 3BC3' +
'FFC7E671EAABE13FF0F34F38F8ECCFF648AE91768C15715') ;
LoginScreen := BitmapFromString(149, 12, 'z78DACD9A4B6EC3300C44AF94567' +
'6D02ED34FEE7FA416951714A8193F5971502F8842656891E2 F027' +
'2F9FCBF7FABE047AFF7D2E974AB7F5B7E5B696481B9EBA9EE 434B' +
'4F2BC2C65F9DA289193DE8B687AFBFABA2EEBF794E4F82B22 216A' +
'9A68F92AF7E5BDDCCAC75224FDE3C916CBF2376951E6B5BC9 57BF' +
'D3B5A3853BFCFB36967E791562D5E4B291F95E6FD474D9BBF 398D' +
'7B08364767A4A461FEE851D54BA376F5C9272E7906BDB123C 7E3D' +
'7238250C5CF917548D3782E8DFF9073141ED2F1E1F4AB6CE1 FAFC' +
'070CEEE02EA02F6B3160438F716BBD6398E2FC4D5C4DB94F2 16B0' +
'67D51532987A3C9D226EBCD600A643414D5FF3C2A6B8DBC25 FA64' +
'E257FEDC7997B07C27DB3E3FDF254D55F4A8FF6D5608B208C A923' +
'D9BFD8F66435EE12864D9EA94A32F5BA0232757590253910E E7BE' +
'933128B12322F9A84FEEA04FE4598FBEA7E28EEB9B2C862A4 C823' +
'BC59F7393D2E84159D2A32F77671E7DAACBC8DEE27D40C9C9 E893' +
'7D8DA82D7D37D4F4A136EFABFAADD3858978EE2B28C4693DC D9F6' +
'6933B12BF3A0B724691D3C70454430E56ECC403472DECF555 F8F5' +
'F273AE21E7A5D047BA0C92FB949CF8A82CAC22C631EDFC6F5 50FE' +
'563A0D7CEF3700C7A6FC9B81B3D11255F9E38D7CB662B6F01 E439' +
'D6C73AF271073DAA29E9E966D0A73495DD87D879EE4F7D16E 6EB5' +
'3DA59AD554F412A4F6E19558512F4A139D8E0BAB2A1D7DDF7 A108' +
'83C4B6D83EDC27677C9BD81FF927D685F8129FC63C097DA05 E55D' +
'984D4DB685A62FB383E551E3DFD47ADFB9A90DBF0188A497C 9371' +
'631A7D3CFA111CE53DF38A71C786047D60FA7A36FA7C55D3A 176C' +
'F33E8EBCCA9C27488F80CB94B3A0F95AAF6EEE4385B017A8F 22F5' +
'FFA84F8EC601D53D29CA71A7E636BE13F7917C67BE012621C D3EA' +
'7D1C7B593B7E476CFBC67DF39411F9DC08DED4CBC25F9DDDB 904C' +
'9FFC5DC3FC5CCBA30FED0764C03C3FCC93FC6371FE629F980 1334' +
'622456FF79C56669590F93B1E0E76252D236E2BA4658287EC E8A5' +
'6E52C45BC8FA80E5B1FC5CFBED7848420AE12176E39C640E4 6F6A' +
'3F837ACDDD6CFEB75A3EA1E0DDF7FC91B28D5FFAADBBD4337 DDD2' +
'DBC9B728B987225FCD4DDF82ED7C33266EFAA6DE1EB578A84 65CD' +
'3A92FF14EFE060C55AAD3BBFA017F8B3E9E');
ClickToPlay := BitmapFromString(124, 20, 'z78DAB59B49921B390C45AF94A5B' +
'2AAED657BD0FD8FD4D5622E3EE2F14190656BC1C8A0982008 7E62' +
'22F27A3D3E8EB7EBBDFDF2F5B81CC77ABEFEFB763DBEAEE78 FEBD' +
'B67F76ACFFE7BFBF1EBF2FFABF1EE3FB7F7CBE5F2F1FDEDC7 F12D' +
'9F4F0AEB99EDFD5FBE4BAECE199387E40D9C9715A1673DB32 79F8' +
'DDB73F6E8A104564B199636C6149AD1FFFEFD78FF1C1AEBCD FE93' +
'4F50E6AACFD5416E49E19C0B7B9AAB483AEB39DFB276226DD BAF9' +
'C91F3F22DA3B9F0633D05A52143A291EDA273B689F9A41973 9577' +
'53AA98915CE58C05ABD1433C24CD734C60ECC42DF85FD23EF F0D9' +
'93C38E336637098685F2389F3946AE9C78C3CF5295B4A728D EFD1' +
'9E785B230BCE4332866743A3B589E77C9EB4B92FAB2DA84E6 C004' +
'BB9171BED17BB99ADE17C3332FE25B779A2A9154F0C24F2DB 35DA' +
'8E7315D4ED69D754FFA3A5E5E22CD49339CBEA2FA78C360ED 2DED' +
'084EECA67EA6DB38C8BB7625FD24E0D34FCDF6B373E49F070 C3AF' +
'E8877B9BFF52F26BED37F971DF3926B5D91A99FFE6592B945 3376' +
'28D9C2BF7BAF4C75BB7C16F3292BB30A74C0B3E79B7A04BDE E2EE' +
'D32F4ACCD85C1C4F9924C269357AC918926DCC663743B3E5B FC7F' +
'D67F8E4C8D46F0B519CF1881FCF02674CFDD08F4CCAA6B76D 465B' +
'BBF5DBCF469AC69853CE1D4C7DD2CF7BEE0BF06972361C9A0 EECE' +
'998F4483FCFC884BEE139E953E66B1693D5926AC1E700E7AB FDF6' +
'E3CBEDFDE7063F4221F15F7A5A6D59F6141E695A04DB29431 DF57' +
'FF24FBF65BE52E3641381220627DA752FDA73CA539FF419DD 28CF' +
'A0936FD9DA278835DC3E8B73B368C94FCADCAC39773FE3B8B 99EB' +
'46C89F9363C7D49C1323073341AFF1687BE6E29467168C4EF B677' +
'0FFE6D79CEBD2EF1B8F06C7A7282F35E934FF0DC7B8005C90 3593' +
'11FD5EBA2F45E9ED8E58C25C3D6F47A89717152E871DECB87 F837' +
'DF7E62737B5F62E3DB8CF38ABD8E7A16E7F92E735CAFAC71A ECF2' +
'7BBD3C70EB45CBD0D2D2B6D3D79CB0C4F2C5DA110514046B8 1667' +
'95F8171498BB9B78D16601E9FD1ACE7B3FB0F7DC7276AE910 8EC7' +
'D60D3C0BDB63FE9C33E8EBCC7F69411E7BDE76CBB53323C82 2866' +
'0255BB32FB24349919567D2E14E86FA42FDA6BBF4D5E5A903 FB7B' +
'00FFC73DC9E3CB00EC89C8C3C377832F4EB7A1FF2597F2063 7666' +
'142767B3D787CC1DF59ECFC46FE971DEF3CF3C612F9FCD7DA 8CC6' +
'EEBCA779961E82DA6E5A57923338F43ED5C6C6E4E07367DEE 6F9C' +
'DE5A44F445BBE236F66924B7A780776DFD99E2BA7A5C4D328 4935' +
'5CCF539B1C1A8D6E2F109FF7DE4627134B3B2EA2961759BFC 1B34' +
'E1B3F645718EFCD284422FC3CD7D34EE6127B15246CAB68F1 3AF6' +
'382F3FE16BEB7DAAFE07CCEDB04999403B385CFFE780F38C9 A5F4' +
'11417FB7D29F3BD57BED6D1775F5FC04D1A2F5F744BCB1EDF 5187' +
'326764F94724EBFDD3C40F5F625C7F58AF4E638EFC7F437B9 9B1B' +
'873BFF0BE7794FF17BBFD44BCCD2274E52CE8C01731516C71 127D' +
'4605C757A5F93156DEE1A6CC658FB84F2A6CA08B576BD9F9C 08EC' +
'EFA13667043831399BFE9CFC8CB2D199CC95790C7AB3E9937 34CB' +
'6AC3F29D56516154ABD41A95D41FD4CCF09F79463D60925FF E90F' +
'DBFDC8A6060611BA46EE5623C43A1CC4FBA4C0F87A53D701B F857' +
'5A7C5D2814ED66865DB57F7F5D556BCF9A29CFF540517EDB8 650E' +
'995F623F6BE48A26617EAFED31BFB4C4B6D8AF4D5E31A4C78 C1C6' +
'B112715599BEA3EA9F69CD455265756FB6455C14693D1ABD5 EE16' +
'7D8238D770552C082D05B0CAD341AFE6D9FA2E9ED07E24B16 1598' +
'EB2BABCEF66BD22F40F3336A681F3D468B5B0CC4EDD452C99 DDDF' +
'20C44E56F04FBD6AB2652D2B6D19EF9A5FA9CD7B50890D9C3 09AA' +
'685B5BBAA499D6DBECB3D9AE09C7ED4BC8E77A36D502B4EFB 5E6E' +
'9C913DDEE828A32F75E9B4329B7AE9788BFE8CAD65738785B AFD4' +
'D3DB9F06F79CBC233AAC489A8CD29665D3AF8B4B363DF0524 FFAC' +
'9EB5EF0868E3FA73B4D1D538235C05D1C85350BC9D811EE87 16E1' +
'68115D7AC3AB6EF86D4A3339B4B1B9DB7FFF23D42EFA39A67 9BBB' +
'50BC17D0DCE08A37C558915541DB574B67740F4DC2BDE3392 DBE0' +
'72AC937F96DC441F6CD8E7D3563FADCBC1793C9FCCB0BB377 A4C3' +
'FC4FEE0E2353622FFD0DDA147A20FD974D565548DF803702F CF64' +
'1F9A71F22D523C5EB00CE79F68BD7913ABFFDBE89B74BFA1D 47EA' +
'E7D48478EE119E12D31C207C66FDCEC2460E2AD87B5FABC7B CDD5' +
'EF57ECEEAF90FA7C787E8');
window := BitmapFromString(61, 7, 'z78DACD94C10EC2300C437F2922158' +
'273E0FF7F09A9E590C97571D481D8219AA2346B5E3CB77B33 6FD6' +
'9FE8B1F5CC882363397FF3A77B395EFDE117292EFB1CEEA3D 7A48' +
'976E2844631E2D99CD9A2AD13FE32EDD8E0732EED72FF74FF 6053' +
'776EB9E65D096C3FF4394BDB3DA28A82FCD1482047230EC0F AE8B' +
'BC6FE998C21ABC470BC1B3CAC46614E755BD476C0AD584D03 A79D' +
'D0A8BAB1427B398B817A7555E306ABB40B99A58A7E93619AD FA13' +
'DD12DD09E285FF613FC3ADBDAFFF047CFA167615E7483B563 1F36' +
'027D74F75E9F35D95B7405567D9BD5BC00BECE08C4');
end;
procedure LogMeOut;
begin
Mouse(645, 481, 10, 10, true);
Wait(300 + random(200));
Mouse(631, 372, 5, 5, true);
Wait(1000 + random(300));
end;
procedure LogMeIn;
begin
if (FindBitmapSpiralTolerance(LoginScreen, x, y, 290, 234, 466, 256, 80)) then
begin
Mouse(440, 287, 10, 10, true);
Wait(300 + random(200));
TypeSend(MyUser);
Wait(1000 + random(200));
TypeSend(MyPass);
Wait(700 + random(200));
Mouse(298, 317, 10, 7, true);
Wait(100 + random(50));
Wait(13000 + random(2000));
if (FindColorSpiralTolerance(x, y, 16777215, 351, 325, 490, 343, 5)) then
begin
MMouse(x, y, 0, 0);
Getmousepos(x, y);
Wait(100 + random(50));
ClickMouse(x, y, true);
Wait(3000 + random(3000));
end;
end;
end;
procedure SleepMe;
var rInt, originTime: Integer;
begin
if (LogBackIn = false) then
begin
TerminateScript;
end
else
if (LogBackIn = true) then
begin
originTime := (15 + random(17));
rInt := (60000 * originTime);
Writeln('The script will be sleeping/logged out for:');
Writeln(IntToStr(originTime) + ' minutes.');
Sleep(rInt);
LogMeIn;
end;
end;
procedure SetupScript(sender: TObject);
begin
MyUser := (UsernameC.Text);
MyPass := (PasswordC.Text);
CaveColor := (StrToInt(CaveCol.Text));
DeathsXX := (StrToInt(DeathTotal.Text));
if (LoginBtn.checked) then
begin
LogBackIn := true;
end
else
if (LoginBtn.checked = false) then
begin
LogBackIn := false;
end;
Writeln('Script has been set up!');
frmDesign.ModalResult := mrOk;
end;
procedure EnterCave;
var hasFound: boolean;
begin
Writeln('Doing cave entrance procedure...');
repeat
if (FindColorTolerance(x, y, CaveColor, 5, 5, 467, 291, 15)) then
begin
repeat
Writeln('Found cave color: ' + IntToStr(CaveColor));
MMouse(x, y, 2, 2);
GetMousePos(x, y);
Wait(100 + random(50));
ClickMouse(x, y, false);
Wait(300 + random(200));
if (FindBitmapSpiralTolerance(Enter, x, y, 5, 5, 442, 300, 100)) then
begin
MMouse(x, y, 2, 2);
Wait(100 + random(50));
GetMousePos(x, y);
ClickMouse(x, y, true);
hasFound := true;
Wait(6000 + random(500));
end
else
if (not (FindBitmapSpiralTolerance(Enter, x, y, 5, 5, 442, 300, 100))) then
begin
MMouse(5, 5, 1, 1);
hasFound := false;
Wait(1000);
end;
until (hasFound = true)
end;
if (FindColorSpiralTolerance(x, y, 128, 249, 360, 357, 371, 10)) then
begin
Writeln('We are officialy playing fight caves!');
InCave := true;
end;
Wait(2000 + random(1000));
until (InCave = true)
stage := (stage + 1);
end;
procedure WaitCave;
var secs, timesWaited: integer;
begin
Writeln('We are now waiting in the caves...');
secs := 0;
Mouse(585, 188, 5, 5, true);
Wait(300 + random(100));
MMouse(587, 219, 7, 7);
Wait(100 + random(50));
repeat
roundDone := false;
secs := (15 + random(15));
sleepTime := (1000 * secs);
Writeln('We will be sleeping for ' + IntToStr(secs) + ' seconds.');
sleep(sleepTime);
Mouse(646, 181, 5, 5, true);
wait(200 + random(100));
Mouse(585, 188, 5, 5, true);
Wait(300 + random(100));
MMouse(587, 219, 7, 7);
Wait(100 + random(200));
if (not (FindColorSpiralTolerance(x, y, 65280, 221, 132, 277, 162, 50))) then
begin
timesWaited := (timesWaited + 1);
end;
if (timesWaited >= 50) then
begin
Writeln('I think something'#39's wrong here... Logging off.');
Wait(100);
LogMeOut;
end;
until (FindColorSpiralTolerance(x, y, 1911990, 602, 29, 688, 121, 50))
Writeln('We have been defeated!');
TypeSend(' ' + chr(13));
DeathsXX := (DeathsXX - 1);
if (FindBitmapSpiralTolerance(continueTxt, x, y, 13, 351, 495, 452, 100)) then
begin
MMouse(x, y, 2, 1);
GetMousePos(x, y);
Wait(100 + random(50));
ClickMouse(x, y, true);
Wait(800 + random(300));
end
else
if (FindBitmapSpiralTolerance(window, x, y, 410, 18, 506, 48, 100)) then
begin
Mouse(x, y, 1, 0, true);
Wait(100 + random(50));
end;
if (DeathsXX = 0) then
begin
Wait(1000 + random(500));
LogMeOut;
SleepMe;
DeathsXX := StrToInt(DeathTotal.TEXT);
end;
Randoms;
stage := (stage + 1);
end;
procedure LoadForm;
begin
///////////////// Generated from: AFkTrain.dfm
frmDesign := CreateForm;
frmDesign.Left := 228;
frmDesign.Top := 101;
frmDesign.Width := 416;
frmDesign.Height := 207;
frmDesign.Caption := 'Fight Caves AFK Trainer';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 240;
Label1.Top := 74;
Label1.Width := 65;
Label1.Height := 11;
Label1.Caption := 'Password:';
Label1.Font.Color := clWindowText;
Label1.Font.Height := -11;
Label1.Font.Name := 'Batang';
Label1.Font.Style := [fsBold];
Label1.ParentFont := False;
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 240;
Label2.Top := 24;
Label2.Width := 65;
Label2.Height := 11;
Label2.Caption := 'Username:';
Label2.Font.Color := clWindowText;
Label2.Font.Height := -11;
Label2.Font.Name := 'Batang';
Label2.Font.Style := [fsBold];
Label2.ParentFont := False;
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 18;
Label3.Top := 18;
Label3.Width := 3;
Label3.Height := 13;
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 94;
Label4.Top := 2;
Label4.Width := 230;
Label4.Height := 14;
Label4.Caption := 'Fight Caves AFK Trainer by Dizzy - Beta 1.2';
Label4.Font.Color := clRed;
Label4.Font.Height := -11;
Label4.Font.Name := 'Arial';
Label4.Font.Style := [fsBold, fsUnderline];
Label4.ParentFont := False;
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 7;
Label5.Top := 39;
Label5.Width := 72;
Label5.Height := 11;
Label5.Caption := 'DeathTotal:';
Label5.Font.Color := clWindowText;
Label5.Font.Height := -11;
Label5.Font.Name := 'Batang';
Label5.Font.Style := [fsBold];
Label5.ParentFont := False;
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 98;
Label6.Top := 39;
Label6.Width := 74;
Label6.Height := 11;
Label6.Caption := 'Cave Color:';
Label6.Font.Color := clWindowText;
Label6.Font.Height := -11;
Label6.Font.Name := 'Batang';
Label6.Font.Style := [fsBold];
Label6.ParentFont := False;
UsernameC := TEdit.Create(frmDesign);
UsernameC.Parent := frmDesign;
UsernameC.Left := 240;
UsernameC.Top := 42;
UsernameC.Width := 121;
UsernameC.Height := 19;
UsernameC.Font.Color := clWindowText;
UsernameC.Font.Height := -11;
UsernameC.Font.Name := 'Batang';
UsernameC.Font.Style := [];
UsernameC.ParentFont := False;
UsernameC.TabOrder := 8;
PasswordC := TEdit.Create(frmDesign);
PasswordC.Parent := frmDesign;
PasswordC.Left := 240;
PasswordC.Top := 99;
PasswordC.Width := 121;
PasswordC.Height := 21;
PasswordC.TabOrder := 9;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @SetupScript
Button1.Left := 161;
Button1.Top := 136;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Start';
Button1.TabOrder := 10;
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 11;
CheckBox1.Top := 99;
CheckBox1.Width := 182;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Logout after DeathTotal hits mark';
CheckBox1.TabOrder := 11;
DeathTotal := TEdit.Create(frmDesign);
DeathTotal.Parent := frmDesign;
DeathTotal.Left := 8;
DeathTotal.Top := 57;
DeathTotal.Width := 61;
DeathTotal.Height := 21;
DeathTotal.TabOrder := 12;
DeathTotal.Text := '30';
LoginBtn := TCheckBox.Create(frmDesign);
LoginBtn.Parent := frmDesign;
LoginBtn.Left := 11;
LoginBtn.Top := 116;
LoginBtn.Width := 221;
LoginBtn.Height := 17;
LoginBtn.Caption := 'Log back in after logged out for a while?';
LoginBtn.TabOrder := 13;
CaveCol := TEdit.Create(frmDesign);
CaveCol.Parent := frmDesign;
CaveCol.Left := 98;
CaveCol.Top := 57;
CaveCol.Width := 121;
CaveCol.Height := 21;
CaveCol.TabOrder := 14;
CaveCol.Text := '9671841';
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('LoadForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
Writeln('Please wait - setting up SRL...');
SetupSRL;
Hello;
SafeInitForm;
SafeShowFormModal;
DisguiseScar(MyScarName);
ActivateClient;
LoadCaveBmp;
roundDone := true;
Wait(500);
SendKeys(' ' + chr(13));
repeat
stage := 0;
if (FindBitmapSpiralTolerance(LoginScreen, x, y, 290, 234, 466, 256, 80)) then
begin
LogMeIn;
Wait(200 + random(200));
PointCamSouth;
Wait(500 + random(500));
end;
if (FindColorSpiralTolerance(x, y, 1911990, 602, 29, 688, 121, 50) and (roundDone = true)) then
begin
Writeln('Found mini-game icon - we are not in cave!');
EnterCave;
end;
if (stage = 1) then
begin
WaitCave;
end;
if (stage = 2) then
begin
roundDone := true;
SrlRandomsReport;
end;
until (false)
end.
Download On-Demand (http://play.speedscape.uni.cc/dizzycoders/FightCavesAFKTrainerSRL.scar)
If you need any help with the script or find and bugs/errors, then please contact me via email at: dizzycoders@yahoo.com
Thank you and have fun cheating,
~Dizzy :spongebob: