SRL Archive - Other Scripts

This is a script for:

http://www.albinoblacksheep.com/flash/invisiblemouse

Have fun

program New;

//http://www.albinoblacksheep.com/flash/invisiblemouse
//Set cross hair and run

{.include srl\srl.scar}
var start1,finish :integer;
procedure loadbitmap;

begin;
 start1 := BitmapFromString(20, 16, 'z78DAED943B0E80300C43AFE' +
       '4B47C4740E4FE47C2820C20F113102A213A78E890973A4E81FFA4' +
       '3C5200854A0D94A6E880A88EC408E41AA9BAA27EF42DE2A481DAA' +
       '4E092D927E09ADB1FE206A6B773E706EE4BAB0B1D2778E6D536F1' +
       'B1CF790561855AC1FBA0775CBDA696407622FA26777FDFDDB91B6' +
       'EFB116DCA8FE66A9E25A193D5F2276785EC20F3038C4482A5');
   finish := BitmapFromString(17, 18, 'z78DAED954B0EC0200844AF' +
       '44FA0975A92DDCFF484D74435A2124D245D3B298D5380F452300C' +
       '0C6F0D74B6BAAB343A14BEC346BDA51956FBA72DFDF3A21E104B3' +
       'ABA4E437DDC5DAD9EC074D4A31292C4E8F4C4F19A690C36353D09' +
       '1C01FA3E06394CCD7BB1D4B49DCCF89A290F20663295A9A4DC9C3' +
       'BBF0508A9BA2FF86270C4070CA');
end;
procedure letswin;
var x,y,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6 :integer;
begin;
if(findbitmap(start1,x,y))then
Mouse(x,y,1,1,true)
Mouse(121,189,1,1,false)
if(findbitmap(finish,x1,y1))then
Mouse(x1,y1,1,1,true)
Mouse(295,388,1,1,true)
if(findbitmap(start1,x2,y2))then
Mouse(x2,y2,1,1,true)
Mouse(146,89,1,1,false)
Mouse(435,384,1,1,true)
Mouse(263,371,1,1,true)
if(findbitmap(start1,x3,y3))then
Mouse(x3,y3,1,1,true)
Mouse(167,98,1,1,false)
Mouse(453,414,1,1,true)
Mouse(232,411,1,1,true)
if(findbitmap(start1,x4,y4))then
Mouse(x4,y4,1,1,true)
Mouse(76,126,1,1,false)
Mouse(462,410,1,1,true)
Mouse(305,413,1,1,true)
if(findbitmap(start1,x5,y5))then
Mouse(x5,y5,1,1,true)
Mouse(64,100,1,1,false)
Mouse(433,409,1,1,true)
Mouse(369,412,1,1,true)
if(findbitmap(start1,x6,y6))then
Mouse(x6,y6,1,1,true)
Mouse(98,141,1,1,false)
Mouse(160,380,1,1,true)
Mouse(139,339,1,1,false)
Mouse(432,413,1,1,true)

WriteLn('Hurrah! We finished the game!')
TerminateScript;
end;

begin
setupSRL;
ActivateClient;
loadbitmap;
letswin;

end.

Feedback Pl0X :D

Right click + move mouse to proper location + left click = instant win on any level ;)

but looks nice first script?

From: Mutant Squirrle
Right click + move mouse to proper location + left click = instant win on any level ;)

but looks nice first script?

yep, MoveMouse(x,y) makes the mouse instantly appear somewhere, its rubbish for RS but GREAT for invisible mouse :D

but looks nice first script?


^^
Not first script :D

I did it late at night, i was tired so it probably was shit..

Nice first script kinda… READ YOUR PM!

ha!!! defeated it whitout your script!!!
just clicked on the right mouse button… =p