SRL Archive - Archive

Wcer Auto - SRL Member Application Form
Wcer Auto

What is the meaning to life?


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



Programming Knowledge
A lil bit of HTML

Other Communitys
Moparisthebest, Sythe

How Long have You Played Runescape
4 Years

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

Ummm…. Well I'm decent in HTML , it's Christmas Break now so I get to start learning more. I'm gona do a lil bit more of scar scripting. I don't have any runescape scripts, but I could work on SRL.

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

program  AIGenerate;
type
    AmericanIdol = Record
             Name , Last : Array[1..20] of String;
             Genre, Response, Age : Array[1..10] of String;
             Gender: Array[1..2] of String;
end;

var
   Sync: AmericanIdol;
   x: Integer;

procedure ArrayDeclare;
begin
sync.Name[1]  := 'Amy';
sync.Name[2]  := 'Joe';
sync.Name[3]  := 'Elliot';
sync.Name[4]  := 'Samantha';
sync.Name[5]  := 'Denny';
sync.Name[6]  := 'James';
sync.Name[7]  := 'Dillon';
sync.Name[8]  := 'Jenifer';
sync.Name[9]  := 'Dave';
sync.Name[10] := 'Alyssa';
sync.Name[11] := 'Denice';
sync.Name[12] := 'Terry';
sync.Name[13] := 'Seth';
sync.Name[14] := 'Hunter';
sync.Name[15] := 'Jessica';
sync.Name[16] := 'Chris';
sync.Name[17] := 'Aaron';
sync.Name[18] := 'Melissa';
sync.Name[19] := 'Bethany';
sync.Name[20] := 'Ron';
sync.Name[21] := 'Justen';

sync.Last[1]  := 'Renolds';
sync.Last[2]  := 'Chong';
sync.Last[3]  := 'Denozier';
sync.Last[4]  := 'Finntie';
sync.Last[5]  := 'Williams';
sync.Last[6]  := 'Smith';
sync.Last[7]  := 'Wilbern';
sync.Last[8]  := 'Phelis';
sync.Last[9]  := 'Hanalie';
sync.Last[10] := 'Sidavae';
sync.Last[11] := 'Hornel';
sync.Last[12] := 'Ritchey';

sync.Genre[1]    :=  'Rock';
sync.Genre[2]    :=  'Rap';
sync.Genre[3]    :=  'Pop';
sync.Genre[4]    :=  'Country';
sync.Genre[5]    :=  'Gospel';

sync.Age[1]    :=  '16';
sync.Age[2]    :=  '17';
sync.Age[3]    :=  '18';
sync.Age[4]    :=  '19';
sync.Age[5]    :=  '20';
sync.Age[6]    :=  '21';
sync.Age[7]    :=  '22';
sync.Age[8]    :=  '23';
sync.Age[9]    :=  '24';
sync.Age[10]   :=  '25';
sync.Age[11]   :=  '26';
sync.Age[12]   :=  '27';

sync.Gender[1]  :=  'Male';
sync.Gender[2]  :=  'Female';

sync.Response[1]   := 'That was absolutely terrible'; //from Simon
sync.Response[2]   := 'I loved it'; //from Paula
sync.Response[3]   := 'Leme here it from the Dawgpound!'; //from Randy
sync.Response[4]   := 'no offense, but you sucked';//From Simon


end;


begin
     ClearDebug;
     ArrayDeclare;
     x:= Random(21)+1;
         begin
              Writeln('First Name : '+Sync.Name[x]);
         end;
     x:= Random(12)+1;
         begin
              Writeln('Last Name: '+Sync.Last[x]);
         end;
     x:= Random(2)+1;
         begin
              Writeln('Gender: '+Sync.Gender[x]);
         end;
     x:= Random(5)+1;
         begin
              Writeln('Music Genre: '+Sync.Genre[x]);
         end;
     x:= Random(12)+1;
         begin
              Writeln('Age: '+Sync.Age[x]);
         end;
     x:= Random(4)+1;
         begin
              Writeln('Response from Judges: '+Sync.Response[x]);
         end;
end.

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

Good script, however you made some small mistakes, very easy to fix however.
The first error you come across when running it:

[Runtime Error] : Out Of Range in line 35 in script

This is because you used 1-20 as the array, but you used 21 strings in the array.

Name , Last : Array[1..[b]20[/b]] of String;

(See line 35: sync.Name[21] := 'Justen'; )
Simple fix: Change 20 to 21.

You also get an error from line 66:

[Runtime Error] : Out Of Range in line 66 in script

for the same reason: Age is set for 10 strings, but you have set 12 in the script.

             Genre, Response, Age : Array[1..[b]10[/b]] of String;

             sync.Age[[b]12[/b]]   :=  '27';

Other than that, nice script, good use of arrays.

To fix the script

Replace:

program  AIGenerate;
type
    AmericanIdol = Record
             Name , Last : Array[1..20] of String;
             Genre, Response, Age : Array[1..10] of String;
             Gender: Array[1..2] of String;
end;

with:

program  AIGenerate;
type
    AmericanIdol = Record
             Name , Last : Array[1..21] of String;
             Genre, Response, Age : Array[1..12] of String;
             Gender: Array[1..2] of String;
end;

And to become a SRL member you need a script that uses SRL.
It's a no from me, Sorry.

-Arr0w

No from me. But Im sure that you can script very well. Maybe make a script to Runescape what uses SRL and try applying again.

http://www.moparisthebest.com/smf/index.php/topic,4079.0.html

Edit: I couldn't have known, my apologies.

Omg noobs copying and pasting just to be SRL member.

wdf, thats me on mopar, Ill pm u there. whats ur name


alright, i edited my post there and said this is Wcer Auto from SRL

oh ya, and if a mod could also verify IP's with moparisthebest

From: Wcer Auto
wdf, thats me on mopar, Ill pm u there. whats ur name


alright, i edited my post there and said this is Wcer Auto from SRL

oh ya, and if a mod could also verify IP's with moparisthebest

I apologize for that then.