SRL Archive - Archive

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

What is the meaning to life?

a procedure of life

procedure lif3;
begin
  case random(5) of
      0: live;

      1:  die;

      2:  eat;

      3:  sleep;

      4: cancer;

end;

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


Programming Knowledge
java,html,a bit on pascal

Other Communitys
used to be from scythe,rs2cheating

How Long have You Played Runescape
since 2002

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

im a 15 yr old student doing the IB program, i have been playing rs for close to 5 yrs now, i used to use scripts for rsc but after rsc was not open to public, i quit for a while but now i am back on and hopefully can macro my skills to the top. i hope to produce quality scripts for the rest of the commuity. attached is a hybrid script i made, thx for your time

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

program hybrid; ///scar v2.03 with srl 3.6/3.7
{.include srl/srl.scar}
{.include srl/srl/skill/Mining.scar}
{.include srl/srl/extended/xAntiRandoms.scar}
{.include srl/srl/extended/xAntiBan.scar}
{.include srl/srl/skill/magic.scar}
{.include srl/srl/skill/fighting.scar}

var
   Loads : Integer;
   Responded: Integer;
   Curses: Integer;

const
   RunningDirect   = 'N';     // Direction to run
   Rock=2305869; //if cant find then change the colour
   PickWielded=False;//If you have your Pick equipped then true otherwise false.(put 1st inventory slot)
   StartPlayer  = 0;       // The player to start with most prefrably put starting player as 0
   AmountOfPlayers = 1;    // Change this to the amount of characters
   HowManyLoads= 10;       //loads doesnt mean just for ores, it also means hw many monsters or curses you want to kill/curse
   EnemyColor1= 99909;     // 1 color of enemy
   EnemyColor2= 99992;     //2nd color of enemy
   EnemyColor3= 99991;     //3rd color of enemy
   Enemyname= 'bark';      //name of enemy
   TimeToWait= 2;          //time to wait before continuing, better to leave it
   EatHp= 20;              //what hp to eat at if using fighter
   FoodColor= 333333;      //color of food
   Tolerance= 4;           //tolerance
   FightMode = 'Def';      // fight mode for autofighter
   
   
   //======================================================================\\
//                          Player Setup                                 \\
//======================================================================\\
procedure DeclarePlayers;
begin
     HowManyPlayers := 6;

     CurrentPlayer := StartPlayer;
     NumberOfPlayers(HowManyPlayers);

     Players[0].Name    :='';
     Players[0].Pass    :='';
     Players[0].Nick    :='kro';
     Players[0].String1  :='miner';  /// 4 cursing write curser, for fighting type fighter, for mining type miner
     Players[0].Active:= True;

     Players[1].Name    :='Username';
     Players[1].Pass    :='Password';
     Players[1].Nick    :='ssw';
     Players[1].String1  :='curser';
     Players[1].Active:= False;

     Players[2].Name    :='Username';
     Players[2].Pass    :='Password';
     Players[2].Nick    :='ssw';
     Players[2].String1  :='fighter';
     Players[2].Active:= False;

     Players[3].Name    :='Username';
     Players[3].Pass    :='Password';
     Players[3].Nick    :='ssw';
     Players[3].String1  :='curser';
     Players[3].Active:= False;

     Players[4].Name    :='Username';
     Players[4].Pass    :='Password';
     Players[4].Nick    :='ssw';
     Players[4].String1  :='miner';
     Players[4].Active:= False;
end;



//======================================================================\\
//                       My Sig                                         \\
//======================================================================\\
procedure krockxis;
begin;
  writeln(' __                          __           .__           ')
  Writeln('|  | _________  ____   ____ |  | _____  __|__| ______   ')
  Writeln('|  |/ /\_  __ \/  _ \_/ ___\|  |/ /\  \/  /  |/  ___/   ')
  Writeln('|    <  |  | \(  <_> )  \___|    <  >    <|  |\___ \    ')
  Writeln('|__|_ \ |__|   \____/ \___  >__|_ \/__/\_ \__/____  >   ')
  Writeln('     \/                   \/     \/      \/       \/    ')
end;

