SRL Archive - News and General

ok.. so im like 89% done with my ranger script and i keep getting this error

Line 821: [Error] (9904:9): Unknown identifier 'SolveEvilBob' in script C:\Program\SCAR 3.14\includes\SRL/SRL/Core/AntiRandoms/AntiRandoms.scar

Line 821:

                                     if (not SolveEvilBob) then

Full thingy:

{*******************************************************************************
function NoGameTabLocs: Boolean;
by: Nielsie95 And Wizzup?
Description: Checks for missing GameTabs.
*******************************************************************************}

function NoGameTabLocs: Boolean;
var
  i, c, x, y: Integer;
  Tabs: TIntegerArray;
begin
  Result := True;
  for i := 1 to 14 do
    if TabExists(i) then
    begin
      SetLength(Tabs, c +1);
      Tabs[c] := i;
      Inc(c);
    end;
  if (c > 4) and (c < 14) then
    case c of //How many Tabs are visible?
      5:  if IntArrayMatch(Tabs, [8, 9, 10, 13, 14]) then
            case LowerCase(GetMusic) of
              'the quizmaster' : begin
                                   //Quiz
                                   Players[CurrentPlayer].Rand := 'Quiz Master';
                                   WriteLn('GTL: ' + Players[CurrentPlayer].Rand + ' using music');
                                   FindQuiz;
                                   Players[CurrentPlayer].Active := LoggedIn;
                                   Exit;
                                 end;
              'artistry' : begin
                             //Mime
                             Players[CurrentPlayer].Rand := 'Mime';
                             Players[CurrentPlayer].Active := False;
                             WriteLn('GTL: ' + Players[CurrentPlayer].Rand + ' using music');
                             Inc(Mimes);
                             LogOut;
                             Exit;
                           end;
              'time out' : begin
                             //Maze
                             Players[CurrentPlayer].Rand := 'Maze';
                             Players[CurrentPlayer].Active := False;
                             WriteLn('GTL: ' + Players[CurrentPlayer].Rand + ' using music');
                             Inc(Mazes);
                             LogOut;
                             Exit;
                           end;
              'corporal punishment' : begin
                                        //Drill Demon
                                        Players[CurrentPlayer].Rand := 'Drill Demon';
                                        WriteLn('GTL: ' + Players[CurrentPlayer].Rand + ' using music');
                                        SolveDemon;
                                        Players[CurrentPlayer].Active := LoggedIn;
                                        Exit;
                                      end;
              else
                if (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'mime', 0, SmallChars, False, False, 0, 1, 0)) then
                begin
                  //Mime
                  Players[CurrentPlayer].Rand := 'Mime';
                  Players[CurrentPlayer].Active := False;
                  WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
                  Inc(Mimes);
                  LogOut;
                  Exit;
                end else
                if (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'amien', 0, NPCChars, False, False, 0, 2, 128)) then
                begin
                  //Drill Demon
                  Players[CurrentPlayer].Rand := 'Drill Demon';
                  WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
                  SolveDemon;
                  Players[CurrentPlayer].Active := LoggedIn;
                  Exit;
                end else
                if (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'maze', 0, SmallChars, False, False, 0, 1, 0)) or
                   (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'maze', 0, NPCChars, False, False, 0, 2, 0)) then
                begin
                  //Maze
                  Players[CurrentPlayer].Rand := 'Maze';
                  Players[CurrentPlayer].Active := False;
                  WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
                  Inc(Mazes);
                  LogOut;
                  Exit;
                end else
                if DetectFrogCave then
                begin
                  //FrogCave
                  Players[CurrentPlayer].Rand := 'Frog Cave';
                  WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
                  SolveFrogSwamp;
                  Players[CurrentPlayer].Active := LoggedIn;
                  Exit;
                end else
                if InQuizRandom then
                begin
                  //Quiz
                  Players[CurrentPlayer].Rand := 'Quiz Master';
                  WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
                  FindQuiz;
                  Players[CurrentPlayer].Active := LoggedIn;
                  Exit;
                end else
                begin
                  //Unknown
                  Players[CurrentPlayer].Rand := 'No GameTab';
                  Players[CurrentPlayer].Active := False;
                  WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
                  LogOut;
                  Exit;
                end;
            end;
      6:  if IntArrayMatch(Tabs, [8, 9, 10, 11, 13, 14]) then
          begin
            if (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'ordaut', 0, NPCChars, False, False, 0, 2, 128)) then
            begin
              //Mordaut
              Players[CurrentPlayer].Rand := 'Mordaut';
              Players[CurrentPlayer].Active := False;
              WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
              LogOut;
              Exit;
            end else
            if (PercentBlackMM > 90) then
            begin
              //Molly
              Players[CurrentPlayer].Rand := 'Molly Evil Twin';
              Players[CurrentPlayer].Active := False;
              WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
              LogOut;
              Exit;
            end else
            begin
              //Unknown
              Players[CurrentPlayer].Rand := 'No GameTab';
              Players[CurrentPlayer].Active := False;
              WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
              LogOut;
              Exit;
            end;
          end;
      7:  if IntArrayMatch(Tabs, [8, 9, 10, 11, 12, 13, 14]) then
          begin
            //Pinball
            Players[CurrentPlayer].Rand := 'Pinball';
            WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
            if not SolvePinball then
              Logout;
            Players[CurrentPlayer].Active := LoggedIn;
            Exit;
          end else
          if IntArrayMatch(Tabs, [4, 8, 9, 10, 11, 13, 14]) then
          begin
            //Leo
            Players[CurrentPlayer].Rand := 'Leo the GraveDigger';
            Players[CurrentPlayer].Active := False;
            WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
            LogOut;
            Exit;
          end else
          begin
            //Unknown
            Players[CurrentPlayer].Rand := 'No GameTab';
            Players[CurrentPlayer].Active := False;
            WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
            LogOut;
            Exit;
          end;
      13: if IntArrayMatch(Tabs, [1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 14]) then
            case LowerCase(GetMusic) of
              'in the clink' : begin
                                 //Prison Pete
                                 Players[CurrentPlayer].Rand := 'Prison Pete';
                                 Players[CurrentPlayer].Active := False;
                                 WriteLn('GTL: ' + Players[CurrentPlayer].Rand + ' using music');
                                 Inc(ScapeRunes);
                                 LogOut;
                                 Exit;
                               end;
              'evil bob''s island' : begin
                                     //Evil Bob
                                     Players[CurrentPlayer].Rand := 'Evil Bob Island';
                                     WriteLn('GTL: ' + Players[CurrentPlayer].Rand + ' using music');
                                     if (not SolveEvilBob) then
                                     begin
                                       Players[CurrentPlayer].Active := False;
                                       Inc(ScapeRunes);
                                       LogOut;
                                     end;
                                     Exit;
                                   end;
              else
              begin
                Players[CurrentPlayer].Rand := 'ScapeRune';
                Players[CurrentPlayer].Active := False;
                WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
                Inc(ScapeRunes);
                LogOut;
                Exit;
              end;
            end;
    end;
  if (FindColor(x, y, 128, 150, 250, 500, 380)) then
    if ClickContinue(False, False) then //we are talking
    begin
      if (PercentBlackMM < 15) then // not InBlack
      begin
        if (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'rester', 0, NPCChars, False, False, 0, 2, 128)) or
           (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'heasan', 0, NPCChars, False, False, 0, 1, 0)) then
        begin
          // Freaky Forester
          Players[CurrentPlayer].Rand := 'Freaky Forester';
          Players[CurrentPlayer].Active := False;
          WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
          Inc(NOForester);
          LogOut;
          Exit;
        end;
      end else
        if (IsTextInAreaEx(MCX1, MCY1, MCX2, MCY2, x, y, 'maze', 0, NPCChars, False, False, 0, 2, 0)) then
        begin
          // Maze
          Players[CurrentPlayer].Rand := 'Maze';
          Players[CurrentPlayer].Active := False;
          WriteLn('GTL: ' + Players[CurrentPlayer].Rand);
          LogOut;
          Exit;
        end;
    end;
  Result := False;
