Results 1 to 10 of 10

Thread: Chinchompas Public Testing

  1. #1
    Join Date
    Aug 2007
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Chinchompas Public Testing

    I've started work on a red chinchompa script.

    I'd just like to get a little feedback before I start: Is this a good idea due to the large amount of people and random events at the red chinchompa grounds?

    What i've done so far: (mostly editions to parts of Hy71194's fight cave runner)

    SCAR Code:
    program ChinChompaz; //By Iraqnid. Early days.
    //{.include SRL/SRL/Misc/Smart.scar}
    {.include srl/srl.scar}
    Var i,x,y,k,ChinAmount,chin,closedup,closeddown,closed2,closed3,boxfellup,boxfelldown,StartTime,HuntLvlPre,
          fallen,ChinAmountPre,failed :integer;

    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||           DeclarePlayer - Declares your username, etc.          ||
    ||                                                                 ||
    \\_________________________________________________________________*)

    procedure DeclarePlayer;
    begin
      HowManyPlayers := 1; //Amount of Characters using
      NumberOfPlayers(HowManyPlayers); //Don't touch
      CurrentPlayer := 0; //Player to start with (eg. Players[0] = 0)

      Players[0].Name := '/'; //Username
      Players[0].Pass := '/'; //Password
      Players[0].Nick := '/'; //3-4 small letters of the username
      Players[0].Active := True; //Using Character? True = yes; False = no
      (*Players[0].Booleans[0] := True; //True=High Alch; False=Low Alch
      Players[0].Booleans[1] := True; //True=Fire Staff; False=Fire Runes
      Players[0].Integers[0] := 17; //Slot number of item to alch
      Players[0].Integers[1] := 200; //Amount to Alch*)

    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||                    LoadDTMs - Loads all the DTMs                ||                                                                                                             // ownt. exit; radial linearwalk bitmapfromstring dtmfromstring dtmrotated finddtm tform fflag( players nextplayer( if(not loggedin)then freedtm freebitmap freeform tdtmpointdef tpa walkpath( tpointarray reportvars record tpoint label goto for while repeat case players
    ||                           By: Iraqnid                           ||
    \\_________________________________________________________________*)

    Procedure LoadDTMs;
    begin

      closedup := DTMFromString('78DA636462646038CE00064C108A21372D958' +
           '10B483342F98C20D61154351DF575A86AFE018943A86AE27CB531' +
           'CD398DAA26D8450DAEE63F100000B8F40CA0');
           
      closeddown := DTMFromString('78DA63FCC1C0C0F085010C982014435156260' +
           '317906684F2197F02890FA86A52626351D57C06128F216C56A8D8' +
           '8C9E0A54356F80C443547372220C51D5BCC5B4AB2CC10C55CD272' +
           '0F103554D669801AA9A6F4082931145CD94E614B89AFF40000076' +
           '79190B');

      closed2 := DTMFromString('78DA634C63646058C900064C108AA1A6B8988' +
           '10B48036518FE03016312420D23544D6A901E032B129F3115C8DA' +
           '8CAA664A5332AA9A4C206B1DAA9AEEAA581435008E6A0D92');

      closed3 := DTMFromString('78DA63B466646058C80006CC108A212D3E8E8' +
           '10B48036518FE0301A33990351722C7045593E0A7035703028C96' +
           '40D632543521AEEA286A007A9F0977');

      boxfellup := DTMFromString('78DA6314666460B8CF00068C108A61627B3B0' +
           '32B94FF1F08186581AC07A86A72220CE16AC0E25A087398A062FD' +
           '7509286A00C7ED0B12');
           
      boxfelldown := DTMFromString('78DA6314646460B8C600064C108A2133CC808' +
           '10B48036518FE0301232F90751B554D65B2395C0D08307E0712D7' +
           '51D54C6A6F4755F38981B039B240D60354358BFA7251D5280359B' +
           '750D5CCEDCE425563C088E19E55D38A50D4000066E71665');

    end;



    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||     FindInvChins - Locates and if necessary moves chins         ||
    ||               edited from DrunkPotions by: Hy71194              ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    Procedure FindInvChins;
    begin
      MMouseItem(1)
      if not IsUptext('Red') then
      begin
        for i := 2 to 28 do
        begin
          if ExistsItem(i) then
          begin
            MMouseItem(i);
            Wait(10+Random(300));
            if IsUptext('Red') then
            begin
              GetMousePos(x,y);
              MouseSpeed := 9 + random(2) - random(2);
              HoldMouse(x,y,True);
              MMouseItem(1);
              GetMousePos(x,y);
              ReleaseMouse(x,y,True);
              WriteLn('Keep Chins in slot 1 please :)');
              wait(100 +random(100));
              exit;
            end;
          end;
        end;
        Writeln('There are no chins in your Invent');
      end;
    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||     CountChins - Counts how many Chins you have in your inv     ||
    ||               By: munk,Hy71194, Edit by Iraqnid                 ||
    ||                       Thanks to Drizzt :)                       ||
    \\_________________________________________________________________*)

    Procedure CountChins;
    var
      i,x,y: integer;
      count: string;
    begin

    chin := DTMFromString('78DA63CC656260D8C1C80002109281C1469E9' +
           'D4112CAFF0F048C25986A402C2E243E631950CD1E026A2A816A0E' +
           '125003B2EB0801353940352708A8C902AA394C404D3A11EE4906A' +
           'A3940849ABDF8D500001E9310D8');
      for i := 1 to 4 do
      begin
        if not FindDtm(chin,x,y,MIX1,MIY1,MIX2,MIY2) then
        begin
          try
            FreeDtm(chin);
          except
            Break;
          end;
          Break;
        end;
        if FindDtm(chin,x,y,MIX1,MIY1,MIX2,MIY2) then
        begin
          //writeln(inttostr(x) + ' ' + inttostr(y)); // Debugging use.
          count := GetTextAtEx(x-16, y-12, 0, statchars, False, False, 0, 1, 65535, 5, true, tr_AlphaNumericChars);
          count := Trim(TrimOthers(count));
          if not(count='') then
          begin
            ChinAmount := StrToInt(count);
            try
              FreeDtm(chin);
            except
            Break;
            end;
            Break;
          end else
          begin
            WriteLn('Error Counting Chompa Amount - Exiting.');
            try
              FreeDtm(chin);
            except
            Break;
            end;
            Break;
          end;
        end;
        FTWait(1);
      end;
    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||                    LayTraps - Lays all your Traps               ||                                                                                                             // ownt. exit; radial linearwalk bitmapfromstring dtmfromstring dtmrotated finddtm tform fflag( players nextplayer( if(not loggedin)then freedtm freebitmap freeform tdtmpointdef tpa walkpath( tpointarray reportvars record tpoint label goto for while repeat case players
    ||                           By: Iraqnid                           ||
    \\_________________________________________________________________*)

    Procedure LayTraps;
    begin
      MakeCompass('N');
      SetAngle(true);
      for i := 2 to 28 do
      begin
        if ExistsItem(i) then
        begin
          MMouseItem(i);
          Wait(10+Random(100));
          if IsUptext('Lay') then
          k := k + 1;
          case random(6) of
    0,1,2,3,4:   begin
                   GetMousePos(x,y);
                   Mouse(x,y,4,4,true);
                 end;

            5:   begin
                   GetMousePos(x,y);
                   Mouse(x,y,4,4,false);
                   wait(80+random(100));
                   Mouse(x-random(30),y+22+random(9),0,0,True);
                 end;
           end;
        end;

        if FindBlackChatMessage('here.') then
          begin
            findcolortolerance(x,y,5274538,231,144,301,225,20);
            MakeCompass('N');
            SetAngle(true);
            Mouse(x - 20 - random(10),y + 40 + random(20),0,0,true);
          end;
           
        if k = 5 then
             exit;
             
        if IsChatBlackTextAnyLine('raps') then
             exit;
             
        wait(4000 + random(200) - random(200));
      end;
    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||     FindHighClosed - Locates finds chins from a high angle       ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    function FindHighClosed: boolean;
    begin
      MakeCompass('N');
      SetAngle(true);
      if not FindDtm(closedup,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          Result := false;
          exit;
        end;
      if FindDtm(closedup,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          Result := true;
          exit;
        end;
    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||       FindLowClosed - Locates finds chins from a low angle       ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    function FindLowClosed: boolean;
    begin
      MakeCompass('N');
      SetAngle(false);
      if not FindDtm(closeddown,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          Result := false;
          exit;
        end;
      if FindDtm(closeddown,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          Result := true;
          exit;
        end;
    end;

    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||      Collapsed - searches for collapse message in chatbox       ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    function Collapsed: boolean;
    begin
      if not IsChatBlackTextAnyLine('ollaps') then
        begin
          Result := false;
          exit;
        end;
      if IsChatBlackTextAnyLine('ollaps') then
        begin
          Result := true;
          exit;
        end;
    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||      FindHighBoxFell - finds collapsed boxes on the floor       ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    function FindHighBoxFell: boolean;
    begin
      MakeCompass('N');
      SetAngle(true);
      if not FindDtm(boxfellup,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          result := false;
          exit;
        end;
      if FindDtm(boxfellup,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          result := true;
          exit;
        end;
    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||      FindLowBoxFell - finds collapsed boxes on the floor       ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    function FindLowBoxFell: boolean;
    begin
      MakeCompass('N');
      SetAngle(false);
      if not FindDtm(boxfelldown,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          result := false;
          exit;
        end;
      if FindDtm(boxfelldown,x,y,MSX1, MSY1, MSX2, MSY2) then
        begin
          result := true;
          exit;
        end;
    end;



    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||                 CheckTraps - Checks the trap status             ||                                                                                                             // ownt. exit; radial linearwalk bitmapfromstring dtmfromstring dtmrotated finddtm tform fflag( players nextplayer( if(not loggedin)then freedtm freebitmap freeform tdtmpointdef tpa walkpath( tpointarray reportvars record tpoint label goto for while repeat case players
    ||                           By: Iraqnid                           ||
    \\_________________________________________________________________*)

    procedure CheckTraps;
    begin
      if not Collapsed then
        begin
          if not FindHighClosed then
            begin
              if FindLowClosed then
                begin
                  writeln('Found closed box while in low mode');
                  MMouse(x,y,5,5);
                  if IsUpText('heck') or IsUpText('ismantle') then
                    begin
                    writeln('confirmed closed box')
                    end;
                end;
            end;
          if FindHighClosed then
            begin
              writeln('Found closed box while in high mode');
              MMouse(x,y,5,5);
              if IsUpText('heck') or IsUpText('ismantle') then
                begin
                writeln('confirmed closed box')
                end;
            end;
        end;
      if Collapsed then
        begin
          if not FindHighBoxFell then
            begin
              if FindLowBoxFell then
                begin
                  writeln('Found fallen box while in low mode');
                end;
            end;
          if FindHighBoxFell then
            begin
              writeln('Found fallen box while in high mode');
            end;
        end;
    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||                    Randoms - Deals with the randoms             ||                                                                                                             // ownt. exit; radial linearwalk bitmapfromstring dtmfromstring dtmrotated finddtm tform fflag( players nextplayer( if(not loggedin)then freedtm freebitmap freeform tdtmpointdef tpa walkpath( tpointarray reportvars record tpoint label goto for while repeat case players
    ||                           By: Iraqnid                           ||
    \\_________________________________________________________________*)

    (*Procedure Randomness;
    begin
      FindNormalRandoms;
      FindInventoryRandoms
      FindNonInventoryRandoms
     
      case random(2) of
        0: FTWait(4);
        1: FTWait(2);

    end;*)



    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||                    SetMeUp - Sets up the script                 ||                                                                                                             // ownt. exit; radial linearwalk bitmapfromstring dtmfromstring dtmrotated finddtm tform fflag( players nextplayer( if(not loggedin)then freedtm freebitmap freeform tdtmpointdef tpa walkpath( tpointarray reportvars record tpoint label goto for while repeat case players
    ||                           By: Iraqnid                           ||
    \\_________________________________________________________________*)

    Procedure SetMeUp;
    begin
    (*SmartSetup('world66', False, True);
      WriteLn('Setting up Smart... Please Hold...');
      Wait(5000 + random(5000));
      SetTargetDC(SmartGetDC);
      While not(SmartReady) do Wait(100);*)

     
    SetupSRL;
    LoadDTMs;
    k := 0;
    fallen := 0;
    failed := 0;
    StartTime := Getsystemtime;
    MouseSpeed := 14;
    //DeclarePlayer;
    //LoginPlayer;
    activateclient;
    wait(100 + random(400));
    //SetRun(true);
    //GetAllLevels;
    //HuntLvlPre := GetSkillInfo('Hunter',False);

    end;


    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||            Proggy - Displays Info To The Debug Window           ||
    ||       By: Hy71194 + PerHour is based off work by Tarajunky      ||
    \\_________________________________________________________________*)


    Procedure Proggy;
    Var Secon,Ratee,HuntLvlPost:Integer;
    begin
      //CountChins;
      Secon := (1+((Getsystemtime-StartTime)/1000));
      Ratee := (3600*(ChinAmount - ChinAmountPre))/(Secon);
      HuntLvlPost := GetSkillInfo('Hunter',False);
      WriteLn('');
      WriteLn('It was '+(TheTime)+' on '+(TheDate(1))+' when this proggy was written:');
      WriteLn('');
      WriteLn('/-----------[ChinChompa catcher! By Iraqnid]----------\');
      WriteLn('|-------------------[Version 1.00]--------------------|');
      WriteLn(Padr('| -Chin # In Inv        : '+IntToStr(ChinAmount)+'!',54)+'|');
      WriteLn(Padr('| -(~)Chins / Hour      : '+IntToStr(Ratee)+'!',54)+'|');
      WriteLn(Padr('| -Chins gained      : '+IntToStr(ChinAmount - ChinAmountPre)+'!',54)+'|');
      WriteLn(Padr('| -Hunter Level before  : '+IntToStr(HuntLvlPre)+'!',54)+'|');
      WriteLn(Padr('| -Hunter Level after   : '+IntToStr(HuntLvlPost)+'!',54)+'|');
      WriteLn(Padr('| -Hunter Levels gained : '+IntToStr(HuntLvlPost - HuntLvlPost)+'!',54)+'|');
      WriteLn('|            ~~~~ Thanks for using! ~~~~              |');
      WriteLn('|           Please post up your proggies!             |');
      WriteLn('\_____________________________________________________/');
      WriteLn('');
    end;

    Procedure MainLoop;
    Begin
    //FindChins;
    //CountChins;
    //LayTraps;
    k := 5
    repeat
    CheckTraps;
    until isfkeydown(9);
    Proggy;
    end;

    begin
    SetMeUp;
    //FindChins;
    //CountChins;
    //ChinAmountPre := ChinAmount
    Mainloop;
    end.

    *UPDATE*

    Script can find chins in invent and count them.

    The script can find closed traps most of the time: but I haven't started work on what it does when it finds them: just testing if it can find them.

    Can I have some tips on where to go with this now?

  2. #2
    Join Date
    May 2007
    Location
    England/Liverpool
    Posts
    1,004
    Mentioned
    9 Post(s)
    Quoted
    106 Post(s)

    Default

    sorry to say m8 but a good start would be somet like this lol
    SCAR Code:
    program New;
    {.include SRL/SRL.scar}

    procedure LoadDTM;
    begin
    TrapDTM:= DTMFromString('78DA6314646060E06140013B9224182481342' +
           '310FF07020021C70567');
    end;
    procedure SetTrap;
    begin
        GameTab(4);
      if (FindDTM(TrapDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
        Mouse(x,y,5,5,true);
        writeln('you set-up a trap!');
      end else
        writeln('You dont havea trap!');
        exit;
        end;
    end.

    you should start with setting up the trap first lol then finding if it caught anything
    Previously Known or not Known as CRU1Z1N.
    If you want to succeed you should strike out on new paths, rather than travel the worn paths of accepted success.(John D. Rockefeller)

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Lol, I see you like my script <3

    WriteLn(Padr('| -(~)Enters / Hour : '+IntToStr(Ratee)+'!',54)+'|');
    Hah, you enter somewhere to kill Chinchompas's?

    And your / my count procedure would not work because of your DTM - my DTM is different, so the text is in a different spot = it will not work correct.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    Dec 2007
    Location
    Colombia. Bogotá D.C
    Posts
    720
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is the username a real one? make sure not to keep it in there if it is, because you could lose your accounts as it happened to some other guys ...
    -------------------------------------------------------------------


  5. #5
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Ouch. I changed your pass and have PMed it to you.

    Don't make that mistake again about leaving your pass in a script!!


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  6. #6
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Removed Username and Pass
    STOP PM'ING ME

  7. #7
    Join Date
    Aug 2007
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's kind of obvious that i'm a noob to this kind of thing :X.
    cheers for the professionalism.

    Also the count procedure does work: I have tested it extensively.

    I simply had to make sure the parent of your DTM was the same parent as the DTM I created, and then everything was just fine and dandy.

  8. #8
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    I think you have this in the wrong forum haha, but anyways...

    Failsafes.. make some more

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  9. #9
    Join Date
    Aug 2007
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated script and first post: comments appreciated.

  10. #10
    Join Date
    Feb 2007
    Location
    @ SRL
    Posts
    402
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You could change this:
    SCAR Code:
    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||      Collapsed - searches for collapse message in chatbox       ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    function Collapsed: boolean;
    begin
      if not IsChatBlackTextAnyLine('ollaps') then
        begin
          Result := false;
          exit;
        end;
      if IsChatBlackTextAnyLine('ollaps') then
        begin
          Result := true;
          exit;
        end;
    end;

    TO THIS

    SCAR Code:
    (*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\\
    ||      Collapsed - searches for collapse message in chatbox       ||
    ||                           by: Iraqnid                           ||
    \\_________________________________________________________________*)

    function Collapsed: boolean;
    begin
      Result := IsChatBlackTextAnyLine('ollaps');
    end;


    It will always return false unless it finds 'ollaps' in the chatbox, in which case it will return true. This is just one simple way how you could improve the coding and manke it more faster and efficient.

    Good luck
    The game has an unexplainable attraction that convinces the player they are having fun, despite the fact that all they are doing is performing repetitive tasks to increase their statistics. "The game is actually a graphical nightmare and its gameplay is simple at best. Yet something, perhaps by subliminal means, forces the player - against his will - to play the game, and to believe that they are having fun".

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Making a Hunter Script [Red Chinchompas]
    By Claymore in forum News and General
    Replies: 8
    Last Post: 08-30-2008, 11:15 AM
  2. Testing
    By Nava2 in forum OSR Help
    Replies: 3
    Last Post: 05-12-2008, 09:54 PM

Posting Permissions

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