Results 1 to 10 of 10

Thread: radial walk

  1. #1
    Join Date
    Jan 2008
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default radial walk

    hi i know how to use radial walk and everything but i havnt been on this website since scar 3.13 came out. and i was wanting to get back to scripting
    but i realised that i have a out dated version of 'yakamans radial walking aid' and i have used the search bar trying to find the updated version but i cant
    could some 1 tell me were i can find the new version or is there not an updated version??

  2. #2
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

  3. #3
    Join Date
    Jan 2008
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what about freddy1990.com ??

  4. #4
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh.. sorry.. I didn't read the park about yakman's walking aid.. I thought you meant SCAR/SRL..

    Anyway on topic.. Yeah that tool is outdated now methinks even when you get it to compile it doesn't work on the minimap (might have changed)
    You should pm yakman about it ^^

  5. #5
    Join Date
    Oct 2007
    Location
    everywhere you aint lookin
    Posts
    131
    Mentioned
    1 Post(s)
    Quoted
    6 Post(s)

    Default

    Radial walk Aid Does still work.. I made a script with it last night

    DrumRoll.......................................... .................................................. .................................................. .................................................. .................................................H ERE IT IS!!!!!!!!!!!!!!

    SCAR Code:
    program RadialWalkerAid;
    {
    RADIAL WALKER AID by YAKMAN
     
     
    This is a utility which helps people use Radial Walk.
     
     
    There are Four Functions of this script.
     
    The first function shows the Radial and Radius of a point
    when you move the mouse over the MiniMap. It will also show the Radial
    with 360 added, so it can be used for walking upwards.
     
    For Example, when you move the mouse above the center, it will show
    a radial of 0 and a radius of around 40.
     
     
    The second function Draws the Path which RadialWalk takes when you input
    the StartRadial, EndRadial, Radius and press the 'Show Path' Button
     
    For Example, if you put StartRadial=90 EndRadial=180 and Radius=50
    it will draw a arc in the lower right 50 pixels from the center
    moving inwards until it reaches the center.
     
     
     
    Both these Functions can have their color changed using the DropDown
    Menu, the choises are Red, Blue and Green.
     
    Pressing the 'Clear Box' button will remove all the marks and leave
    an empty minimap.
     
    The first Function can be Disabled by UnChecking the 'Drawing Radial'
    checkbox.
     
     
    The thrid function is used by clicking the 'Capture From Client' button
    it copys the area from the RS Minimap and displays it on the form.
    This can be used now with the first and second functions.
     
    The fourth function is activated by checking the Dynamic Capture
    checkbox, it means that the script will capture the client minimap
    repeatedly, the frame rate is decided by the drop-down menu
    labeled 'DCapture Frame Rate'.
     
     
     
    Enjoy!
      Yakman.
     
     
    Before i released this, i sent it to a few people
    they all found it VERY useful and a good piece of work
     
    (it also looks really cool when you make it draw the path)
     
    'omg that is soooooooooo
     cooooooooooooooool'
                   Sumilion
     
     
    'wow, thats great!'
                   Freddy1990
     
     
    'WOWAWAWEWA'
                   WT-Fakawi
     
    }

     
    const
     DebugAll = False; //If you really want to see the script working
     
     
    //Nothing Below needs to be edited
    var
     bmpBlank_Map:integer;
     working:boolean;
                   //this global boolean shows if radial path is begin drawn
    var
     bmpCapture:integer;
     Capture:TCanvas;
     Captured:boolean;
     FoundRS:boolean;
     
    var
     i,StartRadial,EndRadial,Color,Radius:integer;
            //radial path drawing globals
    var
      frmDesign : TForm;
      Label1 : TLabel; //form variables
      Label2 : TLabel;
      Label3 : TLabel;
      Label4 : TLabel;
      Label5 : TLabel;
      Label6 : TLabel;
      Label7 : TLabel;
      Label8 : TLabel;
      Label9 : TLabel;
      Label10 : TLabel;
      Button1 : TButton;
      Button2 : TButton;
      ComboBox1 : TComboBox;
      ComboBox2 : TComboBox;
      CheckBox2 : TCheckBox;
      CheckBox1 : TCheckBox;
      Button3 : TButton;
      Button4 : TButton;
      Button5 : TButton;
      Edit1 : TEdit;
      Edit2 : TEdit;
      Edit3 : TEdit;
      Memo1 : TMemo;
      Timer2 : TTimer;
      Timer3 : TTimer;
     
     
    //constants, dont change these unless RS updates
    const
     FormX = 190; //where to copy to the form
     FormY = 92;
     
    const
     ClientX = 551; //where to copy from the clint
     ClientY = 9;
     
    const
     Height = 151;  //dimentions
     Width  = 152;
     
    const
     CenterX = 266;  //center of the form image
     CenterY = 168;
     
     
    procedure ClearMap;
    begin
    if(captured)then
     SafeCopyCanvas(capture,frmDesign.canvas,0,0,Width,Height,FormX,FormY,FormX+Width,FormY+Height)
    else
     SafeCopyCanvas(getbitmapcanvas(bmpBlank_Map),frmDesign.canvas,0,0,Width,Height,FormX,FormY,FormX+Width,FormY+Height);
    end;
     
    procedure DrawBlankMap(sender:TObject);
    begin
    frmDesign.RePaint;
    end;
     
    function Distance(x1, y1, x2, y2: Integer): Integer;
      // By PPLSUQBAWLZ edit BenLand100
    begin
      Result := Round(Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2)));
    end;
     
    function FindRadial(x,y,radius:integer):integer;
    var x1,y1,r:integer;  //this finds the radial at your mouse by
    begin            //checking every radial of the radius and seeing if your
    if(working)then exit;        //mouse is close to there
    for r:=0 to 360 do
     begin
     x1:=  Round(Radius*Sin(r * pi / 180))+CenterX;
     y1:= Round(-Radius*Cos(r * pi / 180))+CenterY;
     if(DebugAll)then
      frmDesign.Canvas.Pixels[x1,y1] := 16777215;
     if(Distance(x1,y1,x,y)<=1)then
      begin
      result:=r;
      exit;
      end;
     end;
    writeln('Failed to get radial');
    end;
     
    procedure DrawRadial(x,y,Thecolor:integer);
    var Radius,Radial:integer;
    begin
    if(working)then exit;
    Radius := Distance(CenterX,CenterY,x,y);
    Radial := FindRadial(x,y,Radius);
    if(not DebugAll)then
     ClearMap;
    frmDesign.Canvas.Pen.Color := TheColor;
    frmDesign.Canvas.MoveTo(CenterX,CenterY);
    frmDesign.Canvas.LineTo(x,y);
    Label1.Caption := 'Radial   = '+inttostr(Radial);
    Label2.Caption := 'Radius  = '+inttostr(Radius);
    Label10.Caption := 'Radial + 360 = '+inttostr(Radial+360);
    end;
     
    procedure SafeDrawRadial(x,y,color:integer);
    var t:TVariantArray;
    begin
    t:= [x,y,color];
    ThreadSafeCall('DrawRadial',t);
    end;
           //event called when the mouse if moved
    procedure MouseMove(Sender:TObject;Shirt:TShiftState;x,y:integer);
    var fillcolor:integer;
    begin
    if(working)then exit;
    if(DebugAll)then
     writeln('Mouse Move Event - Mouse at '+inttostr(x)+','+inttostr(y));
    if(not CheckBox1.Checked)then exit;
    if(not ((x>FormX)and(x<FormX+Width-6)and(y>FormY)and(y<FormY+Height)))then exit;
     case ComboBox1.Text of
      'Red':fillcolor:=255;
      'Blue':fillcolor:=16711680;
      'Green':fillcolor:=65280;
     end
    SafeDrawRadial(x,y,fillcolor);
    end;
     //event called by Timer3
    procedure DrawRadialStep(sender:TObject);
    var x1,y1:integer;
    begin  //draws on step of the radial path, then changes global variables
    Working:=true;     //for the next time it is called
     case ComboBox1.Text of
      'Red':color:=255;
      'Blue':color:=16711680;
      'Green':color:=65280;
     end
    x1:= Round(Radius * Sin(i*pi/180))+CenterX;
    y1:= Round(Radius * Cos(i*pi/180))+CenterY;
    frmDesign.Canvas.Pixels[x1,y1]:=Color;
    if(DebugAll)then
     writeln('x1 = '+inttostr(x1)+' y1='+inttostr(y1));
     
    if(i=EndRadial)then
     begin
     i:=StartRadial;
     Radius:=Radius-4;
     end;
    if(Radius<=1)then
     begin
     Timer3.Enabled := False;
     working:=false;
     Button3.Caption:='Show Path';
     exit;
     end;
    if(StartRadial < EndRadial)then
     i:=i+1
    else
     i:=i-1;
    if(DebugAll)then
     writeln('i='+inttostr(i)+' radius='+inttostr(radius)+' sr='+inttostr(startradial)+' er='+inttostr(endradial));
    end;
        //called by pressing Button3
    procedure OnRadialPath(Sender:TObject);
    begin
    if(not Working)then
     begin
      try
       StartRadial:=StrToInt(Edit1.text);
       EndRadial:=StrToInt(Edit2.Text);
       Radius:=StrToInt(Edit3.text);
      except
       edit1.text:='0';
       edit2.text:='0';
       edit3.text:='0';
       if(DebugAll)then
        writeln('Numbers Only!');
      end
     ClearMap;
     if(Radius > 80)then exit;
     StartRadial:= StartRadial + 180;
     EndRadial:= EndRadial + 180;//all this because SCAR's sin uses radians
     StartRadial := 360 - StartRadial;
     EndRadial := 360 - EndRadial;
      case ComboBox1.Text of
       'Red':color:=255;
       'Blue':color:=16711680;
       'Green':color:=65280;
      end
     i:=StartRadial
     Timer3.Enabled:=True;
     Button3.Caption:='Stop';
     end
    else
     begin
     Timer3.Enabled:= False;
     Button3.Caption:='Show Path';
     working:=false;
     end
    end;
      //called by clicking the mouse
    procedure MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
    begin
    if(working)then exit;
    if(not ((x>FormX)and(x<FormX+Width-6)and(y>FormY)and(y<FormY+Height)))then exit;
    CheckBox1.Checked:=not CheckBox1.Checked;
    end;  //simply freezes the radial display
     
    procedure Paint(Sender:TObject);
    begin
    ClearMap;
    end;
     
    procedure PrintProc(sender:TObject);
    var sRadial,eRadial,Radius:integer;
    begin
    if(working)then exit;
     try
      sRadial:=StrToInt(Edit1.Text);
      eRadial:=StrToInt(Edit2.Text);
      Radius:=StrToInt(Edit3.Text);
     except
      edit1.text:='0';
      edit2.text:='0';
      edit3.text:='0';
      if(DebugAll)then
       writeln('Numbers Only!');
     end
    Memo1.Lines.Add('');
    Memo1.Lines.Add('RadialWalk( {TheColor} , '+inttostr(sRadial)+', '+inttostr(eRadial)+', '+inttostr(Radius)+', {Xmod}, {Ymod});');
    Memo1.Lines.Add('RadialRoadWalk(RoadColor, '+inttostr(sRadial)+', '+inttostr(eRadial)+', '+inttostr(Radius)+', {Xmod}, {Ymod});');
    end;
     
    procedure FindClient;
    begin   //finds the RS window by size
    if(working)then exit;
    if(FindWindowBySize(766,504))then
     label8.caption:='RS Handle = '+Inttostr(GetClientWindowHandle)
    else
     label8.caption:='RS Handle = 0';
    end;
     
    procedure CaptureFromClient;
    begin
     try //frees an older bitmap if it exists
      FreeBitmap(bmpCapture);
     except
      //there was no older bitmap to free
     end
    bmpCapture:=BitmapFromString(Width,Height,'');
    Capture:=GetBitmapCanvas(bmpCapture);
    if(not FoundRS)then
     FindClient;
    if(Label8.Caption = 'RS Handle = 0')then
     exit;
     try
      SafeCopyCanvas(GetClientCanvas,Capture,ClientX,ClientY,ClientX+Width,ClientY+height,0,0,Width,Height);
      SafeCopyCanvas(Capture,frmDesign.canvas,0,0,Width,Height,FormX,FormY,FormX+Width,FormY+Height);
     except
      CheckBox2.Checked:=false;
     end
    Captured:=true;
    end;
      //called by pressing button
    procedure ClientCapture(sender:TObject);
    begin
    CaptureFromClient;
    end;
        //called by Timer2
    procedure DynamicCapture(sender:TObject);
    begin
    if(working)then exit;
    CaptureFromClient;
    end;
            //called by changing CheckBox2
    procedure StartDCapture(sender:TObject);
    begin
    if(working)then exit;
    if(CheckBox2.Checked)then
     begin
     Timer2.Interval:= StrToInt(ComboBox2.Text);
     Timer2.Enabled:= True;
     end
    else
     begin
     Timer2.Enabled:= False;
     end
    end;
         //called by pressing button
    procedure FindRS(sender:TObject);
    begin
    if(working)then exit;
    FindClient;
    end;
     
    procedure Form;
    begin  //constructs the form
    frmDesign.Left := 267;
    frmDesign.Top := 154;
    frmDesign.BorderIcons := [biSystemMenu, biMinimize];
    frmDesign.BorderStyle := bsSingle;
    frmDesign.Caption := 'Radial Walking Aid - Yakman';
    frmDesign.ClientHeight := 387;
    frmDesign.ClientWidth := 519;
    frmDesign.Color := clBtnFace;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -11;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.PixelsPerInch := 96;
    frmDesign.OnMouseMove:= @MouseMove;
    frmDesign.OnPaint:= @Paint;
    frmDesign.OnMouseDown:=@MouseDown;
    Label1 := TLabel.Create(frmDesign);
    Label1.Parent := frmDesign;
    Label1.Left := 48;
    Label1.Top := 40;
    Label1.Width := 48;
    Label1.Height := 13;
    Label1.Caption := 'Radial   = ';
    Label2 := TLabel.Create(frmDesign);
    Label2.Parent := frmDesign;
    Label2.Left := 48;
    Label2.Top := 88;
    Label2.Width := 48;
    Label2.Height := 13;
    Label2.Caption := 'Radius  = ';
    Label3 := TLabel.Create(frmDesign);
    Label3.Parent := frmDesign;
    Label3.Left := 64;
    Label3.Top := 256;
    Label3.Width := 55;
    Label3.Height := 13;
    Label3.Caption := 'Start Radial';
    Label4 := TLabel.Create(frmDesign);
    Label4.Parent := frmDesign;
    Label4.Left := 64;
    Label4.Top := 288;
    Label4.Width := 52;
    Label4.Height := 13;
    Label4.Caption := 'End Radial';
    Label5 := TLabel.Create(frmDesign);
    Label5.Parent := frmDesign;
    Label5.Left := 64;
    Label5.Top := 320;
    Label5.Width := 33;
    Label5.Height := 13;
    Label5.Caption := 'Radius';
    Label6 := TLabel.Create(frmDesign);
    Label6.Parent := frmDesign;
    Label6.Left := 192;
    Label6.Top := 16;
    Label6.Width := 265;
    Label6.Height := 13;
    Label6.Caption := 'Move Your Mouse Over the MiniMap To Display Radials';
    Label7 := TLabel.Create(frmDesign);
    Label7.Parent := frmDesign;
    Label7.Left := 168;
    Label7.Top := 40;
    Label7.Width := 332;
    Label7.Height := 13;
    Label7.Caption :=
    'Input '#39'StartRadial'#39' '#39'EndRadial'#39' and '#39'Radius'#39' to Display RadialWa' +
    'lk Path';
    Label8 := TLabel.Create(frmDesign);
    Label8.Parent := frmDesign;
    Label8.Left := 376;
    Label8.Top := 168;
    Label8.Width := 64;
    Label8.Height := 13;
    Label8.Caption := 'RS Handle = 0';
    Label9 := TLabel.Create(frmDesign);
    Label9.Parent := frmDesign;
    Label9.Left := 376;
    Label9.Top := 240;
    Label9.Width := 103;
    Label9.Height := 13;
    Label9.Caption := 'DCapture Frame Rate';
    Label10 := TLabel.Create(frmDesign);
    Label10.Parent := frmDesign;
    Label10.Left := 24;
    Label10.Top := 64;
    Label10.Width := 72;
    Label10.Height := 13;
    Label10.Caption := 'Radial + 360 = ';
    Button1 := TButton.Create(frmDesign);
    Button1.Parent := frmDesign;
    Button1.Left := 16;
    Button1.Top := 344;
    Button1.Width := 100;
    Button1.Height := 25;
    Button1.Caption := 'Print Procedure';
    Button1.TabOrder := 15;
    Button1.OnClick:= @PrintProc;
    Button1.OnMouseDown:=@MouseDown;
    Button2 := TButton.Create(frmDesign);
    Button2.Parent := frmDesign;
    Button2.Left := 16;
    Button2.Top := 112;
    Button2.Width := 118;
    Button2.Height := 25;
    Button2.Caption := 'Clear Map';
    Button2.TabOrder := 8;
    Button2.OnClick := @DrawBlankMap;
    Button2.OnMouseDown:=@MouseDown;
    Button3 := TButton.Create(frmDesign);
    Button3.Parent := frmDesign;
    Button3.Left := 16;
    Button3.Top := 208;
    Button3.Width := 75;
    Button3.Height := 25;
    Button3.Caption := 'Show Path';
    Button3.TabOrder := 11;
    Button3.OnClick:= @OnRadialPath;
    Button3.OnMouseDown:=@MouseDown;
    Button4 := TButton.Create(frmDesign);
    Button4.Parent := frmDesign;
    Button4.Left := 376;
    Button4.Top := 104;
    Button4.Width := 106;
    Button4.Height := 25;
    Button4.Caption := 'Capture From Client';
    Button4.TabOrder := 16;
    Button4.OnClick := @ClientCapture;
    Button5 := TButton.Create(frmDesign);
    Button5.Parent := frmDesign;
    Button5.Left := 376;
    Button5.Top := 136;
    Button5.Width := 75;
    Button5.Height := 25;
    Button5.Caption := 'Find RS';
    Button5.TabOrder := 17;
    Button5.OnClick := @FindRS;
    ComboBox1 := TComboBox.Create(frmDesign);
    ComboBox1.Parent := frmDesign;
    ComboBox1.Left := 16;
    ComboBox1.Top := 144;
    ComboBox1.Width := 118;
    ComboBox1.Height := 21;
    ComboBox1.ItemHeight := 13;
    ComboBox1.TabOrder := 9;
    ComboBox1.Text := 'Red';
    ComboBox1.Items.Add('Red');
    ComboBox1.Items.Add('Blue');
    ComboBox1.Items.Add('Green');
    CheckBox1 := TCheckBox.Create(frmDesign);
    CheckBox1.Parent := frmDesign;
    CheckBox1.Left := 16;
    CheckBox1.Top := 176;
    CheckBox1.Width := 97;
    CheckBox1.Height := 17;
    CheckBox1.Caption := 'Drawing Radial';
    CheckBox1.TabOrder := 10;
    CheckBox1.Checked:=True;
    CheckBox1.OnMouseDown:=@MouseDown;
    Edit1 := TEdit.Create(frmDesign);
    Edit1.Parent := frmDesign;
    Edit1.Left := 16;
    Edit1.Top := 248;
    Edit1.Width := 39;
    Edit1.Height := 21;
    Edit1.TabOrder := 12;
    Edit1.Text := '0';
    Edit1.OnMouseDown:=@MouseDown;
    Edit2 := TEdit.Create(frmDesign);
    Edit2.Parent := frmDesign;
    Edit2.Left := 16;
    Edit2.Top := 280;
    Edit2.Width := 39;
    Edit2.Height := 21;
    Edit2.TabOrder := 13;
    Edit2.Text := '0';
    Edit2.OnMouseDown:=@MouseDown;
    Edit3 := TEdit.Create(frmDesign);
    Edit3.Parent := frmDesign;
    Edit3.Left := 16;
    Edit3.Top := 312;
    Edit3.Width := 39;
    Edit3.Height := 21;
    Edit3.TabOrder := 14;
    Edit3.Text := '0';
    Edit3.OnMouseDown:=@MouseDown;
    CheckBox2 := TCheckBox.Create(frmDesign);
    CheckBox2.Parent := frmDesign;
    CheckBox2.Left := 376;
    CheckBox2.Top := 264;
    CheckBox2.Width := 111;
    CheckBox2.Height := 17;
    CheckBox2.Caption := 'Dynamic Capture';
    CheckBox2.TabOrder := 18;
    CheckBox2.OnClick := @StartDCapture;
    ComboBox2 := TComboBox.Create(frmDesign);
    ComboBox2.Parent := frmDesign;
    ComboBox2.Left := 376;
    ComboBox2.Top := 216;
    ComboBox2.Width := 87;
    ComboBox2.Height := 21;
    ComboBox2.ItemHeight := 13;
    ComboBox2.TabOrder := 19;
    ComboBox2.Text := '500';
    ComboBox2.Items.Add('10');
    ComboBox2.Items.Add('100');
    ComboBox2.Items.Add('250');
    ComboBox2.Items.Add('500');
    ComboBox2.Items.Add('1000');
    Timer3 := TTimer.Create(frmDesign);
    Timer3.Interval:=2;
    Timer3.Enabled:=False;
    Timer3.OnTimer := @DrawRadialStep;
    Timer2 := TTimer.Create(frmDesign);
    Timer2.Interval := 10;
    Timer2.Enabled:= False;
    Timer2.OnTimer := @DynamicCapture;
    Memo1 := TMemo.Create(frmDesign);
    Memo1.Parent := frmDesign;
    Memo1.Left := 152;
    Memo1.Top := 296;
    Memo1.Width := 185;
    Memo1.Height := 68;
    Memo1.ScrollBars := ssBoth;
    Memo1.TabOrder := 20;
    frmDesign.ShowModal;
    end;
     
    procedure SafeForm;
    var T:TVariantArray;
    begin
    ThreadSafeCall('Form',t);
    end;
     
    procedure LoadBMP;
    begin   //loads the bitmap of the blank map
    Writeln('Loading Bitmap');
    bmpBlank_Map := BitmapFromString(152, 151, 'beNrtnf1vleU' +
           'Zx8Ep6nRkcUoCQuZ4SQMUJi8OsAULZaz0LaGtGlpehMpbBZS2hHcz' +
           'aNUx7SJKpCEMReJmZCRmbD+4uMUf5g9LlpksMVli/MV/Y7/sU7704' +
           'uJ+zikOaXuect25cvKc06fl9Pmc7/e6rvu+n1K1eEv1ZKKzcVr/rj' +
           'lv76s+0rmpvbVuYfn02bOmFIslC2eub6zktNbm6trVTzbUVPJI1FQ' +
           'tJvwrFs11FQTnN9ev4sBe7Nhaf2L/c6d6XySOdjT5OLy9bs+GlS11' +
     
           'A++wbfmkJJrL709i3C2N7M/hh+uaJLG5toz307291r9D/9S/frav+' +
           '28fv/XPv15QfHr5VOfOFl2Bra2rOaiuWECsXDZfoafLn5jLlZ83e2' +
           'rByz5r+mQeOYHrTzw+dxpnWrS1VO9sWaa32tNWBsqujtYtz6wuhpJ' +
           '/izcjiKJjBI2jXoemgPIiB3pR5/P4QnuTCJ48tiO5DlwuLhrXc+Oi' +
           'B4iC7MYN2/D/SkGgfLR4h3BJ2BH+lQv9PYaSg97D2/it1zdVwpHgg' +
           'MtiHBOU2YsviHx1TdUiToajiFs8v7EOlASSNFVykcGU/WDwE65DvK' +
           'qsLEePLDlBTze0rBVBHvUr64DPtsenWDtrgmJY2d0aUz7/Xo8cJyj' +
           '//LuTECQ4eOP4bq4bPiZJEhIClxQ6hlJPhUn4FLySSHjF0nJehNHr' +
           'vfuI3c+vA6VoJii5/kYQFfOUd+KVaJEVY5YjHyS+8dDeNgSYEOTjz' +
           'WWBGpcrwTeuZEYxoPLbrLsS/Kao8typg/yaJCyCPMJFUAglZCVMuI' +
           'gUIUagNBnqRcJL+K2+Y8TF868TXR3PFkTJRwtknKyECI5dmxoKQvT' +
           'ZMAvRjBQj8hoEqAhKgLpERnBcCQ9PU5dLNElGBWnyi5Oq+MWxViKh' +
           'qZAWzF2lSnksj+DToxE8e7pXBN8788qHr/6if8+8I52bCWh6lHAke' +
           'AP8E95Lr9npYOgNeIj+0YIPAO/fZCiCmJInWIIC/PbyFE1C2kzc1T' +
           '63uggEHqt60qMkY8pmfRjBBCIEL1/8DQSPNkzd8tMfNsyf8vrxPSc' +
           'OPu9RDiTxQXeVpRsyy4kqvRJtyj/tUefAjncudgoRtOuQL3zZoUSQ' +
           'pVlQm6BUcU5AUyWlIF6j2VhpSdBnQ++lQLxypu2NTY9B8KkZDxHNk' +
           'x4803cgQeklKQewEsVHQY5qOnQ+ctbHzxeiY4ngTWlS+fgPsDwWJU' +
           'LQaEIWv7oBZVPlujUFSlnCICJDNCiIOx76/oGJ98HRo1Su5ILTg1i' +
           'WNKsc0OZVVWbtXYnyGtP6VUlFys+xSmaMERyaJuZj5ZynKWEClOBY' +
           'KczUkQhTKClKBXF/1cMmQwi+dvddv7/37k//eF4cCUlSKE2SsnEvS' +
           'cuS1zPmja29r0gH3nbjtDFPcAiaBW0WcFwiIJ4+2QVQHnk6kMUGVS' +
           'mshvK9I782JZoMIfjOPd8D4l/uv+fimeOERymOfJDEkfdQ2FqNoyt' +
           'KsRGTIcfIMDHScXfMuGnSlMdyuc72dROgvO6xjZW+joUmtc2lsy+R' +
           'E7HTx6dPRomSIQQVl979lTiauypL8gOBePnlSlikHG+sduwAGfrpN' +
           'd72HSXDmwpTUwfZOtbSZUGP5UBpkepUhY3sFCUaROJPH75pKJMsSY' +
           'qEI1WrOHqUSbeIISQzbHz87kwZDi1MdZrZWVnwoUcBVR3ra0iJ0Tt' +
           'qAjHhKJRWuIojqtR8eMLRnr7Q3uR7Q++ld6YMbyFjKl2C0gLLpSXh' +
           '8qq8kRgLOuqOKfcScEwkmXCUHhOOBROiekPvpUGwmDBBmfVY2FmuJ' +
           'FAHRnfi6N6L73RaZkzECMGvFtzz1dan/vX5lYSj0YTjZ2c2g1K+uq' +
           'ZqUTJRY1Nt4sh7C4g3Rbl21VxD2VK3OOuxXNJzpw4SQokeZaqVC36' +
           'MqZIZTYxA/Kz8rv/+/WMCjv/49AO6D6F898GJBBDVRXqOVE3iqD5R' +
           'M97ZhBhe+v96bBYlKfJCfw8BSjief20jPWPWVAfEuPUpIP779P5iY' +
           'mxrqRZH+ap6GeOoNt/3+CHD71L8JCh5aqqEI8mxKMerpkoUS45wBN' +
           'AXF/f6/CiO6nrkpQHxdqHMVj6oEo40HXBsX/FoUY5XQxyzxSrsIPj' +
           'lpUPWPyo/mhI5SErTQHN7UWoF0/SozrEYx2LN4/rGSsQIR5vPwVf9' +
           'GmJAHA6UvojV+texA7vEkTpHMwCeY++jEwpy9KtX33zSR37UjB9ip' +
           'AZWYRNKHBmU2vND30GdY/Wq+g5D+fQP7hbKgmKUqf7n899+9EqTWg' +
           'x6Ul+dRk4csdYSPZ7ve47+URzNWi2EMsmM4khfg6N+faUXVYqjNYk' +
           'BcYRV2bW7lRTZv2eelTqaXE1QZsUItUSMA7MKgxB9nxgXf1hVaWUP' +
           '1qotHGattmLFoyK7GYBPAkpUhaNZd78lIyAO6+iuuC87RSBrfX/LN' +
           'Fu0MpQWBlFiJA+e7euGI5K0XVLJOlRAHG6UftWSUgeO6j5MkuauFn' +
           '6HFdKjraBMxVFtKdNqp4A4KiiJgevftQWUH7xY5t1VmzrE0SDimeB' +
           'TrzHgn/Wr6DhsvihqmxHm6KfTlSjJkud6ngWlekk81vbnECpsPETd' +
           'SIIe5aiH9rZFWhz1RDmwLbZrC3H64FoSpVQplMqVtBh4JlWN7HQAm' +
           'YMYjjq6KCHoE+XubU8Txzt+jir71k2lEzGUCBCCmg/XlmPVNtZoaN' +
           '4mII5uorTJgW0b6oWSjtLTRInI8Fq/X7+qpmoxvhotf+m66/Y6UBL' +
           '72mt+2b4UlAROazM2WmHU1I01GgGxNDtKCVM00eaZl35mN76tXDaf' +
           'R7s9M9JiCbqr7qL1C1vNdcvbmqvbBhekFJp/03JJzL+VpiSzy5Qnj' +
           '+1YsXSO3YKaOGqIsZTd1VYn1RiePtllmxg9YpU3AbFka1cvSd1fII' +
           'i2RhxizFHB43dn2a0ZIcYcSdLuyPMctSk9VqZyN8Pj9ahbv+1pzN7' +
           'kVJImRh5DjPnKkoRVrV6MkRlzJ8nrez+iZ8yzJLVcFT3jWJKkbgwJ' +
           'MY6FaqdxWlQ4+eJoGz8Ia0Bsk39coryMV1dPSKzV/2GNuD454ri5t' +
           'qynrUzWSr1qphoXJ4+SFMow1bHBMdrGsWGttu4flyWnKOFIhKmODW' +
           'uNSjU4xiidFCmOcUHyniKD49iw1uAYHGOUToq8CnF8XI28owyOwTF' +
           'GcIwxDBxjBMcYJcExLkKMGDFixIgRI0aMGDFixIgRI0aMGDFixIgR' +
           'I0aMGDFixCg0xscunVyPwX0dwTE/khufknL7c4JjjkdwDI4xgmOM4' +
           'BijIEf9mcdBjsUiRklD7GkrC45jgGP/rjnfgmOMHHDUH5cLjrnmeP' +
           'nlSvQ4pCRjlDpElDgkxxj54Hh4e91HrzStqZhRxFpj5IPj2/uq4bh' +
           'y2fxCeoyRG45A/OzM5pqqxUgSlBsXPTBIMDjmyVSBSLQ2VzuOMfJX' +
           'qYrjC+0D1tq2fFJwzCNHQcRaj3Ruql39ZEgy16YKxzeO78ZaVe0Ex' +
           '9xVOF9c3AtHStbTJ7vaW+tkrYEyRxA315ZBUBz3bFh57tRBUuSNVW' +
           'uMfLSNQCRQJRwv9Pf0Ht4W1pqv8WbtvRIjQZYUR6x1a+vq6ooFIcm' +
     
           '8QITdl5cOERJj9/ba908fIGStSxbODI55EaM44q7iiBhJkbLW5U/M' +
           'jWonR2JUhbNrUwMc6TvgaFVrWGvpc8RLE1MVR0nySOcmrFXVTqAsW' +
           'Yg9bWVejIJI4KhwJEXyGNaaCzF+faVXmXHLM6sFEaeFI5KEoxrJFU' +
           'vLVe0EytLMjEAkEOPOlmUGkQCiUiQoYUr3IUnqvxKIq1dqZao4Soz' +
           'gSzhKkqd6X2yuq4AjktR/2BooSwci7L75pI/wYhRH1TnIkECSRMfW' +
           'enHU/1Af7loiEAFHTgQiYtQETsJREFXtqJGkZIWjSXLtqrmBshTKG' +
           '4nxbF+3F6M4Hu1oMl+1qlXW+sSCcv3P5iHJ0ilvkCTHavw9xxP7nz' +
           'OOqnZUtSJJUK6pWhQoS8dRCTX+MlJzVBOjt1ZkqwkBcTSU4a6jWKM' +
           'WLG+8GClQRRB2aiRBqR0CcESVeCxM1U4GylGsUeWovrzxmVEcgaiQ' +
           'JInOnS0rlpaLoy1NhruOYo2qdQ1zVGsbEaOQJRyVJTlAhqDkEY7ai' +
           'IW7xra6EYO4vqnyi4t7LS3C1EM0MaJEUmHCkZC1amUZa62uWIAkCZ' +
           'iqowRooBz1tGhzqkAkoGkEuzpavbVy7K1VuwWioxzhbrFgWlQgRgh' +
           'intIjqTDLka8iTFlrQ00lHKEJ0821ZdGGjExtY/OoBcVInDy2Q4oj' +
           '0GPH1npBTDjaMpZS5MDtA1WLNH8ulN0V98VlH6aW36fFghAhBTsfA' +
           'DIxWorUhIBZqzha4RooRwBiskycOKp6DT0qkFvCMWutSpFUPhwsWT' +
           'hT7kpwEChvI0Sbt/nDuWPaeJPUqAbR7JRQy49z+nrVdx9Ee2udWSv' +
           'HKmI9ylDlbYEINYNoW1KLpUUVNtKjJMnTebNneIiWJbWyzGlmrXAk' +
           'KHvgaDVPoPzuELXl5qYFKkHXr0ZDGvQcZ02frJJVpY5x5KuqdjTXy' +
           'iMQKYoAClli7Yq5YbAjCRFH1QS4TFUT45Yop075EYCyevTLH5oQgC' +
           'AcOVlkkaRHSQTK7wIRO4VgsQI1SYviiMfqmMfJj0xUyWochdI27XA' +
           'AMjWSXpJ60SYHAuUt9IlJYVNMiT4t2lqGrRor8FX0lczO+aqVEDj6' +
           'R+ock+QQKIPm0ARt+6JvMYaASFoUCJtNlRgNJS/KIW0JMrv8wbejU' +
           'M7RHB02C0qA6hWhtPkBX/mMvzoCXAIR57S5U1Cq2R8aoubfNAWn2V' +
           'QrVk1rmnATtSxHuas1klbtENr+IZQcaLnZIiqfmzaJNu02BMRDe9u' +
           'MlJU3vlIVYq1rAIKS1QgmcwJ29wcctfyBJAm+UYWrofQ1T3hsMS9V' +
           'qEksVtUYRMPka1QcVaYqxJzD8fqmyoXl08mA2RTplz/MWiVJuasKV' +
           '6lSiTKLMrpLtfnaQowYtRt8iNI0gSgjTThKj0aZk4FI65EtdVAo7G' +
           'StnM/3mpECXRw1kU5IqprB44MRwkxkiPp0c41uA5eXJov7BdekvBg' +
           'TU7XlDN3zOPOxSQ8/9OCShTMTJSYrIIS2KCtLcuwlaTUPHMW3pW6x' +
           'zajfmRkTghCxu7/tDqmCe6X8FjjEpUmYBKIvbzi40N+j0mXXpgZEB' +
           'MGfTHtk3uypPjkmczu2A0T+yXeRHOGIZiVJy5L6kmbw+NK6Nddp0v' +
           'PeIcI0GRpEL8OCEC20IOULVFOitfxqNPQHAfTnj3TlsVa6SLh4Mcp' +
           'XfdVqK5LSHScQuiHdUHIgSQoloR13clpQiuarqycQY5UgVagnyLFK' +
           'Gq+7LES81FoM9RdCqStvS1SCaOWNFhM1cYokSZHoKFvnWD/iN3toT' +
           'gBGQmmFq6nSehOh1IIXTmvCHHs0E4L2mHQWifoSiNCRW3o7zc7e6A' +
           'SYIiJkKI44KmKc/MhELrXKm2Su1W9t1bS5rYCoAbEsaTM8kqQ4FqQ' +
           'plGODpieoEEHt/V7fWJncU1MQImXkt4HozdbuH9dKIsmRoNSBrJWs' +
           '2R7EOGpF0lc7hM24+t5EKK0iElBt9cFmDaWnmSOgwieCSoUWPJWRZ' +
           'rcNZwlqAnxogglHDtQ+CKICMRL4KscFW8ikkeQn6NsBR4thgEynCi' +
           '2OJBx1JsJUxjSO/bvmEHmRp/Dxbi+/XAkyhRH0RuqRZTnKS3V7VLY' +
           '0zc6EW7fIi/qjHAaRY8Q4e9YUOGZbj+xKln6gtY3KkgJkJZASZUNN' +
           'pbEzmubDmkRau2qu1T9CaUBLUJ4mQBB4ggpesaXDBFbSViRVDUpU5' +
           'Wm5z9Kfqhq9wjm6Gw4KPi1CTZed/Dhv9gwkqY0BN5Wk9l+JV6I76y' +
           'WlVv8lcVRdpCpX/sz74btImgKa0PRAR4Wp/dPCx7uCl4UIase+tfY' +
           'FBZiFqC3EslMtZIiaadOXpmKt17l6Pi2aHmk6CF7hUbOsfE6KcTRJ' +
           '0rPo2y0VasbVNyA+S5oY1c6or1HNrP3q6Jfz6Tfltx5oYrnDzdT/K' +
           '/ZOPD4LEbQlp8Q2k4mapKrx0zXZKRrrFkXQNOtrG2+qNf8DGPMBPw' +
           '==');
    writeln('Bitmap Loaded');
    end;
     
    procedure SetSelfWindowState(State:TWindowState);
    begin
    GetSelf.WindowState :=State;
    end;   //sets the SCAR main form window state
     
    procedure SafeSetSelfWindowState(State:TWindowState);
    var t:TVariantArray;
    begin
    t:= [state];
    ThreadSafeCall('SetSelfWindowState',t);
    end;
     
    begin
    ClearDebug;
    writeln('Successfully compiled');
    LoadBMP;
    if(not DebugAll)then
     SafeSetSelfWindowState(wsMinimized);
    frmDesign:= CreateForm; //this is already thread safe
    SafeForm;
    SafeSetSelfWindowState(wsNormal);
    FreeBitmap(bmpBlank_Map);
     try
      FreeBitmap(bmpCapture);
     except
     end
    end
    and dont forget to

  6. #6
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Whoops, just read it over. That's what I get for posing when I first wake up lol. Sorry.

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  7. #7
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Quote Originally Posted by Camo Kyle View Post
    Oh really?

    Hmmm.....Defiantly not you.

    I think you need to and not steal peoples scripts as your own.

    ~Camo
    He's not stealing the script as his own. He said he made a script USING it, and that it still works.

  8. #8
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Yeah, I see that now. I edited my post. Sorry.

    ~Camo
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  9. #9
    Join Date
    Oct 2007
    Location
    everywhere you aint lookin
    Posts
    131
    Mentioned
    1 Post(s)
    Quoted
    6 Post(s)

    Default

    lol and to justify is the third line of it... consider me a retard if i called it my own but left that there

  10. #10
    Join Date
    Oct 2007
    Location
    england
    Posts
    200
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol thnx jacoby6000 i needed tht 2... used it and works fine ty!
    Quote Originally Posted by ham? View Post
    i didnt merder the fukin english language it im just talkin gangsta!!
    which none of u would no coz ur all fukin nerds

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. radial walk help plz?
    By dark4mdawn in forum OSR Help
    Replies: 6
    Last Post: 09-03-2007, 07:48 AM
  2. radial walk
    By coolguy14136 in forum OSR Help
    Replies: 3
    Last Post: 03-13-2007, 07:42 PM
  3. radial walk help
    By del_signo in forum OSR Help
    Replies: 2
    Last Post: 02-27-2007, 12:31 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •