gonna make just over 50k wines to hit 99 want this cape to add to my newly made runecrafting cape.![]()
gonna make just over 50k wines to hit 99 want this cape to add to my newly made runecrafting cape.![]()
We are VillaVu a community, We are Simba.
Hear us Roarrrrrrrrrrrrrrr!!!!!!!!
~Life is what you decide to make it, nothing is pre-ordained other than the steps you choose to make~
~Karma is Fierce, do the wrong thing and she will get you~!d
Sweet!
Looking like a proper script. I'm viewing the code now, just to check how you do things![]()
Banking System: Opening Bank Type; Soul Wars/Chest
Banking System: Depositing All Items
Failed to withdraw
Banking System: Withdrawing Grapes
Failed to withdraw
Banking System: Withdrawing Jugs
Banking System: Banking failed, trying again
Banking System: Opening Bank Type; Soul Wars/Chest
Banking System: Depositing All Items
Failed to withdraw
Set grapes and Jugs to 15 and 25 respectively, clicks both but clicks away right after for each one. any help?
Last edited by rjk1990; 05-02-2012 at 02:00 PM.
Oh right xD I drew from the instructions that the script did that itself, my badGreat script though. Runs flawlessly after that minor hiccup. I'd post a proggy but i can't even afford to run it for an hour at a time :thumbs:
Just got 99 cooking from this script, thanks.Took 3 days on wines.
hello sin is this working still? got 20k grapes and juges buying in ge just for thisneed to do 46k sigh
hope this script still going ...
i wouldent waste 50m on grapes and jugs of water if there was a working legit cooker which u dont have to baby sit each 15 mint XD beside its like 550-600k xp hour 99 in 1 day from 80ish XD
back: omg the xp per hour with this is crazy last time i had great xp like this with was with construction XD gona post big progys soon atm 20ish k left to do just started wish me luck brb
0mfg0rz free wine for all villavue boters XD
===================================
============S1NWines================
Time Running: 3 Hours, 24 Minutes and 16 Seconds
XP Earned: 1590400
more like 500kish xp per hour i reckon![]()
Last edited by pkwa9lawy; 05-29-2012 at 01:26 PM.
thanks for 99 cooking .. <3 waiting for ur chinner my rune pure just finished ghouling to 99 str XD want to max range
Lol this script is flawless and also if u want to string bows you can also use this lol. i strung 50k yew longs with this script to, 99 cook and 99 fletch! LEGIT =)
Change these codes to this ;
grapeSlot := 1;
jugSlot := 2;
and put your graes on first place and jug second one. actually the original was grapes 30 and jug 40. just replace it with that code and save.
great script thx sin!!
Its not finding the chat interface for wines, is a color change needed?
To fix the chat option your procedure "Get drunk" should be this:
I removed the if statement and changed it to a random wait click.Code:procedure GetDrunk; var t:Integer; begin MouseItem(14,1); writeLn('Wine System: Clicked Item 1'); MouseItem(15,1); writeLn('Wine System: Clicked Item 2'); begin writeLn('Wine System: Found Chatbox interface'); MarkTime(t); Wait(800+random(200)); Mouse(256,430,30,20,True); writeLn('Wine System: Clicked widget'); repeat wait(3000); writeLn('Wine System: Performing antiban'); case random(300) of 0..10: HoverSkill(SKILL_COOKING,False); 20..30: BoredHuman; 60..65: RandomMovement; end; if TimeFrommark(t) > 10000 then break; until InvCount = 14; end; end;
thank you sir
This is even better in my opinion:
Simba Code:program new;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}
{$I sps/sps.simba}
var
grapeSlot,jugSlot:Integer;
StartTime:Integer;
//progress variables
XP,XPH,Sec,value2,Door2:Integer;
Shield,Guthans:Boolean;
procedure DeclarePlayers;
begin
grapeSlot := 01;
jugSlot := 11;
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
end;
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
randSpeed: extended;
X,Y,X2,Y2,A,Dist,MP: integer;
begin
A := MouseSpeed;
GetMousePos(X, Y);
Dist := Distance(X, Y, eX, eY);
MP := Round(Dist/150);
if MP < 0 then
MP := 1;
randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
X2 := RandomRange(eX-(A*MP), eX+(A*MP));
Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
GetMousePos(X, Y);
MMouse(eX, eY, ranX, ranY);
MouseSpeed := A;
end;
function WithdrawBankSlot(Slot,Amount:Integer):Boolean;
var
Much:String;
begin
Result := False;
if BankScreen then
begin
MouseSpeed := 40;
MouseBankSlot(Slot,0);
Wait(RandomRange(30,200));
Much:= IntToStr(Amount);
if OptionsExist([Much],True) then
begin
ClickMouse2(True);
Result := True;
end;
end;
if Result then
exit else writeln('Failed to withdraw');
MouseSpeed := 18;
end;
procedure Proggy;
begin
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
writeLn('===================================');
writeLn('============S1NWines================');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writelN('===================================');
writeLn('===================================');
end;
procedure Bank;
var
t,x:Integer;
begin
writeLn('Banking System: Opening Bank Type; Soul Wars/Chest');
OpenBankChestEdge(SRL_BANK_SW);
MarkTime(T);
repeat
wait(10);
if PinScreen then
begin
InPin(Players[CurrentPlayer].Pin);
writeLn('Banking System: Entering Pin');
wait(randomrange(100,200));
end;
if TimeFromMark(T) > 5000 then
begin
writeLn('Banking System: Bank Opening Failed, trying again');
Bank;
Exit;
end;
until(BankScreen);
if BankScreen then
begin
writeLn('Banking System: Depositing All Items');
DepositAll;
WithdrawBankSlot(grapeSlot,14);
writeLn('Banking System: Withdrawing Grapes');
WithdrawBankSlot(jugSlot,14);
writeLn('Banking System: Withdrawing Jugs');
for x := 0 to 20 do
begin
wait(random(100));
if InvFull then break;
end;
if InvFull then
CloseBank else
begin
writeLn('Banking System: Banking failed, trying again');
Bank;
Exit;
end;
end;
end;
procedure GetDrunk;
var
t:Integer;
begin
MouseItem(14,1);
writeLn('Wine System: Clicked Item 1');
MouseItem(15,1);
writeLn('Wine System: Clicked Item 2');
if WaitColor(230,426,4141067,5,2000) then
begin
writeLn('Wine System: Found Chatbox interface');
MarkTime(t);
MouseBox(233,416,285,434,1);
writeLn('Wine System: Clicked widget');
repeat
wait(randomrange(400,500));
case random(3000) of
0..10: begin writeLn('Wine System: HoverSkill');HoverSkill(SKILL_COOKING,False);end;
20..30: begin writeLn('Wine System: BoredHuman');BoredHuman; end;
60..65: begin writeLn('Wine System: Random movement');RandomMovement; end;
end;
if TimeFrommark(t) > 10000 then
break;
until InvCount = 14;
end else
begin
writeLn('Wine System: Failed to find the color, trying again!');
GetDrunk;
Exit;
end;
end;
begin
ClearDebug;
SetupLogin;
DeclarePlayers;
LoginPlayer;
ActivateClient;
MouseSpeed := RandomRange(19,21);
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;
StartTime:=GetSystemTime;
repeat
Bank;
getdrunk;
Proggy;
until not LoggedIN;
end.
i think i've made it a little faster.
will post proggy in some hours.
Former Name: MasterCrimeZ.
ToDo: 1. Finish my private bot 2. Make some cool bots for this community 3. Become a member
If you have any questions about scripting, feel free to PM me
original xp/h was 525k?
what a waste of time
============S1NWines================
Time Running: 5 Minutes and 52 Seconds
XP Earned: 67200
XP/h: 687272
===================================
will see if this holds up
Edit: mehh, not as high as I hoped, but still...
Btw, would it be possible to add urns support to this script? Or doesnt cooking urns work with wine?
===================================
============S1NWines================
Time Running: 13 Minutes and 3 Seconds
XP Earned: 120400
XP/h: 584939
===================================
Time Running: 25 Minutes and 16 Seconds
XP Earned: 240800
XP/h: 588113
===================================
Edit: maybe it gets higher with a higher cooking lvl? I started this on lvl 66 ... :')
Last edited by Master BAW; 07-05-2012 at 10:17 AM.
Former Name: MasterCrimeZ.
ToDo: 1. Finish my private bot 2. Make some cool bots for this community 3. Become a member
If you have any questions about scripting, feel free to PM me
There are currently 1 users browsing this thread. (0 members and 1 guests)