//======================================================================\\
//                          other sigs                                  \\
//======================================================================\\
procedure yes;
begin;
  writeln('                                                       ')
  Writeln('                      _                                ')
  Writeln('                     ( ((                              ')
  Writeln('                      \ =\                             ')
  Writeln('                     __\_ `-\                          ')
  Writeln('                   (____))(  \----                     ')
Writeln('                   (____)) _                           ')
Writeln('                   (____))                             ')
Writeln('                   (____))____/----                    ')
end;

procedure bert;
begin;
Writeln('    WW     ')
Writeln('   /__\    ')
Writeln('  | oo |   ')
Writeln(' (|_()_|)  ')
Writeln('   \__/    ')
Writeln('  /|\/|\   ')
Writeln(' ||||||||  ')
Writeln(' ||||||||  ')
Writeln(' ||||||||  ')
end;

procedure CookieMonster;
begin;
Writeln('                ')
Writeln('                ')
Writeln('     (o)(o)     ')
Writeln('   w"      "w   ')
Writeln('  W  -====-  W  ')
Writeln('   "w      w"   ')
Writeln(' w""""""""""""w ')
Writeln('W              W')
end;

procedure  TheCount;

begin;
Writeln('     .wwwwwwww.   ')
Writeln('   .w"  "WW"  "w. ')
Writeln('  ."   /\  /\   ". ')
Writeln(' |\     o  o     /|  ')
Writeln('  \|  ___\/___  |/   ')
Writeln('  / \ \_v__v_/ / \   ')
Writeln(' / | \________/ | \  ')
Writeln(' >  \   WWWW   /  <  ')
Writeln(' \   \   ""   /   /  ')
Writeln('  \   \      /   /   ')
end;

procedure  Ernie;

begin;
Writeln('   _WWWWW_             ')
Writeln('  /  o o  \            ')
Writeln('(|  __O__  |)          ')
Writeln('  \ \___/ /            ')
Writeln('  /-------\            ')
Writeln(' |=========|           ')
Writeln(' |=========|           ')
end;

procedure  elmo;
begin;
Writeln('   oo                  ')
Writeln(' w"()"w                ')
Writeln('W -==- W                ')
Writeln(' "wwww"                 ')
Writeln('w"    "w                ')
end;
//======================================================================\\
//                 Signature                                            \\
//======================================================================\\
procedure Signature;
begin
  case random(7) of
    0: Ernie;

    1:  elmo;

    2: TheCount;

    3: CookieMonster;

    4: yes;

    5: krockxis;

    6: bert;


  end;
    end;

    //======================================================================\\
//                 AutoRespond by BuckleyInDaHouse                      \\
//======================================================================\\
 procedure AutoRespond;
