SRL Archive - Archive

wired16 - SRL Member Application Form

wired16

2007-04-01 12:55:28

<!– BEGIN TEMPLATE: formanswers –>
wired16 - SRL Member Application Form
wired16

What is the meaning to life? The meaning of life is to create

Where you Referred to SRL? If yes, by whom?
no

Programming Knowledge
i dont know any other langs.

Other Communitys
sythe and karamja

How Long have You Played Runescape
7 yrs

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

well im not very good at this.. but here it goes…

i started learning how to script in scar becuase there weren't any scripts i wanted so i thought id make my own. and i found out that making a ess miner and banker was harder than an auto talker, didnt know of wizzup's at the time,
then i decided to start smaller so i made an auto varrock telly.. and well its the only script ive made that does anything and works good so i hope its good enough to become a srl member!!

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program wiredvarrockTeleporter;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Magic.scar}

var
Teleported,RespondAmount,DItem,Abyss,NOAbyss: Integer;
RunFar: Boolean;
const
TeleTimes         = 4000;{How many times to tele}
StartPlayer       = 0;{Leave this}
autoRespond      = True;{Use my autoresponder?}
RunDir            = 'S';{Just in case you get a fight random}
CommonNickname1   = '';{A common name people call you..like part of your name}
CommonNickname2   = '';
CommonNickname3   = '';
CrowdedPlace      = False;{False if in non-talkative place,true if opposite}
///////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
 HowManyPlayers  := 1;
 NumberOfPlayers( HowManyPlayers );
 CurrentPlayer := StartPlayer;

 Players[0].Name := '';{Username}
 Players[0].Pass := '';{Password}
 Players[0].Nick := '';{3 Letters from your name NO CAPS}
 Players[0].Active:=True;
end;
///////////////////////////////////////////////////////////////////////////
                 {going to put random solver in here in later versions}
