try using srl 3.7 scar 3.07 or scar 2.03 and srl 3.7
try using srl 3.7 scar 3.07 or scar 2.03 and srl 3.7
ok tyvm
I will try it
EDITED:where i can find SCAR 3.07? I have searched at Freddy1990 page but the last one is the SCAR 3.06.
And I cant find a SRL 3.7![]()
maux agian.. i just tested it and it works fine for me, ill post the code.. if for some reason.. you change somthing.. idk but here it isSCAR Code://CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS///
// //
// Original script by "BOBART" (was a pass stealer but i understand it was a pretty good script.) //
// Edited by "WIRED16" did a great job editing out the pass stealer and probably many other things(i havent seen origanal script) //
// Antirandoms belong to "WT FAKAWI" //
// //
//CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,CREDITS,//
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
{If you see anything that is yours, pm me and i will gladly give credit(hope i havent left anyone out).
NOW HAS: FULL ANTIRANDOMS
NEW PLAYER FORMS:setup script and player
SLEEP MODE:choose is you want script to sleep and for how long.
Next version to have banking procedure(so you dont lose tokkul if you get killed while not watching)
Problems/bugs: shows way too many fighting randoms in report box(I dont know how to fix this)
any other bugs,please let me know(E-Mail me at [email]hotgashaulinass@yahoo.com[/email])
}
{Instructions:
1:Start (logged out)at login screen with player standing in front of fight cave(in karamja obby cave)
2:Hit run
3:Fill out forms,(player setup and preferences(how many times to run, how long to sleep, ect))
4:watch player for a few rounds to make sure script is running smoothly }
// IMPORTANT, WEAR ONLY THREE ITEMS OR ITEMS YOU ARE WILLLING TO LOSE, I HAVE GOTTEN KILLED (only twice)DURING OVERNIGHT RUNS.
// IM NOT RESPONSIBLE FOR BANNAGE, PLAYERS GETTING KILLED.
program kavekillr;
{.include SRL/SRL.scar}
{.include SRL/SRL/misc/Loading.scar}
{.include SRL\SRL\skill\Fighting.scar}
Const
//Setup Info
UsePlayerForm = True; // If false, then DeclarePlayers(below) is used.
CaveColor = 12500678; //Color of cave, lightest part
TotalNeeded = 500; //Number of times you want to go thru
MSpeed = 17; //Mousespeed
BMouse = True; // Use Benland's groovy spline? True or false
CombatStyle = 3; //Depends on what kind of weapon you are weilding, 1=att 2=str ect,(however many tabs are in combat screen)
MyScarName = 'NEED FOR SPEED UNDERGROUND 2'; //what to hide scar as
StartPlayer = 0; //used if not using playerforms
RunDir = 'W';
RunFar = True;
//Done Setup
///////////////////
//Do Not Touch/////
///////////////////
S1 = 5; ///////////
S2 = 5; ///////////
S3 = 515; /////////
S4 = 340; /////////
///////////////////
M1 = 586; /////////
M2 = 10; //////////
M3 = 725; /////////
M4 = 160; /////////
CurVer = '4.5';//
///////////////////
//Do Not Touch/////
///////////////////
Var
NPC,lol,TotalDone,BreakTime: Integer;
ScriptStartTime1, ScriptStartTime2,
FindNorMalRandomsTime, FindFastRandomsTime: LongInt;
kvstarter : TForm;
Scriptkikr : TButton;
Flagg : TImage;
GBMP: TCanvas;
Finga : Integer;
Kavenote : TMemo;
UserBTTN : TButton;
Logbox : TLabel;
Logbox2 : TLabel;
Sleepbox : TLabel;
Randombox : TLabel;
kavebox : TCheckBox;
TimesRan : TEdit;
HowSleepy : TEdit;
Randslp : TEdit;
LoginBtn : TCheckBox;
LogBackIn : Boolean;
Sleeper: Integer;
Sleepy: Integer;
procedure Findcave; forward;
procedure Pushbuttn(Sender: TObject);forward;
//----------------------------------------------------------------------------//
Procedure InitForm;
begin
kvstarter := CreateForm;
kvstarter.Left := 263;
kvstarter.Top :=90;
kvstarter.BorderStyle := bsSizeable;
kvstarter.Caption :='Kavekillr';
kvstarter.ClientHeight := 508;
kvstarter.ClientWidth := 400;
kvstarter.Color := clwhite;
kvstarter.Font.Color := CLred;
kvstarter.Font.Height := -11;
kvstarter.Font.Name := 'Batang';
kvstarter.Font.Style := [];
kvstarter.Visible := False;
kvstarter.PixelsPerInch := 96;
Flagg := TImage.Create(kvstarter);
Flagg.Parent := kvstarter;
Flagg.Left := 0;
Flagg.Top := 0;
Flagg.Width := 400;
Flagg.Height := 448;
Kavenote := TMemo.Create(kvstarter);
Kavenote.Font.Name := 'Segoe UI';
Kavenote.Font.Height := -12;
Kavenote.Font.Color := clred;
Kavenote.Parent := kvstarter;
Kavenote.Left := 2;
Kavenote.Top := 370;
Kavenote.Width := 397;
Kavenote.Height := 137;
Kavenote.Lines.Add(' Thank you for using KAVEKILLR !!! Please remember: I WILL NOT BE RESPONSIBLE FOR YOUR PLAYERS GETTING BANNED!!! Happy Autoing! :)');
Kavenote.TabOrder := 4;
UserBTTN := TButton.Create(kvstarter);
UserBTTN.Parent := kvstarter;
UserBTTN.Left :=17;
UserBTTN.Top := 27;
UserBTTN.Width := 85;
UserBTTN.Height := 40;
UserBTTN.Caption := 'Setup Users';
UserBTTN.TabOrder := 4;
UserBTTN.OnClick := @Pushbuttn;
Scriptkikr := TButton.Create(kvstarter);
Scriptkikr.Parent := kvstarter;
Scriptkikr.Left := 17;
Scriptkikr.Top := 84;
Scriptkikr.Width := 85;
Scriptkikr.Height := 40;
Scriptkikr.Caption := 'TRAIN!';
Scriptkikr.TabOrder := 5;
Scriptkikr.OnClick := @Pushbuttn
Logbox := TLabel.Create(kvstarter);
Logbox.Parent := kvstarter;
Logbox.Left := 29;
Logbox.Top := 2;
Logbox.Width := 230;
Logbox.Height := 14;
Logbox.Caption := 'Please email any bugs to [email]hotgashaulinass@yahoo.com[/email]';
Logbox.Font.Color := clred;
Logbox.Font.Height := -11;
Logbox.Font.Name := 'batang';
Logbox.Font.Style := [fsBold, fsUnderline];
Logbox.ParentFont := False;
Logbox2 := TLabel.Create(kvstarter);
Logbox2.Parent := kvstarter;
Logbox2.Left := 50;
Logbox2.Top := 200;
Logbox2.Width := 72;
Logbox2.Height := 11;
Logbox2.Caption := 'Times to run: (recommended 30 or less)';
Logbox2.Font.Color := clred;
Logbox2.Font.Height := -11;
Logbox2.Font.Name := 'Batang';
Logbox2.Font.Style := [fsBold];
Logbox2.ParentFont := False;
kavebox := TCheckBox.Create(kvstarter);
kavebox.Parent := kvstarter;
kavebox.Left := 25;
kavebox.Top := 318;
kavebox.Width := 250;
kavebox.Height := 17;
kavebox.Caption := 'Logout after Times to run hits mark?';
kavebox.ParentFont := False;
Kavebox.Font.Name := 'Shredder';
kavebox.Font.Height := -14;
kavebox.Font.Color := clgreen;
kavebox.Parent := kvstarter;
kavebox.TabOrder := 11;
TimesRan := TEdit.Create(kvstarter);
TimesRan.Parent := kvstarter;
TimesRan.Left := 135;
TimesRan.Top := 195;
TimesRan.Width := 61;
TimesRan.Height := 21;
TimesRan.TabOrder := 12;
TimesRan.Text := '20';
LoginBtn := TCheckBox.Create(kvstarter);
LoginBtn.Parent := kvstarter;
LoginBtn.Left := 25;
LoginBtn.Top := 342;
LoginBtn.Width := 250;
LoginBtn.Height := 17;
Loginbtn.Font.Name := 'Shredder';
LoginBtn.Caption := 'Sleep then log back in?';
Loginbtn.Font.Height := -14;
LoginBtn.TabOrder := 13;
HowSleepy := TEdit.Create(kvstarter);
HowSleepy.Parent := kvstarter;
HowSleepy.Left := 135;
HowSleepy.Top := 138;
HowSleepy.Width := 61;
HowSleepy.Height := 21;
HowSleepy.TabOrder := 12;
HowSleepy.Text := '20';
Sleepbox := TLabel.Create(kvstarter);
Sleepbox.Parent := kvstarter;
Sleepbox.Left := 15;
Sleepbox.Top := 142;
Sleepbox.Width := 72;
Sleepbox.Height := 11;
Sleepbox.Caption := 'How long to sleep: (in minutes)';
Sleepbox.Font.Color := clred;
Sleepbox.Font.Height := -11;
Sleepbox.Font.Name := 'Batang';
Sleepbox.Font.Style := [fsBold];
Sleepbox.ParentFont := False;
Randombox := TLabel.Create(kvstarter);
Randombox.Parent := kvstarter;
Randombox.Left := 20;
Randombox.Top := 172;
Randombox.Width := 72;
Randombox.Height := 11;
Randombox.Caption := 'Randomsleeptime: (random added to sleeptime)';
Randombox.Font.Color := clred;
Randombox.Font.Height := -11;
Randombox.Font.Name := 'Batang';
Randombox.Font.Style := [fsBold];
Randombox.ParentFont := False;
Randslp := TEdit.Create(kvstarter);
Randslp.Parent := kvstarter;
Randslp.Left := 135;
Randslp.Top := 167;
Randslp.Width := 61;
Randslp.Height := 21;
Randslp.TabOrder := 12;
Randslp.Text := '5';
Finga := BitmapFromString(483, 448, 'z78DAEDDD4992DC381640' +
'C12BD52974FF23D5B6CC64C10289E90FEEABB6965A9D0240F011C' +
'14CFDF30F00000000000000000000000000000000000000000000' +
'00000000000000000000FFEFCF36C616000015ADB10100E04F48E' +
'6050000153D53D1EA1A00002D3DD3D54EAD010050D14EA40100D0' +
'D227DF9156D400006869DF690800408D8A8ED0D5CF5FDBB7BF9D5' +
'90600E04C51FBBE42000078DBD259EAFA57637BCB1A0080688DED' +
'3D6A0000C8D8CF6FDFAF36830000286AEF5A0300A0A8BD0D02004' +
'0B78ACE5ED4BA1A0080BB459DBDA2153500008ADA193500008A5A' +
'570300A0A86BBF07A2BA0100585BD155BB7AA49C9D6C0300305FD' +
'43D5B1A000014F5F8BFFCF2EBEF6E250000A0A89D600300A0A8B5' +
'3400005A5A570300A0A8B53400006869450D0080A2DE57D1E3FF8' +
'D0207004051CF8C9235030080A27E3E7F56CE00006869EF5D0300' +
'A0A8D53500005ABA4F456B6C0000458D936A000014B5D20600405' +
'1D77B1BC4AA0300D0D28C17B5336A0000458D373A0000D0D22A1A' +
'00002DADA2010050D459FE1572AB0500002D6DDE010050D46A190' +
'0002DED27CE0100D0A1A5CF17B8390200A05251EF6B63150D0040' +
'8DA29E696FE3090040E7A29EE970450D0080A28EF39578EF1A000' +
'0455DE95F72593B3E9E020000AA16F5DBEF1FC4B93A0000CF9DAC' +
'A5F5330000F35DCD7C336B69000045AD9001004051AFFD37D0AD1' +
'9000014B5F36A0000B474849FADA7B701001435CEB10100D0D5E7' +
'CFA5153500008A7AE6FB13153500008ADA5B1F0000286A2D0D008' +
'0A256D10000286A450D0080A246570300A0AB15350000BA3ACBCF' +
'CDB366000050D4CEA5010050D45A1A0000459DE5DF22B74E00005' +
'0D44EA7010050D4EA1A000045ADA8010050D42A1A000074F5C8CF' +
'A0B636000050D4EA1A000045ED0D10000074B5A2060040516B690' +
'00050D4BA1A000045ADA5010050D47ECA0700008ABA5B5D6B6C00' +
'0014F5DBF73D143500008AFAE419B5EA060050D47C6B690000143' +
'56FC7C4CA01004051AFFD097B7A1B004051E3275A0300A0A823BC' +
'83FD3CDA561D0080A2E6DB77352A6A000045CDFCF73C5A7500005' +
'A9A999F1662ED0100286A7CDF22008096C6BF690E0080A256D400' +
'00286A3F03040000458DA2060050D4F8FE440000B4B4AE0600405' +
'1AB6B0000B4348A1A004051A3A8010050D4BA1A000015ADAE0100' +
'50D4286A0000458DAE060050D4A86B0000B4B4A20600404BA3A80' +
'1001435EA1A00404BA3A80100B4F4DFADA539AB96B3AE0600D8D7' +
'D2388B06004051AB6500005434CA19004051A3A8010014F5DF45A' +
'76F7535008096FEF6333DD6563A2A1A0040512B6A2D0D00A0A857' +
'D5DDC8EFD4C9FA1900A05251DF2D3D15ADA50100B217F573D97EF' +
'BD3D4B57E0600E853D4DF7EBEC78EA21EF99AB377B8150800D0A1' +
'AB9F7FE7C89FD661DC667E0F0000B58BFAD729F4F89F6C840100D' +
'0D5CFBFD3E80100C048577B5B180000CE17B5DE0600404BFB2919' +
'B766C4CA0400D0D23D0B7CD5CFF476B60F00A0A8F3D675C69F7A6' +
'D3D0300286A5615B5C6060050D4389D0600D0D2C4296AED0D00A0' +
'A571520D00A0A8D1CF0000BA1A2D0D00A0A551D10000E8EADA3FF' +
'B4E570300286ABE9D3F2B6A00005DCDDAA2B656010014354E9E01' +
'007435DF6A59450300E86A767F1FA2150800A0ABF1060800009A5' +
'64B0300A0ABB3BF716D050200E86ADEFE1B2ED61B0080A2C6FB1E' +
'000028EA333F3DEFF9DF76B1F6000014353327D2BA1A004057F3F' +
'66D6A2B0D004051E33D6A000014B59606004051672F6AD50D00A0' +
'A8997F9B5A510300286ABCEF010080AEF6733F000050D44EB0010' +
'050D47DFE5D45EB0D004051E3441A000045ADA8010050D45A1A00' +
'0045DDA7A895360080A2E6F9BB0E9D540300286ABCFB010080AED' +
'6CF0000E86A750D0080A256D40000286A143500008A3A4E4BAB6E' +
'000045CDCC89B4A2060050D4CC74B596060050D478771A000045A' +
'DAE010050D48A1A000045ADA50100D0D5BCFDB979DA1B00405133' +
'D3D5D6180080A2C65B1F0000286A450D0080A2D6D50000286A5D0' +
'D00809646510300A081753500A0EB748EA23EB366BEFD7E6B0C00' +
'E8D06F6684DDEDEDDAC75E0440B766333BCCAC16EB0ABB16000AA' +
'DCFDD4A0F2BEABC2BD0D5A4B101DC19D5B55953D476891A57AB5D' +
'0B006DE60EA58ABD47DD675DB96A343680FBA6BB92198CBF1E3A3' +
'74C9FEBD73E0680127327328FCEABADA29979B18F01E01EEA7E64' +
'3615B5F5A3A8D53580BBA73B9139B55AAC9908F3621C007007712' +
'732A7568835A3AB1535803BA93B9139CDB5427CAEA1A8ED69005A' +
'9A7AF720B3669D388FED3C32BFBE7E773D60C72E67245550D5D56' +
'2BEAC90CEABC5C8B8EB0131F731E38C99A5F62E517B2E6666CA5A' +
'05ECE4F622DDD573F6CDD499CFD09F7F8FDD205A511B19450D2AD' +
'ABE6416CCBB99B54276AC930E6BA6F335F5FCF5AB11D06FEEA166' +
'C48C9B596B43519F9C112303B8BFDB9D745787B9362FD686D5B27' +
'B468C1560AFB61799A3AA736D46AC0DAB4557BBAF81A2B60B9923' +
'736D36ABAE87C8AB451FBAEE46464C5D833BBBD632538A9A5BEBC' +
'16A51D4D92BDAD935D8A5B59699EA30D7463E4B4BC7D919CC91F1' +
'EC7682048ADA0E638ECCB8D9CC3BFB9EC214B57106EC27F57618B' +
'3A0A85935CBDF7EF5D69AF9F6B5B94E5D8FF3D7026027A954D4C6' +
'BFD22C1B67D561CD44BB5A8DA7B36BB093286AB2CCB2118E59C5E' +
'3AB4257EB6A5413D84332EE2146BED25C1B5B6BC6CA893FF24655' +
'51837D4357E3EC0B4F6146DE982B6AD069761233A5A8B13358394' +
'63ECE082B6AB057D4E86A639E77968D648D35E0A454511B4FC02E' +
'A1A851D4F844C3C89B0B450D76869E7B8ED1CE3BD746AFEA7A704' +
'6DD6D37368680FDD94E8EA226E33E606CEDC36FFFBECA19B4999D' +
'DCAC296A3AEF032327E1DCDD939D1E03765A7B38E767D6185A1B8' +
'ADA6E7CE6EF12A7C33D11A0A2F1C92F8A9A08454DAE7D78664E3B' +
'94861E4351E33E6B1ECD9D35B0FB4A37DA6FE7E56EB975ABC4F89' +
'F1D80A25662E6D10C628518D5558DEDBE5FE30D1650D49847B366' +
'1EAB9E825A219DAF5F3D608E70EDA0A889B3C31BF95C6BE3FC6A3' +
'1FE6A2DEFCA79FE7ACC11AE2C22ECEDC636E6B9A23975CD5A1566' +
'CDAA3053B8FAC8B87B18E74A3BB999B242AC87F173CEECCDE69A0' +
'2D72C6F4F4ACDF8EEBD7AE45EECCA55C8D93F833677BFC6C47C29' +
'6A7045DB4FEAAD937D7FA6AB98552DDD793D7CFB33DD4F5DB3560' +
'5AE6BFA9C51E3EAEE7CADB9E3AB1D57A5A20657B77D065CE96F5B' +
'D115872BD1BD0C5CE34EA423CCAC6BA4F30E607CC0BDD5CE00AEF' +
'A6E456DBF0570573DF9269519075D5DA92A8D1880BBEAC95DDABE' +
'0DBA7AEDF734DDEA4373A4CC21D7FDC2C8D875C16E6997304755C' +
'F58DC2F20C29E6394DC37C12E6A1F302FEE1D74D8EBECF3BE7BC5' +
'CE6C57841DBBC4B73DE4D6EEE4DE873B48B7D5BEEF0AB233B87EC' +
'DC2AF12B077018A9ABCAD75F7EB31E376033368DC001435F3F714' +
'1D6B2598F7CE3368C4A07395190D2D4DDE7B8D71EE33EFC65657E' +
'B6A885C65C64451B3E3FEA2AFAC0173DD73068D1574EE31E7DB8A' +
'1A454DCCD230928A5A5743AE123BBF27CCFF7FBD1D87B5E7F93EE' +
'DE57C511B61458DA256D4E06C337EA5BB9F12B3A88DAD9626FE3C' +
'1A2550D444DE738C61AE5956D49D9FDFCDB8A2363EA0A589B9FF1' +
'83D7719633BFF8C73E6F79B7157B49101454DCC1DC958B9D718D5' +
'F19AFD350BE3B3F3F65CDAA712AEE56E33A8B250D464DC978C927' +
'B8D518D734F57D4D698195459286A74358ADA68AF9D0B736D7529' +
'6A50D4E86A14B5317F3B0B76EF4A6B66C78A729581A24651E71AB' +
'17D77D568771C33AEA5F976458FFC373B66D9B5068A9AF8BB96B1' +
'5ADBD8F363EBEABEDB4B192BDACCEEDE3FC7D79239D5D2606756D' +
'4F4B9E318ED335D64663B3C7F9D7C2EB3BF81A226F27E65F46EDD' +
'971575BD3BBE39B57ECCACA206FB73E7FDCA18DE6A69F595EB339' +
'DF15135A7D64FCF99BDFB7409BA9A98E76CACBDB344B8CB9897DD' +
'CFA4E6B4EAAA703AFDED0C414D811DB5E7098951EDF079A8911FF' +
'F3421724B9BCD9357A5A27E7B1DE928B057EFBE47E72A31B33973' +
'16FDFC7B5CD7D99F775C957D9EA49C69286AB07B3BC9B4064EF6B' +
'3A2AED403F3E7D866B0C6BEEA745A5183EB5D4B9BF7689F4498CD' +
'BC27968ABAC3EE7AFECAADFA4C0AD8CF55B479F794E4D387E7DF6' +
'3EEB2CFF2F8089B53450D76807A2727E63D7B9599414F466630F2' +
'3C3A9D56D4606F57D4663CDA9DC51975BD2726B356FB39E8E42CD' +
'7DBE562EE78A0A8DD9D633EFB9BC1E7BB46FCFB8B591BFF7C21CE' +
'3568A67657B49656D4E0EE5C7BCF8FB93B99BB2CEF0998BBF1361' +
'EEF07B356E35ABB35A76601B0DBDB6D7ACEF8CCDFDA0CE69DE538' +
'4FB56667ED277A77AF533305D8F3ED36E6FA5B9599C1C8CF44232' +
'363BE3276F5F3EC9B4D7737D05A761E736DAECD609F1934FE6B47' +
'D23C9E797A554460DFD0D266F9ED6C2A6A5560A6EC939DE731CE9' +
'30BD83DDC23CC72A5A23677B9AE4767D4F17B2CEF5EDA793FD442' +
'6027D1D566B9F65C9B1D459DE5AAD1D2F640405975D867CCA9A2F' +
'6F98299B22BBACA7435D855EC33E6B7DBCC9A2345EDAA316BBBE7' +
'5457831DC6BDC3CCBEBD6B38A3CEF246C7AF5F355311DEEE18994' +
'D5796A206EC30E6D469A759BB5BD49E7DEC8AE64B5183DDC6BDC3' +
'CCE6AA6BF315ED49C7538FBDD17C9959B0F3D85BCC6C84F73AB2C' +
'F72B7333173643F34536619D4977DC69C66296A279F31AF2CEF7B' +
'D803CD91F905F565B731A731DF1950D4F1AFA6EC579FDDCFEC986' +
'5C05EA4ABCDACD939F9ECA3A8735D173E3BB0070276A7F9F707CC' +
'69DE773CF25641EDA2AEF4EE479FD632235A1AB053ED3E61339B9' +
'E98CCCE8EB73ECC54E4BA3617BA1AB06BD973F2CEE6CCDF227EA7' +
'39E1F47641CC33845FFFD92CB8AF01F6AEF9E2CABE3BB9B39891C' +
'8A3EA743ACEDCC5BC6AEC608A1A74B59DC73C46786E3223B7AE9A' +
'EC5759E737738CBCFB17607FB323B93769E9086F7D286A4F40F62' +
'B772EA0C32E57EF54CD1D4A51DF3DF3FF35FEB9AE2CEBDF989B5F' +
'C05E37B32FD5DBBBDC71CCC5AD917CBECA5C358ACB1EA5A84151F' +
'7D9977C72ED8E632E5675B5336A5781DDE9FCE7AA0A1CEC7BD1EE' +
'383E51D5126661ED79B539722DF06D36DF56B79201BB5F9C336A9' +
'FAB6A09E33F3F0EAE14E7D2781B047475CFFD27FBAED5F3AC4651' +
'DFBA52EC6F9A4A515B0340B7FDB0764B2B6AE37FF2EEEC739C385' +
'7847156D480FBCEAD9DE7DB1E157F1FEB59D4C65F517798A3E74F' +
'0A5C0B8A1A70DFC952D4F1BB5A511BF955239CF72AE853D4BFEAD' +
'A38AB68C0DD27C2998FB73E1475CF4EFB56D459AE97DA1D157F16' +
'94B0A206FAEC4ED97730456DE44F9E546BB95BB3E32ED3B39F153' +
'5D8EBAA9ED7E9BA084F3D46FED6A997D3E93815DDA1B57AB6B48A' +
'06FB5887AED675114EAA8DFCC9AEF6D9CDADB95056F3339E6B559' +
'84750D41D8A3AF2EEE7AD4263BE6FF472DDF7EBCD8BD3CB386B69' +
'F71A33E6603FA95768593EA1F39EA1913F5374DEF7B8B59E75579' +
'FF5663CA1CF8ED1A1E246FE8EBF4E90F483A2CEFBE498BDE8AAAE' +
'E7F8E3AF090134DBDBB73E62DE4714B5313FF9798D9D4A51BF1D7' +
'97752803F8D8D17B5936A455DF5ED262D1D6755575DFFEEB380AE' +
'EE5C718AFAFCA7063E1138F9898C968E79526DCC7538A0AB9D9A9' +
'A1DE31C6DF432BE476D0D1B738D0DD851F59ED951D4715A3AE319' +
'B5356CB49536A0AB3BBC776A5E3CB3E42DEA915F3517BB57AF95A' +
'FB1015DDDADA86F9DECF92CC09A5FB59E9FFFD6769EF32BD69A57' +
'D780AEAEB7D3AEAD14E3AFA8739D54DB6DBA15F59FC6DCD901BBE' +
'EF9336A45DDE7AE5775AC469E22ED368A1A777CC0AEEBAD0F7737' +
'45F7F6FC59516B6954376007EEB0C71A5B6B7BED5845EE042BD30' +
'8EB5E405167DF75E74FB08D7CC6BB61E7370DB4F4C9598830DA76' +
'0F0077BD5B5DEDA47AF7C83BA3DEF7CE92D3E908CD1667B43D9B0' +
'3B8EBD9C33B3FCB18D55567A45ABA6751DB810174B55DDDC8FF77' +
'047A8EEAF8297496AEB6028DB6960614358AFAEE39B6515D756A7' +
'ABE465CD1F66DF302A0AB6FF549B766DE5DD4B58B62E457B5F4EE' +
'72F359809606D0D5DF0A70F76EDFA7A247FE9BCE23F9EDC9EE6E9' +
'3D41B6745ADA801ECD5674E568DF9B7B155D43BDE8A51D4E74FA7' +
'15B5A2065077DFCE06BDFBB16F54E7C7B6E72AB5639C19D57DCF8' +
'0D6B97B2EA0A8BD0162B4E74772DFF96187B73E9C979E69B90835' +
'E839114057E7DAC94FDE0B9CFC3BA39E79EF4851DF2A6AE3ACA80' +
'1ECE171EE089E598CE4FCB389FD41516B69005DDDA1858C83A2DE' +
'77C26F4FD8DD72DEF750D100F6739CF6677CF252D49DCFA55DE30' +
'08A1ADE9ED25BA53327D576831D5D679C777C26E57E0AA00CD9F1' +
'A687A2CE72E2D76DC46E8D76ED6BDF9D14401FE27D8F0867F88AB' +
'A6A51BBA2011435DC3AA3EE3C86AEFD7DA7A65A5A4B03D8F9E976' +
'7ED8B3AB5DEF3BD69B67162D0D60E707CF20AE742DADA20114357' +
'0AB677A8EDBF956B4F6001435E05C5A51771E677743007704C852' +
'2C67AAC6F388A256D4008A1A9C54BB96BF8D95CF02543480A2065' +
'DED5A5EF5A68796D6D2008A1ABCEFE1FA9D19D57DF5E8D90D0077' +
'64A8D13946EC56371A0D00DC9721E6F9AA2B377243565A75EE7A0' +
'08A1A14B5313C59D7C60400F76580B725A99F01D0D580937FB434' +
'80A206786E66FB98EA0650D40044A8685D0DA0A80170520DA0A80' +
'150D4008A1A00450DA0A801E856D18A1A605F51EB6D0027D20038' +
'A906405103E86A00E6FB595103286A009C4803A86B00B43480A20' +
'6404B03A0A801B43400BA1A005D0DA0A80158DBCF8A1A405703E0' +
'2C1A405103A0A201D0D500EA1A005D0DA0A501D0D500B8EF00E86' +
'A00B43400EA1A405703A0AE01143500BA1A405103A0AE0114F2F8' +
'0EE93E0280AE2642BD180772AD4F770D00743580373D0050D4003' +
'1FB597B03E0EE09F4AC6527D200286A8055A7D033BF0A00EEAD40' +
'8D429E7FAF433303A0A801E6BBDA1935008A1AE0EFFA9D296A27D' +
'800286AC099F3EE5DD4DD04405103E43D6D7EEEEA68050E80A206' +
'8870FEAC930150D400DF4EA47FFDAAFD1C00450D3BAACCDF71EDC' +
'8EC18D5B77FE6FC6E66E707405103BBCF81FBBC3D32BE43BA5F00' +
'A0AB8191C2ACDACCF367E6EE1400286A50CE23D7FBAA3DE1D60E3' +
'3B3CBB91700A0AB81F95ADEBD4BCC7C0D3BFEBFB434008A1A78DB' +
'96BFAEF7EC7BC2F8CE36B213BA2300A0AB01CF0ECEA201D0D5C0F' +
'9B73E56FDAFCE7CFD235F9BFD1C005D0DEC7E3BA2C3DF1100D435' +
'10B3A863EE12766C007435547D83E2EED730F335C7D913ECC300A' +
'86B20FED9F5DDA78CFFFE39CF3B8F7D18005D0D54ADEBDD5F89BD' +
'1700750DDE09F1957BBB0300D435A09C01405783823DF31E88FD1' +
'000D43530F37E883D1000D435E86767D400A0AB016F440380C606' +
'E2BCCBA1A801405D43A5A6DD77CEAC9F01405D03E30D3F7E0DDA9' +
'D00405DC3AF3EBCF52778531A00E8DCD59A9FC8EBE7DB9F6FB701' +
'00757DE6A44E0D12F9047B66C5DA6100405D43F61E1E2FDBB75FF' +
'FC8FFD6AE0200BA1A2ABD01F25CC50000EA9ACE6F41FF5AB7AE62' +
'00A0675DEB796F867C7BB7F9EFFFFCEBF70000C4AFEB08654EEDB' +
'3EBF935EC5A060032D6B54AACFADE45E4B735BC070200542A6D75' +
'ADCCBF7DB7A09FA4010030D24E354AF2EDDF687E1C568DDEDBA7A' +
'1B75FF9482DBB3A0000661A3BCE77C6CDF7EDC9BFDDAA861F6FDD' +
'B56F3B6B69008038053ED3ED6B4B78FECF89F095EC9805000032B' +
'6F4B7A2FEF667FEFA3DABFE5E336F71BCFD73DE8EC3FC185AE100' +
'00958A7DFECF595BE6599E32000020EFB38071000000000000000' +
'00000000000000000000000000000000000000000000000000000' +
'0000000000008011FF0204EB4D87');
GBMP:= GetBitmapCanvas(Finga);
CopyCanvas(GBMP, Flagg.Canvas, 0, 0, 410, 308, 0, 0, 410, 308);
end;
procedure Pushbuttn(Sender: TObject);
begin
case Sender of
Scriptkikr :
begin
kvstarter.Caption:= kvstarter.Caption + '.';
kvstarter.ModalResult:= mrOk;
end;
UserBTTN :
begin
StartPlayers(true, 'string1');
Kavenote.Lines.Add('--');
Kavenote.Lines.Add('Players Saved.');
end;
end;
end;
procedure Startdaform;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure DoDaForm;
begin
kvstarter.ShowModal;
end;
procedure Doitalready;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('DoDaForm', v);
end;
Procedure Passout;
Var Sleepint1 ,Sleepint2,Sleepint3,Sleepint4 : Integer;
Begin
If (LogBackIn = false) Then
Begin
TerminateScript;
End
Else
if (LogBackIn = true) Then
Begin
Sleepint3:= (StrToInt(HowSleepy.Text));
Sleepint4:= (StrToInt(RandSlp.Text));
Sleepint2:=(Sleepint3+random(Sleepint4));
Sleepint1 := (60000 * Sleepint2);
Logout;
Writeln('Logging the damn script out for:');
Writeln(IntToStr(Sleepint2) + ' minutes.');
Sleep(Sleepint1);
Writeln('Logging in for another round:');
FindCave;
Sleepy:=0;
End;
End;
Procedure DeclarePlayers;
begin
HowManyPlayers:=1;
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
end;
Function FindFastRandoms: Boolean; // WT-Fakawi.
var
i: Integer;
begin
for i:=1 to 8 do
begin
case I of
1: If FindDead then
begin
Result := True;
terminatescript;
end
2: If FindMod then
Result := True;
3: If FindMime then
begin
Result := True;
terminatescript;
end
4: If FindMaze then
begin
Result := True;
terminatescript;
end
5: If FindQuiz then
begin
Result := True;
terminatescript;
end
6: If FindDemon then
begin
Result := True;
terminatescript;
end
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
terminatescript;
Exit;
end;
end;
8 : If FindFight Then
Begin
Result := False;
Writeln('Found fight checking if in cave');
End;
9: If FindTalk Then Result := True;
end;
Wait(1);
end;
end;
{-------------------------------------------------------------------------------
Procedure FTWaitAll(Time:Integer); // By WT-Fakawi.
Anti-Random and Wait Procedure.
-------------------------------------------------------------------------------}
Procedure FTWaitAll(Time:Integer); // WT-Fakawi.
var t: integer;
begin
For T:=1 to Time do
begin
Wait(5);
FindTalk;
end;
FindFastRandoms;
MarkTime(FindNormalRandomsTime);
if FindNormalRandomsTime-ScriptStartTime1 >(10000+Random(5000)) then
begin
FindNormalRandoms;
MarkTime(ScriptStartTime1);
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));
end;
MarkTime(FindFastRandomsTime);
if FindFastRandomsTime-ScriptStartTime2 >(1500+Random(1500)) then
begin
FindFastRandoms;
MarkTime(ScriptStartTime2);
end;
end;
//----------------------------------------------------------------------------//
Procedure Hello;
Begin
Writeln('----------------------------KAVKILLR-------------------------------');
Writeln('--------------------------Version : 3.0----------------------------');
Writeln('********************SCAR F**K**G ROCKS!!!!!!!!!!!!!!!**************');
End;
//----------------------------------------------------------------------------//
Procedure PointCamSouth;
Begin
SendArrowSilentWait(3, 1700+random(100));
Wait(100+random(50));
SendArrowSilentWait(2, 1500+random(400));
Wait(100+random(50));
End;
//----------------------------------------------------------------------------//
Function xFindFight : Boolean;
begin
if(findcolor(x,y,65280,s1,s2,s3,s4) or findcolor(x,y,255,s1,s2,s3,s4))then
begin
Result:= True
end
else
begin
end
end;
//----------------------------------------------------------------------------//
Function Hitpoints:Boolean;
begin
result:=false;
if HPPercent < 90 then result:=true
end;
//----------------------------------------------------------------------------//
Function DeadYet:Boolean;
var rx, ry:integer;
begin
FTWaitAll(3);
if(findSymbol(rx,ry,'minigame') or (findsymbol(rx,ry,'bank')) and not (xFindFight or infight))then
begin
Result:= True;
Sleepy:=Sleepy+1;
end;
end;
Function Ftc : Boolean;
begin
if(findcolor(x,y,195836,M1,m2,m3,m4)) then
begin
Result:= True;
end
end;
Function NTrapped : Boolean;
var xx2,yy2:integer;
begin
if not (FindSymbol(x,y,'minigame') or findsymbol(x,y,'bank')) then
begin
if(ftc and xFindFight)then
begin
Result:= True;
end
else
begin
if(ftc) and not (infight and DeadYet) then
begin
if(findcolor(xx2,yy2,60909,M1,m2,m3,m4) and not findsymbol(x,y,'bank') or findsymbol(x,y,'minigame')) then
begin
Mouse(xx2,yy2,0,0,True)
Flag;
end;
end;
end;
end;
end;
Procedure Report;
Begin
FTWaitAll(1);
Players[CurrentPlayer].Level[1] := GetSkillLevel('attack');
Players[CurrentPlayer].Level[2] := GetSkillLevel('strength');
Players[CurrentPlayer].Level[3] := GetSkillLevel('defence');
Players[CurrentPlayer].Level[9] := GetSkillLevel('hitpoints');
Players[CurrentPlayer].Level[6] := GetSkillLevel('magic');
Players[CurrentPlayer].Level[13] := GetSkillLevel('ranged');
//cleardebug;
writeln('===========================================================');
writeln('======================KAVEKILLR 4.5========================');
writeln('===========================================================');
WriteLn('=================Worked for '+ TimeRunning + '=============');
Writeln('* Att:='+IntToStr(Players[CurrentPlayer].Level[1]));
Writeln('* Str:='+IntToStr(Players[CurrentPlayer].Level[2]));
Writeln('* Def:='+IntToStr(Players[CurrentPlayer].Level[3]));
Writeln('* HP:='+IntToStr(Players[CurrentPlayer].Level[9]));
Writeln('* Mage:='+IntToStr(Players[CurrentPlayer].Level[6]));
Writeln('* Range:='+IntToStr(Players[CurrentPlayer].Level[13]));
writeln('===========================================================');
writeln('==============You Have Completed cave ' + inttostr(TotalDone) + ' times==============');
writeln('========================' + inttostr(TotalNeeded - TotalDone) + ' times left=====================');
writeln('===========================================================');
SRLRandomsReport;
End;
Procedure DoChats;
Begin
FTWaitAll(4);
SetChat('On', 1);
SetChat('On', 1);
SetChat('Off', 2);
SetChat('Off', 2);
SetChat('Off', 3);
SetChat('Off', 3);
End;
Procedure LoadBits;
begin
NPC := BitmapFromString(5, 5, 'z78DA8D8AB911C0300CC356' +
'8293F30291C8FD478AFC752902DDA10045F2D4FDB065B57B187DF' +
'47070B9BB4316B0D7D5A795AA1EC55919B4F5BFFB2C2F34572266' +
'');
end;
Procedure Calibrate;
var lx,ly:integer;
begin
FTWaitAll(2);
MakeCompass('S');
Wait(150+random(500));
SendArrowSilentWait(2,1000+Random(500));
if not(findcolor(x,y,CaveColor,S1,s2,s3,s4)) then
begin
if(FindSymbol(lx,ly,'minigame'))then
begin
FTWaitAll(1);
Flag;
mouse(lx,ly,3,3,true);
end
end
end;
procedure FFF;
var abc:integer;
begin
wait(2500);
repeat
if(not(loggedin)) then
begin
LoginPlayer;
end
abc:= abc+1;
wait(1000+random(500));
if(infight or xFindFight) then
begin
abc:= 10;
end
until(abc = 10);
end;
procedure FindCave;
var ccolor:integer;
begin
if not(LoggedIn)then
begin
LoginPlayer;
DoChats;
PointCamSouth;
SetRun(true);
end
//OhCrap;
FTWaitAll(1);
SetFightMode(CombatStyle);
if not(FindColorTolerance(x,y,CaveColor,s1,s2,s3,s4,5)) then
begin
Calibrate;
end
repeat
if(not(loggedin)) then
begin
LoginPlayer;
end
if(FindColorTolerance(x,y,CaveColor,s1,s2,s3,s4,5)) then
begin
Mouse(x,y,1,1,False)
wait(200+random(200))
FTWaitAll(1);
if(ClickOption('nter',1))then
begin
ccolor:= 1;
TotalDone:= TotalDone+1;
FTWaitAll(1);
end
end
else
begin
Calibrate;
end
until(ccolor=1);
FFF;
end;
Procedure RandWalk;
var rand1:integer;
begin
if not (FindSymbol(x,y,'minigame') or findsymbol(x,y,'bank')) then
begin
FTWaitAll(1);
rand1:= random(4);
if rand1 = 0 then
begin
FTWaitAll(2);
Mouse(649,29,10,10,True);
Flag;
NTrapped;
end
if rand1 = 1 then
begin
FTWaitAll(1);
Mouse(649,134,10,10,True);
Flag;
NTrapped;
end
if rand1 = 2 then
begin
FTWaitAll(1);
//Mouse(706,81,10,10,True);
SleepAndMoveMouse(5006 + random(1109));
Flag;
NTrapped;
end
if rand1 = 3 then
begin FTWaitAll(1);
//Mouse(603,79,10,10,True);
SleepAndMoveMouse(2027 + random(4056));
Flag;
NTrapped;
end;
end;
end;
Procedure NeedWalk;
begin
if not (FindSymbol(x,y,'minigame') or findsymbol(x,y,'bank')) then
begin
if(infight or isfight or ftc) then
begin
FTWaitAll(1);
end
else
begin
FTWaitAll(1);
wait(3000+random(1000));
repeat
if(not(loggedin)) then
begin
LoginPlayer;
FTWaitAll(2);
end
RandWalk
until(infight or isfight or ftc)
;end
end;
end;
procedure SetupClient; //I think this is sumilions too.
begin
ClearDebug;
ClearReport;
startdaform;
Doitalready;
if(UsePlayerForm)then
begin
StartPlayers(false, 'string1');
end
else
DeclarePlayers;
for x := 0 to HowManyPlayers - 1 do
Players[x].String2 := 'obbydungeon';
CurrentPlayer := StartPlayer;
BenMouse := True;
ActivateClient;
kvstarter.ModalResult := mrOk;
end;
procedure Setup;
begin
SetupClient;
If (LoginBtn.checked) Then
Begin
LogBackIn := true;
End
Else
If (LoginBtn.checked = false) Then
Begin
LogBackIn := false;
end;
LoadBits;
Mousespeed:= Mspeed;
if not(loggedin) then
begin
LoginPlayer;
end
Calibrate;
end;
Procedure AntiBan2;
var rand3:integer;
begin
rand3:= random(6);
case rand3 of
0: PickUpMouse
1: BoredHuman
end;
end;
procedure LookAtSkill;
var randd,randd2,randd3 : integer;
begin
FTWaitAll(1);
randd2:= random(10)
if randd2 = 1 then
begin
GameTab(2);
randd:= random(10);
case randd of
0: Hoverskill('attack',False);
1: HoverSkill('hitpoints',False);
2: HoverSkill('defence',False);
3: HoverSkill('strength',False);
4: Hoverskill('attack',False);
5: HoverSkill('hitpoints',False);
6: HoverSkill('defence',False);
7: HoverSkill('strength',False);
8: HoverSkill('magic',False);
9: HoverSkill('ranged',False);
end;
wait(1200+random(400));
randd3:= random(4);
if randd3 = 1 then
begin
GameTab(4);
end;
end;
end;
procedure StayLoggedIn;
var rand2:integer;
begin
FTWaitAll(1);
Rand2:= random(52);
case rand2 of
0: SendArrowSilentWait(1,100+Random(500));
1: SendArrowSilentWait(0,250+Random(500));
2: SendArrowSilentWait(2,560+Random(500));
3: SendArrowSilentWait(3,362+Random(500));
4: SendArrowSilentWait(1,475+Random(500));
5: SendArrowSilentWait(0,856+Random(500));
6: SendArrowSilentWait(2,203+Random(500));
7: SendArrowSilentWait(3,405+Random(500));
8: SendArrowSilentWait(1,230+Random(500));
9: SendArrowSilentWait(0,705+Random(500));
10: SendArrowSilentWait(2,680+Random(500));
11: SendArrowSilentWait(3,940+Random(500));
12: Antiban2;
13: AntiBan2;
14: AntiBan2;
end;
end;
//----------------------------------------------------------------------------//
{ MAIN LOOP }
//----------------------------------------------------------------------------//
begin
SetUpSRL;
DisguiseScar(Myscarname);
Hello;
if(LoggedIn) then
begin
writeln('Start the script logged out, and let it log you in.');
writeln('Restart the script, and try again');
TerminateScript;
end
MarkTime(BreakTime);
Setup;
repeat
FTWaitAll(2);
Findcave;
lol:= random(3);
if lol = 1 then
begin
setrun(true);
end
wait(4000+random(1000));
repeat
if(not(loggedin)) then
begin
LoginPlayer;
DoChats;
end;
FTWaitAll(2);
StayLoggedIn;
NTrapped;
LookAtSkill;
NeedWalk;
NTrapped;
Wait(5000+random(2500));
until(DeadYet);
begin
Sleeper:= (StrToInt(TimesRan.Text));
if (Sleepy >=Sleeper) then
begin
Passout;
end;
end;
Report;
until (False);
Logout;
TerminateScript;
end.
Ok I downloaded SRL v3.7 and the KAVEKILLER works but now i got a little error:
0
Error detecting Compass Angle.
Could sum1 help me with this lil error plz?![]()


