SRL Archive - Archive

syberium - SRL Member Application Form
syberium

What is the meaning to life?


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


Programming Knowledge
SCAR, And some Assembly

Other Communitys
Sythe, and Moparisthebest

How Long have You Played Runescape
about 3 years

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

Hey guys I waited a while before applying because i wanted to learn as much as i could. I plan to keep making scripts im currently working on a pestcontrol script about half way done. Well i beleive i can contribute to this community , and help people in need. I visit your site often about 3-4 times a day on average. Umm… I like to bike, and play football =] Im currently 14 years old and a freshan at lompoc high CA. Well Im not sure what else to put here so ya thats my app =] Thanks guys.


-Syberium-

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

program SyberiumsZammyMager;
 {.include SRL\SRL.scar}
 {.include SRL\SRL\skill\magic.scar}



 { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
 { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
 { # Instructions: Start in varrock castle on the west side of mage cage!}
 { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
 { # Credits: Me for making this! and Fakawi for his antirandom function!}
 { # Lastly have fun and auto safe and correctly!

 { IF the weaken isent working for you do the below instructions.
 go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
  MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
       '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
       '0B2986A206C008F6C2631');  }

const
WichSpell=2; // 0 for confuse, 1 for weaken, 2 for curse!
Howmanyto=100;// how many times to cast the above spells.
magecolor=4015275;// color of zammy mage!
MSpeed = 15;
StartPlayer = 0; // What player you start with.
NumberOfUsers = 5; // The Number of users you use.
Version = ('1.2') ;


var
Howmany : integer;

procedure DeclarePlayers;

begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;
     
     
     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='ill';
     Players[1].Active:=True;

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Active:=True;
     
     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Active:=True;
     
     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Active:=True;
end;


procedure zammycast;
begin
  If(not(loggedIn)) then exit;
   if(wichspell = 0) then
    begin
   Wait(400+random(200));
 CastOn('Confuse','amora',magecolor,5);
if(howmanyto=howmany) then
  NextPlayer(False);
end
 else
  begin
   if(wichspell = 1) then
    begin
     Wait(400+random(200));
    CastOn('Weaken','amora',magecolor,5);
   if(howmanyto=howmany) then
  NextPlayer(False);
 end
else
begin
 if(wichspell = 2) then
  begin
   Wait(400+random(200));
  CastOn('Curse','amora',magecolor,5);
 if (howmanyto=howmany) then
NextPlayer(False);
 end;
end;
 end;
end;

Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 8 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     7: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       8: RC;
    end;
    FindTalk;
  end;
end;

Procedure DoChats;

Begin
  SetChat('On', 1);
  SetChat('Friends', 2)
  SetChat('On', 3);
End;

procedure progress;
begin
cleardebug;
writeln('[===============================================]')
writeln('[        Syberiums Zammy Mager                   ')
writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
writeln('[ Worked For ' +TimeRunning)
writeln('[Thank You for using my script! Post Proggies =]')
writeln('[==============================================]')
end;

procedure antiban1;
var DBANME : integer;
begin
if (not(loggedIn)) then Exit;
DBANME := Random(60);
case DBANME of
1:Hoverskill('magic',False) ;
2:pickupmouse;
3:DoEmote(1 + random(7));
end;
end;

begin
 SetupSRL;
  activateclient;
   ClearDebug;
   DeclarePlayers;
   CurrentPlayer := StartPlayer;
   if(not(loggedin)) then
   LoginPlayer;
     DoChats;
    MouseSpeed := MSpeed + Random(3)
  MakeCompass('E');
  Highestangle;
 Wait(1000+random(200));
MakeCompass('E');
repeat

zammycast;



 howmany:=howmany + 1;
 
 progress;
 
  Wait(400+random(100));
  
 antiban1;
 
FindFastRandoms;



 until (howmany=howmanyto);
 
  if (howmany=howmanyto) then
  
 writeln('Completed '+IntToStr(howmanyto)+' Zammy mage casts.');
 
end.

——————————————————

Does it switch players?

eeehhh…its too simple. Make it more elaborite.

You can tell what he coppied… everything else isn't in SRL standard form… It casts yet… I would add something that will make player false if it doesn't find the runes… and the only time it will switch player is if it completes all the spells.

-No

" visit your site often about 3-4 times a day on average"— is that alot? or obsessive?

I really like your script… yet i would add more fail safes

I would check which spell to cast at the start and loop through that spell. That way you dont have to check the spell each time as it isnt changing. I would also use a case statement to check whichspell and then assign a variable the name of the spell eg weaken…

case wichspell of
0: Spell:='Confuse'; Break;
1: Spell:='Weaken'; Break;
2: Spell:='Curse'; Break;

then have:

program SyberiumsZammyMager;
 {.include SRL\SRL.scar}
 {.include SRL\SRL\skill\magic.scar}
 
 
 
 { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
 { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
 { # Instructions: Start in varrock castle on the west side of mage cage!}
 { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
 { # Credits: Me for making this! and Fakawi for his antirandom function!}
 { # Lastly have fun and auto safe and correctly!
 
 { IF the weaken isent working for you do the below instructions.
 go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
  MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
       '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
       '0B2986A206C008F6C2631');  }
 
const
WichSpell=2; // 0 for confuse, 1 for weaken, 2 for curse!
Howmanyto=100;// how many times to cast the above spells.
magecolor=4015275;// color of zammy mage!
MSpeed = 15;
StartPlayer = 0; // What player you start with.
NumberOfUsers = 5; // The Number of users you use.
Version = ('1.2') ;
 
 
var
Howmany : integer;
 
procedure DeclarePlayers;
 
begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;
     
     
     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Active:=True;
 
     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='ill';
     Players[1].Active:=True;
 
     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Active:=True;
     
     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Active:=True;
     
     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Active:=True;
end;
 
Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 8 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
             Logout;
             Exit;
           end;
         end;
     7: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       8: RC;
    end;
    FindTalk;
  end;
end;
 
Procedure DoChats;
 
Begin
  SetChat('On', 1);
  SetChat('Friends', 2)
  SetChat('On', 3);
End;
 
procedure progress;
begin
cleardebug;
writeln('[===============================================]')
writeln('[        Syberiums Zammy Mager                   ')
writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
writeln('[ Worked For ' +TimeRunning)
writeln('[Thank You for using my script! Post Proggies =]')
writeln('[==============================================]')
end;
 
procedure antiban1;
var DBANME : integer;
begin
if (not(loggedIn)) then Exit;
DBANME := Random(60);
case DBANME of
1:Hoverskill('magic',False) ;
2:pickupmouse;
3:DoEmote(1 + random(7));
end;
end;
 
begin
 SetupSRL;
  activateclient;
   ClearDebug;
   DeclarePlayers;
   CurrentPlayer := StartPlayer;
   if(not(loggedin)) then
   LoginPlayer;
     DoChats;
    MouseSpeed := MSpeed + Random(3)
  MakeCompass('E');
  Highestangle;
case wichspell of
0: Spell:='Confuse'; Break;
1: Spell:='Weaken'; Break;
2: Spell:='Curse'; Break;
 Wait(1000+random(200));
MakeCompass('E');
repeat
Wait(400+random(200));
CastOn(Spell,'amora',magecolor,5);
if(howmanyto=howmany) then
NextPlayer(False);
end
howmany:=howmany + 1;
progress;
Wait(400+random(100));
antiban1;
FindFastRandoms;
until (howmany=howmanyto);
if (howmany=howmanyto) then  
writeln('Completed '+IntToStr(howmanyto)+' Zammy mage casts.');
end.
 

edit: As fourscape says it looks like you copied the DecarePlayers, Findfastrandoms and DoChats procedures which is most of your script.

umm yes i copied the findfastrandoms its my credits i credited fakawi for it, and for declare players and dochats how else woudent u copy it.. it looks the same for like everythiing.. well imma take ur guys suggestions and get to work on it =] thanks for the chance.

From: syberium
umm yes i copied the findfastrandoms its my credits i credited fakawi for it, and for declare players and dochats how else woudent u copy it.. it looks the same for like everythiing.. well imma take ur guys suggestions and get to work on it =] thanks for the chance.

Ok its just theres not that much in the script besides those procedures..

Wow, you guys are dumb.
Who cares if you copy declarepalyres, randoms, and chats.
EVERYONE does that who cares! Its not even like the heart of the script.
At least the attempted to make one, i mean cmon
don't get mad at him for copying the stupidest procedures even Dank and Fakawi copy little procedures like this…

Quite simple… U should add something that finds if the acc is out of runes… But i cant always say no, and people have got to be SRL members with worse scripts too.

From: yohojo8
Wow, you guys are dumb.
Who cares if you copy declarepalyres, randoms, and chats.
EVERYONE does that who cares! Its not even like the heart of the script.
At least the attempted to make one, i mean cmon
don't get mad at him for copying the stupidest procedures even Dank and Fakawi copy little procedures like this…

No, what I was saying was that without those procedures which take up the bulk of the script the underlying script is very simple and has < 100 lines or something. I think he has the potential but just needs to try harder and spend more time on his script, improve some procedures, or add fail safes. I haven't played runescape for a while but after you cast weaken/confuse too many times doesnt it say the target is allready weakened or something and not cast the spell? if so maybe check for this and wait or change character but keep the currentplayer active.

Nope,
not for zamaroak monks,
tons of people train on them because you can continuously canst these spells on them no matter what =)

Heh cool. No doubt that will be changed some time in the future by Jagex.

They did it on purpose