SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
very little java

Other Communitys
fagex and Sythe

How Long have You Played Runescape
more then 4 years

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

Well,
I wanted to understand how to SCAR script because it very well
interested me. i begin reading many tuts became better at SCAR
scripting. I also viewed SLR scripts they helped me understand much
better. Now i pretty much understand and do best and making T FORMS.

I want to become better at SCAR and many other
programming languages.

[Sky Scripter]

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

program New;
////////////////////////////////////////////////////////////////////////////////
//
//  please accept i already have it on forums but
//  i didn't have time to make you a really neat script
//
//
//
//
//
//
//
////////////////////////////////////////////////////////////////////////////////
 
var
  frmDesign : TForm;
  Timer:TTimer;
  x, y, a, b, i:Integer;
  E:Array [1..4] of Extended;
  Image: TImage;
 
Procedure GetTime(Var Sec, Min, Hour:Word);
Var Mil:Word;
begin
DecodeTime(Now, Hour, Min, Sec, Mil);
if (Hour >12) then
Hour:= Hour-12;
End;
 
  
Procedure DrawClock;
Var Sec, Min, Hour:Word;
begin
Try
  GetTime(Sec, Min, Hour);
  Image.SetBounds(0,0,392,266);
    Image.CANVAS.Pen.WIDTH:=1;
  Image.CANVAS.Pen.Color:=255;
  For i:= 0 to 266 do
    begin
     Image.CANVAS.Pen.Color:=Image.CANVAS.Pen.Color-1
     Image.CANVAS.LineTo(0,i);
     Image.CANVAS.LineTo(392,i);
    end;
 
    Image.CANVAS.Brush.STYLE:= bsClear;
    Image.CANVAS.Pen.Color:=15591915;
    Image.CANVAS.Pen.WIDTH:=4;
    Image.CANVAS.Ellipse(50,0,342,266);
    Image.CANVAS.Font.Size:=15
    Image.CANVAS.Font.Color:=15591915;
 
  For i:= 1 to 12 do
  begin
   e[1]:= e[1]+0.523
   a:= Round(115 * Sin(e[1]) + x);
   b:= Round(-115 * Cos(e[1]) + y);
   Image.CANVAS.TextOut(a-8,b-14,inttostr(i));
  end;
 
   For i:= 1 to 12 do
  begin
   e[1]:= e[1]+0.755
   a:= Round(2 * Sin(e[1]) + x);
   b:= Round(-2 * Cos(e[1]) + y);
   Image.CANVAS.Pixels[A, B]:=15591915;
  end;
  e[1]:=0;
 
    If Hour>0 then
   begin
   for i:= 1 to Hour do
   e[4]:= E[4]+0.523
    Image.CANVAS.Pen.WIDTH:=7;
    Image.CANVAS.MoveTo(x,y);
   a:= Round(105 * Sin(E[4]) + x);
   b:= Round(-105 * Cos(E[4]) + y);
    Image.CANVAS.LineTo(A,B);
    e[4]:=0;
   end;
 
    If Min>0 then
  begin
  for i:= 1 to Min do
  e[2]:= E[2]+0.106
  Image.CANVAS.MoveTo(x,y);
  Image.CANVAS.Pen.WIDTH:=4;
  a:= Round(120 * Sin(E[2]) + x);
  b:= Round(-120 * Cos(E[2]) + y);
  Image.CANVAS.LineTo(A,B);
  E[2]:=0
  end;
 
  If Sec>=0 then
   begin
  for i:= 1 to Sec do
   e[3]:= E[3]+0.106
    Image.CANVAS.Pen.WIDTH:=2;
    Image.CANVAS.MoveTo(x,y);
    a:= Round(135 * Sin(E[3]) + x);
    b:= Round(-135 * Cos(E[3]) + y);
    Image.CANVAS.LineTo(A,B);
    e[3]:=0;
   end;
  Except
  Writeln('Some Kind Of Error');
  End;
end;
 
Procedure SafeDrawClock;
var V:TVariantArray;
begin
SetArrayLength(V,0);
ThreadSafeCall('DrawClock',V);
end;
 
Procedure ChangeHands(Sender:TObject);
begin
SafeDrawClock;
end;
 
procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 259;
  frmDesign.Top := 132;
  frmDesign.Width := 400;
  frmDesign.Height := 300;
  frmDesign.Caption := 'Clock';
  x:= 392 shr 1;
  y:= 266 shr 1;
  Image := TImage.Create(frmDesign);
  Image.Parent:=frmDesign;
  DrawClock;
  Timer:= TTimer.CREATE(frmDesign);
  Timer.INTERVAL:= 500;
  Timer.ONTIMER:= @ChangeHands;
end;
 
procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;
 
procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;
 
procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;
 
begin
  SafeInitForm;
  SafeShowFormModal;
  FreeForm(frmDesign);
end.

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

It's awesome, but i'm going to vote no as its not a runescape script.

I'm voting no because this isn't an SRL/RS script, sorry man. You need to learn how to code RS scripts well enough to be able to get in.

I have seen your scripts and they are very unique! You're really using more different functions/procedures/components than other people which makes you really creative.

I believe you have a lot of potential for RS scripting in the future, but right now you are restricted a little to scar. Saying this, I may look a little hypocritical since I don't make rs scripts, but the new SRL members should be able to code in SRL for RS if they would like to participate in the cheating community.

~Ron :)

Like he wrote it.

…He did. Why do you say that?

EDIT: Fuck, I mean to click no! My cat jumped on me and I started patting him and clicked yes :(

Sorry SKy, I hope you'll get in in the future.

Like he wrote it.

lol ok…….. i did to…

man… that bites i just don't like making RS scripts….. :duh:

oh i can make rs scripts because i have made them before.
but i can't play RS any more =(

From: SKy Scripter
lol ok…….. i did to…

man… that bites i just don't like making RS scripts….. :duh:

oh i can make rs scripts because i have made them before.
but i can't play RS any more =(

Why Did you apply Twice?

Why can't you play RS anymore?

And Are you affiliated with Jagex ? It's a "Yes" or "No" question……

RAM

no comment is the default option lol