begin
  if (InChat('Mining lvls') or
    InChat('Mining lvls?') or
    InChat('Mine lvls') or
    Inchat('Mine lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Mining')))
    Responded:= Responded + 1;
  end;

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

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

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

  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?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
    Responded:= Responded + 1;
  end;

  if (InChat('Range lvls') or
    InChat('Range lvls?') or
    InChat('Rangin lvls') or
    InChat('Rangin lvls?') or
    InChat('Ranged lvls') or
    InChat('Ranged lvls?') or
    InChat('Ranging lvls') or
    InChat('Ranging lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Ranged')))
    Responded:= Responded + 1;
  end;

  if (InChat('Pray lvls') or
    InChat('Pray lvls?') or
    InChat('Prayer lvls') or
    InChat('Prayer lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Prayer')))
    Responded:= Responded + 1;
  end;

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

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

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

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

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

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

  if (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(IntToStr(GetSkillLevel('Runecraft')))
    Responded:= Responded + 1;
  end;
   end;
//======================================================================\\
//                          Fight mode                                  \\
//======================================================================\\

Procedure SetMode;
Begin
 If(FightMode = 'Atk') Then
  SetFightMode(1);
 If(FightMode = 'Str') Then
  SetFightMode(2);
 If(FightMode = 'Def') Then
  SetFightMode(4);
   End;
   
//======================================================================\\
//                 find gas                                             \\
//======================================================================\\
procedure GasFinder;
begin
  if (FindGas(x, y)) then
  begin
    HighestAngle;
    MakeCompass('N');
    Wait(19000);
  end;
end;
//======================================================================\\
//                 FindTheRandoms - Finds the randoms                   \\
//======================================================================\\
procedure Randoms;
var
  i: Integer;
begin
  for i := 1 to 6 do
  begin
    case I of
    1:  FindPick;
    2:  FindTalk;
    3:  FindNormalRandoms;
    4:  GasFinder;
    5:  FindPick;
    6:  FindTalk;
    end;
    Wait(1)
  end;

  if (FindFight) then
  begin
    Runawaydirection(RunningDirect);
    Wait(20000); //just to be safe
    RunBack;
  end;
end;
//======================================================================\\
//                          compass random                              \\
//======================================================================\\
procedure Compass;
begin
  case random(4) of
    0: MakeCompass('W');

    1: MakeCompass('E');

    2: MakeCompass('S');

    3: MakeCompass('N');
  end;
  LowestAngle;
  HighestAngle;
  MakeCompass('N');
  wait(300+random(200));
end;


//======================================================================\\
//                          Cant Ban me                                 \\
//======================================================================\\


procedure PreventBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(11) of

    0: PickUpMouse;

    1: Compass;

    2: LeaveScreenEvery(10 + Random(5));

    3: begin
         HoverSkill('Mining', false);
         wait(2000+random(500));
       end;

    4: BoredEvery(10 + Random(5));

    5: begin
         GameTab(1 + Random(12));
         wait(1000+random(500));
       end;

    6: MouseBox(MSX1,MMY1,MMX2,MMY2,1);

    7:AlmostLogout;

    8: DoEmote(2 + Random(50));

    9: begin
        LowestAngle;
        HighestAngle;
       end;

    10: BoredHuman;

  end;
  GameTab(4);
end;

//======================================================================\\
//                          Mining                                      \\
//======================================================================\\
procedure mine;
begin
repeat
if FindObj(x, y, 'Mine', rock, 2) then
           MMouse(x,y,0,0);
           GasFinder;
           Wait(150+random(100));
           Mouse(x,y,0,0,true);
           Randoms;
           AutoRespond;
           wait(2500+random(100));
           AutoRespond;
           until(InvFull);
           Responded:= Responded + 1;
        end;
//======================================================================\\
//                          Dropping                                    \\
//======================================================================\\
procedure drop;
begin
 if(PickWielded)=True then
 begin
 GameTab(4);
 DropTo(1,28);
 AutoRespond;
 Randoms;
 Loads := Loads + 1;
 Responded:= Responded + 1;
 end;
 begin
 if(PickWielded)=False then
 begin
 GameTab(4);
 DropTo(2,28);
 AutoRespond;
 Randoms;
 Loads := Loads + 1;
 Responded:= Responded + 1;
 end;
 end;
end;

//======================================================================\\
//                          Find Target                                 \\
//======================================================================\\
Procedure FindEnemy;
Begin
If
FindColorSpiral(x, y,EnemyColor1, MSX1, MSY1, MSX2, MSY2) or
FindColorSpiral(x, y,EnemyColor2, MSX1, MSY1, MSX2, MSY2) or
FindColorSpiral(x, y,EnemyColor3, MSX1, MSY1, MSX2, MSY2) then
Begin
Writeln('target found')
End Else
Writeln('could not find specified target');
end;

//======================================================================\\
//                          Attk Target                                 \\
//======================================================================\\
Procedure attkEnemy;
Begin
if
(FindColorSpiral(x,y,EnemyColor1,MSX1, MSY1, MSX2, MSY2)) Or
(FindColorSpiral(x,y,EnemyColor2,MSX1, MSY1, MSX2, MSY2)) Or
(FindColorSpiral(x,y,EnemyColor3,MSX1, MSY1, MSX2, MSY2)) Then
MMouse(x,y,1,1)
Mouse(x,y,1,1,True)
Wait(TimeToWait + Random(500))
Loads := Loads + 1;
Responded:= Responded + 1;
end;

//======================================================================\\
//                          Eat by buckley modded                       \\
//======================================================================\\
Procedure EatFood;
 Begin
If(GetHp < EatHp) or
(GetHp = EatHp) Then
Begin
GameTab(4);
If(FindColorTolerance(x,y,FoodColor,MIX1,MIY1,MIX2,MIY2,10)) Then
     MMouse(x,y,0,0);
     AutoRespond;
      If(IsUpText('Eat')) Then
       Mouse(x,y,1,1,True);
 end;
end;

//======================================================================\\
//                             AntiRandoms;                             \\
//======================================================================\\
procedure AntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection(RunningDirect);
Wait(19000 + random(2000));
RunBack;
end;
end;
//======================================================================\\
//                         Curse Caster                                 \\
//======================================================================\\
procedure curse;
 begin
    Cast('curse');
 if
    findobj(x,y,Enemyname, EnemyColor1,Tolerance) or
    findobj(x,y,Enemyname, EnemyColor2,Tolerance) or
    findobj(x,y,Enemyname, EnemyColor3,Tolerance) then
  begin
    Mouse(x, y, 2, 2, True)
    AntiRandoms;
    AutoRespond;
    Curses :=Curses + 1
   end;
 end;

//======================================================================\\
//                          Curser                                      \\
//======================================================================\\
procedure curser;
begin
if not LoggedIn then Exit;
FindEnemy;
curse;
PreventBan;
end;
//======================================================================\\
//                          Miner                                       \\
//======================================================================\\
procedure miner;
begin
if not LoggedIn then Exit;
mine;
drop;
end;
//======================================================================\\
//                          fighter                                     \\
//======================================================================\\
procedure fighter;
begin
if not LoggedIn then Exit;
AutoRespond;
FindEnemy;
AntiRandoms;
attkEnemy;
AutoRespond;
AntiRandoms;
EatFood;
AutoRespond;
AntiRandoms;
PreventBan;
end;
//======================================================================\\
//                          Setup Player                                \\
//======================================================================\\
procedure MPlayerset;
begin
  HighestAngle;
  PerfectNorth;
  SetChat('On',1);
  SetChat('Off',2);
  SetChat('Off',3);
  FindPickHeadColor;
end;
//======================================================================\\
//                          Switch Player                               \\
//======================================================================\\
procedure SwitchPlayer;
begin
  if((CurrentPlayer + 1) = AmountOfPlayers) then
  begin
    Writeln('finished!');
    Logout;
    TerminateScript;
  end;
  NextPlayer(True);
  loads:= 0;
  Writeln('Switched players');
end;

//======================================================================\\
//                          Setup Script                                \\
//======================================================================\\
procedure MSetupScript;
begin
  SetUpSRL;
  EquipPick := PickWielded;
  wait(3000);
  DeclarePlayers;
  ActivateClient;
  LoginPlayer;
  SetUpSRLMining;
  MPlayerset;

  If Not(LoggedIn) Then
Begin
  LoginPlayer;;
end;
  End;

//======================================================================\\
//                          Progress Report1                            \\
//======================================================================\\
procedure MineProgReport;          ///prog for mine
begin
  SRLRandomsReport;
  WriteLn('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^')
  WriteLn('        Progress Report                    ')
  WriteLn('                                           ')
  WriteLn('                Time: ' + (TimeRunning) + '')
  WriteLn('      HowManyLoads: ' + IntToStr(Loads) + '')
  Writeln(' times talked: '+IntToStr(Responded)   +  '')
  WriteLn('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^')
end;




//======================================================================\\
//                          Progress Report2                            \\
//======================================================================\\
procedure CurseReport; //prog for curse
begin
  SRLRandomsReport;
  WriteLn('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^')
  WriteLn('        Progress Report                    ')
  WriteLn('                                           ')
  WriteLn('                Time: ' + (TimeRunning) + '')
  WriteLn(' Curses Cast: ' + IntToStr(Curses) + '')
  Writeln(' times talked: '+IntToStr(Responded)   +  '')
  WriteLn('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^')
end;

//======================================================================\\
//                          Progress Report3                            \\
//======================================================================\\
procedure FightReport;///prog for fight
begin
  SRLRandomsReport;
  WriteLn('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^')
  WriteLn('        Progress Report                    ')
  WriteLn('                                           ')
  WriteLn('                Time: ' + (TimeRunning) + '')
  WriteLn('      Killed: ' + IntToStr(Loads) + '')
  Writeln(' times talked: '+IntToStr(Responded)   +  '')
  WriteLn('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^')
end;


//======================================================================\\
//                          Setup Player                                \\
//======================================================================\\

Procedure SetupScript; /// for curser + fighter
Begin
If Not (LoggedIn) Then
  LoginPlayer;
  SetChat('On',1);
  SetChat('Off',2);
  SetChat('On',3);
  SetRun(True);
  HighestAngle;
  SetMode;
  PerfectNorth;
   End;

//======================================================================\\
//                         fight loop                                   \\
//======================================================================\\
Procedure FLoop; ///for fighter
Begin
If Not (LoggedIn) Then
  Exit;
if(Players[CurrentPlayer].String1= 'fighter') then
   begin
   repeat
   SetupScript;
   fighter;
   PreventBan;
   until(HowManyLoads = loads)
   Begin
   if ( HowManyLoads = loads) then
   FightReport;
   SwitchPlayer;
   End;
   End;
    End;
//======================================================================\\
//                          curse loop                                  \\
//======================================================================\\
Procedure CLoop; //for curser
Begin
If Not (LoggedIn) Then
  Exit;
   if(Players[CurrentPlayer].String1= 'curser') then
   begin
   repeat
   SetupScript;
   curser;
   PreventBan;
   until(Curses = loads)
   Begin
   if (Curses = loads) then
   CurseReport;
   SwitchPlayer;
    End;
  End;
End;
//======================================================================\\
//                          Mine Loop                                   \\
//======================================================================\\
Procedure MLoop; /// for  Miner
Begin
If Not (LoggedIn) Then
  Exit;
   if(Players[CurrentPlayer].String1='miner') then
   begin
   repeat
   MSetupScript;
   miner;
   PreventBan;
   until(HowManyLoads = loads)
   Begin
   if ( HowManyLoads = loads) then
   MineProgReport;
   SwitchPlayer;
   End;
   End;
    End;

//======================================================================\\
//                          Main                                        \\
//======================================================================\\
begin
 Signature;
 ActivateClient;
  loads:=0
  responded:=0
   repeat
   HighestAngle;
   Makecompass('N');
   NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
   CLoop;
   FLoop;
   MLoop;
until(False)
end.

Originally Posted by n3ss3s View Post
To begin with

Wouldnt compile because of
A) Unexpected end of file
B) Unknow Identifier
C) Identifier expected ( yes a case needs end too)

