daily pastebin goal
19%
SHARE
TWEET

Make Me Anjing

a guest Jan 28th, 2016 91 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. GOBLK 7 jam pengerjaan :3
  2.  
  3. {$i srl/srl.simba}
  4.  
  5. const
  6. USERNAME = 'parabot';
  7. PASSWORD = '6135284495';
  8.  
  9. Var
  10.   X,Y, tree,DTM_black, count, water:Integer;
  11.   Status:String;
  12.  
  13. procedure proggy;  //idea from rj
  14. begin
  15.   cleardebug;
  16.   writeln('Oral Time ~~ Exiled Nser');
  17.   writeln('  Time Running: '+ MsToTime(GetTimeRunning,3))
  18.   exit;
  19. end;
  20.  
  21. Procedure MouseBox1(X1, Y1, X2, Y2: Integer; ClickType: Integer);
  22. Begin
  23.   MMouse(RandomRange(X1,X2),RandomRange(Y1,Y2),0,0);
  24.   ClickMouse2(ClickType);
  25.   Wait(RandomRange(50,100));
  26. End;
  27.  
  28. function IsLoggedIn: boolean;
  29. begin
  30. if not findcolortolerance(x, y, 1226218, 664, 163, 669, 177, 40) then
  31.   begin
  32.     result := true
  33.   end else
  34.   begin
  35.     result := false
  36.   end;
  37. end;
  38. procedure setmeup;
  39. begin
  40.   //Status := ('Setting up');
  41.  // proggy;
  42.     sleep(500);
  43.   //rsps_prayercheck();
  44.   sleep(500);
  45.   MouseBox1(538,35,555,55, mouse_left);
  46. end;
  47.  
  48. procedure login;
  49. begin
  50. if (isloggedIn) then
  51.   begin
  52.     exit;
  53.   end else
  54.   begin
  55.   wait(1000);
  56.     movemouse(453, 363);
  57.     Wait(100);
  58.     clickmouse(x, y, mouse_left);
  59.     wait(200);
  60.     movemouse(383, 212);
  61.     //Status := 'Entering Username';
  62.     //proggy;
  63.     Wait(100);
  64.     clickmouse(x, y, mouse_left);
  65.     count := 0;
  66.     repeat
  67.       Inc(count);
  68.       PressKey(VK_Back);
  69.     until count > 25;
  70.     Wait(1000);
  71.     typesend(USERNAME);
  72.     wait(1000);
  73.     count := 0;
  74.     repeat
  75.       Inc(count);
  76.       PressKey(VK_Back);
  77.     until count > 25;
  78.     Wait(250);
  79.     typesend(PASSWORD);
  80.     //Status := ('logging in');
  81.     //proggy;
  82.     Wait(5000);
  83.     setmeup;
  84.   end;
  85. end;
  86. Procedure LoadDTM;
  87. Begin
  88.   tree := DTMFromString('mQwAAAHicY2ZgYLBmYmCwAWI7IE4B8jOAOBGI7Y0FGUzVhBjMtcQZuIB8GGZEwkAAAJaiA3U=');
  89.   water := DTMFromString('mQwAAAHicY2ZgYFjKxMCwkAlC5wL52UBcAMSFgUIM7x6uZnh7UZlBEsiHYUYkDAQAZCAIug==');
  90.   DTM_Black := BitmapFromString(4, 5, 'meJxjY2JmIxcBABquAN0=');
  91. End;
  92.  
  93. Procedure FreeMem;
  94. Begin
  95.   FreeBitmap(DTM_black);
  96.   freeDTM(water);
  97.   freeDTM(tree);
  98. End;
  99.  
  100. function DebugTPA(Points: TPointArray; BmpName: string): Boolean;
  101. var
  102.   Bmp: integer;
  103.   Box : TBox;
  104.   TempTPA : TPointArray;
  105. begin
  106.   Box := GetTPABounds(Points);
  107.   Bmp := BitmapFromClient(Box.x1,Box.y1,Box.x2,Box.y2);
  108.   TempTPA := CopyTPA(Points);
  109.   OffsetTPA(TempTPA,Point(-box.x1,-box.y1));
  110.   DrawTPABitmap(Bmp,TempTPA,clRed);
  111.   DisplayDebugImgWindow(box.x2-Box.x1 + 1, box.y2-box.y1 + 1);
  112.   DrawBitmapDebugImg(Bmp);
  113.   if bmpname <> '' then
  114.     SaveBitmap(Bmp, ScriptPath + BmpName +'.bmp');
  115.   FreeBitmap(Bmp);
  116.   Result := True;
  117. end;
  118.  function rsps_getUpText:string;
  119. var
  120.   blueTPA: tpointarray;
  121.   blueATPA: t2dpointarray;
  122. begin
  123.   FindColorsTolerance(blueTPA, 15593993, 0, 0, 294, 29, 255);
  124.   if (length(blueTPA) > 1) then
  125.   blueATPA := splitTPAEx(blueTPA, 1, 10);
  126.   sortATPAFromFirstPointX(blueATPA, point(0, 0));
  127.   result:= getTextATPA(blueATPA, 5, 'UpChars');
  128.   //DebugTPA(blueTPA, 'bmp');
  129. end;
  130.  
  131.   Function rspsIsUpTextMultiCustom(Text: TStringArray): Boolean;
  132. Var
  133.   TheText: String;
  134.   i, n: Integer;
  135. Begin
  136.   TheText := rsps_getUpText;
  137.   n := High(Text);
  138.   For i := 0 to n do
  139.     If (Pos(Text[i], TheText) > 0) then
  140.     Begin
  141.       Result := True;
  142.       Exit;
  143.     End;
  144. End;
  145.  
  146. Function rsps_prayercheck(): Boolean;
  147. Var
  148.   X,Y:Integer;
  149. Begin
  150.    wait(100);
  151.    MouseBox1(711,176,724,194, mouse_left);
  152.    Begin
  153.       If (Not FindColorTolerance(X,Y,7185335,593,280,613,287,13)) Then
  154.       begin
  155.         wait(100);
  156.         MouseBox1(597,290,615,304, mouse_left);
  157.         wait(200);
  158.       end;
  159.       If (Not FindColorTolerance(X,Y,7185335,666,245,683,260,13)) Then
  160.       begin
  161.         wait(100);
  162.         MouseBox1(669,252,691,270, mouse_left);
  163.         wait(400);
  164.       end;
  165.     End;
  166.   Result:=True;
  167. end;
  168.  
  169. procedure EnterPortal;
  170. Var
  171.    TPAA: T2DPointArray;
  172.    TPA: TPointArray;
  173.    CTS, clicked, I: Integer;
  174. Begin
  175.   count := 0
  176.   repeat
  177.     inc(count);
  178.     presskey(40);
  179.   until count > 25;
  180.   rsps_prayercheck;
  181.   CTS := GetColorToleranceSpeed;
  182.   ColorToleranceSpeed(2);
  183.   setcolorspeed2modifiers(0.25, 0.12);
  184.   if FindColorsSpiralTolerance(61, 31, TPA, 11515077, 0, 0, 516, 336, 20) then
  185.   begin
  186.     ColorToleranceSpeed(CTS);
  187.     TPAA := TPAToATPAEx(TPA, 30, 30);
  188.     SortATPASize(TPAA, True);
  189.     For I := 0 To High(TPAA) Do
  190.     If GetArraylength(TPAA[i]) > 20 Then
  191.     Begin
  192.       MiddleTPAEx(TPAA[i], x, y);
  193.       MMouse(X, Y, 3, 3);
  194.       If (rspsIsUpTextMultiCustom(['safe'])) Then
  195.       begin
  196.         clickmouse(x, y, mouse_left);
  197.         wait(100);
  198.         MouseBox1(534,12,550,28, mouse_left);
  199.         wait(randomrange(6000, 7000));
  200.         exit;
  201.       end else
  202.       KeyDown(39);
  203.       wait(100);
  204.       KeyUp(39);
  205.       wait(10);
  206.     end else
  207.     KeyDown(39);
  208.     wait(100);
  209.     KeyUp(39);
  210.     wait(10);
  211.   end else
  212.   KeyDown(39);
  213.   wait(100);
  214.   KeyUp(39);
  215.   wait(10);
  216. end;
  217.  
  218. function inClw: boolean;
  219. begin
  220. wait(500)
  221.   if findDTM(water, x, y, 547, 1, 702, 164) then
  222.   begin
  223.     result := true
  224.     wait(50)
  225.     EnterPortal;
  226.   end else
  227.   begin
  228.     result := false
  229.   end;
  230. end;
  231.  
  232. function walkin(): boolean;
  233. var
  234. a, b, Dist_To_Black:Integer;
  235.   x, y, i: Integer;
  236.   colours1: TIntegerArray;
  237. Begin
  238.   if (inClw) then exit;
  239.   if FlagPresent then exit;
  240.   colours1 := [1515121, 1778265, 1449082, 1251941]
  241.   for i := 0 to High(colours1) do
  242.   begin
  243.     if FindColorTolerance(x, y, colours1[i], 607, 79, 620, 83, 60) then
  244.     begin
  245.       Result := True
  246.       begin
  247.         wait(randomrange(50, 500));
  248.         mousebox1(620, 72, 641, 79, mouse_left);
  249.         wait(randomrange(2000, 3000));
  250.         MouseBox1(534,12,550,28, mouse_left);
  251.         wait(500);
  252.       end;
  253.     end else
  254.   end;
  255. end;
  256. procedure runsouth;
  257. begin
  258. mmouse(627, 97, 4, 4)
  259. wait(10);
  260. clickmouse(x, y, mouse_left);
  261. end;
  262.  
  263. procedure runwest;
  264. begin
  265. mmouse(599, 76, 5, 5)
  266. wait(10);
  267. clickmouse(x, y, mouse_left);
  268. end;
  269.  
  270. procedure runeast;
  271. begin
  272. mmouse(652, 84, 4, 4)
  273. wait(10);
  274. clickmouse(x, y, mouse_left);
  275. end;
  276.  
  277. procedure antilure;
  278. var
  279. a, b, Dist_To_Black:Integer;
  280. Begin
  281.   findbitmaptolerancein(DTM_black, a, b, 611, 104, 652, 164, 35)
  282.   Dist_To_Black := Distance(a,b,627,85);
  283.   //Writeln('Current Distance from Bank symbol:' + ToStr(Dist_To_Black))
  284.   If (Dist_To_black >= 58) and
  285.      (Dist_To_black < 600) then
  286.   begin
  287.     wait(randomrange(50, 1000));
  288.     mousebox1(623, 108, 632, 112, mouse_left);
  289.     wait(randomrange(500,1000));
  290.   end;
  291.  If findcolortolerance(x, y,5401142, 659, 31, 675, 41, 25) then
  292.    RunWest();
  293.  If findcolortolerance(x, y,5007472, 607, 18, 617, 118, 10) then
  294.    RunSouth();
  295.  If finddtm(tree, x, y, 570, 70, 616, 124) then
  296.    RunEast();
  297. end;
  298.  
  299. Begin
  300.   setupsrl;
  301.   mouseresetclientarea;
  302.   imageresetclientarea;
  303.   LoadDTM;
  304.   Repeat
  305.     login;
  306.     proggy;
  307.     inClw();
  308.     walkin();
  309.     antilure;
  310.   Until False;
  311.   AddOnTerminate('FreeMem');
  312. End.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top