end;

…. can someone help, and i got rev 13

Yanix, I refuse to help you on the principle that you're ban evading.

Listen, as i said in vent yesterday : Im sry for everything ive done to this fourms, I have made The Intern to show u all that i can be nice.., now im tryin to be nice but now ur doing this.. and to wizzup,hobbit ray and all other mods/admins : im sry for any bad things ive done to this forums..

this will work if you chose the default settings

run:
C:\Program Files\SCAR 3.14\includes\

there you will see a folder that says srl, delete it

then go back into scar and checkout svn

Ty..Nope.. dosent work

The Intern is Yanix?

You've done well, but Yanix will always remain Yanix, keep being like that :)

(also maybe change the font size in your sig?)



Are you sure that you have got the EvilBob.scar?



By the way, you posted in the wrong section :p Things like this belong to FAQ.

Yanix is alright. Never knew him personally.
Just said to much swear words….

Lets keep it on-topic, if anyone even has got anything to say on the EvilBob subject.

Yanix is alright. Never knew him personally.
Just said to much swear words….

From: NaumanAkhlaq
Yanix is alright. Never knew him personally.
Just said to much swear words….

Ty and true :D if U got 1 cent every time I say a swear word or write it on a pc or a paper under 1 day period, ud be bill gates :D

but on topic again.. how do i fix this?

