sollek
2008-01-31 14:32:09
Line 32: [Error] (32:5): Assignment expected? this a new one on me :S anyone able to explain it for me?
program New;
Var blue, x, y : Integer;
Procedure Loadbits;
begin
blue := BitmapFromString(6, 7, 'beNq7eslu6W2DhTeACMjI3/' +
'1o5vnXCw5fPH3mJBAtOnzRbvG1sPV3X7x89unzByB6+PyZ16KLBgu' +
'vQ7gv373zWnDRaMFVky2Pody55wymnDFZe99k7V2gSP3Wa/4zTwTP' +
'Oh4041jQzGNAkdt3bl66fOHK1UuXgQgAWStbSw==');
end;
//------Refresher Pic bitmap Above (Dont Change)----\\
Procedure refresh;
Begin
If(FindBitmap(blue,x,y))Then
Begin
ClickMouse(x,y,True);
WriteLn('Found Refresher')
end //ends the found actions
else //If the bitmap isn't found then ..
begin //Begins the not found loop ..
writeln('Didn''t Find The Refresher');
End; //Ends the not found loop
//=====Main Loob Begins Here====\\
Begin;
Loadbits;
OpenWebPage('http://www.gaiaonline.com/forum/');
Wait(6000);
Line 31: Repeat
[B]Line 32: blue;[/B]
If(IsKeyDown('q'))Then
TerminateScript;
ClearDebug;
Until(False);
End.