I have a minner and i have the drop 2,28 thing but it says couldnt find question logging out i need something to locate the question or something help would be appreciated and ill give rep
Printable View
I have a minner and i have the drop 2,28 thing but it says couldnt find question logging out i need something to locate the question or something help would be appreciated and ill give rep
Post script please?
kk
SCAR Code:program MyWorkingPowerMiner;
{.include SRL\SRL.scar}
//Ore Color needed on line 23
//CopperColor = 4286610;
//TinColor = 9277080;
//ClayColor = 4553880;
//IronColor = 1910851;
//SilverColor = 12434885;
//CoalColor = 2834753;
//GoldColor = 1881051;
//MithrilColor = 7359564;
//AdamantColor = 6322272;
//RuniteColor = 8681306;
const
RockWait = 6000;//Time to hit rock again change if to fast
NumberOfUsers = 1;//can only do one 1 at the moment
StartPlayer = 1;//Cant be anything else at the moment
RockColor = 9277080;//use ore color above for what u want to powermine
RunDir = 'S'; // RunDirection, choose it wisely.
{--------------------------------------------------------
Procedure DeclarePlayers;
--------------------------------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='username here';//Username here
Players[0].Pass :='password here';//Password here
Players[0].Nick :='nick';//3 Lowercase letters of youre name
Players[0].Active:=True;
end;
procedure Miner;
begin
repeat
FindColorSpiral(x, y, RockColor, 3, 3, 515, 336)
MMouse(x, y, 3, 3)
IsTextAt2(9, 9, 'Mine', 20)
Mouse(x, y, 2, 2, True)
Wait(RockWait + Random(300))
until(InvFull)
if(InvFull = True)then
end;
procedure Randoms;
begin
TalkToRand;
FindNormalRandoms;
if (FindFight) then
begin
RunWhere(RunDir, false);
Wait(10000 + random(200))
RunBack;
end;
begin
RunWhere(RunDir, false);
Wait(2000 + random(1000));
RunBack;
WriteLn('Waiting For Gas to Stop ..');
Wait(10000 + random(2000));
end;
if (FindNewBox) then
begin
writeln('Found Strange Box Trying To Solve..')
OpenBox;
SolveBox;
wait(1000);
end;
if (FindNewBox) then
begin
GambleNewBox;
end;
if (FindNewBox) then
begin
LogOut;
Writeln('Unable To Solve Box....Terminating');
TerminateScript;
end;
begin
LoadSandArray;
LoadSWBitMaps;
SetupSandwich;
ReleasesandWich;
GetSandQuestion;
SolveSandwich;
SolveFrog;
end;
end;
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
procedure DropOres;
begin
DropTo(2, 28);
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Miner;
LoadSandArray;
LoadSWBitMaps;
SetupSandwich;
ReleasesandWich;
GetSandQuestion;
SolveSandwich;
SolveFrog;
DropOres;
until(False)
end.
Compiles ok. Whats the problem ?
Not smart to put in your username and pass into the const for everyone to see. I'd suggest taking it out.
Doh any1 can have the acc if they want a level 5 noob yes it all works but when it gets to the dropping it dnt drop it says cant find question or something then log outs
EDIT
Now it just goes to the top righthand corner plz help
SCAR Code:program MyWorkingPowerMiner;
{.include SRL\SRL.scar}
//Ore Color needed on line 23
//CopperColor = 4286610;
//TinColor = 9277080;
//ClayColor = 4553880;
//IronColor = 1910851;
//SilverColor = 12434885;
//CoalColor = 2834753;
//GoldColor = 1881051;
//MithrilColor = 7359564;
//AdamantColor = 6322272;
//RuniteColor = 8681306;
const
RockWait = 6000;//Time to hit rock again change if to fast
NumberOfUsers = 1;//can only do one 1 at the moment
StartPlayer = 0;//Cant be anything else at the moment
RockColor = 9277080;//use ore color above for what u want to powermine
RunDir = 'S'; // RunDirection, choose it wisely.
{--------------------------------------------------------
Procedure DeclarePlayers;
--------------------------------------------------------}
Procedure DeclarePlayers;
Begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='Username';//Username here
Players[0].Pass :='Password';//Password here
Players[0].Nick :='nickname';//3 Lowercase letters of youre name
Players[0].Active:=True;
end;
procedure Miner;
begin
repeat
FindColorSpiral(x, y, RockColor, 3, 3, 515, 336)
MMouse(x, y, 3, 3)
IsTextAt2(9, 9, 'Mine', 20)
Mouse(x, y, 2, 2, True)
Wait(RockWait + Random(300))
until(InvFull)
if(InvFull = True)then
end;
procedure Randoms;
begin
TalkToRand;
FindNormalRandoms;
if (FindFight) then
begin
RunWhere(RunDir, false);
Wait(10000 + random(200))
RunBack;
end;
begin
RunWhere(RunDir, false);
Wait(2000 + random(1000));
RunBack;
WriteLn('Waiting For Gas to Stop ..');
Wait(10000 + random(2000));
end;
if (FindNewBox) then
begin
writeln('Found Strange Box Trying To Solve..')
OpenBox;
SolveBox;
wait(1000);
end;
if (FindNewBox) then
begin
GambleNewBox;
end;
if (FindNewBox) then
begin
LogOut;
Writeln('Unable To Solve Box....Terminating');
TerminateScript;
end;
begin
LoadSandArray;
LoadSWBitMaps;
SetupSandwich;
ReleasesandWich;
GetSandQuestion;
SolveSandwich;
SolveFrog;
end;
end;
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
procedure DropOres;
begin
DropTo(2, 28);
end;
begin
SetupSRL;
repeat
DeclarePlayers;
Miner;
LoadSandArray;
LoadSWBitMaps;
SetupSandwich;
ReleasesandWich;
GetSandQuestion;
SolveSandwich;
SolveFrog;
DropOres;
until(False)
end.
Dude you put your username and password in!
umm where did u get your randoms and gas thing. i need for mine. can i use?
i no bt the pass lol lvl 5 -.- i dont care if any 1 takes it lol yes u can use it and do u no y mine just goes to the top left corner
when does it do it?
one sec i'll download but i know nothing about scripting :D
lol asa soon as i start it it goes to top left yesterday it works i mite start from scratch again -.-
It's ur anti randoms and anti ban...somewhere in there cos as soon as i added to script it did same thing
i think its the randoms cause i onli had antiban yesterday
EDIT nope i took out anitrandoms still dont work and antiban still dont work so nothing to do with them
ok this is a piece of bullcrap lol i put your stuff in it didn't work took it out everything exactly the same as last time and now its doing the same thing yours did but mine wasn't doing it before! how retarded lol:eek:
I even saved it before i put your stuff in and that version not working hmm.
nearly fixed i changed the Mouse bit it looks in my inventory then goes back to top left just need to change a few more things
i fixed mine just changed the ore color in my const lol.
post what u changd
the MMouse and Mouse but ill try const
EDIT
ty very much it was the const lol 1 major problem it dont drop for some reason please helppppppppppp
use this works perfectly for me put after invent full thingy:
procedure Drop;
begin
DropAll;
end;
also did u get it working with your antiban/randoms?
2,28 is for not dropping a non wielded pick
huh im confused i need it to drop 2,28 incase of pick not equpted yeah antiban and anti randoms work
lol our scripts are very alike from me looking at them lol. think we used same TUT
:D err boreas or sum1 where do i get pickhead stuff for when it comes off etc?
lol i used jad the things the beggingng tuts dont teach u
:D same rofl
err i just got smoking rock and it didn't run away why? can u post ur new script rude
wanna check your randoms
i took that out ill add back in a min i need to know how to drop the ores properly first weres youre changed version of my script?
what?
I took the gas procedure out because it werent working i will put it back in when i fix the droppping procedure post the current script u got with the working dropping procedure then i put gas into it.