SRL Archive - RS Scripts

second script works but still needs help


natural516

2006-05-12 21:06:34

check dis out its my second script its a tree cutter can some1 plz help me with randoms it doesnt have any .


thx
oblivian

here it is

code:
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
{ MY WOODCUTTER )
( WOOOOOOOOT my second script )
( hahahahahaha YA )
( thx to WhiteVans1. )
( WhiteVans1 is the bestst nicest )
( scripter EVER }
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////



program logcutter;
//////////////////////begin setup//////////////////////////////
const
treecolor=1189928;//color of tree
treecolorInv=2840186;//color of tree in inventory
TimeCut=15000+(5000);
treecolorInv2=2378088;
/////////////////////end of setup///////////////////////////////
var
drop,x,y:integer;
procedure cut;
begin
if(Findcolor(x,y,treecolor,0,0,1000,1000))then
wait(1000)
movemousesmoothex(x,y,10,10,10,10,0)
wait(1000)
clickmouse(x,y,true)
wait(timecut)
end;
procedure droplog;
begin
if(findcolor(x,y,treecolorInv,946,397,1175,729))then
movemouse(x,y);
Wait(300);
clickmouse(x,y,false);
wait(500);
drop := BitmapFromString(32, 8, 'z78DA337531353131774302066' +
'0604A963832492D33E969D760703F26304002C49B89DF64FC6612' +
'A31E9334C00BF0ABC765267E93F1C717316E183C24F1713AEAFE5' +
'1F713935388510F008A9F5787');
if(findbitmap(drop,x,y))then
movemouse(x,y);
wait(200);
clickmouse(x,y,true);
wait(1000)
if(findcolor(x,y,treecolorInv2,946,397,1175,729))then
movemouse(x,y);
Wait(300);
clickmouse(x,y,false);
wait(500);
if(findbitmap(drop,x,y))then
movemouse(x,y);
wait(200);
clickmouse(x,y,true);

end;
begin
repeat
cut;
droplog;
until false;
end.

XxKanexX

2006-05-12 22:34:25

Code tags next time, please.

Do them like so:
[code.] Script Here [/code.]

Except without the dots at the end.
You should end up with something like:

Script here.. ^^

Ezhang

2006-05-12 23:50:37

well choose an include (suggest srl) and do the load include thing and then every now and then have things like

FindCerter;
GambleBox;

in you procedures

ub3r |<1||3r*1337*

2006-05-13 08:38:57

you have to include SRL, now you must find all the randoms you want. put them in one procedure. now, whenever you want it to look for those randoms, just type in that procedure name

whitevans1

2014-01-08 17:35:56

Lol is this some terrible script I wrote a long time ago??? haha I use to be a more active member and wrote one or two scripts.