The script is very simple. Its no from me.

yea i could improve on standards , but i have a major business test due to this friday, lol thats not my script nvm no hope now 8 vs 0

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

Its all a bit way too simple for me.
Mainly just findcolors and findobjs along with a click.
You dropping procedure for the miner drops all objects from slot 1 to 28, that can be replacedwith dropall, and its not very efficient.
It will drop all picks,gems,money, ect you have.
Instead try making a bitmap or DTM of an ore and only drop that.

You also have some loops which can use failsafes and you still need to learn standards.

Overall i say learn some Bitmap/DTMs/Failsaifes and just more advanced scar techniques.

Nice Try its not bad,
Also, try splinting them up into 3 different scripts.

most of your standards are wrong

read some more tuts, maybe JADs that tells all the things needed to get into members?

though i liked these procedures

procedure yes;
begin;
  writeln('                                                       ')
  Writeln('                      _                                ')
  Writeln('                     ( ((                              ')
  Writeln('                      \ =\                             ')
  Writeln('                     __\_ `-\                          ')
  Writeln('                   (____))(  \----                     ')
Writeln('                   (____)) _                           ')
Writeln('                   (____))                             ')
Writeln('                   (____))____/----                    ')
end;
 
procedure bert;
begin;
Writeln('    WW     ')
Writeln('   /__\    ')
Writeln('  | oo |   ')
Writeln(' (|_()_|)  ')
Writeln('   \__/    ')
Writeln('  /|\/|\   ')
Writeln(' ||||||||  ')
Writeln(' ||||||||  ')
Writeln(' ||||||||  ')
end;
 
