hey guys,
been working on my first/second (working on 2 at a time so I don't get bored) script.
Why won't it enter the pin in the bank?Code:{ } program GreenRingEnchant; {$DEFINE SMART} {$i SRL\SRL.simba} var t, r, q, m, ring, x, y, spell: integer; Clock: TIntegerArray; procedure DeclarePlayers; begin HowManyPlayers := 1; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name := ''; //Runescape Username Players[0].Pass := ''; //Runescape Password Players[0].Nick := ''; //3-4 letters that you will recognise Players[0].Member := True; //Are you a member? Players[0].Active := True; //Not sure what this means... I saw it on other scripts Players[0].Pin := ''; //Bank Pin Players[0].BoxRewards := ['Xp', 'mote', 'ostume','ssence']; end; procedure Enchantthatshit; var i : Integer; begin Spell := DTMFromString('m6wAAAHic42ZgYMhmYmAoBuJSKAax85gg4hlAnAbEmVAxXUYGBiMg1gNiLSBWB2JVKAaxQfLGQGwCxDKbmBik+ViIwlwMxANGEjASAACR+wlw'); Gametab(Tab_Magic); Wait(randomrange(300,400)); Wait(randomrange(200,300)); for i := 2 to 28 do begin FindDTM(spell, x, y, MIX1, MIY1, MIX2, MIY2); Mouse(x,y, 0, 0, true); wait(randomrange(400,600)); InvMouse(i, 1); Gametab(Tab_Magic); Writeln('Congrats for using someone elses bot and being to lazy to code your own. Dick. ') end; end; procedure Bankthatshit; begin OpenBankChestEdge(SRL_BANK_SW); repeat wait(randomrange(60,110)); until(BankScreen); //Stops previous procedure start if bankscreen is found Mouse(655, 224, 3, 3, false); ChooseOption('All'); Withdraw(9, 0, 999); CloseBank; //Closes panel for bank Writeln('Sittin on the toilet.') end; Procedure Statistics4Bot; begin Clock := [0,0,0]; ConvertTime(GetTimeRunning,Clock[0],Clock[1],Clock[2]) Writeln('Time Running ' +tostr(Clock[0])+':'+tostr(Clock[1])+':'+tostr(Clock[2])) Writeln('We have made ' + IntToStr(t * 27) + ' Rings this Session') Writeln('We have earned ' + IntToStr(t * 27 * 140) + ' Gold Pieces this Session') Writeln('Magic Exp Earned ' + IntToStr(t * 27 * 55) + ' xp this Session') end; //This is the boring shit. This is how the bot is scripted to make everything run Begin smart_server := 44; smart_members := true; smart_signed :=true; smart_superdetail := false; SetupSRL; DeclarePlayers; LoginPlayer; t:= 0 begin repeat inc(t) // Bank; Bankthatshit; Writeln('Stealing Username and Password now.') Wait(randomrange(100,300)); Writeln('Haha, Joking. This is just a silly antiban procedure') Enchantthatshit; Statistics4bot; until(t=0); end; end.





Reply With Quote