Edit:

(also maybe change the font size in your sig?)

Theres a place called Mianus and theres a powerplant there, whats the prob :D

Edit2: Umh.. wasent there a topic made for this kind of error - a evilbob solver.. I cant find it..

You're just a general annoyance I wish wasn't here.

From: Sp0rky
You're just a general annoyance I wish wasn't here.

Now.. if I didnt get that at school and at home and outside, id be offended, but cuz I do get that response evry day I wont take that as a bad thing :D but I know I have said alot stuff about/to u.. but why cant u just stop doing this to me? I meen, im tryin to be better and u just wana make me swear (u dont know how hard it is to write this reply!) and Im sry but it wont work - anymore.. so just stop it.. I also know that most of the Devs/Admins hate me more then u.. and theyll ban me when they read this thread and find out who I am.. all I wanted was a 950th chance to shapen up :D, nah but cmon, ill make a deal with all of u 32000 registerd users! if I say anything that offend u in anyway, plz tell me and ill send a PM to wizzup to perm ban my ip.. thats how much I love these forums… Ive been a member for about 3 years? and I dont regret 1 second of that time.. now if u havent pressed the big X on ur screen, can someone help me with this error:D

From: The Intern
Now.. if I didnt get that at school and at home and outside, id be offended, but cuz I do get that response evry day I wont take that as a bad thing :D but I know I have said alot stuff about/to u.. but why cant u just stop doing this to me? I meen, im tryin to be better and u just wana make me swear (u dont know how hard it is to write this reply!) and Im sry but it wont work - anymore.. so just stop it.. I also know that most of the Devs/Admins hate me more then u.. and theyll ban me when they read this thread and find out who I am.. all I wanted was a 950th chance to shapen up :D, nah but cmon, ill make a deal with all of u 32000 registerd users! if I say anything that offend u in anyway, plz tell me and ill send a PM to wizzup to perm ban my ip.. thats how much I love these forums… Ive been a member for about 3 years? and I dont regret 1 second of that time.. now if u havent pressed the big X on ur screen, can someone help me with this error:D

Respotory?
Try Deleteing SRL Folder W/ Re-Download?

From: Timer
Respotory?
Try Deleteing SRL Folder W/ Re-Download?

Done that, dosent work

EDIT: Let Me Upload SCAR…
EDIT: Here… click / download
Here It Even Includes My Custom RC.scar…
Smart Is NOT Emdemmbed In SetupSRL; though… I Just Put In the Fuew Lines in evry script..
Plus Umm… In SRL.scar In SetupSRL; change the RCMaster from RCMaster := 'ime'; ot What You Want, The Nickname Of The RC Peep… or to '' and it wont call RC;
See

