SRL Archive - Archive

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

What is the meaning to life?

to become succesful in all ways possible


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


Programming Knowledge
SCAR, HTML, Java Scripting

Other Communitys
Sythe and fagex

How Long have You Played Runescape
4 years

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

I Started SCAR Scripting about 1 year ago and i enjoy it more than
any other Scripting / Programming languages. I like to create TForms on
SCAR. Making non-RS scripts is a little funnier for me.
I try to make my scripts creative and much diffrent than others.

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

program Tag;
{
   Created By Sky Scripter (Skyler)
 
Thanks For StarBlaster100 and RSN for making capitalize(s:String);

   Just Press The Green Play Button On Top

 Thanks By : SRL Members, Kiatnieks, Freddy1990, RON,
             StarBlaster100, Benland100,
             WT-Fakawi and Wizzup?
}


Const
ver = '1.3';  // Dont Touch Anything!!



Var
  MainForm : TForm;
  Memo, InfoBox:TMemo;
  MainMenu:TMAINMENU;
    Options:Array [1..5] of Array [1..10] of TMENUITEM;
    Labels:Array [1..8] of TLabel;
    Panel:Array [1..5] of TPanel;
    Images: Array [1..4] of TImage;
    ComboBoxs:Array [1..4] of TComboBox;
    CheckBoxs:  TCheckBox;
  i, ii, ET, Mss:Integer;
  ListBox: TListBox;
  MemoText:String;
  Timer:TTimer;
  
Var
   ScarForm: TForm;
   ScarImage: TImage;
   ScarPanel: TPanel;
   ScarPreveiw: TImage;
   ScarTimer: TTimer;
   ScarMemo: TMemo;
   ScarCoords: TEdit;
   ScarPixel: TEdit;
   ScarColor: TEdit;
   ScarIteam: Array [1..4] of TMENUITEM;
   ScarPopUp, ScarPopUp2 : TPOPUPMENU;
   ScarPickColor: TButton;

Var
  AddForm:TForm;
  AddEdit:TEdit;
  AddButton:TButton;
  
Var
  HowToUse:TForm;
  HowTouseImage:TImage;
  iWind: Integer;

Var
   AboutForm:TForm;
   AboutImage:TImage;
   Mario : Integer;


   

Function GetColors(i:Integer):String;
begin
case i of
 1 : Result:='Red';
 2 : Result:='Blue';
 3 : Result:='Black';
 4 : Result:='Gray';
 5 : Result:='Green';
 6 : Result:='White';
 7 : Result:='Silver';
end;
end;


function Capitalize(S: string): string;
var                            //  This Was Out of SRL
  i: Integer;
begin
  Result := s;
  Result[1] := Uppercase(Result[1])[1];
  for i := 2 to Length(s) do
    if (Result[i] = ' ') then
      Result[i + 1] := Uppercase(Result[i + 1])[1];
end;


Procedure AllSenders(Sender:TObject);
Var Sender2:TObject;
    S,SS:String;
    color, x, y, pixel, W, H:Integer;
Begin

if (Sender =MainForm) then
begin
 Try
  ComboBoxs[1].Text := LoadSetting('Tag','1');
  ComboBoxs[2].Text := LoadSetting('Tag','2');
  ComboBoxs[3].Text := LoadSetting('Tag','3');       // Load Last Call
  Sender:=ComboBoxs[1];
  Sender2:= MainForm;
 except
  ComboBoxs[1].Text := '12';
  ComboBoxs[2].Text := 'Black';
  ComboBoxs[3].Text := 'Red';
 end;
end;

if ( Sender = ComboBoxs[1] ) then
begin
 For i:= 1 to 60 do                              // load size of font
   If (ComboBoxs[1].TEXT = inttostr(i)) then
   begin
  Memo.FONT.Size:= StrToInt(ComboBoxs[1].TEXT)
  SaveSetting('Tag','1',ComboBoxs[1].Text);
  if (Sender2 =MainForm) then
  Sender:=ComboBoxs[2];
  break;
  end;
end;

if ( Sender = ComboBoxs[2] ) then
begin                                             // load colors
  Case ComboBoxs[2].Text of
      'Red':begin ListBox.COLOR:=clRed; Memo.Color:=clRed;  Infobox.COLOR:=clRed; end;
      'Blue':begin ListBox.COLOR:=clblue; Memo.Color:=clblue  Infobox.COLOR:=clblue end;
      'Black':begin ListBox.COLOR:=0; Memo.Color:=0  Infobox.COLOR:=0 end;
      'Gray':begin ListBox.COLOR:=16645371; Memo.Color:=16645371 Infobox.COLOR:=16645371 end;
      'Green':begin ListBox.COLOR:=$FF00; Memo.Color:=$FF00  Infobox.COLOR:=$FF00 end;
      'White':begin ListBox.COLOR:=16777215; Memo.Color:=16777215 Infobox.COLOR:=16777215 end;
      'Silver':begin ListBox.COLOR:=clSilver; Memo.Color:=clSilver Infobox.COLOR:=clSilver end;
   end;
   if (Sender2 =MainForm) then
    Sender:=ComboBoxs[3];
    SaveSetting('Tag','2',ComboBoxs[2].Text);
end;

if ( Sender = ComboBoxs[3] ) then
begin                                         // load colors
  Case ComboBoxs[3].Text of
  'Red':begin ListBox.FONT.Color:=clred; Memo.Font.Color:=clred Infobox.FONT.Color:= clred; end;
  'Blue':begin ListBox.FONT.Color:=clblue; Memo.Font.Color:=clblue Infobox.FONT.Color:=clblue; end;
  'Black':begin ListBox.FONT.Color:=0; Memo.Font.Color:=0  Infobox.FONT.Color:=0; end;
  'Gray':begin ListBox.FONT.Color:=14933984; Memo.Font.Color:=14933984 Infobox.FONT.Color:=14933984; end;
  'Green':begin ListBox.FONT.Color:=$FF00; Memo.Font.Color:=$FF00  Infobox.FONT.Color:=$FF00; end;
  'White':begin ListBox.FONT.Color:=16777215; Memo.Font.Color:=16777215  Infobox.FONT.Color:= 16777215; end;
  'Silver':begin ListBox.FONT.Color:=clSilver; Memo.Font.Color:=clSilver  Infobox.FONT.Color:= clSilver; end;
   end;
   SaveSetting('Tag','3',ComboBoxs[3].Text);
end;

if ( Sender = CheckBoxs) then
 if (CheckBoxs.CHECKED) then
  Memo.FONT.Style:= [FSBOLD]
  else
  Memo.FONT.Style:= [];

If (Sender = ListBox ) then
begin
S:= ListBox.ITEMS.Strings[ListBox.ITEMINDEX]
if (ComboBoxs[4].Text=  'Both Tags') then      // display tags
 S:= '<'+S+'>'+'</'+S+'>';
 if (ComboBoxs[4].Text=  'End Tag') then
 S:= '</'+S+'>';
  if (ComboBoxs[4].Text=  'First Tag') then
   S:= '<'+S+'>';
   SS:= memo.TEXT;
     insert(s, ss, Mss);
    Memo.text:= SS;
     InfoBox.LINES.Add('Hold Shift And Click Document to bring your pos Center "><"');
end;

if (Sender = AddButton) then     // open web site
 OpenWebPage(AddEdit.TEXT);
 
if ( sender = ScarPickColor) then
begin
PickColor(color, x, y);
     GetClientDimensions(W, H);
    Pixel:=x;
   For i:= 1 to y do
  pixel:= pixel + W;
  ScarCoords.TEXT:= inttostr(x)  + ', ' + inttostr(y);
  ScarPixel.TEXT:= inttostr(Pixel);
 ScarColor.TEXT:= inttostr(Color);
 ScarMemo.LINES.Append('Color:= '+ScarColor.TEXT+ ' | Coords:= '+ ScarCoords.TEXT+ ' | Pixel:= '+ScarPixel.TEXT);
 infobox.LINES.Append('Color:= '+ScarColor.TEXT+ ' | Coords:= '+ ScarCoords.TEXT+ ' | Pixel:= '+ScarPixel.TEXT);
 Writeln('Color:= '+ScarColor.TEXT+ ' | Coords:= '+ ScarCoords.TEXT+ ' | Pixel:= '+ScarPixel.TEXT);
end;

end;


procedure Refreashmemo;
begin
  Memo.Clear;
  Memo.LINES.Append('<HTML> ');
  Memo.LINES.Append('   <HEAD> ');
  Memo.LINES.Append('      <TITLE>  </TITLE> ');
  Memo.LINES.Append('        </HEAD> ');
  Memo.LINES.Append('         <BODY> ');
  Memo.LINES.Append('');
  Memo.LINES.Append('        </BODY> ');
  Memo.LINES.Append('</HTML> ');
end;

