SRL Archive - SRL Archives

What this does is examine the map, may be good for walking antiban.
Just a usefull function.

{*******************************************************************************
Procedure RandomExamineMap(Feature : Integer);
By: NaumanAkhlaQ
Description: Examines the World map, may change zoom, Place to look.
             Or it may search for a place using a random character.
Usage : Put ExamineMap(0) to change the scope zoom.
        Put ExamineMap(1) to change the place of looking on the map.
        Put ExamineMap(2) to make it search for a random place.
        Put ExamineMap(Random(3)) to make it choose between the options!
*******************************************************************************}

Procedure ExamineMap(Feature : Integer);
Var MSped, xx, yy, I : Integer;
Begin
 MSped := MouseSpeed;
  MouseBox(528, 126, 558, 153, 1);
  Repeat
    If Random(3) = 0 Then
      SleepAndMoveMouse(900 + Random(200));
      Wait(1800 + Random(200));
  Until(Not(GetColor(235, 203) = 1118604));
    
    Begin
      Wait(800 + Random(200))
      Case Feature Of
        0 : Begin
             Mouse(573, 482, 3, 3, True);
             Wait(400 + Random(600));
               For I := 0 To Random(3) Do
                 Begin
                   MouseBox(560, 340, 590, 450, 1);
                   Wait(400 + Random(400));
                 end;
               end;
        1 : Begin
             Mouse(683, 481, 4, 4, True);
             For I := 0 to Random(2) + 3 Do
              Begin
                MouseBox(609, 327, 750, 430, 1);
                MouseSpeed := 2 + Random(2);
                GetMousePos(xx, yy);
                HoldMouse(xx, yy, True);
                Wait(999 + Random(400));
              end;
             ReleaseMouse(xx, yy, True);
           end;
        2 : Begin
            Case Random(24) Of
              0 : TypeSend('a'); 1 : TypeSend('b'); 2 : TypeSend('c');
              3 : TypeSend('d'); 4 : TypeSend('e'); 5 : TypeSend('f');
              6 : TypeSend('g'); 7 : TypeSend('h'); 8 : TypeSend('i');
              9 : TypeSend('j'); 10 : TypeSend('k'); 11 : TypeSend('l');
              12 : TypeSend('m'); 13 : TypeSend('n'); 14 : TypeSend('o');
              15 : TypeSend('p'); 16 : TypeSend('q'); 17 : TypeSend('r');
              18 : TypeSend('s'); 19 : TypeSend('t'); 20 : TypeSend('u');
              21 : TypeSend('v'); 22 : TypeSend('w'); 23 : TypeSend('y');
            end;
          SleepAndMoveMouse(2000 + Random(3000));
         end;
       end;
     MouseSpeed := MSped;
     Wait(800 + Random(900));
     Mouse(747, 17, 4, 4, True);
   end;
end;

Ready for feedback.

Looks good

but you know that all the bold words are supposed to be lowercase, right?

wow. that sounded really noobish.

for real though, the "official" scar/kaitnieks standards can be found here "http://www.kaitnieks.com/scar/scriptingsta/"

a direct quote: "Object Pascal language reserved words and key words shall always be completely lowercase. Never capitalize words that SCAR displays in bold. It's completely unnecessary and looks ugly!"

but the actual content of the code looks good!

Right? IDC…

hey, you said you wanted feedback =P i'm picky about standards

I meant about the code itself, not the syntax.

Very handy code.

Should be implemented, imo.

Thanks :)