procedure CookieMonster;
begin;
Writeln('                ')
Writeln('                ')
Writeln('     (o)(o)     ')
Writeln('   w"      "w   ')
Writeln('  W  -====-  W  ')
Writeln('   "w      w"   ')
Writeln(' w""""""""""""w ')
Writeln('W              W')
end;
 
procedure  TheCount;
 
begin;
Writeln('     .wwwwwwww.   ')
Writeln('   .w"  "WW"  "w. ')
Writeln('  ."   /\  /\   ". ')
Writeln(' |\     o  o     /|  ')
Writeln('  \|  ___\/___  |/   ')
Writeln('  / \ \_v__v_/ / \   ')
Writeln(' / | \________/ | \  ')
Writeln(' >  \   WWWW   /  <  ')
Writeln(' \   \   ""   /   /  ')
Writeln('  \   \      /   /   ')
end;
 
procedure  Ernie;
 
begin;
Writeln('   _WWWWW_             ')
Writeln('  /  o o  \            ')
Writeln('(|  __O__  |)          ')
Writeln('  \ \___/ /            ')
Writeln('  /-------\            ')
Writeln(' |=========|           ')
Writeln(' |=========|           ')
end;
 
procedure  elmo;
begin;
Writeln('   oo                  ')
Writeln(' w"()"w                ')
Writeln('W -==- W                ')
Writeln(' "wwww"                 ')
Writeln('w"    "w                ')
end;

