deviney
2007-06-19 08:11:55
Hello all
its me again,
I was playing the game a few weeks ago and i found out that mouse's add to your agility xp when picked up.
Unluckly someone else beat me here with a script yestaday (I think my script was leaked whilst getting some help :mad:)
But i have now changed it to a more easy to use script which i will be adding more options into over time.
To use this you wil need a mouse and a small area were no one will cum.
It isnt finished but it was not ment to be out so early beside someone had beaten me to the release
heres the script:
its me again,
I was playing the game a few weeks ago and i found out that mouse's add to your agility xp when picked up.
Unluckly someone else beat me here with a script yestaday (I think my script was leaked whilst getting some help :mad:)
But i have now changed it to a more easy to use script which i will be adding more options into over time.
To use this you wil need a mouse and a small area were no one will cum.
It isnt finished but it was not ment to be out so early beside someone had beaten me to the release
heres the script:
/////////////////////////////////////////////////////////////////////////////////////
///!!!!!!.......!!!!!!!!!!!!..!!!............!!!..!!!..!!!.......!!!..!!!!!!!!!!!!///
///!!!...!!!....!!!............!!!...........!!!.......!!!!!!....!!!..!!!.........///
///!!!......!!!.!!!..............!!!........!!!...!!!..!!!.!!!...!!!..!!!.........///
///!!!......!!!.!!!!!!............!!!.....!!!.....!!!..!!!..!!!..!!!..!!!!!!!!!...///
///!!!...!!!....!!!...............!!!.....!!!.....!!!..!!!...!!!.!!!..!!!.........///
///!!!!!!.......!!!...............!!!.....!!!.....!!!..!!!....!!!!!!..!!!.........///
///!!!..........!!!!!!!!!!!!........!!!!!!!.......!!!..!!!.......!!!..!!!!!!!!!!!!///
/////////////////////////////////////////////////////////////////////////////////////
///1.To use this you WILL NEED a toy mouse. ///
///2.I suggest using it in a building upstairs ina small room that not many ///
/// people use ///
///3.Watch out for people with cats because they can use there cats to eat ///
/// your mouse!!!
///4.You need to set the color of the mouse when it on the main screen!!! ///
/////////////////////////////////////////////////////////////////////////////////////
program New;
{.include SRL/SRL.Scar}
///FindNormalRandoms; (this is how to use find randoms
var Mousey: Integer;
originv: Integer;
i: Integer;
Tries: Integer;
const
MouseMS = 16645629;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Mousebag;
begin
Mousey := DTMFromString('78DA633CC7C4C050C9C80002CC0C10F0F3E74' +
'F0639200D12FD0F048CA7816ACA51D57CFAF811AE060418CF02D5' +
'14A1AAB9724C12534D0101359730DD7374C53254356730CD39B84' +
'51C450D00BF9A1931');
if(FindDTM(mousey,x,y,566, 214,728, 452))then
begin
MouseSpeed :=12
FindNormalRandoms;
Mouse(x,y,2,2,false);
WriteLn('1');
Wait(1000+random(500))
ClickOption('Wind', 2);
WriteLn('2');
Wait(1000+random(500))
Mouse(x,y,2,2,false);
WriteLn('3');
Wait(1000+random(500))
ClickOption('Release', 2);
WriteLn('4');
FindNormalRandoms;
if(Tries = 10)then
begin
Writeln('Tried to find the color 10 times.. unsuccessfully though :( Terminating script..');
TerminateScript;
end;
end;
end;
procedure pickitup;
var I: Integer;
begin
repeat
if (FindColorTolerance(x, y, MouseMS, MCX1, MCX1, MCX2, MCX2,I)) then
originv := InvCount;
MouseSpeed :=1
WriteLn('4.5');
Mouse(x, y, 1, 1, true);
WriteLn('5');
FindNormalRandoms;
WriteLn('6');
wait(500 + random(1000));
until(not(originv = InvCount));
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
begin
for i := 1 to 8 do
MouseSpeed :=13
WriteLn('7');
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
procedure AntiBanage;
begin
WriteLn('9');
MouseSpeed :=13
if(not(LoggedIn))then
Exit;
case Random(5) of
0: begin
HoverSkill('Agility', false);
wait(2000+random(1000));
GameTab(4);
end;
1: begin
HoverSkill('Attack', false);
wait(2000+random(1000));
GameTab(4);
end;
2: PickUpMouse;
3: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
4: MouseBox(MSX1,MMY1,MMX2,MMY2,3);
5: SleepAndMoveMouse(600000+random(300000));
end;
end;
begin
SetUpSRL;
begin
repeat
WriteLn('anti');
AntiBanage;
WriteLn('bG');
Mousebag;
WriteLn('PU');
pickitup;
WriteLn('FR');
FindFastRandoms;
until(false)
end;
end.