Hello, i was making a club penguin script , i fixed errors and stuff but now when i test it doesnt:
Press enter.
i marked where it doesnt press enter, so can somone fix it for me plz???
SCAR Code:
Program PiePenguin;
{.include SRL/SRL.scar}
{*******************************************************************************
Version 1.0 Beta!
*******************************************************************************}
////////////////////////////////////////////////////////////////////////////////
//Description: A Club Penguin Coins Getter.
//Starting Place: Up The Stairs In The Night Club.
//Need To Run: Brains.
//What Does: Gets Coins.
////////////////////////////////////////////////////////////////////////////////
//Instructions: Start At The Starting Place Set Up Const Drag The Thing Into The
//Instructions: Club Penguin Window, Then Hit Run.
////////////////////////////////////////////////////////////////////////////////
//Features: Gets Coins, Clicks Mouse, Uses The Space Bar And The Arrow Keys To
//Features: Move And Shoot (In Game 2).
//Features: Fast Club Penguin Money.
//Features: The Games Are Still Beta.
//Features: Thin Ice - Solves 1 Level. BETA - Later Will Solve More Levels!
//Features: Astro-Barrier - Currently Doesnt Solve Level 1. BETA - Will Try To Solve!
////////////////////////////////////////////////////////////////////////////////
Const
Game = 2;//Game 1 = Thin Ice. Game 2 = Astro-Barrier.
TimesToDo = 5;//How Many Times You Want To Play The Game.
Var
DidTimes, ABDidTimes: Integer;
CoinsTI, MoneyAB: Integer;
Procedure ThinIce;
Begin
If(Game = 1)Then
Begin
ClickMouse(310,172,true);
Wait(5000+random(200));
ClickMouse(325,251,true);
Wait(6000);
ClickMouse(372,396,true);
Wait(2000);
ClickMouse(202,395,true);
Wait(1000);
SendArrowWait(3, 4000);
ClickMouse(678,37,true);
Wait(2000);
ClickMouse(384,291,true);
Wait(8000);
DidTimes:=DidTimes + 1;
CoinsTI:=CoinsTI + 4;
End;
End;
Procedure Astro;
Begin
If(Game = 2)Then
Begin
ClickMouse(508,173,true);
Wait(3000);
ClickMouse(322,253,true);
Wait(8000);
ClickMouse(381,351,true);
Wait(2000);
SendKeys(Chr(13)); //DOESNT PRESS ENTER
Wait(2000);
SendArrowWait(3, 3000);
Wait(400);
SendKeys(Chr(32));
Wait(2000);
SendKeys(Chr(32));
Wait(3000);
SendKeys(Chr(32));
Wait(2000);
SendKeys(Chr(32));
Wait(1000);
ClickMouse(730,30,true);
Wait(2000);
ClickMouse(381,294,true);
Wait(8000);
ABDidTimes:=ABDidTimes + 1;
MoneyAB:=MoneyAB + 3;
End;
End;
Procedure Report;
Begin
ClearDebug;
WriteLn('PiePenguin Progress Report');
WriteLn('Current Version: 1.0 Beta!');
WriteLn('Did Thin Ice: ' + IntToStr(DidTimes) + ' Times');
WriteLn('Got Coins In Thin Ice: ' + IntToStr(CoinsTI) + ' Coins');
WriteLn('Did Astro-Barrier: ' + IntToStr(ABDidTimes) + ' Times');
WriteLn('Got Coins In Astro-Barrier Approx.: ' + IntToStr(MoneyAB) + '');
End;
Begin
Repeat
ThinIce;
Astro;
Report;
Until(DidTimes = TimesToDo);
End.
-Thanks, Pie.