does this keep the combat style at what u set it to because on the other 1s it dnt and it kept raising me att -.- instead of str
this has to be the greatest script ever, took me from str 74 -> 80 in just a matter of days!
Great script, it has taken me from:
40 attack >> 70 attack
50 str >> 81 Str
Currently getting defence up have gone from 45 >> 49 so far. This is by far one of the best kave killer scripts out there. Thanks alot.
That is not an error wirh SRL, did you drag the cross heir over the game? All that means is that it just cant find the compass on the main screen...
Anyways, nice job man...
================================================== =========
======================KAVEKILLR 4.5========================
================================================== =========
=================Worked for 4 Hours, 59 Minutes and 49 Seconds=============
* Att:=61
* Str:=74
* Def:=40
* HP:=66
* Mage:=60
* Range:=61
================================================== =========
==============You Have Completed cave 74 times==============
========================426 times left=====================
I wasnt 74 str.. it was what i was going for tho... buut runescape updated... =(
but anyways... thanks
Hax0r
Is it just me or does this script no longer work with the new version of runescape?
================================================== =========
======================KAVEKILLR 4.5========================
================================================== =========
=================Worked for 1 Hours, 0 Minutes and 57 Seconds=============
* Att:=72
* Str:=71
* Def:=65
* HP:=68
* Mage:=55
* Range:=42
================================================== =========
==============You Have Completed cave 12 times==============
========================488 times left=====================
================================================== =========
Successfully executed
yap rs fucked everything up no scrips is working now
yap rs update fucked everything up... no scripts are working now....
there is one suggestion whyyou die... if it misclicks the cave and thinks you are in the cave, then it will click on the yellow dots. then if the scripts finds GetUpText, Attack. then it will rigght click the monster. i havent read the script so idk if that thing is in there.... just a suggestion.


gues what i got members i can use but im not maeking the same mistake on my main i will use twice a week takeing breaks
This script has never worked for me. It logs in then it just stop doing anything. Have I picked The color wrong? Don't thinks so, have picked the color hundreds of times.
Did you get Srl 3.81?
And If you did then did you setup players right?
(color is already correctly set btw)
pøh. I'm not that noob I have used scripts for over a year, so I know how to set it up corrctly. And yes I have SRL 3.81.
Looks like a pretty awesome fight cave script, I will post a progress report when i use it![]()
Is this going to lvl me up pretty fast for like 12 hours a week? If not i am not going to get a membership. Also, how long would it take to get lvl 75 str to around 85 with this, in hours?
Just to let you guys know scar 2.03 with srl 3.7 works if you get it off of freddy.
There are currently 1 users browsing this thread. (0 members and 1 guests)