Errrorrrrsss, HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Ilikepie1995]

Hey people i was making a club penguin script for my sister since she plays it and she needs coins, and she always asks me to get them for her, well then i made this script and i wanna release it to srl too, but dammit i get errors. so can somone help me fix them? can you please check the script then when you fixed the script please post it here thanks.

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 = 1;//Game 1 = Thin Ice. Game 2 = Astro-Barrier.
TimesToDo = 5;//How Many Times You Want To Play The Game.


Var
DidTimes: Integer;
CoinsTI, MoneyAB: Integer;

Procedure ThinIce;
Begin
If(Game = 1)Then
Begin
ClickMouse(310,172);
Wait(3000+random(200));
ClickMouse(325,251);
Wait(6000);
ClickMouse(372,396);
Wait(2000);
ClickMouse(519,447);
Wait(1000);
SendArrowSilentWait(3, 4000);
ClickMouse(678,37);
Wait(2000);
ClickMouse(384,291);
Wait(8000);
DidTimes:=TIDidTimes + 1;
CoinsTI:=CoinsTI + 4;
End;
End;


Procedure Astro;
Begin
If(Game = 2)Then
Begin
ClickMouse(508,173);
Wait(3000);
ClickMouse(322,253);
Wait(8000);
ClickMouse(381,351);
Wait(1000);
SendKeysVB('{ENTER}', False);
Wait(2000);
SendArrowSilentWait(3, 4000);
Wait(400);
SendKeysVB('{BREAK}', False);
Wait(2000);
SendKeysVB('{BREAK}', False);
Wait(3000);
SendKeysVB('{BREAK}', False);
Wait(2000);
SendKeysVB('{BREAK}', False);
Wait(1000);
ClickMouse(730,30);
Wait(2000);
ClickMouse(381,294);
Wait(8000);
DidTimes:=ABDidTimes + 1;
MoneyAB:=MoneyAB + 1+random(3));
End;
End;


Procedure Report;
Begin
WriteLn('PiePenguin Progress Report');
WriteLn('Current Version: 1.0 Beta!');
WriteLn('Did Thin Ice: ' + IntToStr(TIDidTimes) + ' 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 again, Pie.

[shaunthasheep]

your biggest problem is clickmouse is

ClickMouse(x,y : integer;left : boolean);

and your using it as

ClickMouse(x,y : integer);

[Bourdou!]

What Errors are you getting? I am to lazy to run it. Also don't use scar. In my day, I used Cheat Engine on Club Penguins, got billions (Although if you get to much at one time you get banned.)

[Ilikepie1995]

your biggest problem is clickmouse is

ClickMouse(x,y : integer;left : boolean);

and your using it as

ClickMouse(x,y : integer);

oh shut lol ty man i will fix that.

What Errors are you getting? I am to lazy to run it. Also don't use scar. In my day, I used Cheat Engine on Club Penguins, got billions (Although if you get to much at one time you get banned.)

i know cheat engine but i dont it dont seem to work for me on club penguin and also, i dont want my sister's acc get banned lol.

[Ilikepie1995]

oh shoot lol rs monkey thanks alot dude, i fixed all errors .