Ok this is my main loop:
But hte thing is, i dont want it to repeat,Code:begin setupSRL; setupSRLMining; RUNS := RUNS + 1 BankSym := 0; MagicSym := 0; ClearDebug; ClearReport; SafeInitSetupForm; SafeShowFormModalSetup; If AuthAccepted Then Begin CheckVer; AddPlayerResult; LoadBmb; FindRs; MouseSpeed:=10; terms; introtext; ActivateClient; If(FindPickHeadColor)then Begin progress; BoredEvery(5); RandomMoveMouseAroundEvery(5); RandomRClickExamineEvery(10) ; PeeBreakEvery(20) ; RandomGameTabEvery(3) ; SetRunEvery(5,True); repeat SetMouseSpeedEvery(300,10,5); SymbolAccuracy:= 0.1; GetBank; Wait(500) MakeCompass('N') HighestAngle; SetChat('On',1) SetChat('Off',2) SetChat('Off',3) Wait(1200+Random(100)) DisguiseScar(+Inttostr(EssTotal)+' ['+Inttostr(Trips)+'/'+Inttostr(HowTrips)+']') MouseSpeed:=10; Randomwalk; ColorShit; wait(1000+Random(1000)) TalkToAubr; Wait(2000) Wait(500+Random(1000)) detectrooms; MiningAntiBan; Minethatess; BackShop; BackToBank; until(HowTrips = Trips) End; end; end.
GetBank; and ColorShit;
GetBank ~ Gets the color of bank symbol
ColorShit ~ Gets magic shop color
But you cant do ColorShit, until it has done, RandomWalk;
If any one catches my drift....
If you dont understand, please say so and ill try and explain more clearly
Thanks
~Bigfish


Reply With Quote






