Haha, you even creditted me in your script. Thanks. Looked through your code, haven't run it though. I like your logic, but there is room for improvement, codewise. I can see you work middle out, meaning you know exactly what you want, and you build stuff on top of the core.
The whole Setup Procedure can be easily replaced by one Setup(Where); Like this
Simba Code:
Procedure Setup(Where:String);
begin
case Where of
'Top' : Mouse(Top.x+15, Top.y+20, 10, 10, true);
'Left' : Mouse(left.x + 20, Left.y + 10, 15, 10, true);
'Right' : Mouse(Right.x+30, Right.y+10 ,10, 10, true);
'TopLeft': Mouse(Top.x - 30, Top.y + 20, 10, 10, true);
end;
Flag;
wait(random(500));
SetTrap;
end;
or can be made even smaller
Good work! No criticism