//----------------------------------------------------------------------------//
//--                  Scar Standard Resource Library                        --//
//--                   » Remote Control Routines Beta                       --//
//----------------------------------------------------------------------------//
// * function RCReadCommand: String;               // * by WT-Fakawi
// * procedure RCSetNick;                          // * by WT-Fakawi
// * function RCFindMaster(var Mx, My: Integer; X1, Y1, X2, Y2: Integer): Boolean; // * by WT-Fakawi
// * function RCHowManyOnline: Integer;            // * by WT-Fakawi
// * function RCFindFriend: String;                // * by WT-Fakawi
// * function RCPrivateMessageColorFound: Boolean; // * by WT-Fakawi
// * function ReturnStatus: String;                // * by WT-Fakawi
// * procedure RCResetStatus;                      // * by WT-Fakawi
// * function RC: Boolean;                         // * by WT-Fakawi

{ var RCMaster: String;
  Description: Master Player (Controller) User Nick. }
var
  RCMaster, RCLoc: string;

{ var MasterBitMapMask, RCTimeMark: Integer;
  Description: Variables used in the Remote Control include. }
var
  MasterBitMapMask, RCTimeMark: Integer;

const
  RCStatus = 'playing'; // commands the RCMaster types.
  RCReset = 'try a'; // may be replaced by anything less suspicious
  RCStop = 'stop';
  RCLogOut = 'logout';
  RCll_a = 'll a';//Tell Active
  RCll_ina = 'ina';//Tell InActive
  RCBreak = 'break';// 5-10Min Break
  FPlayer = 'se p';//False Player
  TPlayer = 'ue p';//True Player
  APlayer = 'dd p';//Add Player During Run-Time

{*******************************************************************************
function RCReadCommand: String;
by: WT-Fakawi
Description: Returns string of red typed message (color 128)
*******************************************************************************}

function RCReadCommand: string;
var LC:TPoint;
begin
  LC:= TextCoords(8);
  Result := LowerCase(Trim(GetTextAtEx(LC.x - 2, LC.y - 2, 45, SmallChars, False, False, 0,
    2, 128, 45, False, tr_NormalChars)));
end;

{*******************************************************************************
procedure RCSetNick;
by: WT-Fakawi
Description: Creates MasterBitMapMask for recognisition
*******************************************************************************}

procedure RCSetNick;
begin
  MasterBitMapMask := CreateBitmapMaskFromText(RCMaster, smallChars);
end;

{*******************************************************************************
function RCFindMaster(var Mx, My: Integer; X1, Y1, X2, Y2: Integer): Boolean;
by: WT-Fakawi
Description: Finds MasterBitMapMask (Master Name) and returns its coordinates
in Mx and My.
Could be usefull also for friend-finding.
*******************************************************************************}

function RCFindMaster(var Mx, My: Integer; X1, Y1, X2, Y2: Integer): Boolean;
begin
  Result := FindBitmapMaskTolerance(MasterBitMapMask, Mx, My, X1, Y1, X2, Y2,
    50, 10)
end;

{*******************************************************************************
function RCHowManyOnline: Integer;
by: WT-Fakawi
Description: Returns the number of online Friends.
*******************************************************************************}

function RCHowManyOnline: Integer;
var
  i, frX, frY, incY: Integer;
begin
  for i := 1 to 12 do
  begin
    if FindColor(frX, frY, 65280, 667, 235 + incY, 672, 243 + incY) or
      // green - same world
    FindColor(frX, frY, 65535, 667, 235 + incY, 672, 243 + incY) then
        // yellow - different world
      Result := Result + 1;
    incY := incY + 15;
  end;
end;

{*******************************************************************************
function RCFindFriend: String;
by: WT-Fakawi
Description: Returns the name of the First Friend in the FriendList
*******************************************************************************}