Mine wouldn't even work would it?

No

because you dont have semi colons.

You are reposnislbe for a few babies faces…

and its to simple.

But kkeep up the good work, you are well on your way!

lol greg you and semi colons. You script in other languages because i know scar doesn't need them but other languages (delphi,Pascal) do.

From: jhildy
lol greg you and semi colons. You script in other languages because i know scar doesn't need them but other languages (delphi,Pascal) do.

well, scar nomrally needs them, it just lets you slide sometimes.
i am java at my core.

To begin with

procedure lif3;
begin
case random(5) of
0: live;

1: die;

2: eat;

3: sleep;

4: cancer;

end;

Wouldnt compile because of
A) Unexpected end of file
B) Unknow Identifier
C) Identifier expected ( yes a case needs end too)

The script is very simple. Its no from me.

From: n3ss3s
To begin with

Wouldnt compile because of
A) Unexpected end of file
B) Unknow Identifier
C) Identifier expected ( yes a case needs end too)

The script is very simple. Its no from me.

Lol thats not he's "real" script. :D Theres another.

I know :D But I think in some app yohojo said that apps can be judged by all the scripts so… :)

And shut up about semicolons, heard of "Semicolon expected"? If not, u shud.
If you dont have semicolons and it compiles, its okay but looks fag.

From: n3ss3s
And shut up about semicolons, heard of "Semicolon expected"? If not, u shud.
If you dont have semicolons and it compiles, its okay but looks fag.

Oh yea lordgreggreg; I had to say this one a few applications ago that you dont need those semicolons in every place in the script; not at all actually; Seems like you get really mad and you vote no when someone doesnt put semicolons in the script; ;D
I dont put them every line either;

Btw; its really funny from you "No semicolons = No in application";

From: Pentti
Oh yea lordgreggreg; I had to say this one a few applications ago that you dont need those semicolons in every place in the script; not at all actually; Seems like you get really mad and you vote no when someone doesnt put semicolons in the script; ;D
I dont put them every line either;

Btw; its really funny from you "No semicolons = No in application";

Yes, i know that you don't need them everywhere in scar, and that it will still complile just fine. It just really bugs me, it's like having bad standards and not even caring enough to fix them.
I think i notice it more just because of my background,

I have never voted no just because of semi colons. As much as I want to, I only consider it bad standards, not something critical.

I do however enjoy exaggerating my points, and acting like it is the only thing that matters to me!

I find it humerous to make a big deal of something relitivly small, expecially when I can back it up by claming it has to do with standards.

Like I said, I have never voted no or yes because of semi colons, I do consider them, but on a very very low level. [dont quote me on this, you wil ruin my fun] Normally if they don't have semi colons, their script is lacking in many other ways too.

oh :P "No semicolons = No in application" he he, i like it.

Ok semic… sorry lordgregg, so you have not voted NO because of semicolons? Whats this?

From: lordgreggreg
No

because you dont have semi colons.

You are reposnislbe for a few babies faces…

and its to simple.

But kkeep up the good work, you are well on your way!

Hmm oh ok okay.

in one post:

