deviney
06-13-2007, 10:54 PM
Hello all,
Its me Deviney!
I was thinking of doing something new so... I came up with the idea of a dancer but... I then noticed it had been done:mad:... I then thought why not make money for dancing:spot:.
I then went out and lernt some scripting knoledge!
I then cooked up my script:stirthepot:!
I then went to use procedures like Banking, Radialwalking, Anti Randoms but.... I noticed that radial walking wasnt working in varrock :mad: i also noticed banking dosent even work in other peoples script (i mean pro's, that dosent mean they all dont work just the one's i'v tried) so i thought i would get some feedback on them:) ???
I left randoms out because i dont think there needed in early stages of development in this script. I belive this is true because i wouldnt recommend leaving it on to long if it dosent even walk!!!
The script is below.
I know scripting standards could be better but i like to leave that until last thing (i like making finished things cleaner at the end because it gives you something else to do)
I would also like some feedback on
Radial walking in Varrock
Which are the best ant randoms that i can use...Use being the key word!
Banking (why it wont work for me, is there been an update or something???)
/////////////////////////////////////////////////////////////////////////////////////
///!!!!!!.......!!!!!!!!!!!!..!!!............!!!..!!! ..!!!.......!!!..!!!!!!!!!!!!///
///!!!...!!!....!!!............!!!...........!!!..... ..!!!!!!....!!!..!!!.........///
///!!!......!!!.!!!..............!!!........!!!...!!! ..!!!.!!!...!!!..!!!.........///
///!!!......!!!.!!!!!!............!!!.....!!!.....!!! ..!!!..!!!..!!!..!!!!!!!!!...///
///!!!...!!!....!!!...............!!!.....!!!.....!!! ..!!!...!!!.!!!..!!!.........///
///!!!!!!.......!!!...............!!!.....!!!.....!!! ..!!!....!!!!!!..!!!.........///
///!!!..........!!!!!!!!!!!!........!!!!!!!.......!!! ..!!!.......!!!..!!!!!!!!!!!!///
/////////////////////////////////////////////////////////////////////////////////////
////Thanks to Benland for tweaking the chektrader!!! ///
////Thanks to Jad for telling me how to use findcolor correctly!!! ///
/////////////////////////////////////////////////////////////////////////////////////
////To use make sure the emotions tab is already open! Sorry il rix this if i get ///
////time. ///
/////////////////////////////////////////////////////////////////////////////////////
program Dancer;
{.include SRL/SRL.scar}
var
cx, cy: Integer;
const
Color = 8388736;
Color2 = 49152;
procedure Dance;
begin
MoveMouseSmooth(574+random(5),378+random(10));
GetMousePos(cx,cy);
ClickMouse(cx,cy,true);
wait(2000+500)
end;
procedure ChekTrader;
begin
if(FindColor(x,y,Color, 18, 414, 192, 430))then
begin
Mouse(x,y,0,0,true);
WriteLn('Bitmap found. Attempting to click.');
Wait(3000+1000)
if(FindColor(x,y,Color2, 227, 177, 289, 205))then
Mouse(x,y,0,0,true)
wait(6000+2000)
if(FindColor(x,y,Color2, 84, 262, 278, 330))then
Wait(1000+1000)
TypeSend('thank you!'+chr(13));
end;
end;
procedure Talking;
begin
Wait(2000+random(500));
TypeSend('Give me any money/items and i will dance like a fool!'+chr(13));
end;
begin
SetupSRL;
repeat
Dance;
Talking;
ChekTrader;
until(false)
end.
Thanks in advance!
Regards
Devine
Its me Deviney!
I was thinking of doing something new so... I came up with the idea of a dancer but... I then noticed it had been done:mad:... I then thought why not make money for dancing:spot:.
I then went out and lernt some scripting knoledge!
I then cooked up my script:stirthepot:!
I then went to use procedures like Banking, Radialwalking, Anti Randoms but.... I noticed that radial walking wasnt working in varrock :mad: i also noticed banking dosent even work in other peoples script (i mean pro's, that dosent mean they all dont work just the one's i'v tried) so i thought i would get some feedback on them:) ???
I left randoms out because i dont think there needed in early stages of development in this script. I belive this is true because i wouldnt recommend leaving it on to long if it dosent even walk!!!
The script is below.
I know scripting standards could be better but i like to leave that until last thing (i like making finished things cleaner at the end because it gives you something else to do)
I would also like some feedback on
Radial walking in Varrock
Which are the best ant randoms that i can use...Use being the key word!
Banking (why it wont work for me, is there been an update or something???)
/////////////////////////////////////////////////////////////////////////////////////
///!!!!!!.......!!!!!!!!!!!!..!!!............!!!..!!! ..!!!.......!!!..!!!!!!!!!!!!///
///!!!...!!!....!!!............!!!...........!!!..... ..!!!!!!....!!!..!!!.........///
///!!!......!!!.!!!..............!!!........!!!...!!! ..!!!.!!!...!!!..!!!.........///
///!!!......!!!.!!!!!!............!!!.....!!!.....!!! ..!!!..!!!..!!!..!!!!!!!!!...///
///!!!...!!!....!!!...............!!!.....!!!.....!!! ..!!!...!!!.!!!..!!!.........///
///!!!!!!.......!!!...............!!!.....!!!.....!!! ..!!!....!!!!!!..!!!.........///
///!!!..........!!!!!!!!!!!!........!!!!!!!.......!!! ..!!!.......!!!..!!!!!!!!!!!!///
/////////////////////////////////////////////////////////////////////////////////////
////Thanks to Benland for tweaking the chektrader!!! ///
////Thanks to Jad for telling me how to use findcolor correctly!!! ///
/////////////////////////////////////////////////////////////////////////////////////
////To use make sure the emotions tab is already open! Sorry il rix this if i get ///
////time. ///
/////////////////////////////////////////////////////////////////////////////////////
program Dancer;
{.include SRL/SRL.scar}
var
cx, cy: Integer;
const
Color = 8388736;
Color2 = 49152;
procedure Dance;
begin
MoveMouseSmooth(574+random(5),378+random(10));
GetMousePos(cx,cy);
ClickMouse(cx,cy,true);
wait(2000+500)
end;
procedure ChekTrader;
begin
if(FindColor(x,y,Color, 18, 414, 192, 430))then
begin
Mouse(x,y,0,0,true);
WriteLn('Bitmap found. Attempting to click.');
Wait(3000+1000)
if(FindColor(x,y,Color2, 227, 177, 289, 205))then
Mouse(x,y,0,0,true)
wait(6000+2000)
if(FindColor(x,y,Color2, 84, 262, 278, 330))then
Wait(1000+1000)
TypeSend('thank you!'+chr(13));
end;
end;
procedure Talking;
begin
Wait(2000+random(500));
TypeSend('Give me any money/items and i will dance like a fool!'+chr(13));
end;
begin
SetupSRL;
repeat
Dance;
Talking;
ChekTrader;
until(false)
end.
Thanks in advance!
Regards
Devine