function RCFindFriend: string;
begin
  Result := LowerCase(Trim(GetTextAtEx(556, 231, 45, SmallChars, True, False, 0,
    2, 16777215, 20, False, tr_NormalChars)));
end;

{*******************************************************************************
function RCPrivateMessageColorFound: Boolean;
by: WT-Fakawi
Description: Returns True if Color 128 (red) was found in ChatWindow.
*******************************************************************************}

function RCPrivateMessageColorFound: Boolean;
var
  dumX, dumY: Integer;
begin
  Result := FindColor(dumX, dumY, 128, MCX1, MCY1, MCX2, MCY2);
end;

{*******************************************************************************
function ReturnStatus: String;
by: WT-Fakawi
Description: Returns a concatenated string with the False Player Names.
If you feel this is too suspicious, use Players.nick (recommended)
*******************************************************************************}

function RCReturnStatus: string;
var
  i: Integer;
  PlayersString: string;
  oneFalse: Boolean;
  
begin
  for i := 0 to HowManyPlayers - 1 do
  begin
    if Players[i].Active = False then
    begin
      Insert(Players[i].Name, PlayersString, 0);
      Insert(' ', PlayersString, 0);
      oneFalse := True;
    end;
  end;
  Result := PlayersString;
  if not oneFalse then Result := 'Everything is cool.';
  WriteFileString(TheFile, TheTime + ' ' + '********** RC STATUS: ' +
    PlayersString + Chr(13));
end;

{*******************************************************************************
procedure RCResetStatus;
by: WT-Fakawi
Description: Resets the Status of ALL Players to True
*******************************************************************************}

procedure RCResetStatus;
var
  i: Integer;
begin
  for i := 0 to HowManyPlayers - 1 do
  begin
    if Players[i].Active = False then
    begin
      Players[i].Active := True;
      if RCLoc <> '' then
        Players[i].Loc := RCLoc;
    end;
  end;
  WriteFileString(TheFile, TheTime + ' ' + '********** RC RESET ' + Chr(13));
end;

{*******************************************************************************
function RC: Boolean;
by: WT-Fakawi
Description: High Level Remote Control Command. Handles Remote Control.
Works as follows:
Checks for existence of red color in chat window.
If red color is found, it checks for the existence of the MasterBitMapMask.
If found it waits 60 seconds for pm "status" or pm "reset".
Then RC sleeps five minutes to get rid of the red text.
*******************************************************************************}

procedure FindATradeByRick; ForWard;
function RC: Boolean;
var
  Masx, Masy, RCMark, cp, cp2: Integer;
  Player: string;
  D1: Boolean;