///////////////////////////////////////////////////////////////////////////
procedure autoResponder;
begin
 if(CrowdedPlace = True) then
 begin
 if (FindChatText('Hp lvls') or
    FindChatText('Hp lvls?') or
    FindChatText('Hitpoint lvls') or
    FindChatText('Hitpoint lvls?') or
    FindChatText('Hitpoints lvls') or
    FindChatText('Hitpoints lvls?') or
    FindChatText('Hitp lvls') or
    FindChatText('Hitp lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
    RespondAmount:=RespondAmount+1;
  end;

 if (FindChatText('Mining lvls') or
    FindChatText('Mining lvls?') or
    FindChatText('Mine lvls') or
    FindChatText('Mine lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Mining')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Wc lvls') or
    FindChatText('Wc lvls?') or
    FindChatText('Woodcut lvls') or
    FindChatText('Woodcut lvls?') or
    FindChatText('Woodcutting lvls') or
    FindChatText('Woodcutting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Attack lvls') or
    FindChatText('Attack lvls?') or
    FindChatText('Atack lvls') or
    FindChatText('Atack lvls?') or
    FindChatText('Attac lvls') or
    FindChatText('Attac lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Attack')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Defenc lvls') or
    FindChatText('Defenc lvls?') or
    FindChatText('Defence lvls') or
    FindChatText('Defence lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Defence')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Magic lvls') or
    FindChatText('Magic lvls?') or
    FindChatText('Mage lvls') or
    FindChatText('Mage lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Magic')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Cook lvls') or
    FindChatText('Cook lvls?') or
    FindChatText('Cookin lvls') or
    FindChatText('Cookin lvls?') or
    FindChatText('Cooking lvls') or
    FindChatText('Cooking lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Cooking')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Fletch lvls') or
    FindChatText('Fletch lvls?') or
    FindChatText('Fletching lvls') or
    FindChatText('Fletching lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Fletching')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Firemaking lvls') or
    FindChatText('FireMaking lvls?') or
    FindChatText('Fire making lvls') or
    FindChatText('Fire making lvls')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Firemaking')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Craft lvls') or
    FindChatText('Craftt lvls?') or
    FindChatText('Craftin lvls') or
    FindChatText('Crafting lvls?') or
    FindChatText('Crafting lvls') or
    FindChatText('Crafting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Crafting')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Smelt lvls') or
    FindChatText('Smelt lvls?') or
    FindChatText('Smelting lvls') or
    FindChatText('Smelting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Smelting')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Rc lvls') or
    FindChatText('Rc lvls?') or
    FindChatText('Runecraft lvls') or
    FindChatText('Runecraft lvls?') or
    FindChatText('Runecrafting lvls') or
    FindChatText('Runecrafting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Runecraft')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Hi') or
    FindChatText('Hey') or
    FindChatText('Hello') or
    FindChatText('Yo')) then
  begin
   case random(4) of
    0: begin
       Typesend('hola');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('sup...gettin my mage up');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('wassup');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('hows it goin');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (FindChatText((Players[CurrentPlayer].Name)) or
    FindChatText((CommonNickname1)) or
    FindChatText((CommonNickname2)) or
    FindChatText((CommonNickname3))) then
  begin
   case random(4) of
    0: begin
       Typesend('im busy leave me alone lol');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('im not talking right now');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('talk to me some other time i dont want to talk now');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (FindChatText('Macroer') or
    FindChatText('Macror') or
    FindChatText('Macro') or
    FindChatText('Macrore')) then
  begin
   case random(4) of
    0: begin
       Typesend('omg im not for the last time stop talking to me');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('everyone thinks i am but im not.. dont even talk');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('lol im not leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('im not! im not talkin to you');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (FindChatText('Autoer') or
    FindChatText('Auoter') or
    FindChatText('Auto') or
    FindChatText('Autor')) then
  begin
   case random(4) of
    0: begin
       Typesend('omg im not leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('im just watching calm down dont talk to me');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('everyone thinks im one...leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('im not! i hate them dont even say anything');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;
 end;
 if(CrowdedPlace=False) then
 begin
 if (InChat('Hp lvls') or
    InChat('Hp lvls?') or
    InChat('Hitpoint lvls') or
    InChat('Hitpoint lvls?') or
    InChat('Hitpoints lvls') or
    InChat('Hitpoints lvls?') or
    InChat('Hitp lvls') or
    InChat('Hitp lvls?') or
    InChat('Mining lvls') or
    InChat('Mining lvls?') or
    InChat('Mine lvls') or
    InChat('Mine lvls?') or
    InChat('Wc lvls') or
    InChat('Wc lvls?') or
    InChat('Woodcut lvls') or
    InChat('Woodcut lvls?') or
    InChat('Woodcutting lvls') or
    InChat('Woodcutting lvls?') or
    InChat('Attack lvls') or
    InChat('Attack lvls?') or
    InChat('Atack lvls') or
    InChat('Atack lvls?') or
    InChat('Attac lvls') or
    InChat('Attac lvls?')or
    InChat('Defenc lvls') or
    InChat('Defenc lvls?') or
    InChat('Defence lvls') or
    InChat('Defence lvls?') or
    InChat('Magic lvls') or
    InChat('Magic lvls?') or
    InChat('Mage lvls') or
    InChat('Mage lvls?') or
    InChat('Cook lvls') or
    InChat('Cook lvls?') or
    InChat('Cookin lvls') or
    Inchat('Cookin lvls?') or
    InChat('Cooking lvls') or
    InChat('Cooking lvls?') or
    InChat('Fletch lvls') or
    InChat('Fletch lvls?') or
    InChat('Fletching lvls') or
    InChat('Fletching lvls?') or
    InChat('Firemaking lvls') or
    InChat('FireMaking lvls?') or
    Inchat('Fire making lvls') or
    InChat('Fire making lvls') or
    InChat('Craft lvls') or
    InChat('Craftt lvls?') or
    InChat('Craftin lvls') or
    InChat('Crafting lvls?') or
    InChat('Crafting lvls') or
    InChat('Crafting lvls?') or
    InChat('Smelt lvls') or
    InChat('Smelt lvls?') or
    InChat('Smelting lvls') or
    InChat('Smelting lvls?') or
    InChat('Rc lvls') or
    InChat('Rc lvls?') or
    InChat('Runecraft lvls') or
    InChat('Runecraft lvls?') or
    InChat('Runecrafting lvls') or
    InChat('Runecrafting lvls?')) then
  begin
   TypeSend('i dont tell my skills... I LIKE TO KEEP THEM SECRET!!');
    RespondAmount:= RespondAmount+1;
  end;

 if (InChat('Hi') or
    InChat('Hey') or
    InChat('Hello') or
    InChat('Yo')) then
  begin
   case random(4) of
    0: begin
       Typesend('hola');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('sup...gettin my mage up');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('wassup');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('hows it goin');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (InChat((Players[CurrentPlayer].Name)) or
    InChat((CommonNickname1)) or
    InChat((CommonNickname2)) or
    InChat((CommonNickname3))) then
  begin
   case random(4) of
    0: begin
       Typesend('im not talking right now..');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('plz dont talk to me');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('i dont talk to noobs');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (InChat('Macroer') or
    InChat('Macror') or
    InChat('Macro') or
    InChat('Macrore')) then
  begin
   case random(4) of
    0: begin
       Typesend('what ever helps you sleep at night');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('i dont do that sort of thing ty');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('lol... like id do that');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('no im not n00b');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (InChat('Autoer') or
    InChat('Auoter') or
    InChat('Auto') or
    InChat('Autor')) then
  begin
   case random(4) of
    0: begin
       Typesend('omg im not leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('im getting my mage up so shhhhh');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('everyone thinks i am but im not');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('i dont want to get banned!');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;
 end;
end;
///////////////////////////////////////////////////////////////////////////
procedure RandomCompassDirection;
begin
 case Random(2) of
  0:begin
     KeyDown(VK_Left);
      Wait((100)+ Random(500));
       KeyUp(VK_Left);
    end;
  1:begin
     KeyDown(VK_Right);
      Wait((100)+ Random(500));
       KeyUp(VK_Right);
    end;
 end;
end;
///////////////////////////////////////////////////////////////////////////
procedure noBan;
begin
  if not(LoggedIn)then
   begin
    Logout;
     TerminateScript;
   end;
  case Random(11) of
    0 : MMouse(Random(MSX2), Random(MSY2),0,0);
    1 : RandomRClick;
    2 : HoverSkill('magic', False);
    3 : HoverSkill('smithing', False);
    4 : HoverSkill('random', False);
    5 : RandomCompassDirection;
    6 : RandomCompassDirection;
    7 : PickupMouse;
    8 : begin
           GameTab(1+random(12));
           wait(1500+random(500));
           GameTab(4);
         end;
  end;
end;
///////////////////////////////////////////////////////////////////////////
procedure CheckTalkAndRandoms;
begin
 autoResponder;
    antiBan;
end;
///////////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('Wired Varrock Telly ');
Writeln('Ran for:'+(TimeRunning));
Writeln('Teleported'+inttostr(Teleported));Writeln('times');
Writeln('Gained about'+inttostr(Teleported*35));Writeln('XP');
Writeln('Times i saved your ass'+inttostr(RespondAmount));
Writeln('go here and post a damn proggie LEECHER!!');{currently making thread
where to post proggies}
end;
///////////////////////////////////////////////////////////////////////////
procedure Teleport;
begin
Teleported:=0;
RespondAmount:=0;
 repeat
  begin
   GameTab(7);
    Wait(300+random(500));
     Cast('Varrock Teleport');
      Wait(1400+random(800));
       CheckTalkAndRandoms;
  end;
   Teleported:=Teleported+1;
   ProgressReport;
 until(Teleported>=TeleTimes)
  Logout;
   TerminateScript;
end;
///////////////////////////////////////////////////////////////////////////
procedure SetUpPlayer;
begin
 SetUpSRL;
  DeclarePlayers;
   if(not(LoggedIn)) then
    begin
     LoginPlayer;
    end;
     SetChat('On',1);
      SetChat('Friends',2);
       SetChat('On',3);
        Wait(1000+random(1000));
         SetRun(False);
          HighestAngle;
end;
///////////////////////////////////////////////////////////////////////////
begin
 SetUpPlayer;
  Teleport;
end.
RunFar: Boolean;

const
TeleTimes         = 4000;{How many times to tele}
StartPlayer       = 0;{Leave this}
autoRespond      = True;{Use my autoresponder?}
RunDir            = 'S';{Just in case you get a fight random}
CommonNickname1   = '';{A common name people call you..like part of your name}
CommonNickname2   = '';
CommonNickname3   = '';
CrowdedPlace      = False;{False if in non-talkative place,true if opposite}
///////////////////////////////////////////////////////////////////////////
procedure DeclarePlayers;
begin
 HowManyPlayers  := 1;
 NumberOfPlayers( HowManyPlayers );
 CurrentPlayer := StartPlayer;

 Players[0].Name := '';{Username}
 Players[0].Pass := '';{Password}
 Players[0].Nick := '';{3 Letters from your name NO CAPS}
 Players[0].Active:=True;
end;
///////////////////////////////////////////////////////////////////////////
                 {going to put random solver in here in later versions}
///////////////////////////////////////////////////////////////////////////
procedure autoResponder;
begin
 if(CrowdedPlace = True) then
 begin
 if (FindChatText('Hp lvls') or
    FindChatText('Hp lvls?') or
    FindChatText('Hitpoint lvls') or
    FindChatText('Hitpoint lvls?') or
    FindChatText('Hitpoints lvls') or
    FindChatText('Hitpoints lvls?') or
    FindChatText('Hitp lvls') or
    FindChatText('Hitp lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
    RespondAmount:=RespondAmount+1;
  end;

 if (FindChatText('Mining lvls') or
    FindChatText('Mining lvls?') or
    FindChatText('Mine lvls') or
    FindChatText('Mine lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Mining')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Wc lvls') or
    FindChatText('Wc lvls?') or
    FindChatText('Woodcut lvls') or
    FindChatText('Woodcut lvls?') or
    FindChatText('Woodcutting lvls') or
    FindChatText('Woodcutting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Attack lvls') or
    FindChatText('Attack lvls?') or
    FindChatText('Atack lvls') or
    FindChatText('Atack lvls?') or
    FindChatText('Attac lvls') or
    FindChatText('Attac lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Attack')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Defenc lvls') or
    FindChatText('Defenc lvls?') or
    FindChatText('Defence lvls') or
    FindChatText('Defence lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Defence')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Magic lvls') or
    FindChatText('Magic lvls?') or
    FindChatText('Mage lvls') or
    FindChatText('Mage lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Magic')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Cook lvls') or
    FindChatText('Cook lvls?') or
    FindChatText('Cookin lvls') or
    FindChatText('Cookin lvls?') or
    FindChatText('Cooking lvls') or
    FindChatText('Cooking lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Cooking')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Fletch lvls') or
    FindChatText('Fletch lvls?') or
    FindChatText('Fletching lvls') or
    FindChatText('Fletching lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Fletching')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Firemaking lvls') or
    FindChatText('FireMaking lvls?') or
    FindChatText('Fire making lvls') or
    FindChatText('Fire making lvls')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Firemaking')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Craft lvls') or
    FindChatText('Craftt lvls?') or
    FindChatText('Craftin lvls') or
    FindChatText('Crafting lvls?') or
    FindChatText('Crafting lvls') or
    FindChatText('Crafting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Crafting')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Smelt lvls') or
    FindChatText('Smelt lvls?') or
    FindChatText('Smelting lvls') or
    FindChatText('Smelting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Smelting')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Rc lvls') or
    FindChatText('Rc lvls?') or
    FindChatText('Runecraft lvls') or
    FindChatText('Runecraft lvls?') or
    FindChatText('Runecrafting lvls') or
    FindChatText('Runecrafting lvls?')) then
  begin
   TypeSend(IntToStr(GetSkillLevel('Runecraft')))
    RespondAmount:= RespondAmount+1;
  end;

 if (FindChatText('Hi') or
    FindChatText('Hey') or
    FindChatText('Hello') or
    FindChatText('Yo')) then
  begin
   case random(4) of
    0: begin
       Typesend('hola');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('sup...gettin my mage up');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('wassup');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('hows it goin');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (FindChatText((Players[CurrentPlayer].Name)) or
    FindChatText((CommonNickname1)) or
    FindChatText((CommonNickname2)) or
    FindChatText((CommonNickname3))) then
  begin
   case random(4) of
    0: begin
       Typesend('im busy leave me alone lol');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('im not talking right now');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('talk to me some other time i dont want to talk now');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (FindChatText('Macroer') or
    FindChatText('Macror') or
    FindChatText('Macro') or
    FindChatText('Macrore')) then
  begin
   case random(4) of
    0: begin
       Typesend('omg im not for the last time stop talking to me');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('everyone thinks i am but im not.. dont even talk');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('lol im not leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('im not! im not talkin to you');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (FindChatText('Autoer') or
    FindChatText('Auoter') or
    FindChatText('Auto') or
    FindChatText('Autor')) then
  begin
   case random(4) of
    0: begin
       Typesend('omg im not leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('im just watching calm down dont talk to me');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('everyone thinks im one...leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('im not! i hate them dont even say anything');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;
 end;
 if(CrowdedPlace=False) then
 begin
 if (InChat('Hp lvls') or
    InChat('Hp lvls?') or
    InChat('Hitpoint lvls') or
    InChat('Hitpoint lvls?') or
    InChat('Hitpoints lvls') or
    InChat('Hitpoints lvls?') or
    InChat('Hitp lvls') or
    InChat('Hitp lvls?') or
    InChat('Mining lvls') or
    InChat('Mining lvls?') or
    InChat('Mine lvls') or
    InChat('Mine lvls?') or
    InChat('Wc lvls') or
    InChat('Wc lvls?') or
    InChat('Woodcut lvls') or
    InChat('Woodcut lvls?') or
    InChat('Woodcutting lvls') or
    InChat('Woodcutting lvls?') or
    InChat('Attack lvls') or
    InChat('Attack lvls?') or
    InChat('Atack lvls') or
    InChat('Atack lvls?') or
    InChat('Attac lvls') or
    InChat('Attac lvls?')or
    InChat('Defenc lvls') or
    InChat('Defenc lvls?') or
    InChat('Defence lvls') or
    InChat('Defence lvls?') or
    InChat('Magic lvls') or
    InChat('Magic lvls?') or
    InChat('Mage lvls') or
    InChat('Mage lvls?') or
    InChat('Cook lvls') or
    InChat('Cook lvls?') or
    InChat('Cookin lvls') or
    Inchat('Cookin lvls?') or
    InChat('Cooking lvls') or
    InChat('Cooking lvls?') or
    InChat('Fletch lvls') or
    InChat('Fletch lvls?') or
    InChat('Fletching lvls') or
    InChat('Fletching lvls?') or
    InChat('Firemaking lvls') or
    InChat('FireMaking lvls?') or
    Inchat('Fire making lvls') or
    InChat('Fire making lvls') or
    InChat('Craft lvls') or
    InChat('Craftt lvls?') or
    InChat('Craftin lvls') or
    InChat('Crafting lvls?') or
    InChat('Crafting lvls') or
    InChat('Crafting lvls?') or
    InChat('Smelt lvls') or
    InChat('Smelt lvls?') or
    InChat('Smelting lvls') or
    InChat('Smelting lvls?') or
    InChat('Rc lvls') or
    InChat('Rc lvls?') or
    InChat('Runecraft lvls') or
    InChat('Runecraft lvls?') or
    InChat('Runecrafting lvls') or
    InChat('Runecrafting lvls?')) then
  begin
   TypeSend('i dont tell my skills... I LIKE TO KEEP THEM SECRET!!'
    RespondAmount:= RespondAmount+1;
  end;

 if (InChat('Hi') or
    InChat('Hey') or
    InChat('Hello') or
    InChat('Yo')) then
  begin
   case random(4) of
    0: begin
       Typesend('hola');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('sup...gettin my mage up');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('wassup');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('hows it goin');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (InChat((Players[CurrentPlayer].Name)) or
    InChat((CommonNickname1)) or
    InChat((CommonNickname2)) or
    InChat((CommonNickname3))) then
  begin
   case random(4) of
    0: begin
       Typesend('im not talking right now..');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('plz dont talk to me');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('i dont talk to noobs');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (InChat('Macroer') or
    InChat('Macror') or
    InChat('Macro') or
    InChat('Macrore')) then
  begin
   case random(4) of
    0: begin
       Typesend('what ever helps you sleep at night');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('i dont do that sort of thing ty');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('lol... like id do that');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('no im not n00b');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;

 if (InChat('Autoer') or
    InChat('Auoter') or
    InChat('Auto') or
    InChat('Autor')) then
  begin
   case random(4) of
    0: begin
       Typesend('omg im not leave me alone');
       RespondAmount:=RespondAmount+1;
       end;
    1: begin
       Typesend('im getting my mage up so shhhhh');
       RespondAmount:=RespondAmount+1;
       end;
    2: begin
       Typesend('everyone thinks i am but im not');
       RespondAmount:=RespondAmount+1;
       end;
    3: begin
       Typesend('i dont want to get banned!');
       RespondAmount:=RespondAmount+1;
       end;
   end;
  end;
 end;
end;
///////////////////////////////////////////////////////////////////////////
procedure RandomCompassDirection;
begin
 case Random(2) of
  0:begin
     KeyDown(VK_Left);
      Wait((100)+ Random(500));
       KeyUp(VK_Left);
    end;
  1:begin
     KeyDown(VK_Right);
      Wait((100)+ Random(500));
       KeyUp(VK_Right);
    end;
 end;
end;
///////////////////////////////////////////////////////////////////////////
procedure AntiBan;
begin
  if not(LoggedIn)then
   begin
    Logout;
     TerminateScript;
   end;
  case Random(11) of
    0 : MMouse(Random(MSX2), Random(MSY2),0,0);
    1 : RandomRClick;
    2 : HoverSkill('magic', False);
    3 : HoverSkill('smithing', False);
    4 : HoverSkill('random', False);
    5 : RandomCompassDirection;
    6 : RandomCompassDirection;
    7 : PickupMouse;
    8 : begin
           GameTab(1+random(12));
           wait(1500+random(500));
           GameTab(4);
         end;
  end;
end;
///////////////////////////////////////////////////////////////////////////
procedure CheckTalkAndRandoms;
begin
 autoResponder;
     AntiBan;
end;
///////////////////////////////////////////////////////////////////////////
procedure ProgressReport;
begin
Writeln('Wired Varrock Telly ');
Writeln('Ran for:'+(TimeRunning));
Writeln('Teleported'+inttostr(Teleported));Writeln('times';
Writeln('Gained about'+inttostr(Teleported*35));Writeln('XP';
Writeln('Times i saved your ass'+inttostr(RespondAmount));
Writeln('go here and post a damn proggie LEECHER!!');{currently making thread
where to post proggies}
end;
///////////////////////////////////////////////////////////////////////////
procedure Teleport;
begin
Teleported:=0;
RespondAmount:=0;
 repeat
  begin
   GameTab(7);
    Wait(300+random(500));
     Cast('Varrock Teleport');
      Wait(1400+random(800));
       CheckTalkAndRandoms;
  end;
   Teleported:=Teleported+1;
   ProgressReport;
 until(Teleported>=TeleTimes)
  Logout;
   TerminateScript;
end;
///////////////////////////////////////////////////////////////////////////
procedure SetUpPlayer;
begin
 SetUpSRL;
  DeclarePlayers;
   if(not(LoggedIn)) then
    begin
     LoginPlayer;
    end;
     SetChat('On',1);
      SetChat('Friends',2);
       SetChat('On',3);
        Wait(1000+random(1000));
         SetRun(False);
          HighestAngle;
end;
///////////////////////////////////////////////////////////////////////////
begin
 SetUpPlayer;
  Teleport;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Ejjman

2007-04-01 13:30:51

ROFL

No from me. Ur whole script is an auto-responder. Try to actually get on with what you are suppose to do. :D

Hey321

2007-04-01 13:54:32

No.

[php]
if (InChat('Autoer') or
InChat('Auoter') or
InChat('Auto') or
InChat('Autor')) then
begin
case random(4) of
0: begin
Typesend('omg im not leave me alone');
RespondAmount:=RespondAmount+1;
end;
1: begin
Typesend('im getting my mage up so shhhhh');
RespondAmount:=RespondAmount+1;
end;
2: begin
Typesend('everyone thinks i am but im not');
RespondAmount:=RespondAmount+1;
end;
3: begin
Typesend('i dont want to get banned!');
RespondAmount:=RespondAmount+1;
end;
end;
end;
end;
end;[/php]

What if their talking to someone else? Then it'll just post em to you ;). Fix a few bugs and i'll vote yes, but no for now.

wired16

2007-04-01 14:28:30

maybe if i put InChat((Players[CurrentPlayer].Name)) that in it will fix it .. im going to the doctor right now and ill be back to fix it..ty

Bobarkinator

2007-04-01 15:51:15

Just what Ejj said. Like 7/8 of your script is autoresponder (which is pretty good) then you have not much for the actual script part.

Not voting yet though

wired16

2007-04-01 16:24:28

im going to fix the problem hey was talking about.. then im going to make it walk to the bank and withdraw runes if you run out

wired16

2007-04-01 16:45:56

if anyone could help me with withdrawing stuff from the bank that would be nice

YoHoJo

2007-04-01 17:18:58

Yea i agree
Its just a long useless auto repsonder
Im not even a fan of autresponders of this sort.
They are so dumb!

if (InChat('Woodcut level') or 
InChat('w0odcut lvl')or
InChat('Woodcut le')or
InChat('w00dcut level')or
InChat('\/\/00dcut level')or
InChat('\/\/00dcut levl')or
InChat('\/\/00dcut lv')or
InChat('Wo0dcut level')or
InChat('\/\/00dcut lvs')or
InChat('w00dcut levl')or
InChat('woodcut levl')or
InChat('wo0dcut levl')or
InChat('w0odcut levl')then
TypeSend('99')

Id say, get rid of all of the autoresponders.

Bascially all your script is is..

procedure Teleport;
begin
Teleported:=0;
RespondAmount:=0;
 repeat
  begin
   GameTab(7);
    Wait(300+random(500));
     Cast('Varrock Teleport');
      Wait(1400+random(800));
       CheckTalkAndRandoms;
  end;
   Teleported:=Teleported+1;
   ProgressReport;
 until(Teleported>=TeleTimes)
  Logout;
   TerminateScript;
end;

With no antirandoms or multiplyer.

So overall
☼Add antirandoms
☼Add Multi Player
☼Make it longer/more complex to show that you are a good scripter.

tylanbo

2007-04-01 20:48:12

Yohojo I am VERY sure that I saw this autoresponder on another app that went through. I saw the same posts commenting on its uselessness as well…

WAIT A MINUTE, IT IS COPIED!

SILLY GOOSE!

http://www.villavu.com/forum/showthread.php?t=7121

Lol Yohojo check it out, maybe I'm a moron and doofy copied it from wired, or maybe both never made it? But I knew I saw the same crappy auto respond elsewhere

Copybusted:=Copybusted+1;

( Sorry it feels good lol :) )

pwnaz0r

2007-04-01 21:10:22

:p Actually

http://www.srl-forums.com/forum/doofycamelotteleporter-t8635.html

:p exact script right there. Just changed it varrok instead of cammy.

YoHoJo

2007-04-01 21:38:40

tylanbo's tthat was stupid.
Everyone uses those generic auto responders…
Thats like copybusting someone for using MMouse(x,y,rx,ry)
(sorry)

pwnaz0r
Nice catch. i think im losing it!

SILLY GOOSE
Its gonna be hard for you to get accepted now after we know your a criminal.

tylanbo

2007-04-02 04:16:54

From: YoHoJo
tylanbo's tthat was stupid.
Everyone uses those generic auto responders…
Thats like copybusting someone for using MMouse(x,y,rx,ry)
(sorry)

pwnaz0r
Nice catch. i think im losing it!

SILLY GOOSE
Its gonna be hard for you to get accepted now after we know your a criminal.

Well I guess you and I both know why I am not a copybuster =!

EDIT:

At least I led pwnzor in the right direction maybe? Eh who cares, bottom line this guy gets a "HELL NO"