Gaia Online: Script For Slots Game

A simple script to play the slots game on gaiaonline.com

Code:

//-------------------------------------------------------
//PUMPKIN KINGS SLOTBOT FOR GAIA-ONLINE
//
// Ver 1.6 Added smoother mouse movements & cashout/close options
//-------------------------------------------------------
//INSTRUCTIONS
//
//1.  Set The Slots Window With The Crosshairs
//2.  Set Preferences
//-------------------------------------------------------
program SlotBot;

const
Play= 3;    //  number of times to play    any number
Bet= 2;    //  set how many coins to bet    1 2 or 3
Cash= 1;   // cash out when finnished?     1 yes    2 no
CloseIt= 1;  // close game when done?        1 yes    2 no

//dont touch below here
//---------------------------------------------






var
i: integer;
x,y: integer;

procedure Gamble;
 begin
  i:= 0;
  repeat
   i:= i + 1;
   if(Bet=1)then
    begin
     MoveMouseSmoothEx(192+random(67),447+random(19),20,40,45,25,20);
     GetMousePos(x,y);
     Wait(500+random(300));
     ClickMouse(x,y,true);
     Wait(500+random(300));
     MoveMouseSmoothEx(438+random(67), 447+random(19),20,40,45,25,20);
     GetMousePos(x,y);
     Wait(500+random(100));
     ClickMouse(x,y, true);
     Wait(7000+random(750));
    end else
    if(Bet=2) then
     begin
     MoveMouseSmoothEx(192+random(67),447+random(19),20,40,45,25,20);
     GetMousePos(x,y);
     Wait(500+random(300));
     ClickMouse(x,y,true);
     Wait(500+random(300));
     ClickMouse(x,y,true);
     Wait(500+random(300));
     MoveMouseSmoothEx(438+random(67), 447+random(19),20,40,45,25,20);
     GetMousePos(x,y);
     Wait(500+random(100));
     ClickMouse(x,y, true);
     Wait(7000+random(750));
    end else
    if(Bet=3) then
      begin
       MoveMouseSmoothEx(192+random(67),447+random(19),20,40,45,25,20);
       GetMousePos(x,y);
       Wait(500+random(300));
       ClickMouse(x,y,true);
       Wait(500+random(300));
       ClickMouse(x,y,true);
       Wait(500+random(300));
       ClickMouse(x,y,true);
       Wait(500+random(300));
       MoveMouseSmoothEx(438+random(67), 447+random(19),20,40,45,25,20);
       GetMousePos(x,y);
       Wait(500+random(100));
       ClickMouse(x,y, true);
       Wait(7000+random(750));
      end;
  until(i >= Play);
end;

procedure CashOut;
begin
 if(Cash= 1)then
  begin
   MoveMouseSmoothEx(51+random(74),320+random(30),20,40,45,25,20);
   GetMousePos(x,y);
   Wait(500+random(300));
   ClickMouse(x,y,true);
  end else
   if(Cash= 2)then
   begin
    Wait(3000+random(666));
   end;
end;

procedure Close;
begin
 if(CloseIt= 1)then
  begin
   Wait(5000+random(2000));
   MoveMouseSmoothEx(622+random(9),6+random(9),20,40,45,25,20);
   GetMousePos(x,y);
   Wait(500+random(300));
   ClickMouse(x,y,true);
  end else
   if(CloseIt= 2)then
    begin
     Writeln('Done Slots')
    end;
end;

Begin
Gamble;
Wait(5000+random(666));
CashOut;
Close;
End.