begin
  SetChat('on', 1);
  SetChat('on', 2);
  SetChat('on', 3);
  SetChat('on', 4);
  SetChat('on', 5);
  if RCPrivateMessageColorFound then // check for Color 128
  begin
    RunControl(False);
    Result := True;
    MasterBitMapMask := CreateBitmapMaskFromText(RCMaster, smallChars);
    SetChat('off', 1);
      if RCFindMaster(Masx, Masy, MCX1, MCY1, MCX2, MCY2) then
      begin
        GameTab(8);
        if RCHowManyOnline <> 0 then
        begin
          RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
          Mouse(Masx + 2, Masy + 2, 10, 0, True);
          TypeSend('hi');
          MarkTime(RCMark);
          repeat // wait 60 secs for command
            WriteLn(RCReadCommand);
            {if (pos(APlayer, RCReadCommand )<> 0) then
            begin
              HowManyPlayers := HowManyPlayers + 1;
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('Username');
              Wait(2000);
              while (RCReadCommand = 'Username') or (RCReadCommand = 'username') do Wait(5000);
              Player := RCReadCommand;
              Players[HowManyPlayers].Name := Player;
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('Pass');
              Wait(2000);
              while (RCReadCommand = 'Pass') or (RCReadCommand = 'pass') do Wait(5000);
              Player := RCReadCommand;
              Players[(HowManyPlayers + 1)].Pass := Player;
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('NickName');
              Wait(2000);
              while (RCReadCommand = 'Nickname') or (RCReadCommand = 'nickname') do Wait(5000);
              Player := RCReadCommand;
              Players[(HowManyPlayers)].Nick := Player;
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('Location');
              Wait(2000);
              while (RCReadCommand = 'Location') or (RCReadCommand = 'location') do Wait(5000);
              Player := RCReadCommand;
              Players[(HowManyPlayers)].Loc := Player;
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('add integers');
              Wait(2000);
              while (RCReadCommand = 'Add integers') or (RCReadCommand = 'add integers') do Wait(5000);
              Player := RCReadCommand;
              if pos('yes', Player) <> 0 then
              begin
                RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                Mouse(Masx + 2, Masy + 2, 10, 0, True);
                TypeSend('how many');
                Wait(2000);
                while (RCReadCommand = 'How many') or (RCReadCommand = 'how many') do Wait(5000);
                Player := RCReadCommand;
                cp := StrToInt(Player);
                for cp2 := 0 to cp do
                begin
                  RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                  Mouse(Masx + 2, Masy + 2, 10, 0, True);
                  TypeSend('Integer ' + inttostr(cp2));
                  Wait(2000);
                  while (RCReadCommand = 'Number') or (RCReadCommand = 'number') do Wait(5000);
                  Player := RCReadCommand;
                  Players[HowManyPlayers].Integers[cp2] := StrToInt(Player);
                end;
              end;
              SetChat('on', 1);
              SetChat('on', 1); // hmm lets fix that :)
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;}
            if (pos(TPlayer, RCReadCommand )<> 0) then
            begin
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('Listening');
              Wait(2000);
              while (RCReadCommand = 'Listening') or (RCReadCommand = 'listening') do Wait(5000);
              Player := RCReadCommand;
              for cp := 0 to HowManyPlayers - 1 do
                begin
                  if Player = Players[cp].Name then
                  begin
                    D1 := True;
                    RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                    Mouse(Masx + 2, Masy + 2, 10, 0, True);
                    Wait(500);
                    TypeSend(Players[cp].Name + ' is True');
                    Players[cp].Active := True;
                  end;
                end;
              if not D1 then
              begin
                RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                Mouse(Masx + 2, Masy + 2, 10, 0, True);
                TypeSend('Invalad Player');
              end;
              SetChat('on', 1);
              SetChat('on', 1); // hmm lets fix that :)
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos(FPlayer, RCReadCommand )<> 0) then
            begin
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('Listening');
              Wait(2000);
              while (RCReadCommand = 'Listening') or (RCReadCommand = 'listening') do Wait(5000);
              Player := RCReadCommand;
              for cp := 0 to HowManyPlayers - 1 do
                begin
                  if Player = Players[cp].Name then
                  begin
                    D1 := True;
                    RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                    Mouse(Masx + 2, Masy + 2, 10, 0, True);
                    Wait(500);
                    TypeSend(Players[cp].Name + ' is False');
                    Players[cp].Active := False;
                  end;
                end;
              if not D1 then
              begin
                RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                Mouse(Masx + 2, Masy + 2, 10, 0, True);
                TypeSend('Invalad Player');
              end;
              SetChat('on', 1);
              SetChat('on', 1); // hmm lets fix that :)
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos(FPlayer, RCReadCommand )<> 0) then
            begin
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend(RCReturnStatus);
              SetChat('on', 1);
              SetChat('on', 1); // hmm lets fix that :)
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos(RCStatus, RCReadCommand )<> 0) then
            begin
              Wait(1000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend(RCReturnStatus);
              SetChat('on', 1);
              SetChat('on', 1); // hmm lets fix that :)
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos(RCReset, RCReadCommand) <> 0) then
            begin
              GameTab(8);
              Wait(1000 + Random(500));
              RCResetStatus;
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
              Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('True For ' + IntToStr(HowManyPlayers) + ' Players');
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos(RCLogOut, RCReadCommand) <> 0) then
            begin
              Logout;
              FreeBitmap(MasterBitMapMask);
              Exit;
            end;
            if (pos(RCStop, RCReadCommand) <> 0) then
            begin
              FreeBitmap(MasterBitMapMask);
              TerminateScript;
            end;
            if (pos(RCbreak, RCReadCommand )<> 0) then
            begin
              repeat
                LogOut;
              until(Not LoggedIn);
              Wait((1000 * 60 * 5) + Random((1000 * 60 * 5)));
              LogInPlayer;
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              Exit;
            end;
            if (pos('ina', RCReadCommand )<> 0) then
            begin
              GameTab(8);
              for cp := 0 to HowManyPlayers - 1 do
              begin
                if Players[cp].Active = False then
                begin
                  RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                  Mouse(Masx + 2, Masy + 2, 10, 0, True);
                  TypeSend(Players[cp].Name);
                end;
              end;
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LogInPlayer;
              Exit;
            end;
            if (pos('una', RCReadCommand )<> 0) then
            begin
              GameTab(8);
              for cp := 0 to HowManyPlayers - 1 do
              begin
                if Players[cp].Active = False then
                begin
                  RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                  Mouse(Masx + 2, Masy + 2, 10, 0, True);
                  TypeSend(Players[cp].Name);
                end;
              end;
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LogInPlayer;
              Exit;
            end;
            if (pos(RCll_a, RCReadCommand )<> 0) then
            begin
              GameTab(8);
              for cp := 0 to howmanyplayers - 1 do
              begin
                if Players[cp].Active = True then
                begin
                  RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                  Mouse(Masx + 2, Masy + 2, 10, 0, True);
                  TypeSend(Players[cp].Name);
                end;
              end;
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos('rad', RCReadCommand )<> 0) then
            begin
              FindATradeByRick;
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos('loc', RCReadCommand )<> 0) then
            begin
              for cp := 0 to howmanyplayers - 1 do
              begin
                RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                Mouse(Masx + 2, Masy + 2, 10, 0, True);
                if Players[Cp].Loc = '' then
                begin
                  TypeSend(Players[cp].Name + ': UnKnown');
                end else
                  TypeSend(Players[cp].Name + ': ' + Players[Cp].Loc);
              end;
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            if (pos('ello', RCReadCommand )<> 0) then
            begin
             RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                  Mouse(Masx + 2, Masy + 2, 10, 0, True);
              TypeSend('Wassup');
              Wait(7000 + Random(500));
              RCFindMaster(Masx, Masy, MIX1, MIY1, MIX2, MIY2);
                  Mouse(Masx + 2, Masy + 2, 10, 0, True);
              if (pos('nm', RCReadCommand )<> 0) then
                TypeSend('same.');
              typesend('');
              SetChat('on', 1);
              SetChat('on', 1);
              FreeBitmap(MasterBitMapMask);
              LogOut;
              LoginPlayer;
              Exit;
            end;
            Wait(1000);
          until (TimeFromMark(RCMark) > 60000);
        end else
        begin
                SetChat('on', 1);
      SetChat('on', 1);
      FreeBitmap(MasterBitMapMask);
          LogOut;
          LogInPlayer;
          Exit;
        end;
      SetChat('on', 1);
      SetChat('on', 1);
      FreeBitmap(MasterBitMapMask);
    end else
    begin
          SetChat('on', 1);
      SetChat('on', 1);
      FreeBitmap(MasterBitMapMask);
      LogOut;
      LogInPlayer;
      Exit;
    end;
  end;
end;

Someone already made an entier tut on this. Use search botton kido.

@Timer, Wut :D

From: osmm
Someone already made an entier tut on this. Use search botton kido.

Did that, didnt find that thread but ive seen the thread.. cant remember where tho

All you need to do is move your plugins.
First checkout the repositry and then download rev #13 again and move the plugins manually.
(a.k.a not using the move plugins button)

Hope it works

P.S Sp0rky is Harsh :p

hey, yanix sorry that i made a little bit more then the walking(the whole script :p) that i supposed to do for you, sorry can you unblock me :p?

Hermpie