are u guys happy with 1.5? if so im going to try rescripting the script with OSR and Smart8.
are u guys happy with 1.5? if so im going to try rescripting the script with OSR and Smart8.
Rescript we want to use it with smart 8 :]
Judge Found! Talking to the Judge...
Compass Angle set for:312
Firing at Target!
Competitions Played:1!
Competitions Played:2!
Error: Exception: The given DTM Index[6] doesn't exist at line 256
The following DTMs were not freed: [0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20]
does it randomly, sometimes 50 competitions in sometimes 2, any ideas?
cant w8 for the OSR Script
Why is it that after every single game, the cursor moves sporadically around the Runescape screen for about 5 seconds and then immediately clicks on the judge?
Firing at Target!
Competitions Played:56!
Most I've been able to get before it throws a misclick at a Ranger. Good script if you're watching it VERY closely. Smart8 will be beast.
so question about the actual script's function, does this gain range exp, if so how much.. is there a linear gradient as you get higher level?
And now i realize that you are the scripter and not a fellow leech looking for help on getting his client to work, haha. Anyway, I have it running (on more than 10 competitions per log this time, lol.) I am still in the dark as to how to get the smart to work. I may be totally oblivious, but is smart just not working? Been reading through these 12 pages of thread and can't really get a clear picture. I may be noobing out here, but any tips on how to get it to start smart if possible?
hopefully by me using the guide given above will solve these errors. thanks! it thought it was a dtm error but i never got a response on the help fourms
no one gave anymore suggestions so i just released it yesterday. if i have time to reaarange all my dtms i will do that.
yes it gains range exp and it makes you money. im not sure how much exp per hour but pretty decent i would say. in OSR i will be able to compute that. 0SR will also allow the script to run in smart8. the exp gains is faster as you lvl up, however idk if its linear, exponential or logrithmic.
ill try to fix that dtm error today! thanks guys!![]()
Do if script do a mistake to press and attack archer he did dmg and he runs from range guild and come again in same place its avoid from die.
P.S Today I die becou8e script do mistake and attack archer.
Error: Exception: Font [P07UpChars] not found. at line 108
The following DTMs were not freed: [0, 1, 2, 3]
keep getting this error
what guide? haha
if you have 1.5 the script WILL NOT, I repeat, WILL NOT! click unless the uptext says its the judge or the target. so unless you were ever so unlucky that as it clicked, a guard happened to walk by AS IT WAS CLICKING THE JUDGE, it was not the scripts fault. that is randomness i cant take care of. fix line 41 then.
can you all try this and let me know if it takes care the index error. i followed some guides so we'll see how this goes
Code:program AutoRangeGuilder_11; //Welcome to the AutoRangeGuilder_11! This is my first official script so please feel //free to comment me on the forums/inbox for problems and suggestions. //Thanks to everyone who has dedicated their time for the OldSchool Simba support and the Simba Community. //There is no leech but there is somethings you may want to change however. //{$DEFINE SMART8} {$I SRL/SRL.Simba} {$I SRL/SRL/Misc/Debug.Simba} {$I P07Include.Simba} var TargetDTM, TargetViewDTM, BronzeArrowDTM, CloseDTM, AgainDTM, ScoreDTM, ClicktoContinueDTM, SureDTM, Continue2DTM, x, y, a, b, i, j, targetviewboxtimer, targetfindtimer, judgefindtimer, competitionsplayedcount: integer; const judgecolor1 = 3364126; judgecolor2 = 3033937; judgecolor3 = 3763576; procedure DTM; begin AgainDTM := DTMFromString('m1gAAAHic42JgYNgHxFuA+BoQnwbig0D8F4hzGRkYUoDYD4jVgXgpEM8G4gVAPB2IZwFxARCXA3EtEOcAcT4QYwMNWDCxgJFIjAAA6o4OCg=='); ClicktoContinueDTM := DTMFromString('mbQAAAHicY2VgYDBkZGB4CaQrgDQfEGsD8REgPgSlQfgoEDMw/EfBp3dNZWAFstAxIxYMBgApxQvh'); Continue2DTM := DTMFromString('mrAAAAHic42BgYLBiZGCIBmJRIP4A5FcC6e9AmgNI2wPxESA+BKUPAPFxKD4Cxf///8eKT++aynBy22QGQoCRAIYBALyAH6o='); SureDTM := DTMFromString('mrAAAAHic42BgYGBmZGDYC6TdgPRbIH0HiPWB7MdAWhxIdwJxBxD3AHELlIbhLiDGBS4fWshw6eAcBlYgGx9mJIBhAADX4gzx'); BronzeArrowDTM := DTMFromString('mggAAAHicY2NgYDjBxMBwCIj3AvFxID4LxNuBmImRgeE/AwT/BeJ/QCwAFHM2lgXjeE8dMK2nIsKQK8LLwA+Ux4YZcWAIAACNZgyT'); TargetDTM := DTMFromString('mlwAAAHicY2dgYGADYmYg5oCyQYALKgYCfEDMDxVjgWIhIH5+O5ph08YehsgUcYasMBuG6Kz5DGvD/Bnic40YWIHyuDAjHgwFADW7Cic='); TargetViewDTM := DTMFromString('m6wAAAHic42ZgYFgKxHuA+BoQvwFiJkYGBjEgLQrEnxgheBMQPwPi5UCx1UC8DIiXAPEKILYBYjtGBD0PSGsBMcP/mQwMZ/4DMZDd8Z8ByGLwdDBhCA4JhOP/q1yAoowMpABGEjASAAD3dhgy'); CloseDTM := DTMFromString('m6wAAAHic42ZgYHjKyMDwEIhfIdH3oPgtEL8G4qVAdTeAWBOIVYBYD4pVgVgJiA2hGMReAcQrGUCAEQMXJLoxhHiagzGIzfB/JgPDGQYGVgbCGAYwTcWNkQAAfIsS3Q=='); ScoreDTM := DTMFromString('mAAEAAHic42FgYPgPxB+AmJ+RgeEzkP4JxCyMEP5fIDsXSKcAsSgQ+wHxZCCeBKX7obgPShcAcTkQ1wJxDRDnADE+0ICEL+ydDaZJBYwkYmQAAC0aEME='); end; procedure P07_DeclarePlayer; begin P07_Playername:=''; //enter your username P07_Playerpass:=''; //enter your password end; procedure Open_Inv_Tab; begin if(not P07_TabInventoryTab(4)) then begin P07_TabInventoryTab(4); end; end; procedure Free_DTMz; begin FreeDTM(AgainDTM); FreeDTM(ClicktoContinueDTM); FreeDTM(Continue2DTM); FreeDTM(SureDTM); FreeDTM(BronzeArrowDTM); FreeDTM(TargetDTM); FreeDTM(TargetViewDTM); FreeDTM(CloseDTM); FreeDTM(ScoreDTM); end; procedure Start_Comp; begin wait(randomrange(500,1000)); //P07_MakeCameraAngleHigh;// uncomment this if you are having problems with guards and need to make the camera angle high begin if P07_FindObjCustom(x, y, ['omp', 'tition', 'judge'], [judgecolor1, judgecolor2, judgecolor3], 5) then begin MMouse(x,y,3,3); if P07_IsUpTextMultiCustom(['alk','-','Comp','udge']) then begin judgefindtimer := 0; ClickMouse2(mouse_left); writeln(''); writeln('Judge Found! Talking to the Judge...'); end; end else begin writeln('Unable to find the Judge, we may have missclicked the target or are in a random!'); writeln('Adjusting the camera and intializing a timer!'); P07_MakeCameraAngleLow; P07_GetCompassAngle; P07_MakeCompassDegree(randomrange(125,160)); writeln('Compass Angle set for:' + IntToStr(P07_GetCompassAngle)); wait(randomrange(100,600)); judgefindtimer := judgefindtimer + 1; writeln('The Judge timer is at stage:' + IntToStr(judgefindtimer) +'/6'); if(judgefindtimer = 6) then begin writeln('The time to find the Judge has ran out! Logging out...'); MMouse(644,483,5,5); ClickMouse2(mouse_left); wait(randomrange(500,1500)); MMouse(633,378,5,5) ClickMouse2(mouse_left); TerminateScript; end; Start_Comp; end; end; end; procedure Click_to_Continue; begin wait(randomrange(1000,1500)); if FindDTM(AgainDTM, x, y, 10, 351, 511, 470) then begin writeln('It appears we are already in a Competition! Resuming...'); P07_MakeCameraAngleLow; end else begin wait(randomrange(600,1000)); begin if FindDTM(ClicktoContinueDTM, x, y, 10, 351, 511, 470) then begin MMouse(x,y,40,3); end; begin wait(randomrange(50,150)); ClickMouse2(mouse_left); wait(randomrange(1050,1300)); end; end; begin if FindDTM(SureDTM, x, y, 10, 351, 511, 470) then begin MMouse(x,y,40,3); end; begin wait(randomrange(50,150)); ClickMouse2(mouse_left); wait(randomrange(600,1000)); end; end; begin if FindDTM(ClicktoContinueDTM, x, y, 10, 351, 511, 470) then begin MMouse(x,y,40,3); end; begin wait(randomrange(50,150)); ClickMouse2(mouse_left); wait(randomrange(600,1000)); end; end; begin if FindDTM(Continue2DTM, x, y, 10, 351, 511, 470) or FindDTM(ClicktoContinueDTM, x, y, 10, 351, 511, 470) then begin MMouse(x,y,15,3); end; begin wait(randomrange(50,150)); ClickMouse2(mouse_left); wait(randomrange(600,1000)); end; end; writeln('The competition has started! Wielding the Bronze arrows...'); end; wait(randomrange(750,1050)); end; procedure Wield_Arrow; begin if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then begin MMouse(x,y,5,5); wait(randomrange(50,150)); ClickMouse2(mouse_left); end else begin writeln('We did not see any Bronze arrows in your inventory! Checking your equipment...'); MMouse(675,184,10,10); //equipment wait(randomrange(50,150)); ClickMouse2(mouse_left); if FindDTM(BronzeArrowDTM, x, y, MIX1, MIY1, MIX2, MIY2) then begin writeln('Bronze arrows are equipped!'); wait(randomrange(300,600)); P07_TabInventoryTab(4); end; end; end; procedure Fire_Target; begin P07_MakeCameraAngleLow; P07_MakeCompassDegree(randomrange(304,311)); writeln('Compass Angle set for:' + IntToStr(P07_GetCompassAngle)); wait(randomrange(300,700)); if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then begin writeln('Firing at Target!'); MMouse(x,y,0,0); wait(randomrange(200,600)); begin if P07_IsUpTextMultiCustom(['Fire','-', 'arget']) then begin targetfindtimer := 0; ClickMouse(x,y,mouse_left); repeat if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then begin if P07_IsUpTextMultiCustom(['Fire','-', 'arget']) then begin //MMouse(x,y,5,5); uncomment this if you want to spam click all over the target rather then one spot //ClickMouse2(mouse_left); and comment the clickmouse(x,y,mouse_left) below. ClickMouse(x,y,mouse_left); wait(randomrange(87,101)); //<80 not human like, >110 t0o slow, >2300 close pop up box end; //if you prefered 1.3[not spam clicking the target] change these numbers to (2300,2500) to slow the click rate down end else if FindDTM(TargetViewDTM, a, b, MSX1, MSY1, MSX2, MSY2) then begin targetviewboxtimer := 0; repeat targetviewboxtimer := targetviewboxtimer + 1; if(targetviewboxtimer > 50) then begin if FindDTM(CloseDTM, i, j, MSX1, MSY1, MSX2, MSY2) then begin MMouse(i,j,1,1); ClickMouse2(mouse_left); MMouse(x,y,5,5); end; end; until(FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2)); end; until(FindDTM(ScoreDTM, x, y, 10, 351, 511, 470)); begin if FindDTM(TargetDTM, x, y, MSX1, MSY1, MSX2, MSY2) then begin MMouse(x,y,5,5); if P07_IsUpTextMultiCustom(['Fire','-', 'arget']) then begin ClickMouse2(mouse_left); wait(randomrange(200,600)); end; end; end; end; end; end else begin writeln('Unable to find Target! We may have missed clicked or might be in a random!'); writeln('Timer intialized!'); targetfindtimer := targetfindtimer + 1; writeln('The Target timer is at stage:' + IntToStr(judgefindtimer) +'/5'); if(targetfindtimer = 5) then begin writeln('Looking for Judge'); Start_Comp; end; Fire_Target; end; competitionsplayedcount := competitionsplayedcount + 1; writeln('Competitions Played:' + IntToStr(competitionsplayedcount) +'!'); end; procedure AntiBan; begin case random(15000) of 1..60: begin wait(randomrange(3000,6000)); writeln('AntiBan: 3-6 second break.'); end; 200..240: begin wait(randomrange(7000,15000)); writeln('AntiBan: 7-15 second break.'); end; 1000..1040: begin writeln('AntiBan: Checking Friends List.'); MMouse(576,485,5,5); ClickMouse2(mouse_left); wait(randomrange(1000,1750)); end; 7000..7050: begin P07_HoverSkill('random', randomrange(2000, 4000)); writeln('AntiBan: Checking a random skills exp.'); end; 9600..10000: begin P07_HoverSkill('ranged', randomrange(2000,5000)); writeln('AntiBan: Checking your range exp.'); end; end; end; begin //SetupSRL; P07_DeclarePlayer; SetupP07Include; ActivateClient; ClearDebug; Wait(1000); If (Not P07_LoggedIn) then begin P07_LogInPlayer; end; DTM; repeat AntiBan; Open_Inv_Tab; Start_Comp; Click_to_Continue; Wield_Arrow; AntiBan; Fire_Target; until(competitionsplayedcount = 10); begin writeln('Number of Competitions completed!'); writeln('Logging out...'); MMouse(644,483,5,5); ClickMouse2(mouse_left); wait(randomrange(500,1500)); MMouse(633,378,5,5) ClickMouse2(mouse_left); end; AddOnTerminate('FreeDTMz'); TerminateScript; end.
Unable to find Target! We may have missed clicked or might be in a random!
Timer intialized!
The Target timer is at stage:0/5
keep getting this message
nice script, tho it would be better to be smart8 and srl-osr ^^! still goodjob!
blablaleecher ''learning to script atm^^''
Sorry again im really new to the scripting world and I'm trying not to leach hardI edited
IntoCode:begin SetupSRL; DTMZ; Addonterminate('FREEDTMZ'); repeat CrushProcess; until (not Loggedin); FREEDTMZ; terminatescript(); end.
and changed AntiBan with the various procedures, can you tell me if this is correct or am i doing something really stupid?Code:begin SetupSRL; AntiBan; Addonterminate('FREEAntiBan'); repeat until (not Loggedin); AntiBan; terminatescript(); end.
Edit: Trying your fixed index version right now
Last edited by RokxD; 04-07-2013 at 08:22 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)