Oh, i vote yes. Best of luck to you, and I hope to see more from you
…
YOU HAD SEMI COLONS!

Was a yes because of he had semicolons?
Also something I found:

From: lordgreggreg
Ok, not a bad script. But. You need to imporve these things.
You NEED to go read up on pascal standards!!!
You NEED to go and find out when you put in semi colons!

If you feel like it, you might wana go and add in some walking method, like, to walk you back to the bones if you get too far away

I spent about 1 hour going through your code. It looks like every time you do anything with a variable you forget to put a semi colon. I think I fixed about 30 of them.
Now, i dont know why sometimes you did it right, and sometimes you didn't , perhaps copying and pasting code mabey, but anyhows.

I FIXED IT ALL FOR YOU
Yeah, took me about 1 hour, you owe me a cake or something.
here you are.

From: lordgreggreg
Right, ok, all the enter signs are just because you had comments at the end of your line, and I really didnt feel like corecting them after a reformated your stardards. Your standards where not always correct, sometime you went a tab over instead of 2 spaces, and so i fixed all of that for you. Also, there were a bunch of times when you didnt end your line with a semi colon. I don't know why it compiled with scar, but its wrong. Ever statement needs to end with a semicolon, unles you are doing something fancy with else statement of seomthing.
If you really need all go through and show you all the semi colons you missed, but they are there, I swear, you normaly had them missing every time you said "myVariable := myVariable + 1"

Soory about the enters everywhere, I didnt do that, thats just how stuff lined up after a reformated it with 2 spaces (it looks messed up because you had "//" at the end of every line.

Sorry if you think its a down grade, but um, it's not.

From: lordgreggreg
No no, the spaces are not good, they got put there as a byproduct of fixing it. Get rid of the spaces.
ANd yes, your script is good, i never said it wasnt, but you will never make it into members unless you have semi colons put correctly regardless of whether it compiles or not. (everyone there is ocd about standards, including me)

Edit: would another member like to come along and back me up please? I don't think im getting through

From: lordgreggreg
I got a qwestion…

The java inside me makes me want to smash babies when i see this

clickoption('10', 2);
             wait(124+random(985))
             clickoption('10', 2);
             wait(321+random(987))
             clickoption('10', 2);

But is that correct? Aren't semi colons suposed to go there?

I think they are, but I don't know for sure.

Also, i think you have a pretty good script, but its not really complex enough, but thats just my opinion. I would have really likes to see some fancy walking, and you can always make radial walk work, it just cliks on colors, but it searches for the fancily.

Not sure what im gpoing to vote yet, some one please clear up that semi colon busness for me.

From: lordgreggreg
I couldn't when i apllied, not sure for you.

Oh, i vote yes. Best of luck to you, and I hope to see more from you :)

you have help full posts.

you dont seem to be hiding anything.

you made a tutorial.

you are trying hard.

here didnt have anything bad to say about you.

YOU HAD SEMI COLONS! :)

From: lordgreggreg
Semi colons, despite runability, are not optional

Mouse(x,y,1,1,true)
      Wait(Wait1+random(1000))

Wait(5000+random(1000))
  RadialRoadWalk(RoadColor, 35, 395, 61, 0, 0);
  Wait(5000+random(1000))

From: lordgreggreg
pleasse use semi colons..

I look over more in depth later.

Edit: Ok I looked some more, you have a really good script, but you forgot something that is very important.

Failsafes!!!! You shuld never have a repeat method be able to go on forever!
You need to include some hardcodes method (not realted to rs) that will stop it.

Such as if(timefrommark(mark)>(1000*30)) then break;
or if(numberOfRepeats > 8) then break; //obviously having numberofreapeats++ somewhere

Other than this good script though. Keep up the good work and i hope to see you in sometime soon!

From: lordgreggreg
For goodness sake, dont realse a script unless if has proper standards. People like me want to read you script before they run it. You should get into the habbit fo it now, if you need any help, let me know.

Of yeah, you missed a semi colon after "loginplayer'

AHHHHHH semi colins!!!!!!!! Babies!!!
Its NOT that hard!!!
ScarScript: By Drunkenoldma