procedure SaveMemo;
var s:String;
begin
  s:= Readln('What Would You Like To Name It ?')
  if ( s <> '') then
  begin
   Memo.LINES.SaveToFile(AppPath+'Tag Editer\'+ s + '.html');
   GetApplication.MESSAGEBOX('Successfully saved in' + AppPath + 'Tag Editer\' ,'Saved File',1)
   end;
 end;


procedure CloseDoc(Sender:TObject; Var Close:TCloseAction);   // closing
var i:Integer;
begin

if ( Sender = MainForm ) then
begin                                                  // Check if file needed to be saved
if not (MemoText = Memo.Text) then
begin
 i:=GetApplication.MESSAGEBOX('Would you like to Save?','Save File',3)
 if (i = 6 ) then
 begin
   SaveMemo;
 end;
 
 if ( I = mrCancel ) then
  close:= caNone;
end;
end;

if ( Sender = AddForm ) then
 begin
  Close:= caHide;                      // Hide Window
    if (AddEdit.TEXT = '') then
   AddEdit.TEXT:= 'Http://'
end;

 if ( Sender = HowToUse ) then
  Close:= caHide;
                      // Hide Window on close
 if ( Sender = AboutForm ) then
   Close:= caHide;

  if ( Sender = ScarForm ) then
   Close:= caHide;

  if ( Sender = ScarForm) then
   begin
     Close:= caHide;
    ScarTimer.ENABLED:= False;
   end;

end;


Procedure GetValues(Sender:TObject; Shift:TShiftState; x, y:Integer);
var W, H, Pixel:Integer;
 begin
  ScarColor.TEXT:= inttostr(ScarPreveiw.CANVAS.Pixels[x, y]);
     GetClientDimensions(W, H);
      x:= Round((W / 300)  * x);
      y:= Round((H / 200) * y);
    Pixel:=x;
   For i:= 1 to y do
  pixel:= pixel + W;
 ScarCoords.TEXT:= inttostr(x)  + ', ' + inttostr(y);
ScarPixel.TEXT:= inttostr(Pixel);
end;


procedure ResizeAll(Sender:TObject);
begin

   if (Sender = ScarForm) then
    begin
      if (ScarForm.Width > 475) then
        ScarForm.Width := 475;
          if (ScarForm.Height > 340) then
           ScarForm.Height := 340;
    end;
    
end;

Procedure PopupClicks(Sender:TObject);
begin
 if (sender = ScarIteam[1]) then
  begin
    ScarCoords.TEXT:= '';
     ScarPixel.TEXT:= '';
    ScarColor.TEXT:= '';
   ScarMemo.CLEAR;
  end;

  if (sender = ScarIteam[2]) then
   ScarForm.CLOSE;

  if (sender = ScarIteam[3]) then
   ScarTimer.ENABLED:=True;

  if (sender = ScarIteam[4]) then
    ScarTimer.ENABLED:=False;
end;


Procedure PreviewClient(Sender:TObject);
var H, W:Integer;
 begin
   GetClientDimensions(W, H);
  Try
  SafeCopyCanvas(GetClientCanvas, ScarPreveiw.CANVAS, 0, 0, W, H, 0, 0, 300, 200);
  except
  infoBox.LINES.Append('ERROR: Try Again Please');
  end;
end;


Procedure MakePopUp(Sender:TObject; Button:TMouseButton; Shift:TShiftState;  x, y:Integer);
Var a, b:Integer;
begin

  if ( sender =ScarImage) or   ( sender = ScarMemo)then
     if (Button = mbRight) then
       begin
        GetMousePos(a , b);

       ScarPopUp.POPUP( a , b );
   end;
  
if ( sender = ScarPreveiw) then
 begin
  If (Button = mbLeft) then
 begin
 ScarMemo.LINES.Append('Color:= '+ScarColor.TEXT+ ' | Coords:= '+ ScarCoords.TEXT+ ' | Pixel:= '+ScarPixel.TEXT);
 infobox.LINES.Append('Color:= '+ScarColor.TEXT+ ' | Coords:= '+ ScarCoords.TEXT+ ' | Pixel:= '+ScarPixel.TEXT);
 Writeln('Color:= '+ScarColor.TEXT+ ' | Coords:= '+ ScarCoords.TEXT+ ' | Pixel:= '+ScarPixel.TEXT);
 end;
   If (Button = mbRight) then
 begin
   GetMousePos(a , b);
      ScarPopUp2.POPUP(A, B);
   end;
 end;
end;

Procedure AllSenders2(Sender:TObject);
var s:String;
Begin
Wait(50);
if (Sender=Options[1][2]) then    // Load
begin
try
  s:= Readln('Name of file please')+'.html';
  if ( s <> '') then
    Memo.LINES.LoadFromFile(AppPath+'Tag Editer\'+s);
    except
  end;
end;
if (Sender=Options[1][3]) then    // SAVE
   SaveMemo;
   
  if (Sender=Options[1][4]) then    // New
    Refreashmemo;
    if (Sender=Options[1][5]) then    // Exit
      MainForm.MODALRESULT:=1;

if (Sender=Options[2][2]) then
begin
 try
   AddForm.SHOW;                                // display addres bar
 except
  AddForm:= TForm.Create(MainForm);
  AddForm.SetBounds(0,0,300,100);
  AddForm.POSITION:= poDesktopCenter;
  AddForm.BORDERSTYLE := bsToolWindow;
  AddForm.Caption := 'Address Bar';
  AddForm.ONCLOSE:= @CloseDoc;
  AddEdit:= TEdit.Create(AddForm);
  AddEdit.parent:=AddForm;
  AddEdit.SetBounds(40,20,150,30);
  AddEdit.TEXT:= 'Http://';
  AddButton:= TButton.Create(AddForm);
  AddButton.parent:=AddForm;
  AddButton.SetBounds(200,20,60,20);
  AddButton.Caption:= 'Go';
  AddButton.ONCLICK:= @AllSenders;
  AddForm.SHOW;
  end;
end;

if (Sender=Options[2][3]) then
  MainForm.WINDOWSTATE:= wsMinimized;      // Minimize the window
  
if (Sender=Options[2][4]) then              // Maximize the window
    MainForm.WINDOWSTATE:= wsMaximized;
    
if (Sender=Options[2][5]) then              //window to normal
MainForm.WINDOWSTATE:=wsNormal;

if (Sender=Options[5][2]) then              // learn SCAR
OpenWebPage('http://www.villu-rebron.com');

if (Sender=Options[5][3]) then               // how to use
begin
Try
  Try
  HowToUse.show;
  except
  HowToUse:= TForm.Create(MainForm);
  HowToUse.SetBounds(0,0,500,400);
  HowToUse.ONCLOSE:= @CloseDoc;
  HowToUse.POSITION:= poDesktopCenter;
  HowToUse.Caption := 'How To Use Me';
  HowToUse.BORDERSTYLE := bsToolWindow;
  HowTouseImage:= TImage.Create(HowToUse);
  HowTouseImage.parent:=HowToUse;
  HowTouseImage.SetBounds(0,0,492,373);
  HowTouseImage.CANVAS.Pen.COLOR:=255;
    for i:= 1 to 187 do
  begin
  HowTouseImage.CANVAS.Pen.COLOR:=HowTouseImage.CANVAS.Pen.COLOR - 1 ;
  HowToUseImage.CANVAS.MoveTo(0,i);
  HowToUseImage.CANVAS.LineTo(492, i);
  end;
      for i:= 187 to 373 do
  begin
  HowTouseImage.CANVAS.Pen.COLOR:=HowTouseImage.CANVAS.Pen.COLOR + 1 ;
  HowToUseImage.CANVAS.MoveTo(0,i);
  HowToUseImage.CANVAS.LineTo(492, i);
  end;
  SafeCopyCanvas(GetBitMapCanvas(iwind), HowTouseImage.CANVAS, 0,0,500, 400, 10,10, 510, 410);
  HowTouseImage.CANVAS.Font.Color:= 16777215;
  HowTouseImage.CANVAS.Font.Size:= 12;
  HowTouseImage.CANVAS.Brush.STYLE:= bsClear;
  HowTouseImage.CANVAS.Font.Name:= 'Arial Black';
  HowTouseImage.CANVAS.TextOut(220,15,'1: CAP KEYS');
  HowTouseImage.CANVAS.TextOut(5,170,'2: AUTO TAGS');
  HowTouseImage.CANVAS.Font.Size:= 9;
  HowTouseImage.CANVAS.TextOut(225,20*2,'cap keys i think are awsome! They ');
  HowTouseImage.CANVAS.TextOut(225,20*3,'make it easy to type in HTML Tags');
  HowTouseImage.CANVAS.TextOut(225,20*4,'Once You Type "<" then Auto Cap Keys');
  HowTouseImage.CANVAS.TextOut(225,20*5,'Activate Making it type Uppercase Tell');
  HowTouseImage.CANVAS.TextOut(10, 20*6-5,'The Key ">" is Pressed! Which Makes it easier for me to');
  HowTouseImage.CANVAS.TextOut(10,20*7-5,'type in uppercase ;)');
  HowTouseImage.CANVAS.TextOut(10,200,'Auto Tags Are cool all you have to do is double click on');
  HowTouseImage.CANVAS.TextOut(10,220,'The Tags In the Box on the left hand side and it writes');
  HowTouseImage.CANVAS.TextOut(10,240,'it in for you =)');
  HowTouseImage.CANVAS.TextOut(225,20*5,'Activate Making it type Uppercase Tell');
  HowTouseImage.CANVAS.TextOut(10, 20*6-5,'The Key ">" is Pressed! Which Makes it easier for me to');
  HowTouseImage.CANVAS.TextOut(10,20*7-5,'type in uppercase ;)');
  HowTouseImage.CANVAS.TextOut(10,280,'Its really not that hard, if you really need help');
  HowTouseImage.CANVAS.TextOut(10,300,'Then Contact Me At [email]Sky_Ripter@HotMail.com[/email]');
  HowTouseImage.CANVAS.TextOut(10,330,'[HINT]Make Your Text Spaced then press your left shift and');
  HowTouseImage.CANVAS.TextOut(10,350,'every other word should Capitalize Example = " I Think This Is Awsome!" ');
  HowToUse.SHOW;
end;
except
infobox.LINES.Append('ERROR: With HowToUse Form!');
end;

end;
if (Sender=Options[5][4]) then               // About ME
begin
 Try
   Try
    AboutForm.SHOW;
    except
  AboutForm:= TForm.Create(MainForm);
  AboutForm.SetBounds(0,0,500,400);
  AboutForm.BORDERSTYLE := bsToolWindow;
  AboutForm.ONCLOSE:= @CloseDoc;
  AboutForm.Caption := 'About Me';
  AboutForm.POSITION:= poDesktopCenter;
  AboutImage:= TImage.Create(AboutForm);
  AboutImage.parent:=AboutForm;
  AboutImage.SetBounds(0,0,492,373);
  AboutImage.CANVAS.Pen.COLOR:= 255;
  for i:=-2 to 375 do
  begin
  AboutImage.CANVAS.Pen.COLOR:=AboutImage.CANVAS.Pen.COLOR-1;
  AboutImage.CANVAS.LineTo(0,i);
  AboutImage.CANVAS.MoveTo(492,i);
  end;
  SafeCopyCanvas(GetBitMapCanvas(Mario), AboutImage.CANVAS, 0,0,500, 400, 30,230, 540, 620);
      AboutImage.CANVAS.Brush.STYLE := bsClear;
      AboutImage.CANVAS.Font.Color:= 16777215;
      AboutImage.CANVAS.Font.Size:= 16;
      AboutImage.CANVAS.Font.Name:= 'Arial Black';
      AboutImage.CANVAS.TextOut(150,50,'Created By Skyler');
      AboutImage.CANVAS.Font.Size:= 9;
      AboutImage.CANVAS.TextOut(40,90,'I created this mainly to help me, cause i suck at HTML');
      AboutImage.CANVAS.TextOut(40,120,'And My crapy programing may help others.');
      AboutImage.CANVAS.TextOut(40,140,'SCAR is fun to program with (recommended) if you dont');
      AboutImage.CANVAS.TextOut(40,160,'already know it! ');
      AboutImage.CANVAS.TextOut(80,200,'HUGE THANKS TO: Kaitneiks, Freddy1990');
      AboutImage.CANVAS.TextOut(80,220,'RON (helped me understand MainMenu ;)');
      AboutImage.CANVAS.TextOut(80,240,'And Most SRL Members =)');
      AboutImage.CANVAS.TextOut(120,280,'CONTACT ME: [email]Sky_Ripter@HotMail.com[/email]');
      AboutImage.CANVAS.TextOut(120,300,'Villu-reborn.com USER = Sky scripter');
    AboutForm.SHOW;
    end;
  except
  Writeln('ERROR: With How To Use Form!');
  infobox.LINES.Append('ERROR: With AboutForm Form!');
  end;
 end;
 

if (sender = Options[4][3]) then
begin
 try
   try
   ScarForm.show;
   ScarTimer.ENABLED:= True;
    except
     ScarForm:= TForm.Create(MainForm);
     ScarForm.SetBounds(0,0,475,340);
     ScarForm.BORDERICONS := [biMinimize, biSystemMenu];
     ScarForm.ONRESIZE:= @ResizeAll;
     ScarForm.ONCLOSE:= @CloseDoc;
     ScarForm.Caption := 'SCAR Editer 1.0';
     ScarForm.POSITION:= poDesktopCenter;
     ScarPopUp:=  TPopUpMenu.Create(ScarForm);
     ScarPopUp2:=  TPopUpMenu.Create(ScarForm);
     For i:= 1 to 2 do
     begin
     ScarIteam[i]:= TMENUITEM.Create(ScarForm);
       Case i of
       1: ScarIteam[i].Caption := 'Clear';
       2:  ScarIteam[i].Caption := 'Exit';
       end;
        ScarIteam[i].OnClick:= @PopUpClicks;
     ScarPopUp.ITEMS.ADD(ScarIteam[i]);
     end;
          For i:= 3 to 4 do
     begin
     ScarIteam[i]:= TMENUITEM.Create(ScarForm);
       Case i of
       3: ScarIteam[i].Caption := 'Run Preview';
       4:  ScarIteam[i].Caption := 'Pause Preview';
       end;
        ScarIteam[i].OnClick:= @PopUpClicks;
     ScarPopUp2.ITEMS.ADD(ScarIteam[i]);
     end;
      ScarPanel:= TPanel.Create(ScarForm);
      ScarPanel.parent:=ScarForm;
      ScarPanel.Align := alclient;
  ScarImage:= TImage.Create(ScarForm);
  ScarImage.parent:=ScarPanel;
  ScarImage.SetBounds(0, 0, 600, 500);
  ScarImage.ONMOUSEDOWN:= @MakePopUp;
  ScarImage.CANVAS.Pen.COLOR:= 255;
  for i:=-2 to 120 do
  begin
  ScarImage.CANVAS.Pen.COLOR:=ScarImage.CANVAS.Pen.COLOR-3;
  ScarImage.CANVAS.LineTo(0,i);
  ScarImage.CANVAS.MoveTo(600,i);
  end;
    for i:=120 to 340 do
  begin
  ScarImage.CANVAS.Pen.COLOR:=ScarImage.CANVAS.Pen.COLOR+3;
  ScarImage.CANVAS.LineTo(0,i);
  ScarImage.CANVAS.MoveTo(600,i);
  end;
      ScarPreveiw:= TImage.Create(ScarForm);
       ScarPreveiw.parent:=ScarPanel;
        ScarPreveiw.ONMOUSEDOWN:= @MakePopUp;
       ScarPreveiw.SetBounds(10, 10, 300, 200);
      ScarPreveiw.CANVAS.Pen.COLOR:=16776960;
       ScarPreveiw.ONMOUSEMOVE:= @GetValues;
  ScarImage.CANVAS.Brush.STYLE := bsClear;
  ScarImage.CANVAS.Font.Color:= 16777215;
  ScarImage.CANVAS.Font.Size:= 9;
  ScarImage.CANVAS.Font.Name:= 'Arial Black';
   ScarTimer:= TTimer.Create(ScarForm);
   ScarTimer.INTERVAL:= 200;
   ScarTimer.ONTIMER:= @PreviewClient;
    ScarMemo:= TMemo.Create(ScarPanel);
    ScarMemo.parent:=ScarPanel;
    ScarMemo.FONT.Name:= 'Courier New';
    ScarMemo.FONT.Size:=10;
    ScarMemo.Align:= albottom;
    ScarMemo.SCROLLBARS:= ssVertical;
    ScarMemo.WANTTABS:=True;
    ScarMemo.WANTRETURNS:=True;
    ScarMemo.ONMOUSEDOWN:= @MakePopUp;
    ScarMemo.FONT.Color:= 255;
    ScarMemo.COLOR:= 0;
     ScarCoords:= TEdit.Create(ScarPanel);
     ScarCoords.parent:=ScarPanel;
     ScarCoords.FONT.Name:= 'Courier New';
     ScarCoords.FONT.Size:=10;
     ScarCoords.SetBounds(380, 40, 80, 10);
     ScarCoords.FONT.Color:= 255;
   ScarImage.CANVAS.TextOut(320,45,'Coords:');
   ScarCoords.COLOR:= 0;
   ScarPixel:= TEdit.Create(ScarPanel);
   ScarPixel.parent:=ScarPanel;
   ScarPixel.FONT.Name:= 'Courier New';
   ScarPixel.FONT.Size:=10;
   ScarPixel.SetBounds(380, 70, 80, 10);
   ScarPixel.FONT.Color:= 255;
   ScarImage.CANVAS.TextOut(320,75,'Pixel:');
   ScarPixel.COLOR:= 0;
   ScarColor:= TEdit.Create(ScarPanel);
   ScarColor.parent:=ScarPanel;
   ScarColor.FONT.Name:= 'Courier New';
   ScarColor.FONT.Size:=10;
   ScarColor.SetBounds(380, 100, 80, 10);
   ScarColor.FONT.Color:= 255;
   ScarImage.CANVAS.TextOut(320,105,'Color:');
   ScarColor.COLOR:= 0;
   ScarPickColor:= TButton.Create(ScarForm);
   ScarPickColor.Parent:= ScarForm;
   ScarPickColor.CURSOR:= 1;
   ScarPickColor.CAPTION:= 'Pick Color';
   ScarPickColor.ONCLICK:= @AllSenders;
   ScarPickColor.SetBounds(340, 160, 80, 15);
    ScarForm.show;
     end;
   except
     infobox.LINES.Append('ERROR: With SCAR Editer 1.0 cannot load');
     Writeln('ERROR: With SCAR Editer 1.0 cannot load');
   end;
end;

if (Sender=Options[5][5]) then
  MainForm.WINDOWSTATE:=wsNormal;

end;

Procedure ActivateReturn(Sender:TObject);
Var Po:Integer;
begin
 if (IsFunctionKeyDown(0)) then
 begin
  Po := pos('><', Memo.TEXT);
   if ( Po > 0 ) then
     Memo.SELSTART:= pos('><', Memo.TEXT);
     end;
end;



                                            // TIMER EVENT
Procedure TimerSender(Sender:TObject);
var H, M, S, MS:Word;
    STM:Integer;
    PM:String;
begin
  If (IsFunctionKeyDown(3)) then
  begin
   STM:= Memo.SELSTART;
     Memo.TEXT:=Capitalize(Memo.TEXT);
   Memo.SELSTART:= STM;
  end;
  
  If (IsFunctionKeyDown(1)) and (IsKeyDown('n')) then
  Refreashmemo;
   
  DecodeTime(Now, H, M, S, MS);
  PM:= 'PM'
  if ( H > 12 ) then
  H:= H -  12                   // display TIME ;)
  else
  PM:= 'AM';
  If ( H = 0) then
  H:= 1;
  Labels[3].CAPTION:= '  |  '+inttostr(H)+':'+inttostr(M)+' '+ PM +' |';
   Labels[1].Caption:= 'Lines: '+inttostr(memo.LINES.Count);
   Mss:= Memo.SELSTART;
end;

                                                      // KEY EVENT
Procedure KeySenders(Sender:TObject; Var key:Char);
begin
 Wait(1);
if (Sender = Memo) then
begin
if (ReadInterSCARMessage('CAP') ='True') then
for i:= 97 to 122 do
   if (Chr(i) = Key) then
   begin
   Key:=Chr(getkeyCode(key));
  break;
  end;
Case Key of
'<': Key:=',';
'>': Key:='.';
',': Key:='<';
'.': Key:='>';
end;
case key of
'<':begin SendInterSCARMessage('CAP','True') Labels[2].CAPTION:= 'Tag Cap: on'; end;
'>':begin SendInterSCARMessage('CAP','False') Labels[2].CAPTION:= 'Tag Cap: off'; end;
'"':
 begin
  if  (ReadInterSCARMessage('CAP')='True') then
    begin
      Labels[2].CAPTION:= 'Tag Cap: off';
      SendInterSCARMessage('CAP','False')
    end
  else
    begin
     Labels[2].CAPTION:= 'Tag Cap: on';
     SendInterSCARMessage('CAP','True');
     end;
  end;
end;
end;


end;



procedure InitForm;                  // LOAD FORM
begin
Wait(50);
  GetSelf.WINDOWSTATE:= wsMinimized;
  MainForm := CreateForm;
  MainForm.POSITION:= poDesktopCenter;
  MainForm.Width := 700;
  MainForm.Height := 500;
  MainForm.Caption := 'Tag Editer '+ Ver +' Created By Skyler';
  MainForm.Color := 16777215;
  MainForm.ONCLOSE:= @CloseDoc;
  MainForm.ONSHOW := @AllSenders;
  MainMenu :=TMainMenu.Create(MainForm);
for i:= 1 to 5 do
     Options[i][1]:= TMENUITEM.Create(MainForm);    // MAIN ITEMS
     Options[1][1].CAPTION:='File';
     Options[2][1].CAPTION:='Veiw';
     Options[3][1].CAPTION:='Tags';
     Options[4][1].CAPTION:='Tools';
     Options[5][1].CAPTION:='Help';
for i:= 2 to 5 do
  begin
     Options[1][i]:= TMENUITEM.Create(MainForm);    // FILE ITEMS
     case i of
     2:Options[1][i].CAPTION:='Open';
     3:Options[1][i].CAPTION:='Save';
     4:Options[1][i].CAPTION:='New';
     5:Options[1][i].CAPTION:='Exit';
     end;
     Options[1][i].ONCLICK:=@AllSenders2;
    Options[1][1].ADD(Options[1][i]);
end;
for i:= 2 to 5 do
  begin
     Options[2][i]:= TMENUITEM.Create(MainForm);    //VEIW ITEMS
     case i of
     2:Options[2][i].CAPTION:='Address Bar';
     3:Options[2][i].CAPTION:='Minimize';
     4:Options[2][i].CAPTION:='Maximize';
     5:Options[2][i].CAPTION:='Normal';
     end;
     Options[2][i].ONCLICK:=@AllSenders2;
    Options[2][1].ADD(Options[2][i]);
end;
for i:= 3 to 3 do
  begin
     Options[4][i]:= TMENUITEM.Create(MainForm);    // TOOL ITEMS
     case i of
     3:Options[4][i].CAPTION:='SCAR Editer 1.0';
     end;
     Options[4][i].ONCLICK:=@AllSenders2;
    Options[4][1].ADD(Options[4][i]);
end;
for i:= 2 to 4 do
  begin
     Options[5][i]:= TMENUITEM.Create(MainForm);    // HELP ITEMS
     case i of
     2:Options[5][i].CAPTION:='Learn SCAR';
     3:Options[5][i].CAPTION:='How To Use';
     4:Options[5][i].CAPTION:='About';
     end;
     Options[5][i].ONCLICK:=@AllSenders2;
    Options[5][1].ADD(Options[5][i]);
end;

for i:= 1 to 5 do
 if ( i <> 3) then
  MainMenu.ITEMS.ADD(Options[i][1]);     // ADD ALL ITEMS
  
for i:= 1 to 4 do
begin
  Panel[i] := TPanel.Create(MainForm);
    Panel[i].Parent:= MainForm;
     Panel[i].BevelInner:=bvRaised;
    Panel[i].BevelOuter:=bvSpace;               // PANELS
  Panel[i].Color:=  13945028;
  if ( i <> 3 ) then
   begin
    Panel[i].BevelWidth := 3
     Panel[i].BorderWidth := 8
     Images[i]:= TImage.Create(Panel[i])
     Images[i].Parent:=Panel[i];
   Images[i].Align:= AlClient;
  end;
end;
  Panel[5] := TPanel.Create(Panel[3]);
  Panel[5].Parent:= Panel[3];
  Panel[5].Color:= clScrollBar;
  Panel[5].BevelInner:=bvRaised;
  Panel[5].BevelOuter:=bvSpace;
  Panel[5].Align:= alBottom;
  Panel[5].BevelWidth := 1;
  Panel[5].BorderWidth := 1;
  Panel[5].Height:= 20;
  Panel[3].Height:= 100;
  Panel[2].Align:= alRight;
  Panel[3].Align:= alBottom;
  Panel[4].Align:= alLeft;
  Panel[1].Align:= alTop;
  Images[1].SetBounds(10,10,1000,50);
  Images[2].SetBounds(0,0,200,900);
  Images[4].SetBounds(0,0,200,900);
Images[2].CANVAS.Pen.COLOR:= 255;
Images[4].CANVAS.Pen.COLOR:= 255;

 for i:= 1 to 300 do
 begin
   Images[2].CANVAS.Pen.COLOR:=Images[2].CANVAS.Pen.COLOR-1;         //Draw Stuff
   Images[2].CANVAS.MoveTo(0,i);
   Images[2].CANVAS.LineTo(Images[2].Width, i);
 end;
 for i:= 300 to 600 do
 begin
   Images[2].CANVAS.Pen.COLOR:=Images[2].CANVAS.Pen.COLOR+1;       //Draw Stuff
   Images[2].CANVAS.MoveTo(0,i);
   Images[2].CANVAS.LineTo(Images[2].Width, i);
 end;
  for i:= 1 to 200 do
 begin
   Images[4].CANVAS.Pen.COLOR:=Images[4].CANVAS.Pen.COLOR-2;
   Images[4].CANVAS.MoveTo(0,i);                                  //Draw Stuff
   Images[4].CANVAS.LineTo(Images[4].Width, i);
 end;
 for i:= 200 to 400 do
 begin
   Images[4].CANVAS.Pen.COLOR:=Images[4].CANVAS.Pen.COLOR+2;
   Images[4].CANVAS.MoveTo(0,i);
   Images[4].CANVAS.LineTo(Images[4].Width, i);
 end;                                                             //Draw Stuff
  Images[1].CANVAS.Pen.COLOR:= 255;
 for i:= 1 to 5 do
 begin
   Images[1].CANVAS.Pen.COLOR:=Images[1].CANVAS.Pen.COLOR-30;
   Images[1].CANVAS.MoveTo(0,i);
   Images[1].CANVAS.LineTo(Images[1].Width, i);
 end;
  for i:= 5 to 10 do                                //Draw Stuff
 begin
   Images[1].CANVAS.Pen.COLOR:=Images[1].CANVAS.Pen.COLOR+30;
   Images[1].CANVAS.MoveTo(0,i);
   Images[1].CANVAS.LineTo(Images[1].Width, i);
 end;
  Wait(50);
  ListBox := TListBox.Create(Panel[4]);
  ListBox.Parent := Panel[4];
  ListBox.Align:= alTop;
  ListBox.Height:= 150;
  ListBox.ONDBLCLICK:= @AllSenders;
  WITH  ListBox do
  begin
   Items.Add('A')
      Items.Add('B')
      Items.Add('BODY ')
      Items.Add('BIG')
      Items.Add('BGSOUND ')
       Items.Add('BR')
      Items.Add('CENTER')
      Items.Add('DIV ')
      Items.Add('DD')
      Items.Add('DT')
      Items.Add('EM')
      Items.Add('EMBED')
       Items.Add('FONT ')
        Items.Add('FORM ')
       for i:= 1 to 6 do
         Items.Add('H'+inttostr(i))
      Items.Add('HEAD')
      Items.Add('HR')
       Items.Add('HTML')
        Items.Add('I')
         Items.Add('INPUT')
          Items.Add('LI')
           Items.Add('MARQUEE')
           Items.Add('MENU')
            Items.Add('OL')
          Items.Add('OPTION')
          Items.Add('P')
           Items.Add('SELECT')
           Items.Add('SMALL')
           Items.Add('STRONG')
     Items.Add('TABLE ')
     Items.Add('TT')
       Items.Add('TD ')
       Items.Add('TR')
      Items.Add('TITLE')
     Items.Add('TH ')
     Items.Add('U')
     Items.Add('UL')
      TabOrder := 8;
       FONT.Name := 'Courier New';
   end;
  
  Memo:= TMemo.Create(MainForm);
  Memo.Parent:= MainForm;
  Memo.FONT.Name:= 'Arial';
  Memo.Align:=alClient;
  Memo.SCROLLBARS:= ssBoth;
  Memo.WANTTABS:=True;
  Refreashmemo;
  Memo.ONCLICK:= @ActivateReturn;
  Memo.WANTRETURNS:=True;
  MemoText:= Memo.Text;
  Memo.ONKEYPRESS :=@KeySenders;
  
  infobox:= TMemo.Create(Panel[3]);
  infobox.Parent:= Panel[3];
  infobox.FONT.Name:= 'Courier New';
  infobox.FONT.Size:=10;
  infobox.Align:=alClient;
  infobox.SCROLLBARS:= ssVertical;
  infobox.WANTTABS:=True;
  infobox.WANTRETURNS:=True;
  
  CheckBoxs:= TCheckBox.Create(Panel[2]);
  CheckBoxs.Parent:= Panel[2];
  CheckBoxs.SetBounds(30,95,70,40);
  CheckBoxs.ONCLICK:=@AllSenders;
  CheckBoxs.CAPTION:= 'Bold';
for i:= 1 to 3 do
begin
  Labels[i]:= TLabel.Create(Panel[5]);
  Labels[i].Parent:=Panel[5];
  Labels[i].CANVAS.Brush.STYLE:= bsClear;
  case i of
  1:Labels[i].Align:=alleft;
  2:Labels[i].Align:=alright;
  3:Labels[i].SetBounds(50, 3, 10, 5);
  end;
end;
  Labels[1].CAPTION:= 'Lines: 12';
  Labels[2].CAPTION:= 'Tag Cap: off';
   ComboBoxs[1]:= TComboBox.Create(Panel[2]);
   ComboBoxs[1].Parent:= Panel[2];
   ComboBoxs[1].SetBounds(85,105,70,40);
   ComboBoxs[1].Text := 'Font Size';
   For i:= 1 to 60 do
    ComboBoxs[1].Items.Add(inttostr(i));
   ComboBoxs[1].ONCHANGE:=@AllSenders;
   ComboBoxs[4]:= TComboBox.Create(Panel[4]);
   ComboBoxs[4].Parent:= Panel[4];
   ComboBoxs[4].SetBounds(40, 190, 100, 30);
   ComboBoxs[4].Text:=  'Both Tags';
   ComboBoxs[4].Items.Add('Both Tags');
   ComboBoxs[4].Items.Add('End Tag');
   ComboBoxs[4].Items.Add('First Tag');
for ii:= 2 to 3 do
begin
  ComboBoxs[ii]:= TComboBox.Create(Panel[2]);
    ComboBoxs[ii].Parent:= Panel[2];
     ComboBoxs[ii].SetBounds(25,33*ii-20,130,40);
   For i:=1 to 7 do
    ComboBoxs[ii].Items.Add(GetColors(i));
  ComboBoxs[ii].ONCHANGE:=@AllSenders;
end;

  Timer:= TTimer.Create(MainForm);
  Timer.INTERVAL:= 200;
  Timer.ONTIMER:= @TimerSender;
  
  infobox.LINES.Append('Successfully compiled');
  infobox.LINES.Append('Loaded In: ' + FloatToStr( (GetSystemTime - ET) / 1000 ) + ' Secs!');
  infobox.LINES.Append('Created By Skyler (Sky Scripter)');
  MainForm.ShowModal;
end;



procedure SafeInitForm;
var
  v: TVariantArray;
begin
  Wait(50);
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;




procedure LoadBitMaps;         // LOAD BITMAPS
begin
iwind:= BitmapFromString(207, 96, 'z78DAED5D5962E4280CBD12BBC52' +
       '79BEF7FA4D182B75A92743ADD954CAB6AFAC5238300219E05D8E5' +
       'BE74186E6DF46DA699615A69A597DA6A6BABA2A2A2E27743E1A86' +
       'E3AF2D508C30FE80179CCC0024BAE863F23E1B777D7DD3015BF2D' +
       '14284B5D151515157F1F21402BAE249F43F82A149DD5125F4DAE7' +
       '30D194C4A146623490F25148CD7103D04454545C5DF4730160CB2' +
       '8A8110D6980DC4D52086D515C869A2F900CEF499309006D1B9E99' +
       '7B2C0D09CB3D96E85D92AD4A5AD652DA32D8A8A8A8A5F861C5FAD' +
       '483F0B721A04249A088D99AD2247D9EA721DBD06449C2D6698C7A' +
       'DC6DC06C663DBF14CBF649C70921E3375CE284ECA8292DAD25283' +
       'BE4C66B3D53750545454FC5A14E61965C98B1F79690B0C0718518' +
       '564872D82A366803A207B80795C72853632C666E59C727590C18E' +
       '6C0CEA619DA2FF5CE285D94245AE43C4488ED1DE22C67C5819631' +
       'ECADD558E0A13166C1EE9F9AE588C7758EB40D6F0A6B88FE705EB' +
       '3187594CF026C4F2A35AFD15585C883E508F9BC0538013FAE0D18' +
       'BBFAA2CCBBDF3AFDAF91BA2B93B7EC01E93D94272A98FB0E0DF81' +
       'AE92DC7AFA4CEE32D8C38067439A889261E19C92F326D1203A27B' +
       '39D4ABC305B4282849A6B6BB516446094E3564B89CBF099A6C758' +
       'F74D8E082359A2326B4EF266BA41A2C8A9B9B6D6C11A322370299' +
       '237EFF2F3F14B905B31A81501E3DB6E309E751D1B8BC36735DD97' +
       '652DF6B9861A16EF256505571ACEF47FA17426D5B5F8DFA87FF95' +
       '3089D2D103C843752A26FACE81B2B7E91E0B258CF9E11CCD7D4C7' +
       '3A5A069E765ED18357F4A8DFD359157F1BC50FE18955DB6436933' +
       '2F2954D3D35E437CB2C67D2B8E73791CF08EDCC692C9F6892453D' +
       'AC73325BA954A4218669B9950E93D9060EB1B576463A1E5332E5D' +
       '9EE0C16D9A3384D5996C5AFA6B03C702ED230C0D280157E68F646' +
       'E7389535EEE42F405863255E326B7240AD606BE4C6A37AF215AF4' +
       'B3ED150E3927CFD48CA7BCCCD50683BC769339F6A45FF337858C0' +
       '5870757D96B2643093D92C5E19E04FD5A70D5A2946139D99ED777' +
       '40EC5DFC6B7ACBAB1C4C66C294564B692CAF009C3AA33DEF3DB85' +
       'D3EED2A31EA0B88E744E663B95D84A6B1BB36174153ACEC0102DE' +
       '3F9D896821355F229FC6024E6518EE92B2CE01BFAB3301EC95D76' +
       'B19384538ACE5D7305033C4FE1E808FDB3812F85CEE2C42598617' +
       'AECE0A64E496343C814D434705E4699C8854BF71ADE6A468EF25C' +
       '3A9EA5FD924BDE2D36C3B3B3B627B9B4E5528793FC6C9373E933B' +
       'D309B6B14ED11D32163C69EFCA6C1B0E6D26E729D4B410BE4219A' +
       '790CBBF3598C1D0B5E91F0ECA65F2C36DBBEE7CD639E2D579B042' +
       '9DD6DFD8B56F58FADFA4EDDDC154F7AB027B3B94F43B53337A5E7' +
       '80969925DED5E4499D373F99CCE6506EB07FDD93FE75176B90ADF' +
       'CC556D33FA9748C04775B4D3BF3D96076CFF4176F3FFBF6BF8976' +
       '3FB6971E17C991C608F3F49A420AC84819F9CD203BE57B5CEF3EC' +
       'F522242B2A253F49F6A8273A6367A99CC6671EA4111C32DDA1673' +
       'B0D10EB31A199DCD92F71A0043538FC15E4B2484D10A9215EAA98' +
       'DB75E79362ABEE7262BD22A16C81D26065C20DAC9E8819EFD87F4' +
       '343B70EAC37A30A4C4220C312FC503C663D89079471747BDD4BAD' +
       'B9003006A917406163A8B9A318A80CC29F973CE0B35647458AE8F' +
       'EC0E675A129298CD03A7C11A62B8C2AC77E22B947BB61EC6AD67A' +
       'C6D673690980D4C6C92D7926461A6725267B33A6FB18E92B79044' +
       '62362997B278690CCA679D9B079C88B1AD8D9CDAF4B3C53094C96' +
       '84F90FE0A10E6D9B8593B23711822562E7D1A6BB32AEC5675BB55' +
       '1DF53EEA9916D87BEDB0C0C94F2AF630569952062A04CB4503CF7' +
       '93DA7415701232DF5B3158DEB1783C3D25D099B064FB758C2EC29' +
       '6769F5AE713D8BCBD9CC7EDE98EDDCBF70EA5F38F52F94A7B6429' +
       'BB6CD0E6210B6F35643B68334E8EC99E85930D9DBB00FFCAB6837' +
       '7E3831463A9D9563B3339B0F61E737931C75EC8168E7826E7417A' +
       'D89FC9C72CF8B5FD139996DAB83789DDB996DEDAEB76E6E11E5BE' +
       'A4E4D83792754E622DB7B464D00FC7B2D6C6DE17E3C81E4F559C5' +
       '389BF09B34574341FBC5C7F43E1D1B75EF42306DA83C08AC68657' +
       'D2056B0872167DD97155D714589B6F94E341FA6BCC16D0FB2A900' +
       '6CCEBCD252F692E89DD7EE6CD14576DCC16E8BE3E49335B2DCC46' +
       'E328DCDB8710599896B657B10CA5843DEF51431A4F618B436AA95' +
       '21FAE89305BE849AC31EB738E5ECE1891CCDD8D7ED333E7ED8465' +
       '4956982D400691D774F40286AACEF8A7FAF73AD366D4CE6CAEF54' +
       'DFF2D561CEA7E704A384A7C8479A424A5B0B7203B90879C35F8C6' +
       'CC861113B5E856CE7E1E77660B7D413A3AFA177D6FB3002FFCDEB' +
       '4E2D656EFD899D3A3FF61C87FEF998AE2AB677C70968F27B32D71' +
       '8D6BCFC92694A598A2E03D9B89FC7E7E7ACED531624302609D53B' +
       'F394AEC3486BB301B85DB18742744BB1F2F1486D701D5AFD36F73' +
       '8114A6B7AF74FDAB18F3F07885E99334D7C26B3105F5EC6FC8DCC' +
       '5A73CE708E8CF4D4AD9CAA25270CE69165A199EFE937B95D23122' +
       '8BC2067E653648DD92FC41FAD0F0D25CD625FBE9ABBE2EB5D22D8' +
       '1D184735ED25C8A09D3F3316F71296ECC4611449B69B69632B305' +
       '9C6D6F36B9C116B1967667364C09BB958E1A1E6DD9998DAE1A541' +
       '361B684432D90CEDA3025C5C3D5DAFBD5781A9B602FFA1332C1C9' +
       'AA7BCD89D98AC85167429D5CBA77146E9FACFAB8945CE2DED7148' +
       'F87BDD76E903C84999D3D24C3A3349943FCD39C914B8F28BF6A98' +
       '5E64A445B772F1B49DD9D06268A574EADFDD0247FF1EADB8B5D56' +
       '113BF623CE61ED981FB219DFAB1F1E8B08ABBFF8BC4CC11614FE3' +
       '9A580571324F8C9D0CC90814713DE034E1BD133EE037396B82D9B' +
       '46DFA4F3541F1CE6CAD8F91EE101912B9AC4E5EE2191D7A0AECFB' +
       '80B4D681130D1CD779F67EA59D45BECE09B30196D2CB488B8C354' +
       'B7314D4DCF0728C31C49A16DA5E0DBC96B1FB0F9EDF4AA7B9D5F4' +
       'ED8ABE5D918DF320DE2CC4AB7354621D31288522E9C729BDCC53D' +
       'B392F46582544BED1C54A595B8B98D902331BD5304B0D27B3D13D' +
       '3276ABD5154F299BA4843CDB7B6A51335CEEC16C81EA836129D98' +
       'A2CB9203FC3DEEA21737FA9F36C97C5F1877AB8C667FD01A3BF70' +
       'D407C96C5A3BE05991CF5673E9D195BA59953494590AC6D406F5D' +
       'BFB76D1746FABDB3D4ADD84D9225D70EED2002D4864B6F09233CE' +
       '8E479C319EA5D58893862D66EBBCDE11B6589A7321CFD09CFAD81' +
       'B458BC93AD85BFD8BFEFBD45687B760280C54F3939DD90ECF3D53' +
       'F1CC1227EC3767B7D9628F398E6E63893880D109CDFDAA5AC7502' +
       'DF97B3CA789DE61DE8EFD85172FD63999EDA803C607E4ADF3B951' +
       '37EC2034FB978E4B03F413F29E85FD9E2E840E7D65D031CE3B304' +
       'E6A74DBAFAC20D1DA0ADDE9E1D18BF1B24CC71887941146216DC5' +
       'CC959C448B174845BCC24833E3408B1CB45F20F70C48E9F6402C7' +
       '1AE6F4B5EC38B46CDF39C9A57ECE747CEC6803106EF725A5AF3BA' +
       'C92BA51B90BC15EB5552DDEBEFF8F700B672F39E97175C48239FB' +
       '1E71AF218B474FB342D3E52B95826DD6E15CF2D22E96E49620A5A' +
       '8708E36213ACB9C9564AB9B68856AE2052B4413147BEEA77D3624' +
       '1B0D2D9266761CAB11F1B970E977EBC5A2652028E69B057455BA1' +
       '550777A99B7847384A6CC02B6091CD7A6B67ECE53C7B1722DBDC8' +
       'A7ED62C2B21FC4C4C08A788EE6835F708DF8743E19A789A5C6713' +
       'D0CEBB7BDABF7C96EE0338AC71672B4B9E897680AD8D573B371C9' +
       '6EC6EB79E5914991FEA648C03EB854918CFCCD6324EE880BA8382' +
       '6564B975477813F7942D9044349C99ED546E415ECB6D7AD76AF11' +
       'B26928BD1B1DB25741CA7DC9C525E73594E632F69E245CF59B3B9' +
       'C8B7BC8AFF20F690979038661B321BC539C5DF293D287E126FC7F' +
       'EA3116D69BC6F7B97D1C53A51F84DB8EE73E85043166DF3E92D73' +
       '300C46D67D8B0DD6B42E6BC67F8469479892858F0FC9214F539E2' +
       'F1A0E393CD17CAF5FF1B3987E3AF69C4BC827664B9D46C59F2E57' +
       '3DE777BD0E2E63F97E7433CEE73A8B6F314E664B11232F44147C1' +
       '289D98AE89CCC76622A8E173766ABFCDB6C95FF027E3B1F77FEFF' +
       '3ECF6E5F921FC794BE5DFEBF4FD9A1E1D1B7EE7AFACCA7F839FCB' +
       'FB404698D6690DDD22A305E7FFF46B95DF193D84E23BB5EC6FEE1' +
       '93C42438AD2FA6F052AB31C5794096FB22149DA27FD684B94BD68' +
       'BE63A1BFD6E9B57545454FCE928F1DB7CBAAAD5DEBAA2A2A2E24F' +
       'C733B365C8404F812E4B768A8A8A8A3F11698F1CDC99D9127E963' +
       '14C5F319A53545454FC8148F7FF26272B7ECA6C8A8A8ACA6C8A8A' +
       '8A8ACA6C8A8A8A8ACA6C8A8A8A8ACA6C8A8A8A8ACA6C8A8A8ACA6' +
       'C8A8A8A8ACA6CBF8C6EF0EF41B65CACF68BA2A2E28F67363F4273' +
       '6B5FBBA55F1A492675E84BEFDA3B8A8A8A3F92D9383A5BFDEA8DA' +
       '1DF3132FCEB9AC6B4D28AF3D9C05AB3F691A2A2E2CF61367AABCC' +
       '80412F622A0390D3DA0AC6F3EBB726BFD15B8FE8D75D8DF3F4FBB' +
       '6AEE92C555151F1BB331B243B22FD2ADCEA46173693B7DB3BBB96' +
       '35EEFC56428901EB19C1697F292A2A7E7366C319E8C8FC5A8D4CA' +
       'FE96366B3CC66B08E153666AB6B2DF40A177AA18CF697A2A2E2B7' +
       '6636CFAF29B56363B0C19885CD98E592BC3E55E6A7815EF01EB4B' +
       'F141515BF27B3B5D2425807BFBA9B5EAD655C594AB2DB6BA8E477' +
       '7DFD708ED6DCC058ACD9F63E2A9A995A507E535454FC7E315BA63' +
       '79B8ED2CD8CCDFCF6CE3923EF6C33DEC416BAE328CE12628AEA0A' +
       '4677D6590CDDE8D7F1BBEE992A2A2A7E0F66ABC3257AAB2ADDDD6' +
       '1C66436538F688D5E324F7BA2D1F8E62A335BDC66A6943E58BFC6' +
       'BCA4058A3E25A1F8F56BBF012A3AD900B58632DB87EFF148B4B34' +
       '9334DD3696DADECCC46A4564C30F31DCCF471F4725477ACB999B0' +
       '56DA452D31D32B6A1AD160B460E0C5919B5FFD80DAEE4607C98D3' +
       '76F7EFC9C64BB40E1680B33AF77E0D816AC397C64AC498937EAE9' +
       '6DCE26F9222B0006C0517D605E472E1F8767E9CDC09794779F149' +
       'D73B4E089B5DACBF5DB4B9E61292EEDE5EE9A510470E10D69DA6D' +
       'CD3DBC25F157C9BFC26C4F7B2D1BEEB12325870362D8BAF9D2210' +
       'F01964D52E83DD5DBBB9C3E6C6D7EC5F73B92AFEDDF8F95F80D98' +
       '2DF760C2804E3B023022EF841ABE7B8D763F43F112B3B9EE234D3' +
       '8B1571B339BDCBBBB9886319B1C63BABCE6E0B22DB6C1C2EFF036' +
       'DF91D90EF94912CEBD4992020078B4A2A7027A5D24FBA3684FFF7' +
       '166BBD6A49484AC929602D2CB68DB02F9F0F9616E6B42756B0099' +
       '5EF8731E1DE3EA5D61AB95E70E3C525E4BFC186FFC9AAD36C91D0' +
       '304B2E1F99AB1B5944BCC2EDC70742ACB654CDD7C1E59BB81F0F4' +
       '3859983DF6C99525BDDB96E3ACE4B8B7DBF35EBB45EC15BCCC174' +
       '8915B8FBEF4A87FB77A621FFDA2B5AF57B4C792AFEDDF8F95F862' +
       '661B18AD858621DAE89DEF5263E5EB8CD93A056A75BEA0DE89131' +
       '2A7154EC9F7B98D2C7B0D16E57467EF9A297EF3CEA3AB61874279' +
       '61CCF63422FB85DEDC38C1C199377E87D90A4ED8B7A8EF3DAFC05' +
       '86B32D2BDE73F6236B371DADD889391B5EFF6C4E2FE0EB35D51DA' +
       '9E6229A24D42C9716719895D36967B3F66A3998473573DD846EEB' +
       'BAB1E76E1F23166DB22DEB7AE23EFB59AAE4726B807FD7EEE172A' +
       'D7AFF7ED5566FB34D2530689986DF53D1BCB1C652647710C86C77' +
       '4455CECE242A23536C77BA63BA70DB9F72398B196CE4F280CF488' +
       '1C21A3A3E1AC15E2CF8DD94472E6846BFACFCD46DFF793E7CC76D' +
       'FA29B1941850CB08FA06751C43E87258639E29C70D3166286FB68' +
       'F35A7FAAE1DBCCB6CF836E2CF0D658A3475CDE1F9B37119493C84' +
       'AFA0B19E9D9A8C40A5CECF966CCF686B52F35A4B8F1BE7FAF7516' +
       'A6BDBDEEDCD7E4D7AC9D288E2D6F4BBEB67F3F5AE22B99AD391EA' +
       'DC4544D380A390DB6986D466EF40782B13376E3FB3D764E1B76C7' +
       '811C082B74BF49787D01B3F536ECCF65B6B9C2F66016F3AB31DBA' +
       'E67913991445F814725590B7CBB19ADBCE207B26E531C45323392' +
       'B8C663189FA4CB58A35520032736C6B3E7380D258EE3A5D3DA08E' +
       'ABF99EBD1EA1C49DA2F491EB0FA5C5F6A54A5FA4166A329E069DE' +
       'BDE57D6C6D59A1920890309872B4F1B29625D38F72B7A6C4FAFDB' +
       '96E6F33DBA35EBB593D208DF064DA00C75ADC1BCCF6216BB3C4BD' +
       '2DF9DAFEFD68892F61B6D23B0C9C87F233A1C8420B3F646099911' +
       '0FB7AB016456E2D956A1AFB9B93A86C3B2B299B446EAB0BCC8D09' +
       'E59DD639284776D9D5E52733DB130DE13E1AB95FCB7A3C468ED5A' +
       '76D35EC763DEA88129F455CD71D8452EE63BF8D1B014AA135BA9B' +
       'C1751739FC89D9E839E2C5F9564CCBF3EBC2B9445892BFEEE950D' +
       'EB7AE239847D6211F4444F7EB6C8FD6006556F831667BAE4156D2' +
       '9E6BD823B76367EA21B3E96CF453D8BAB165BB237774E6B4859E3' +
       '2E8BC7AD6DBC15A83223AE88BF1B65BB3CD4FF12CCF3DCFE9D7C5' +
       'D2730AD962F7D17E44E64B965B3DCE4D7BC3C8CDE87EB7E29F416' +
       '1C28FAFF829FEEFEEFA408E8132A0E18C68B4267B0183D6FF91A3' +
       '285AABCC5470B0D69C6F067A4A14E2295A13F63BA597680D23B7C' +
       'CE9B1DEC46F0E5C4E21C71C2B689F2AFE09DC76AECBA2D6F82799' +
       '2D035FDD90D302CF1F93C46C4D98EA8CCC54C47B2D979BB582B5C' +
       'D5CE6C481721CE731ED44341799FC4CA65D6FDABBEAB4A601A854' +
       '7B56515199EDEB980D49C50D6133DBF289D3849178ADAC2746B7E' +
       'F8A069BE773A3F3718425C7EE2CDFEC46299753DE78E0C836ACB9' +
       'B52DC683B0046C50B10E94D9141595D9BE8ED962CEF4DB44CC66A' +
       'DF3AE41630693DDCCC94EE188C1F62567BEBBC87A7AD020D9A527' +
       '17FB763FDB64C270D223584CC452302FC678B422E768FE6B8DCD4' +
       'E7FEF48515199EDCB98AD399A560E0B12B31117058EDF62A3F9E3' +
       '86693FE6882E74BBCD46ADDD6E99A25CC29089F1AA81708B0CA9C' +
       '438E7ADFB5E5731B9348DDC141595D9BE82D92C20C5F452918BFA' +
       'A8C86C7DADFE390E5B23F152A55D86C27B0DFC50E870959F64795' +
       '3C3600DFC48DD982B724D9E425D82850AB554ED5F454565B62F59' +
       '6773CE22B3D163EBB544E35A2FC84EEFE0C094A6AD25EDC7829D2' +
       '51B86BBE3C077C1D183F4BD3AE3C0A68A0D42924B36E3A746ED5F' +
       '454565B6AFBAEBA3A4B2D4E4AB87D4BC7126D1339EEF605C1FE3B' +
       'B79ADE79F057123590C01C3E2E837DC8CEB19BFABF6AFA2A232DB' +
       'D7DEA9DB4C5B68DD2D03BDC62097E277AC77C7F589BCFC8284CAC' +
       'A84F4D204ED59454565B66FF18E78454545456536454545456536' +
       '4545456536B58FA2A2A2329BA2A2A2A2329BA2A2A2A2329BA2A2A' +
       '2A2329BA2A2A2329B329BA2A2A2329BA2A2A2A2329BA2A2A2A232' +
       '9BA2A2A2A2329BA2A2A2A232DBFF143BF4D04C5F7AE8BE27FCF7B' +
       'DD1B5D1EAB7C3730DC592D0237ED9B6EA63CA6C8A7F1F23D0FB57' +
       'F99DB3D6849080DE581816C5CF620A71192E913D03BFDB567D4C9' +
       '94DF1EFA3313140A8AD873509C666AA8DF4B2081BCE123916F959' +
       'F2ABE97F5FC357A5FF73250AD20F9A42501F5366537C05B3E1983' +
       '4B574BF46BB3A63B157F5FBF9AFD890ED99288A4B1AB329B329BE' +
       '8AD9420DCDAC4699EDCB98CDA03DAD329B329BE28B990D07E3EA5' +
       '6F900F5ACE227913F68CF8614A7CCA6CCA6F852662BBDC11EB3A5' +
       '75C111FA22EC9017A483BBCF96A6E75C420831976E4452F332DF1' +
       '9BB989A5F577341B161696D598D329B329BE28B992DB73866C8B6' +
       '8635E238FDEBD84346CA32260464AD74C853201F4369EA630D7D6' +
       '166A334A1C70C9C23E5D89757D4F901F247ECA9CCA6CCA6F86266' +
       'A3BB139AC41BC30CBB86BF8F4260402B5437679BC926E0DCCE14F' +
       '02D64176CB0865F806DCCA3F4AFC419B35970A329B329B329BE96' +
       'D972AB7594C96C7EC4D5FC7D743E98EC1A3C3A5B4D5AD0CF7A290' +
       'DB2F3180D8539037D9CFE752836647B5665366536C517331B5418' +
       '4566527DA0BCFD7DE4A0CDC2D2C2EDD986919CC70A67D32866DB8' +
       'F816E2B362956FBAA3ADFA3D890ED9995D994D9145FCC6CA18601' +
       '126FF4DCCB58FE3E6600434CE51BF43A0E39CF3C491A5BEDB919E' +
       '8BE519A0CBD20BB45DF8EB3AFA9F91967CC16C99ECA6CCA6C8AAF' +
       '653630C58E3499CD7487E3F4459813C470BF356AB634C86CD1061' +
       'B20E63D5789BC0A6748DAFC6BEB2F36048BF60CCA6CCA6C8A2F66' +
       'B65AFA087336EA3A8E4AC5CFE1BC25B096754465366536C517335' +
       'B26669378A375FC6F55FC1CCE988DEDA9CCA6CCA6F83A66E38F35' +
       '1D686BB23793B27126994CF760980C66844D42C7223F4B7E35FDE' +
       'F6BF8BAF47FAC8D624F63C029B329B329BE005B68A699A5E6A534' +
       '1723FF8A916F8BE227D1A6D097912ACE47E36A563BACFA98329BE' +
       '22B90BF6DD43170249AD5F137AC1EBFDF0F615DF0DF77C3A38611' +
       'FFD2B308F44D238875D5C794D91415151595D91415151595D9141' +
       '5151595D914151595D9D43E8A8A8ACA6C8A8A8A8ACA6C8A8A8A8A' +
       'CA6C8A8A8A8A9F6736875F5F44AEA8A8A8F813917E30C65D984D8' +
       'E15151515FF1F68F4A31FFDE8E77FFAF90F82C8D3AA');

        Wait(50);
      
  Mario:= BitmapFromString(61, 106, 'z78DAED5DE97AE3B8117C25DCC74' +
       'F1004DFFF9152DD05499029D99E8D93B5EC21F275B432455BC546' +
       'A1FA00C798BFC7DFE3EFF1F7F85E4788AEDA1A9D1DB6E5609D755' +
       'B37C9A4A13FDD77B549AD7B6B372767066BF0A9BF487E80F3EE37' +
       'BFD5262FB768ABD989F31E8C336EA2AD3877ABD8A6938D7266712' +
       '6E012D56D3EFF45F5D9910F5F2D9C37C03347B2577F9E3807C579' +
       'B7C69AEEDCE18EADFBE1C716DC70A3E9FB9B9773CABC77B6D8E29' +
       '2777EFCC5763D4A17288133F019704C6B8876D79FDE59E776B7F7' +
       '5A708CD04AC347E535FC79377B0B0BDA4ED136981DCD0823B5398' +
       '30AFECB145853363999D6D0EABC283F15E7EE6C377DA4106C384A' +
       '043EC782F6CA1B5DFED747EDADB7C38F3AEA11E4F570610FFB887' +
       '5ABDB1E4BC7488221D1C6759BC52DC10419C4B616B94E2A16BF31' +
       '1A3947ADC9207B73946277B3356F0E537F1EDA44F570C21E0FD07' +
       '6374E6EC137DF8EBCE03C04DB118555F87ACF659401D40216DB21' +
       '7866ABEBACAE9EF067B03A403C404B87DD6D060705DB41F401F76' +
       '5B8DDFAEC5CC61C89369AFC9BD12E32C3C11E208FAB3F0BCE6418' +
       '7008CEAFC20F41E9445C13AF81B3206CC5CE5F594DB436742716C' +
       '4815BA3561658B94D725A343F53D2FC816F47E59316F7387983FE' +
       '4C9CA915C90F1367D527B5CA4FE3213FC55D80CFD28723EE94B5B' +
       '178C1F989FD4987A7AE5BD1CED1DB3CC435C380E7997887B6AE5D' +
       'D421236C6D6B236D7DEB45B125CE57DEB8E29CC91B4178034B60F' +
       'C0861DE05DE919757D4DD0DDFCA61A1A6EB19ED004D128648393B' +
       '8469DDFB68F781E50E742C1FE0DA477E266F4C7F569CC115195E1' +
       'D80E10768FF0C9C795003501B8C3393A8BDD3D827B44B106C9DBE' +
       '7624E8326DD051F4BFD5E18537E8CFC4199F9019D3B0268669EF7' +
       'EFAD38E07682B638CE19D19D33E411B00C26373151FA6DE207B14' +
       'F56A2A3DB95DF630706ADB53F2DEF65C7CB95887C342ADBB04974' +
       'FDEBA1EC1674E27D94F5C161FA0AD8C3131A77D823630157E509C' +
       '6B1484C91EB2A6C2DBBB1DA09FCD792B813E1CB6EE5838FB5642F' +
       '181D638D75C24CED546405E43F4C15BC5FC57A07DB27DC9876CC7' +
       'A22B942B56FDDCD2E40DA36E2FE382763116081F7EDB7B6CA1D02' +
       '2DAECAE85E137DF5ACD36EDAD6797103CFDCCD8FE7DB4D708BDD8' +
       'BB185CF4589859BE9B7EB637B4CD14D48ECA0D2FE1CC90E803ABE' +
       '8C5CE953A286177B87BAA72014BC2FF6D68D39F897353D0D718DC' +
       '30EE5EF4B36FC2D546F09DCCB0A5E464614CF84D7BCF3EF651322' +
       'E422B09C518369B7B6E2DB543D200DB319A7545D22631A6547F11' +
       'DACAD24C1E21C811B5ACFC0C152EEEA8BCBDE2EFAEFEEC0C711EA' +
       '0F2D44691F86648EA2A8DAD9ABC5FDE17CCF75662DEB6BD8ECD34' +
       'DF32047B97290212AF41F425C057B6313105307A8C78CF47EFABB' +
       '73F0FEDA21E1EBB782F7126E6D4241FA0ADD81E38BD42BDEF6547' +
       'A8D2F1B38939FDDCE694C20E019EB6565204C7C82F11664F3EE70' +
       '65C4B6B90E720F982BF633B7295D035E127FC2D585B6B385E20BA' +
       '5156ED069E7A9FB5BE13CEB77C296DB9AC86A24964AE3B5BC9CD6' +
       '4F3056DFA33AEB7CB0DDA8F5263295DAA3901B24F7E7F18218D38' +
       'D7CD0DFCE1953DF08B4C8494690651501BA644504D81C62F87FC4' +
       'A8B8FF404D9634CB264A4EF8FF3A858F0EA387C36C70882D583F8' +
       '65419BCC9C76C99712E75C42F6BDFB5462A05DDF21DA8AB40353C' +
       '41DAB633E6AF3582343859C29D68A6FC7D6F1C390B6049ED81BE2' +
       '75D1F9352BC2238FA3C0EDF11A73C4E035685D90CF92137329AC6' +
       'B01EFF2F739AAB1C9B6E9CFC499983F8B16D75A4015154DCCE9CF' +
       '44952B20EDFA0ED116DA01CE23A77C106757A00D878D8871ECBE9' +
       '51847ABF07591DF873FBAF8B3394CDB6F386FA38C57447BB2B492' +
       'EC8CCD972AD8395A349A8586178ADE084EE37399059307966FFAC' +
       '05ED0166E1A58E140F4410A3253D108117B49B8C66612E817BC81' +
       'B81DBC016EB8A04A84695B33EDCC24DF13EDBB8AB9F2C68CCD99D' +
       'F236333D7E46F7A6F328F467C772CC1EF58F386EFBB011F3FBA7A' +
       'DA6A213E10C438601536B83DDCB3B4BA9B5852CB87AAEA9E8F588' +
       '2DF0D6E8B059E269B8BDD30052E984F7F160F0935A53EAFCFBF21' +
       '838BF02DB092B6CDC72DB4EFC01EE78AF98CCD355AE7CA489CDFA' +
       '86BBCA47EBE63097E53C5F9B0E5489538DC5957336E4F919BB6F9' +
       'AD4B01731BF88C625E75DA1067A89492B67BB45BCA898C71B52E3' +
       'F425B71DE0F70D168BBA8C67F176DC6D477FD1EEAC96B37089DB8' +
       '51D7A9BA4E075643C97B00EEADC877B96389AAB318931C38C77A6' +
       '47FC5E78658AC35EDB8314DAA99AD6C1998E7DD6F11C8C78EDFA6' +
       '1EBB22FCD6E63AD2C1EBCC3B88B83365F91BE23EF50C1464341B5' +
       '4A0C4A4C1FFDB681765C9669668E51495CFF7D345B1C89B528D65' +
       '3EAE4A15DEF5C2B83B8B8546C3DCC727E06F580DCA75EEBFC58A6' +
       '7765D74257565EC0E7923EBB2BC7390A59F588089693932960B3F' +
       '822C1AAAF7A46C8F95A3E82A80A9B37D27BD474EA0C698F6C41B5' +
       '381ACD14AB1025491681C542311F51E9ADB1189EC11748BB9BFCF' +
       'D97DF1EA87BE3D599D0CBFF2BC052F81D31228EA99557ED8F61DC' +
       'B4A9D9A5C7D383B8F1B168643C813BCAB2E7D1FB4B3B5D96EE407' +
       '72C515F32B6F10E72B7B541B3C967EEB852E6495840DA942B3552' +
       '989E9BA16308B410F58A106506D73D6431AA6A24C9EC68EA8C462' +
       'BEA75838EB575BD53F5B0B41A2C5CFDA5210C53B223C338D11AFF' +
       '76F17A76BF43D312FB7EC07DF9FD12271DEE0CF1D8B1F420C4943' +
       '239473AE49D5C07BEBB3D4B8E0F4017E057CAD6FC47C7A723588B' +
       '9874F3DBAE9991DAAA3ACB9565ACF9A0EFDF3F3963877E79D734B' +
       'E9FEDBC58FA7B83B3140C6ACC4B229AA5A485AC360BC8AF467761' +
       '79C2B867286715524720327D7D0B88A75E57D2F6BAB137A85A67E' +
       '66A5197322F6CFC6F73FC82AC4390F511A7DAF51945529D9ED5EF' +
       '4AFB4788042B24FD2B924E2504E000D2F686336E3477B2D15DA60' +
       '83BB65EAC0EE056D2A73AAF4FF06CF57471B2804F15DF167E23C5' +
       'C196940C19AE4100B23B024E688A61322102F1E1F0330DF57B413' +
       '7D7B8BCDE7DDE688F05BD7BE5EF00B0C953955BAF9C5685F58458' +
       'A294768A348DCD7C00090DDD1EE58ED254EC43B81DA038E2A69A2' +
       '02B48FC9DE8BCDC50F67816D0CDB397227E612EAC3C3B5DAFB017' +
       'ECAC66766BEE672C13C2B877F6AB54AB9D51111D1A7F17DD0062C' +
       'E05A28587C21300940EE36B528ABA199696BAD91DD5B285D0416D' +
       '0C02ED8514429AE96AD3CD7DA97154EBA43EF8D9D0D56C678F094' +
       'BEBE3F470387A9B183319F443BB8902067671FF9874538B84470F' +
       'F1FDFDE1C942D98256C0ED238E26BF72E799E2EAC32B6910C14EF' +
       '62F15384FF23978AF8FD1CB993C915F3955BC8E7F862151364517' +
       '75B02CFB5BE87DD0FBE5E7F4AC5B86AC8CFA12DA33B19CDC828D2' +
       'F3DCC311B724AC1AA2F62A86C0F7ABB4918EF59C2F411B5F14689' +
       '72C8C5D2E752B2C6C29F4DCC5C36925760BE6690E4A439A19599F' +
       'E3EE5374C31C5D743EA9AE095622D3865563B15DC5FF06D519D29' +
       '643F37D079521D489F84BDA9AD7FD53B47B90D19C8CA887D711D4' +
       '9F5B95C1736A9791F4F82ACC7B1001A8194E37E7BED654ACACA3D' +
       '3DEA15D664C9D10BF9C63ED33DA6B0CAE9F5DD19E7F83511C16AB' +
       'A958A7F5322BFD3C1E9F021A725F8497B4A6FC0751C6196D4DCFA' +
       'B0E2E2435EDEF2F5BD06136CD43C820E67C1D629406F3FF460D0E' +
       '61B5BE178B7850B319FB9183A48CD216EDB425DFD0567F9E2CF17' +
       'E36E984393F7B87B67E0DA2B10EB2BCEC27718367CEBADB92C15E' +
       'EFD79FA2DDAD8C4D361579F2C6CC6F1C32C836C47CDE1DF5F9D46' +
       '47C413EF6800EC14A87FBE7EEB2D364805569ACF9D54B9EE4B368' +
       '2BE7B07A3B2BE6DABDB6EC479836A865B7D58A36EB8F35C52DFEC' +
       '12A96AC8C9E74106D69C5DD762B435F76F62CE626A36C32E8FFED' +
       '9031999CEBEC57AD9B5DD8FCBCC65D34C689B723D83E7E1E6D723' +
       '82BE6EC52506DD996BD36D33263C94EC2156D568BFEE01BE1D684' +
       '3D27197DD7A16813E721CDB99E6F2344C3E099D9CA20E67997419' +
       'CD759F0855A45F85A2DEB8656FB9D24C4D69D02D1BA2A3D085A8F' +
       '08715606EFAD9185E5B1E777656FE80033159C7385CCA93D576EA' +
       '98406F5F605ED3FFE2E7AD46510B75D365260FEEA88328AB90D5D' +
       '2EC2FA4E89B7F1B568CF9D2FAB6D40BBB35B957107B370673DC61' +
       'ACAF03A479E5573385F7476D057E3E13684FD15DFD1ADB539BE9F' +
       'B660A1FD106585A77A6FAD4D638DC7B28AF50D038215636F32E89' +
       '9D5C958D156AA2E439A0826574F65E27528C32B61A72237FF8BFB' +
       '85208F3A7C7BB5703CB8B2F64FAEB11E337877993DAD550DCCC36' +
       '09E562A17353879B8C2CF1DB1BD74ADC895F93E7126E6CFFEE6B5' +
       'EF2237018898EFB289501AA37110F3AEE301DA3ABA0EAE9EB3AD6' +
       '093419CA393F1C559D921FA36365FED317761CC0E76DD53B0F4F0' +
       '703BF55DFE596B829B68D739F7EFFA002B144E7A33174C6C6B170' +
       'A7903D31596EF7F4681AC99E4AADDB6496BAF2D091B4FCCD5CFCF' +
       'BC3D71D6AE80D593E70A3B7480195311F68BFD7F18DD2BCEF24AE' +
       'B66123AA65B35CD5E0A9924379134D669064BA36CF0BCBF58FCB7' +
       'C7E22797AAB22620021562EC12D13B51F8B148441325310EAC8BD' +
       '6C2A6E7532EE02AFE1AC38BCCF0EEB6779E7F4F3BF577A5C2ACF2' +
       '8D5BA626516CAB8EB2B6E552FCFD5BB914F567E2CCCEEDB58E5CA' +
       'B7E179DBF9C7880B628D1886B812E529916731D6171F060836C3D' +
       'C22946E5BB72C5998BBA15B467CE36FB229D9732DFB469D9ADBCC' +
       '1BFE1AEBA9D6E7D1A75D74ED1855B989FA1EA6B41065942E6865C' +
       '59C6BF8073F33978F609AB00747B5B762B2C1D11771DC51BF0965' +
       '01011A0DB029493033794E6948971273AC2EF2CDD52A506E3B707' +
       'B530E522CDA5CC0E16D0D2E1775CADE784F503B18A1FAE7A3091F' +
       '5364FB4D3D23FB0DFAADB6B57CCEC8256B849DF5429E40A27BB24' +
       'FE35AFCEF2B77522A9CF7030A32D3B71966E9F75B742DAA11731E' +
       '9C5C9C0BEB944A00201021B6AF1B87BA57BF8733A88F9832AD8E1' +
       '0ED7A4F273CDD0CA99902F225A3CF8B380C141E61B31B78A36778' +
       '24FCCDFED39A7F74E35A88B22D1FE0E35FAADDCFC64F60AB2C38A' +
       'EF9C3BD9A67E93AF0A7CA0A1BD348C18AFE10A58C435DCB3D84B0' +
       '2C380BFB562D6D8A3C6DD67D65CF7A04DAB3BD1E4F5EE313B0244' +
       '81B72902644847DCD924BF8C98D3CFCBD2C571ED63749AEE719A0' +
       '4FBB6B5CBADB33FF0D62B78F7EC97B0F0A4BDB14AD0A4BFDF22A2' +
       '30DFF2D62A16FE029FEC197C8DBB10ABF0FB88497732057E6AAE0' +
       'BCB95E735357B14123B2E20D19B5CAD6325C8883C1171498FC9F2' +
       '37DF75719CFA0ABE73A5F801DAF7CF7078D36D45C44CD567BF18F' +
       '06D93CD699AC9C11797562AC875C4C70D3A3EDA3C34740CE47C62' +
       '3E3961B98FECF29ACF36F947687F4F9C2F877C61156732F9943D1' +
       'EF3465D3ADC9E75D73BA9151BAFEF4E56812E6B46764616A36BD3' +
       '5D07FEAAE278FDD6EE8A3D517740E04A80D8699A214A30AE8A88B' +
       'CE41649B7BEFE96C7F4E7F0F15E607E8D75959C5D402BDACACF40' +
       '5C70163AC02A18633E1CC44036674547CC9F59E2E964D3C8905AB' +
       '66D31407BCB926710E70EB7D917D80FF2CFD06E27053863BA7442' +
       '5B96C00415E7637751BC1D3760F7DCFCE7D62CC71AAB9E2D7D983' +
       '8D71837297E22C2B1B5E50371AE62FEEA68F7F0366A98DD83A7BE' +
       'C19513263E51D91B5A3AD520DDA7BA23CCD68850D86EAA5F76595' +
       '2A1F51819815BA03D9E59BD3B2BDA925134B55B08263BAFF95A68' +
       '97A9F1A4C79B4D070B97BE5156EAC4971E6F3B3B63EF7C7B7DE84' +
       'B901F6C52A9F7DD4EA168AC559CCD8C40A7607B6697EAFBD24D52' +
       '5372DA9F955E08683735B6448EF91639F6D34E9C7669479686C77' +
       '54FDF99B76FB90DCC1AC81BE9C6ECC60A71433807AC9C75FA2D63' +
       '7C29759BA75657D5BB0E936E1AEE720F2DCAB696E15F0266E6911' +
       '4EDE5398AEBFEEB0768BB1B635C1585D3CD06C07C664E94258C3E' +
       '12B0A6B8DB40CC69A13070B13BB46BD84028058AA5CCA87FB59AB' +
       'BB9E3164847BC137D8E938BBE3FCE5F85367D1BFF2D2D4DBAF64D' +
       '36365E1A142AD6C51EE1CFB6D042BD057B8FF626387B695D4ED7A' +
       '8FF6A9D3C31EF3EDF45B4F95BE69D7D25B4CF8AF7CCD82BDAABD6' +
       '656C38B983B39E685CF9F6DCD12AADB2EAB14432066A725C0E711' +
       '07ED36AF9536755ABD7A0ED095AFF5025C9EBBF0ADA44EC4147FD' +
       '93287822BC2A8A00758777E4B9ADF452A811C48E8AEA438D21387' +
       'B2C0D35F89C8E961121A636CE38DF59FAF925BB28F8D3CFF59AAF' +
       '83B6D6B84F1DF5E72898E74CAF26CE64CE1C6C1ADC11E96D3C6A8' +
       '6ED55DC0E5473C70033EF2DFE3C7186B80465EF2093F663D1D60E' +
       '1916A459C6783FB25B6B073C5FD440949D1921852BDACEB4C9B73' +
       '1D5661519775EF5C0CFBD8499AD6216E5964B49BE6ACEF007A1CD' +
       'EE2F76535CF324D2ECE2E6DE1051D18BE5FB3C676A5D7C52361A0' +
       '073AD8C805BB4891498486EC426D0B7F030D9B8DEDBD9E42065B6' +
       'B058265CC12A6FD99B7CAE6BE8D42DAF85B6969FB54528CF4AA8F' +
       'BF4D0F3F9595E6746E5517A81C10F03FE491ED64EBA99BB5B2C50' +
       '852707A91796D5127F66F91EAC925C11A6567C25B4D32E637332D' +
       '84D744419E3D0D1DF1BACA2E6435A6C34C071AC8549CDBC5CBC51' +
       '11BB78EF5B541FD9327AF2DA9D745E31415737F6A0C5559364063' +
       '4ADFEDD8FA2FDA47BD96DAF437D9538EF3CC26968B7C07C4AC025' +
       '41EB21783769315205623407755171CA06B7E2CC63CC2FEC017F2' +
       '6CE65E190C91E4993A9AAFA16B45FE6D06A7E77DBB6C50D8A0F3E' +
       'E54AAFE503DF66EF9CF663B037206E714FD647BF49A3820FE0132' +
       '9643BAE8FD7954E56BDE3316FCC95916BE55901729D3D6243885F' +
       '5F166D6DC4DB6A6B756CBEB692AA54FBEB48FBB1D7C31D660CF61' +
       '1AD63F5FCD919B7F4114DCC71EBC027AAFD26E62E09DA547727F6' +
       '9EEFAF38D39FF959559293AB2F38A7DCA87F5E066D79EE8D21CEE' +
       '011B74DB4BB6B5D36FB2AE627B457CFEF51C6DA23473F87874B6C' +
       'C8B8467D12CA84AC227872EDBBB7F2FEAAF7C81BF4E7F39A489DA' +
       '991D46BE557C91EC3818B8BA4E342DB60731B664F7DF0FDF51C76' +
       '84CEEE5CF69C6BEB2D35E4AD3763C932C9DCB7CAE4516A640FF4B' +
       '3BE3FF506D741F2F389375605F25A385B3DE8A5F458A2BAFA3631' +
       '972260767B06BE71AF32A861E4DF4898ADE5CFD1BEA0A4DA5BA3C' +
       'B53AEE921573CB6AA40CC2B1E51061978AE89F4DE85B7AF684BDF' +
       '75C47AEA893375A3B6427F16ED9B4E3EE751CF5CF1CC4A2DFF35D' +
       '1661E55D1A3C79E15086E044275552C89EA855DD0DA40376BE10F' +
       '785B18D55DA3F8F7D07B6E25ABC02B2C7915F3E247E8F20F71609' +
       '64377CF7E2DEEA5D2D7547A1A5F4E8DBDA26DD9F9AAFF27317D70' +
       '1367666088D833240DEDD3BA98B976CABEE03EEB0F484530CFC49' +
       '03BA7667FFEB21B88AF57B4758B6198AA6FF37BDC971CE073BF5D' +
       '14C53B355FA9543297FBE3D07E10631689C8E7EE8965E443C6DC6' +
       '177A90F7CCCD26561E6156D7EFEA39AFB4BD465BE8067DA691067' +
       'D2FD73B4DF2A1066ED2EAAE31A9BCC9ACB9A213FE7C05FA4E6F8F' +
       '515074546EA5FAB0DAC556976E899BA968C6BB9CB48AF35F4F76B' +
       'EE2F92DFFB3AB8457ACC5EB2B37E5B2D23C7B5AAC8BCAB0DB5D80' +
       '7BE7DA998CFEC0A62CF33F3FC36B45566B07FEF416CB25A663656' +
       'B49953DA66DDF62D6F136DC579E655CECCF3DBD0964624C72EF7F' +
       'BB8DB4866839DAB97AEF8B7B52D56B5CA12832FE84D2661D58C38' +
       '9F99E737A3CDDCD1ACC868827FCD9D32A7B766A7FF14ED33F3BC6' +
       'C0EEA0BD026CE9A233DD7B9BE00ED33F3BC627EF5EBD0961CA9A2' +
       'FAA02E40B49DAA91353BFD3EDAEC8FBA7444CCF34D3947EED445B' +
       'F0172AF4F0282C75ED1364B856BD6B958ED358AAA56709C3EDFF8' +
       '2E2A672F2BA3C54B47A63405F1CCCBF997C85DEE88B1177BEB71F' +
       'DB11CEEA36CD095470B6FEE52EDD25AADF2F65D5D40FB70B427E7' +
       'A2EBDE8D0D6774F4F01C274FD70481271144E599FD81684BA2FF5' +
       '19D8B0A84EBDA8537A433AAC9D303BD20D67D129FFCC0CAF68226' +
       'D8DB41AB1B0E5C3A5C31423A4D5DFC66759B5EDE9C3EE5F1A7FD8' +
       'B66DAB1E01ED4B9B8FF71ADD2DEBAFEFA673C93368A1DC49C5605' +
       '7E2AD5239CAA499EA6BDDA22FFD6C3C43C29DA1133C9BEFCBF632' +
       'BCFE7339D5D4F7795ACD5B237D5CCCE6A737978A036C8BA879E39' +
       'AF0DFF54862662F4D2208B6008F6C915B87B9D98EB3BF30A7AD73' +
       '8535ED8AB2F915DA866FAED396BD4E491C5E48D20055F67B4ABBD' +
       '56D9770B612753411E5903C28FCE74DCA4626AD9BD6EECBB617EC' +
       '68DAFD79FF24EADBEFD33D0BECB8A881E73CF563DE23C79834C5B' +
       'A5C850876CB369354AABA091D7F2A44117B61ABBDD26E67F8836E' +
       'FCECADBAF8EF683FCA7ECE337CF563DFAF3C4599E3CA05D5122EA' +
       'E4C9440FD0DEE201B4F9FEC2069F41FB6CCD2E27E5EC9DAD7E77F' +
       'A5CF657CBAF9A74CDAF8AB770F7803EC65539D6AC569FC2252A3B' +
       '5D70BE43FB62CDC5EAF357E5C9AEF6C20C0FD00E37B4B9263CB3F' +
       'C67138B8D499267F08817FB37FBA80AA813A6722026E2B6EEEC5D' +
       'F44FAE5C6F107E68C9E79C05CF785BEF6F69C0D0B7DE5309EE997' +
       '5B2B70114E6A513F11557C63F9CC535FA662DD0DE4D3AABB5F7F5' +
       'DBBCDAE164DFDF0E36B0E404CDF1B62AFB4DE5C95425B467D6BC7' +
       '8242FF1B455AF81572F6BD3B359DC9A3CFB5C685849A75C907CDF' +
       'DE5D47764BDB96A417999CF0DB8EC927DDCB23E8E569E5E6D92CC' +
       'E16D6B78173F7F767FD33CBCFF23AE6571E2E20866EE4433EB5EC' +
       'D92C9EE77C62D63FB3FCECEB72EF17A00DAFF6977F691DC2D6C9F' +
       '3548B3E31F86A8DC68ED77F8D5DBA514FE77CC6F2B3BC8EF97BFC' +
       '3DFE1E7F8F5F79FC0777DA4733');
       Wait(50);
end;


Procedure FreeALL;      // FREE ALL STUFF
Begin
 Wait(50);
  FreeForm(MainForm);
  FreeForm(HowToUse);
  FreeForm(AboutForm);
  FreeForm(AddForm);
  FreeForm(ScarForm);
  FreeBitmap(iwind);
  FreeBitmap(Mario);
end;




begin
 ET:= GetSystemTime;    // ELAPSED TIME
 Try   // TRY TO LOAD ALL THIS
   LoadBitMaps;  // LOAD MY IMAGES
// if (OpenFile(AppPath+'Tag Editer/', true) < 0) then
if (OpenFile(AppPath+'Tag Editer\', true) < 0 ) then
   begin
   GetApplication.MESSAGEBOX('Makeing a folder at ' + AppPath + 'Tag Editer\', 'Alert',1);
   RewriteFile(AppPath+'Tag Editer\', true);
   end;
    Wait(50);
     SafeInitForm;    // LOAD AND DISPLAY MY FORM
    Wait(50);
   Finally
    GetSelf.WINDOWSTATE:= wsNormal;  // GET SCAR BACK
     Wait(50);
     FreeALL;    // FREE FORMS AND BITMAPS
    Wait(50);
 except   // IF CAN'T LOAD IT THEN THERES A ERROR
    Wait(50);
  GetApplication.MESSAGEBOX('There Was a ERROR In script','ERROR',1); // SHOW THERES A ERROR
    Wait(50);
end;  // END EXCEPT

end.

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

I'm kind of confused as to what this script does.. please explain.

I believe it's something like an HTML Parser.

From: SKy Scripter

Are you affilated in anyway with Jagex LTD?
No Comment

Hmmmm???

ya what does it do? looked through it. took me about five mins still dont know what it does. all as i know is it types somewhere.

OMFG that is amazing definatly yes!

Although about the No Comment thing…

iv seen this person posting in the Other Scar Scripts section a lot,
he's quite impressed me with the SCAR Games and utilities he makes, im going to vote yes

when i first applyed here, one of the scripts i put was a SCAR Game, i dont think this person should be held back on account of the non-runescape-scripting

Very impressive. Usually no SRL script = no SRL member, but I will vote yes anyway. Keep up the good work.

From: bullzeye95
Although about the No Comment thing…

Ditto, Please explain SKY ??? RAM

How can you vote yes to him? with no disrespect, this does not demonstrate player switching, anti randoms and all that stuff that an SRL member should be. if he only knows how to script that fancy stuff but nothing runescape related, then whats the point of making him an SRL member? Why do you want to be an SRL member SKY? this is a Runescape cheating community, correct me if I'm wrong. Its a no from me.

I vote no. I can't help but to agree with JAD. Heh, get into this section, then not scripting RS..? lol, I don't see. I wanna see him make a decent RS script. Then a major yes.

Sky, just so you know, there isn't much (if anything) in the members section that isn't about rs scripts.

yeah, we need new, "exotic" stuff in our member section

No clue what this is for but its cool.. Yes :)

could you possibly make an obfusicator?

No comment?

I dont think I like that.

Edit.

Guys really he said no comment to being a jagex member.
Thats not a good thing. Really think about that.

wow! let me say it again WOW!


ABSOLUTE YES

Something is really wierd about this guy…

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

Take a look….



EDIT: How can he learn to program in three other languages, in his last resume he didn't know them?? Its really wierd.

Um, he read tutoirals on them maybe ;)

SKILLS

Yes from me, if you can script like that already (know the statements, try..except, array of arrays, forms, ect). He could definately make a kickass Runescape script.

Please answer the question, with a simple, direct answer.

Are you affilated in anyway with Jagex LTD?

LOLL Boreas

It's not like he's going to say yes is he.she?

I don't see why he should be SRL member if he doesn't make any SRL scripts.

im gunna say no, the no comment about being affiliated with jagex is not good, and no rs scripts? whats the point in being an srl member if you dont script for runescape? thats an incredible script though. lets say he gets vored in
if he is from jagex we lose alot, he gains alot
if he isnt we lose nothing and gain nothing, he gains nothing.

there is no point for him being a member because he cant play/cheat at rs and he doent script for rs so we gain nothing(but potenially lose alot). there seems to be a high chance that he is jagex affiliated because alot of people have asked him yes or no, no replys. why would you put no comment if you werent?

From: WhiteShadow
LOLL Boreas

It's not like he's going to say yes is he.she?

Trust me, there's a reason why that question is in the app.

A reason I believe you guys should vote no is becuase he didn't wait a month after applying. He still has a good 2 weeks to wait till re - applying if you guys believe in following rules. I also dont like his previous application becuase it is also very… Different than this one. In his last one he was "learning Java". This one he claims to know alot more than that.

i bet you hes just a fourm mod there or soemthing. i say yes. its an amazing script

lol hey guys, i couldn't get to this post lol bad…. heh ? But Boreas helped me out :)
but any way.. i have been a member on runescape a few months. my runscape acount is only lvl 84. the down side is i can't get on runescape for a while but…
as of right now i don't have the internet at home but i have SCAR, thats Where i make my Scripts then i burn them on a CD a place them on the internet so i learned most of this stuff on my own lol…..
but we will get the internet back up and i will be able to Script Rs scripts
i Enjoy making things that help scripter's such as like MMouse and ect..
my all time faverote are CANVAS.

oh yeah you won't understand this script inless you now how to make WEB Pages ;)

Check Out This It's Chess
http://www.villavu.com/forum/showthread.php?t=7523

Dam Mormons… and he still doesn't bother to answer the affiliation with Jaghex questions,lol, but anyways, Sky, at least we undersand why we haven't heard from you, But please do us a favor, answer the question with a NO already, and put our minds at ease..you have caused quite a disturbance, as you will probably see ;) RAM

What ram said. And can u wait till you get yoru internet back in the two weeks or whatever, make a rs script, then apply? :)

What ram said. And can u wait till you get yoru internet back in the two weeks or whatever, make a rs script, then apply?

lol that could be smarter…………….



i don't know wut you mean by have you been
affiliation with Jagex ?

if it means have i been a member on runescape then yes!!!

i didn't think being a SRL member was a big deal…..
i mean if i am a member do i have to make SRL Scripts 24/7 or somthing

Edit: i plan on making a RS Script this weekend

Sorry to offend you if you are a Morman..Affiliation means..Do you work for Jagex? Are you a spy trying to come here and destroy SRL/SCAR ? AND YES, Being a SRL member is a BIG DEAL and a big priviallge…No, you don't have to make scripts 24/7, no one is forcing you to make scripts, however, when you become a member, there will be more resources for you to use and prvillaged information will be revealed to you….It's very apparant you have alot of talent, and I'm sure I speak for the majority of the members here, when I say, We look forawrd to seeing your RS based script.

LOL, no i don't work for jagex but i do
respect them. after all they made Runescape :D
…. i just want to make (Non - Rs) and RS scripts :p

Edit: Do you care that i am Mormon?

In. Welcome!