Results 1 to 12 of 12

Thread: my very first ever with some help

  1. #1
    Join Date
    Jul 2007
    Location
    npr,florida
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my very first ever with some help

    [ _____ _ _
    ______ | ____ \ |_| ___| |___
    / _____\ ____ _____ | \ \| _ |___ ___|
    / | / __\ / __ \ | \ \| | | | |
    \ \____ | | | / __| | \___\| | | | |
    \______\ |_| | \____ \______/ |_| |_| 2 FOR HELP
    \_____/
    SMARTZKID AND SEROKO whiteshadow


    {.include SRL\SRL.Scar}
    {.include SRL\SRL\Skill\Fighting.Scar}

    var
    CaveColor: array[0..2] of Integer;
    SwitchMark, IntTime, i: Integer;
    CCFound: Boolean;
    Const
    VerNumber = '1.0'; // Version Number
    iPlay = 5; // Minutes until switch player


    { ---------------------------------------------------------------------------- ]
    [ Procedure DeclarePlayers - Declares Players. ]
    [ ---------------------------------------------------------------------------- }

    Procedure DeclarePlayers;
    Begin
    HowManyPlayers := 4;
    CurrentPlayer := 0;
    NumberOfPlayers(HowManyPlayers);

    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :='';
    Players[0].Integer1 := 2; //1 - 4 fightmode.
    Players[0].Active := True;

    Players[1].Name :='';
    Players[1].Pass :='';
    Players[1].Nick :='';
    Players[1].Integer1 := 1; //1 - 4 fightmode.
    Players[1].Active := True;

    Players[2].Name :='';
    Players[2].Pass :='';
    Players[2].Nick :='';
    Players[2].Integer1 := 1; //1 - 4 fightmode.
    Players[2].Active := True;

    Players[3].Name :='';
    Players[3].Pass :='';
    Players[3].Nick :='';
    Players[3].Integer1 := 1; //1 - 4 fightmode.
    Players[3].Active := True;
    end;

    { ---------------------------------------------------------------------------- ]
    [ Function AttackType - Sets attack type. ]
    [ ---------------------------------------------------------------------------- }

    Function AttackType : String;
    Begin
    case Players[CurrentPlayer].Integer1 of
    1 : Result:= 'attack';
    2 : Result:= 'strength';
    3 : Result:= 'hitpoints';
    4 : Result:= 'defence';
    end;
    end;

    { ---------------------------------------------------------------------------- ]
    [ Procedure LoadScript - By: WhiteShadow ]
    [ ---------------------------------------------------------------------------- }

    Procedure LoadScript;
    Begin
    ClearDebug;
    SetUpSRL;
    DeclarePlayers;
    BenMouse:= True;
    MouseSpeed:= 7 + random(3);
    cavecolor[0]:= 6645101;
    cavecolor[1]:= 7829376;
    cavecolor[2]:= 8750479;
    if(not(LoggedIn)) then
    LoginPlayer;
    End;


    Begin
    LoadScript;
    repeat
    if(LoggedIn)then
    begin
    CCFound := false;
    for i := 0 to Length(CaveColor) - 1 do
    if(FindColorTolerance(x, y, cavecolor[i], MSX1, MSY1, MSX2, MSY2, 10))then
    CCFound := true

    if(CCFound)then
    Begin
    Mouse(x, y, 5, 5, true); //click on cavecolor
    //other stuff to do after cavecolor has been clicked
    end else
    begin
    Writeln('Could not find cave color');
    Logout;
    end;
    end else
    begin
    MouseSpeed:= 7 + random(3);
    NextPlayer(False);
    MarkTime(SwitchMark);
    SetFightMode(Players[CurrentPlayer].Integer1);
    SetRun(True);
    GameTab(4);
    HighestAngle;
    IntTime:= (iPlay * 60000) + random(5 * 60000);
    end;

    if(TimeFromMark(SwitchMark) > IntTime)then
    begin
    MouseSpeed:= 7 + random(3);
    NextPlayer(True);
    MarkTime(SwitchMark);
    SetFightMode(Players[CurrentPlayer].Integer1);
    SetRun(True);
    GameTab(4);
    HighestAngle;
    IntTime:= (iPlay * 60000) + random(5 * 60000);
    end;
    until(False)
    End.

  2. #2
    Join Date
    Oct 2006
    Location
    Finland
    Posts
    433
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    Aint this whiteshadows chickenkiller rofl ?

  3. #3
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    BRING OUT THE BAN HAMMER

    rofl

  4. #4
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    btw try to make the main script/loop as clean as possible.
    if i were you id make another procedure called kill chickens and then the main loop would look like:
    SCAR Code:
    Begin
    LoadScript;
    repeat
    killchickens:
    until(false)
    end;

  5. #5
    Join Date
    Jul 2007
    Location
    America
    Posts
    421
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I especially like the part where it says
    SMARTZKID AND SEROKO whiteshadow
    I dunno, those asians are pretty difficult to out-auto, legend has it they don't need sleep or food...~tim0suprem0
    Activity is on the decline - school's got me
    Check out my tutorial[s] on Color Finding!||Procedures and Functions!

  6. #6
    Join Date
    Jun 2007
    Location
    I'm not sure...
    Posts
    581
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Me too. Bantabulous.
    ---------------------------------------------------------


    Pm me if you need any math functions made. Me = l0ving t3h mathz

    ---------------------------------------------------------

  7. #7
    Join Date
    Jul 2007
    Posts
    98
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    So this one is stolen?
    Currently Learning the Basics of Scar

  8. #8
    Join Date
    Aug 2007
    Location
    Mental Asylum
    Posts
    130
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did he just...Beat the system? U know..Saying its his first script and saying he got help from them people?

    LOL!

  9. #9
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    from someone with 47 posts as well...????
    No Signature Assigned.

  10. #10
    Join Date
    Aug 2007
    Location
    Mental Asylum
    Posts
    130
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol i'm not sure it matters about the amount of posts..I will have about 80 posts by the time I make my first script (crappy)..But someone with under 10 posts who makes a script and no longevity would be very strange.........

    ~Darky~

  11. #11
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol i mean to try nd call sum1 elses script yr own if u hv 47 posts is pretty odd.. they mustve known theyd be caught by now surely..
    No Signature Assigned.

  12. #12
    Join Date
    Aug 2007
    Location
    Mental Asylum
    Posts
    130
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes but the way he has said it and framed it means he has beat the system and he cannot be banned by the rules?

    Just a guess.

    ~darky~

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
  •