WT-Fakawi
2006-05-13 19:25:18
Performs 5-15 times the following action:
Last loop resets the cam to N, Tilt Up.
This wont affect you script, since it doenst move our char from its place.
[php]Procedure BoredHuman;
var i:integer;
begin
for i := 1 to (5 + Random(10)) do
begin
MMouse(Random(MSX2), Random(MSY2), 0, 0);
If IsUpText('opti') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption(x, y, 'Examine');
end;
Wait(Random(50) + Random(50));
Case Random(4) of
0: SendArrowSilentWait( ((Random(2) * 2) + 1), 200 + Random(200) );
1: SendArrowSilentWait( ((Random(2) * 2)), 200 + Random(200) );
2: SendArrowSilentWait( ((Random(2) * 2) + 1), 20 + Random(20) );
3: SendArrowSilentWait( ((Random(2) * 2)), 20 + Random(20) );
end;
Wait(Random(50) + Random(50));
end;
MakeComPass('N');
SendArrowSilentWait( 0, 750 + Random(500) );
end;[/php]
- Rotates the cam,
- Moves the mouse around MainScreen,
- If it finds IsUpText('option'), it will Chooseoption('Examine');
Last loop resets the cam to N, Tilt Up.
This wont affect you script, since it doenst move our char from its place.
[php]Procedure BoredHuman;
var i:integer;
begin
for i := 1 to (5 + Random(10)) do
begin
MMouse(Random(MSX2), Random(MSY2), 0, 0);
If IsUpText('opti') then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption(x, y, 'Examine');
end;
Wait(Random(50) + Random(50));
Case Random(4) of
0: SendArrowSilentWait( ((Random(2) * 2) + 1), 200 + Random(200) );
1: SendArrowSilentWait( ((Random(2) * 2)), 200 + Random(200) );
2: SendArrowSilentWait( ((Random(2) * 2) + 1), 20 + Random(20) );
3: SendArrowSilentWait( ((Random(2) * 2)), 20 + Random(20) );
end;
Wait(Random(50) + Random(50));
end;
MakeComPass('N');
SendArrowSilentWait( 0, 750 + Random(500) );
end;[/php]