MMouse(EX, EY, 0, 0)
if FindColorTolerance(FX, FY, 55769, 85, 15, 115, 15, 20) then
begin
Status('Ent Found');
MouseFindFlag(645, 83, 2, 2);
MarkTime(SafeEntWait)


Comon please, for llittle babies sake!

oh, im not voting, so dont get mad at me for anyhting, lol.

Edit: Ahhh and semi colons!!!!!!! AHhhhh, gosh….babies…..WHERANGNGEEE!!!!!

semi colons missing in "opendabank" method and others–bad

you missed a semi colion after wait.
and another aftewr login player

Standards and semi colons really arent optional,/
here

Ok , over 20 missing semi colons
over 4 missing begin-end seegmants after if statments

I know you need semicolons in many programming language, like php (which I know a bit).

But man.. This is SCAR community.
Example, does this give you an error with SCAR?

procedure semicolon;
begin
  begin
  Writeln('Semicolon!')
  end
end;

begin
semicolon
end.

It does NOT, even if you dont have semicolons at the end and at thesemicolon.

So please do not keep talking and talking about semicolons all the time, in all of your posts you probably included word semicolon.

You dont need somicolons at the end of lines in SCAR actually at all.
I bet there are not semicolons in SRL include at some lines at all, but does it work? -Yes it does.
You dont need semicolons to become an SRL member.
SRL-forums is not all bout semicolons…

lol. I am quite honored that you took the time to complile all of that. (save to hd).

And my post on this app was a no because it was too simple.
And if you look at all the other apps, i did mention semicolons (sometimes in a funny way) but that not why i voted. And I told them the other reasons why.

If semi colons where all that I found wrong, i didnt vote, see?

Sure, while helping out other peoples scripts I made then put semi colons in…
but i dont really think thats a bad thing.

IMHO semi colons should not be optional, thats how i really feel, just how not using stands shouldnt be optjion either. But thats just me

I know it just me

i repect that its just me

and im not going to punish people just because of that, sure I can comment on it, but no harm done right?

And yes, all the posts you picked out , of my 600, have the word semi colon in there… most of mine dont


tell you what… ill give this a bit more thought ok? Just because I am very impressed at the compilation you have presented. It must mean alot to you and bug you… so I may change because of that.

in the mean time, let me know what you think.

holy… searchasitko sä semicolonei vai mite hitos noi mont quotee?

oh :P "No semicolons = No in application" he he, i like it.

You've just created a monster…

EDIT:

and im not going to punish people

Punishing applicants for not having semicolons would be nice :) "got n0e seamcoloens?! GAEM TIEM MUTHA FOCKA!!!"

Sheetomg created a new account. How lame…I kind of respected him at first.

Wha? As in, now has a new account? Or was someone else?

wtf what new account?

Well, do you have a good excuse why another account is associated with your IP address…and not the 1 you proxied from today ;)

Well, do you have a good excuse why another account is associated with your IP address…and not the 1 you proxied from today

did it ever occur to you that i visit this forum during school, everyone has their own tablet pc and i know that many people play runescape in my school, and wtf u said i proxied but im in school which means either you made that point up or you were assuming i proxied when all proxied sites are filtered out by the education of queensland,also thats why if you see how active i am its close to 2 days or more because im logged in most of the time during school, ram rune could you give me the user or email address of the other account you say which is mine maybe i can tell you who it is because i have a good feeling who the person is. Dont anyhow accuse me of something i didnt do. maybe if you still dont believe me heres a link about my school, http://en.wikipedia.org/wiki/QASMT

mmmm….nope, I'm gonna let YOHOJO handle it…I was just asking is there was a reason why there would be another account associated with your IP address…it's a good enough excuse…we'll just have to see if your story checks out…..

Good Luck,

~RAM

mmmm….nope, I'm gonna let YOHOJO handle it…I was just asking is there was a reason why there would be another account associated with your IP address…it's a good enough excuse…we'll just have to see if your story checks out…..

Good Luck,

~RAM

i still have no idea who it is but i just told you the truth, ask santyclaus and other australian students who will tell you that the education of australia blocks out most sites even runescape,proxy sites etc, i spend most of my time here and i suddenly get told by people that i am having multiple accounts when i have one, like i said before if you could tell me the email of the other account i could know who the person is, thx for your help Ram