Doing most requests..
Got a members account, though only when my mate decides to take a break.
I won't do a woodcutter/miner.
Everything else is up for discussion!
I prefer it being training a skill, but money making is fine as well![]()
Doing most requests..
Got a members account, though only when my mate decides to take a break.
I won't do a woodcutter/miner.
Everything else is up for discussion!
I prefer it being training a skill, but money making is fine as well![]()
Some potentially nice ideas for p2p scripts, in order from usual to bizarre:
red salamanders
heavy rod power fishing
barbarian agility
flatpack maker
I don't know how much you'd be interested in them, or how suited they are to being scripted.
Wow. I've been gone a very long time indeed. So much has changed.
Make that thread we talked about yesterday.
Just came to think of it right now.
(and what's up with your avatar anyway?)
Scripts: Varrock Smither! | Fight Caves Runner! | Kebab Buyer! | L.A.M.E. (Outdated)
Tutorials: SRL user-defined procedures | JaGex UID files | Printing your scripts
Applications: StartUp Notepad | SCAR Assistant
Misc: FREE Delphi 7 v2 | Official SRL Graphics
how about a fighter for cows north of lumby that use beefy bill for cowhides? bury bones/ leave them. good fighting/prayer and good money as well.
i have a great script idea other than that one, but i want to use it as my script to become a member. just need to time to learn how to script and a mentor willing to help
fight caves runner
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Could you fix this script up, it is for Battlescape and what it does is it cuts the diamonds into bolt tips and then buys more diamonds to do more, but it gets stuck when its trying to buy more.
Code:program Crafter; var x1, ShopX, ShopY: Integer; procedure FindClient; var I: Integer; begin for I := 0 to 600 do begin if (GetColor(I, 420) = 2437688) then x1 := I; if x1 > 0 then begin WriteLn('Clientti loyty (X='+IntToStr(x1)+')'); Exit; end; end; end; procedure C(x, y: Integer; Left: Boolean); begin MoveMouse(x-258+x1, y); Wait(70); ClickMouse(x-258+x1, y, Left); Wait(70); end; function ShopScreen: Boolean; begin Result := (GetColor(222+x1, 41) = 2070783); end; procedure CloseShop; var I: Integer; begin while ShopScreen do begin MoveMouse(697-258+X1, 37); Wait(30); ClickMouse(697-258+X1, 37, True); while ShopScreen and (I < 350) do begin Wait(10); Inc(I); end; if I < 350 then Exit; I := 0; end; end; function OpenShop: Boolean; var x, y, I, II, III, A: Integer; NewX: Integer; begin repeat if IsFKeyDown(10) then TerminateScript; MoveMouse(ShopX-257+X1, ShopY); while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do begin Wait(10); A := A + 1; if A = 150 then begin ClickMouse(790-258+X1, 263, True); Wait(80); ClickMouse(790-258+X1, 263, True); Wait(80); MoveMouse(ShopX-257+X1, ShopY); end; if A = 300 then begin for A := 300 to 400 do begin NewX := ShopX+A-300; MoveMouse(NewX-257+X1, ShopY); Wait(100); if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break; NewX := ShopX-A+300; MoveMouse(NewX-257+X1, ShopY); Wait(100); if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break; end; if A < 400 then ShopX := NewX else TerminateScript; end; end; ClickMouse(ShopX-257+X1, ShopY, False); III := 0; while (III < 50) do begin if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then begin ClickMouse(ShopX, Y+20, True); Break; end; Inc(III); Wait(5) end; if III > 49 then Continue; //Wait(100); //ClickMouse(ShopX-258+X1, ShopY+42, True); I := 0; repeat Wait(10); I := I+1; until(ShopScreen or (I > 200)); until(ShopScreen); MoveMouse(445-258+X1, 130); Wait(50); ClickMouse(445-258+X1, 130, False); while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5); ClickMouse(435-258+X1, 216, True); Wait(50); CloseShop; repeat Wait(10); II := II+1 until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200); end; procedure Clicks; var x, y: Integer; begin MoveMouse(970, 445); Wait(50); repeat if IsFKeyDown(10) then TerminateScript; MoveMouse(953-258+X1, 445); Wait(10); ClickMouse(953-258+X1, 445, True); Wait(40); MoveMouse(931-258+X1, 445); Wait(10); ClickMouse(931-258+X1, 445, True); Wait(40); until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765); ClickMouse(790-258+X1, 263, True); Wait(10); ClickMouse(790-258+X1, 263, True); Wait(10); ClickMouse(790-258+X1, 263, True); Wait(15); end; begin Wait(3000); FindClient; //GetMousePos(ShopX, ShopY); ShopX := 517; ShopY := 167; repeat Clicks; OpenShop; until(false); end.
please dont spam all request threads with this script.
ask in one place please
Edit: Link to first Thread
Scripts: Varrock Smither! | Fight Caves Runner! | Kebab Buyer! | L.A.M.E. (Outdated)
Tutorials: SRL user-defined procedures | JaGex UID files | Printing your scripts
Applications: StartUp Notepad | SCAR Assistant
Misc: FREE Delphi 7 v2 | Official SRL Graphics
There are currently 1 users browsing this thread. (0 members and 1 guests)