Results 1 to 4 of 4

Thread: CamperStrike Script - Need Help

  1. #1
    Join Date
    Dec 2008
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default CamperStrike Script - Need Help

    Hi

    I Got this so far (Sorry no standards):

    SCAR Code:
    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,

  2. #2
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Why not this one? : Game
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  3. #3
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Quote Originally Posted by xabdullahx View Post
    Hi

    I Got this so far (Sorry no standards):

    SCAR Code:
    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,
    Hey there, don't use SRL Mouse procedures use ClickMouse(x,y,True) // Lot of faster (:


    ~Home

  4. #4
    Join Date
    Dec 2008
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by noidea View Post
    Why not this one? : Game
    Wtf ? Why should i play Hannah Montana?

    Quote Originally Posted by Home View Post
    Hey there, don't use SRL Mouse procedures use ClickMouse(x,y,True) // Lot of faster (:


    ~Home
    Thx for reply, but still not working as i want it to

    EDIT: Couldnt find my topic lol, realized its wrong section, admin plz move?
    Last edited by XabdullahX; 06-03-2009 at 08:45 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •