XabdullahX
2009-06-01 03:11:48
Hi
I Got this so far (Sorry no standards):
You can play the game here: http://onemorelevel.com/game/camperstrike
My problem is owning the dolls, right nw, it tries to attack the body (White area), but it doesnt hit it :(
Also, can i make a dtm to own the dolls in the head ?
The problem is that they zooom iiiiiinnn and ooooouuuutttt,
I Got this so far (Sorry no standards):
program CamperStrike;
{.Include SRL/SRL.Scar}
const
Name = 'XabdullahX';
var CheckPlace,x,y : Integer;
DTM : LongInt;
Procedure InGame;
Begin
If Not FindColor(x,y,255,0,0,646,454) Then
Begin
Mouse(x,y,0,0,True);
End else
End;
Function Place : String;
Begin
CheckPlace := GetColor(36,202)
Case CheckPlace of
39423: Result := 'StartScene';
5787976: Result := 'Game Over';
8494510: Result := 'InGame';
end;
end;
Procedure StartGame;
begin
If (Place = 'StartScene') then
begin
WriteLn('Entering Name..');
WriteLn(Name);
Mouse(481,338,0,0,True);
TypeSend(Name);
wait(500);
Mouse(487,377,0,0,True);
end else
begin
WriteLn('Somewhere else');
end;
end;
Procedure Own;
begin
if (Place='InGame') then
begin
repeat
FindColor(x,y,16777215,9,104,596,477);
Mouse(x,y,0,0,True);
until not (Place='InGame');
end;
end;
begin
SetupSRL;
MouseSpeed := 999; //Lol, doesnt work even with this
If (Place='Game Over') then
begin
Mouse(472,395,0,0,True);
end;
StartGame;
Own;
end.
You can play the game here: http://onemorelevel.com/game/camperstrike
My problem is owning the dolls, right nw, it tries to attack the body (White area), but it doesnt hit it :(
Also, can i make a dtm to own the dolls in the head ?
The problem is that they zooom iiiiiinnn and ooooouuuutttt,