Page 1 of 2 12 LastLast
Results 1 to 25 of 41

Thread: from furnace to bank and back

  1. #1
    Join Date
    May 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default from furnace to bank and back

    This script takes mith or out of bank slot 1 and coal out of slot 2 and then walks to the furnace in faly and then smelts it and walks back deposits and does the same thing again. this is my very first script so i was hoping for a little help. right now i am trying to work out the kinks and build in some fail safes. if anyone has any ideas about how to do a task better or make it more consistant please tell me.

    Thanks a lot
    Markmccain

    Edit: look down to AUT's post for the updated script. sorry to be a hassle.

  2. #2
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    A suggestion:
    Dont use coords for the walking.
    Check mapwalking.scar for more info.
    You could use RadialWalk, becouse there are plenty tuts about it.


  3. #3
    Join Date
    Jan 2008
    Location
    Stanford, CA
    Posts
    329
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    standards are VERY important, regardless if ur script is INSANELY good u wont make a good impression on those people who see ur script "unstandardless"

  4. #4
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Freakymonkey, i totally agree.. When i first started scripting, i was like "who the fuck cares about standards??" and i didnt listen to them at all.. But i go crazy about standards now.. I look through my scripts sometimes and just correct the standards... Lol

  5. #5
    Join Date
    May 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    freakymoney, would you mind explaining "unstanderless." is that a short for a SRL term, or are you saying I should have higher standards. for instance work on my script more before posting. if its the latter duly noted.

  6. #6
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Standards are the "standards"(fancy that) that scripters should listen to while scripting... http://www.villavu.com/forum/showthr...Starblaster100 Download Star's tutorial, there is an entire section devoted to proper standards.

  7. #7
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey An Idea here for withdrawing from the bank as well as depositing. I would suggest using DTMs. If you want a good tutorial use this one :

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

    They work insanely well (I have never had a single failure) for items in the bank or inventory because the items have a black outline then (you will see why that is important). Anyways, it is an extremely important skill. Check it out . If you still don't get it after this tutorial, add me and I will personally explain it to you. (I will write a new tutorial if I have to ).

    Another great thing (but fairly advanced so work your way up to it), also mentioned above, is RadialWalk (as well as other map walking techniques). I learned RadialWalk from ZephyrsFury's tutorial (He is one of the best Map Walkers here so LEARN I SAY). Once again if you do not get it, add me, I will help you out. (Also a note I just thought of for map walking is always make your compass face the same direction or it will FAIL. For example put:
    SCAR Code:
    MakeCompass('N');
    Here is the tutorial though:
    http://www.villavu.com/forum/showthread.php?t=19162
    And another thing you might want is the radial walking help tool thingy. I will have to post it in SCAR script format though. Just save it and run it (you will learn how in the tutorial or instructions on the program). Here that 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 = 100;

    const
     ClientX = 551; //where to copy from the clint
     ClientY = 6;

    const
     Height = 150;  //dimentions
     Width  = 157;

    const
     CenterX = 266;  //center of the form image
     CenterY = 179;


    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(150, 157, 'z78DAED9D5B72E3380' +
           'C45B7644B7627F399EE71F6BFA4F184991AA620C0972F49B6CE4D' +
           '15BBCB71FCA078744110944E27D4AAE9FE73BE79EDE53CFF9E2F9' +
           '78FCB3C7FA4F6D7E93A5FAEA94D8FDCFFF77139A547E257EBD5A6' +
           'F74AEFEB7DAAEFF6EBF33FF88ED9F3D36BC6EDB7CED90F42CDF47' +
           'D8FE7445CC65D3ECE53AB3032DFE6EBF436A255DEDD3295F398DA' +
           'F4B8F20AB6FD41224285F228FBE120D96FC75136DDA6F7E9DCB98' +
           'DDD3CFB5ED649D36F3DD263AF4428F6B8F87CAEB85B1A99F9281D' +
           '4ED3602AF39EB15EEFF9BE8DCC714614CFECECD9BE3D86DC801AF' +
           'BDBF891AE6CC6F35CCB23E390399D327E729ABA91158EEAD1B923' +
           'B76DFE16F63CA6CF25199FAFCDDD8F2C8A33C7691A8DA67DC1DCA' +
           'FCC633C77F6A84CBF65C4BEB6D3D9FC7C3171764C7672AE27A352' +
           'EE2BBB2EA3B8243C3E7146C564D4F3B5B08568B3304A3C0271C53' +
           'D2F9FB5ECB1B0AB3CF4F6338E81EF3CA493A973E9935BFAB9D82B' +
           '05675CA810C85A6FD5837EDEDBFCCEB610F7042E196672BC9663B' +
           '44FFA6C6C534A1FBDBA319561A46AD9E4D86DA5F80CA9578571EC' +
           '769DE77132AB38E3B68AAB9E14D7BB9F6A3F4F7FE8C9A7F147214' +
           '6B5A30212C7D157CA5D222E6FE9C9D770C678CE4815DCE8C813EE' +
           'E0B1348783EA549A5D813B7874D71CA97F1B401F7E874A49CC6B0' +
           '0E83D853EAF7209FA9042A25DB162B6A8CCFB98EBA175E68CEC61' +
           'D4E9833BD4374655D6198F469F579D0B7D680489790D7F7EFE3F2' +
           '689D6FB2C77D087D6CFDB1C615DC35694411F5A9FC76356C1D9C8' +
           '13E2D0C62486D1A91DB1CF3EFBA38613ED93446FF78D77C5E3679' +
           'FF7411FDA278971A58D2571FF2BFE4AD6859180F6C6A34E627EE5' +
           '0DE843683489F13EE2FDF0087DE838247AD1E9563C421F223ADD8' +
           'A446F8F030CA2D72051894B151247F0087D88B8B4D4137B91E8ED' +
           'F2833E744C37B4F76A1CC760BCC716FA106E386E8618EFB1853E7' +
           '41C12BDBA9AF88AFD2D0C421F420A89364BD3BEA6AFD307830812' +
           'FB56B8C5B501D087507CCF85D80DE3578EF717137F22E4B9E1C2E' +
           'EA7C29D17F1AE46E8434871C385EB471937ACA30F0611D2DD5027' +
           '31DECB8F0322D4EE865EBE34BE93110E88D06837D419843E84BAC' +
           'D0D85963508847A91A873E76550A10FA196B8D4C69CD6EF3C0671' +
           '4084DA4954E67D5ED614FA10EAC6604662CC20512842A323D278B' +
           '502FA101AED861E83382042EBB861CC20F42134DA0DE399200C22' +
           '343C22352B14F36DBE4E6F3088D06806136B3F484C0E789BDEA73' +
           '30C22347C56F8C59ABDBE13F421B441444A2E14A1ADDC30231106' +
           '11DA1B83AF74DF6D849E85411C10A1F549643D02A1BD3148148AD' +
           '0FA1169CE203D83100C22744C06894211DA8ABEADEE5C8FD031D5' +
           'EB4E4C08A1760647DFA71E21A43398F6122284466BE15AF730881' +
           '00C2204833088100C22048308A18D18A44E06A175E45DEF170611' +
           '5A93C1DC0D611021184475FA34A24F6010C1208AE9F3188444184' +
           '46B3A200C22B41F06894811DA6A2668EFC4048308C12042476690' +
           '8A3584C6C9BBEB2E756B08ADE3801E6B6466105A3F0A854184601' +
           '0211884418460102118844184B662305EA9874484C63168EFC38B' +
           '1B22B455146AEFFF0283088D7640EB7DDE239088500B7D0A6B44A' +
           '4086D1585C6B5A33088D0B60C52BF8D503B83CA4A443C4F844484' +
           'EAE471E431881B22B4A603DA7DBBB82142A3E9F376CD7B6EE8E55' +
           '4E9678474063D9A2C83FA3A3E2422E4D16789D3E9531864B502A1' +
           '98C19C91710C4222421E7DA50CFEFAF7DFAB47A217D9C220428A0' +
           '3C6572FD419C40D116A71C01606E3CC0C3B0D11F4792CE85168DE' +
           'B6BB2124A263D2D7E2800A838A1B129722E2CFD25CA865D092185' +
           '7DAC020C201952CA81285D6B9217129823E657FAEEE803A83B11B' +
           'E289E808F42973C05207F4188C49543E21CE889E973B7D6CEBF53' +
           '075242A73C385FBFC7E5CE6F923B5F8237A1679A357CFC0D445A1' +
           'E3E2522255F42CDEA78FDEBA3D11ED0CD65D237121E3FA756E214' +
           '645FB8939ADDFE96BE523E86B7743EFACE2BD2624A23DB85E3C3E' +
           'EB1CB085BEBA2C8DB277D87B7D723868FD1C8B1D8DA5A37A9C038' +
           'E2031FEEEF088D6CC6D2A5E309ABE9675C311242A3C32BA904E5F' +
           '6995662FFADA992A7D7E7B745ADA3FF0885A5C6F5CE4595C11EAA' +
           'C8028B1E2084FD43F3924A2D8F574F719419FE229DFF4E5AB8A32' +
           '8FBDA2D37855B1944478C4F5EAE853AE43581A79BA5C6494D9F78' +
           'D49CC5FB96FC6A674B6C89C11FA7A9DB747D0A7C49C2E7D86C1F5' +
           '3DD173C63A12E1F1C8AEE7D1178FBAE1DEA730E890E839633B897' +
           '11CDE9EDD82C7D7E0AE3DA3AE8CB496ACCB03EE74FA0A3D51A931' +
           '506ABFF51835FF24FA7900125F23DA54467E4BCC599775A99CF7D' +
           '5B5328FE348D4D75BC9E1BCD2CA425D5DC738FA56E5AED91F4B49' +
           '8CDFDDEDE7C26819129F6B65C1CBEA2BDC2963AC037755F4299FB' +
           '965CED8CB07751EF39E6175E395722C5E9CD93266EA48EC36D72B' +
           '1CF9EE73BA92D8DEA6CF39DFE6EBF4C6EAC62BAD2CA463DAE41A6' +
           '1DBD7F50A22BADBF43E9D5BE2E7D82587E76F07AF6E40CD56D52C' +
           'A52B0B7DE7500BF56C8523B320BF91180C496CF17DFD0E17A35DB' +
           'E65750382D69FF129B9CD113326AF9AB4657EE4FDF68EDCE7E9CF' +
           '0F061D12E37D8BDE3A8EB743B9A0C6661889FAE781C4D1F4D5AD2' +
           'C8C733DEB7DD2081776D95BFAF236265127CEE3A8C315A5BA92D8' +
           'B29B0CB246D0D79E6969A97C5672B0FA75D5625E2C7D0F487478A' +
           'CCBE2B6EC1DB60CA6197A2F1EBDD58DF4489E0D80449DBEEF63E4' +
           'F46AAF99CEC278902BBB5AF6F729D5200A77A5248E26AEB4EA35F' +
           '57C5F1EE3F782C402FA1C22FA723782BE762AEBE87BC0A3701F99' +
           'BEDFB794C411AB1BDE718744893EA7DF7A1DA998BE11E350D925A' +
           '438E0E9FCFF8F446218EBAE4962D37E904EF1AA65F0C824DA7EC8' +
           'B9E836BFABDA67B72683968B5EF4E50CE6FF5776E0AED91BF9517' +
           '0336385C4D96F9D8F317B563F1A89F6BBDB9EF1FAB0804AE708AE' +
           '3FD2F45DC096C19CBBF4E37965FC4CD70DC3D9E2881E28C8A086A' +
           'B1BF1DC59791C0647F464BCAE17673BD79C03E62BEC0A7DF179DE' +
           '6330FE5B2F361BE7897DAB6ABDF841F144EF158ECC60AF9EECB53' +
           '767387D4EEC5DEA65317DF92B3C7081C2558C6ED7FA96CF8A719E' +
           'B3B40221BE1BE371E88B57A2F555ECD2DCA6B7D231EEFE0E0BDFC' +
           'B3860CE60BCBA679F1FFFE8F183BE76AF5CA3A6E03E5042364CC9' +
           'E49456EB1D33222D3D6B3DE8E1C26B352CAC1A779A272AF4C5599' +
           '105FA0630A8CC89BCE7B45F0BCE9D0B1766C6FA56E1C26053857F' +
           '556ED35BEB6FB9E692429F1745AFC36069654ECC6CCB7572E273E' +
           '9B8AB5DE90CBE2089665ED381C1AE47ADAE0AB1B4CAC58D7CF2B9' +
           '5B57061708CA5E39F665C53D4B6B6F1E1CDF86DDFD31890F465DD' +
           '8CFAFBA0E68E7444A5FB5645DF45D7B2DE3CA1BBDF959A857141A' +
           '3318D36719D4D7281557553CF741CD924C65E9EE8C7847583C8B7' +
           'C76EEEAFAA1EE6CA91C17AF26A76E5CC5EBE996C1F6285462C4AB' +
           '1DCD18F422E4D21A805E6DE93E32650D515F3BF646D77391F8A07' +
           'A36FFD60229A56B7FA57ED7DE2AAB031E836E145AC59DCEA0F77C' +
           'BD5E6E1D1E0BA8D4F74157ED037DAEFB9C96EE39AACB36EBB54C2' +
           '346859E0F89E7C275AB81C5635E6650A91BD75F6DE1338CA67270' +
           '066FCFD169E9CEEB7115BCDD2873C6CC0235664C7A642D9C51DB1' +
           '9D4C77618857A9FB060D7B0C2E3D773BCBAC4E11EDACCE03EF705' +
           '7B47B02F83A38FD48F516146B5C25D4C5F3CC24B6BD22A633FD90' +
           '1F55D54F17C5377B1CA33A4F0EE7A26415FC3DA8F1B4AE71FF92A' +
           '915275AE3DBE8559C4D2F1A070E7D1E73960A91B3E9A7F9D7F9FA' +
           'F52FBF7743D7F9CFE3ABD9FDEF2769AEE64DEAEF76335FFB16DFA' +
           '6D6A17FEF6EB35DD36FD6DFE19BE1EB94CF7A8EED3B6F97B3D686' +
           'FD3C77479D066CF5F78C7DFF77FAFF6FBFE9AEEFF5E539B3F9EFE' +
           '6A7E9FA7E9AFBCB59FCD3E27B5DE2BD4B5CAFBA67754BEDDF777F' +
           'CEA9307C745E8ED85D68C016524A43176BEDE47FA7FAF138E376F' +
           '6C2B237CE16FBF3E6D7A77AF4DCFFC07272E4F07');
    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.

    Umm that's all I can think of for now. Once again, good luck, and let me know if you need more help. I will also subscribe to this thread .

  8. #8
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice tips Dusk. I agree 100% about Zephyer being the best Map Walker.. I remember when his Rune Mysteries Quester came out, everyone was fucking blown away by how well it worked considering how much it had to walk.

  9. #9
    Join Date
    May 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for all the help I will read up on DTM's and try to rap my head around it. Also i am wondering with RadialWalk. it seems like it could work really well but there is no tolerance ver. So when the colors change it doesn't work. Is there any way i could make the RadialWalk have a tolerance to the color in it?

  10. #10
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    RadialWalkEx has a tolerance in it.

  11. #11
    Join Date
    Apr 2007
    Posts
    994
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Or you could just copy and paste the radialwalk function into your script, rename it RadialWalkTol, and add a tol parameter in it. Like this.

    SCAR Code:
    function RadialWalkTol(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod, tol: Integer): Boolean;
    var
      tpa: TPointArray;               //Edited to fit in tol.
      i: Integer;
    begin
      if not(loggedin) then Exit;
      Result := False;
      if RadialWalkEx(tpa, MMCX, MMCY, TheColor, tol, StartRadial, EndRadial, Radius) then
        for i := 0 to High(tpa) do
          if MFNF(tpa[i].x, tpa[i].y, Xmod, Ymod) then
          begin
            wait(100);
            if antirandom then exit;
            FFlag(10);
            Result := True;
            Break;
          end;
    end;

    The lazy method
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  12. #12
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    There is what he mentioned above but ALOT of the time when I use RadialWalking I autocolor. Most of the time you are on a road which means you can use our handy auto color functions . just search autocolor tutorial and see what ya find. RadialWalkEx has tolerance (as mentioned above) but is rather more complicated and i would not recommend it to you at this point. The custom procedure above could work for you though .

    Edit: Also I was looking around and realized there is not a single truly comprehensive DTM tutorial so I decided to make one . All the ones out there are good, don't get me wrong, but none of them include ALL the information. I will give you a link when it is done (maybe sometime today).

  13. #13
    Join Date
    May 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am leaving for a while, but AUT helped me write this script and he will keep on updating it and working on it well I am gone.

  14. #14
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey everyone,
    mark is going on a little camper van trip around the south island (NZ). So I am going to be filling in for him and trying to work on his script. Here it is. Also DUSK412 I was looking around at dtm tutorials. and it seemed like what most of them were saying is they are great for doing stuff in the bank and other static applications, but if i want to walk with them i need to learn ddtm, and that seems way over my head. Also the auto coloring is a huge help last night i tried to learn RadialWalkEx and i kept getting errors but leelokhin explanation helped the example of how it can be used helped me find my error. Thanks a lot everyone for your help.

    UPDATED AS OF 27/5/08
    worked out some bugs
    added a few else statments

    SCAR Code:
    program walktobank;
    {.include SRL/SRL.scar}

    var
       x,y,z,a:integer;
       
    procedure clearvar;
    begin
         MakeCompass('N');
         a:=0;
    end;

    Procedure startbank;
    begin
         z:=0;
         z:=z+1;
         Withdraw(1,1,5);
         wait(1000)
         withdraw(2,1,20);
         wait(1500+random(400));
    end;
    Procedure Checkbank;
    begin
         if (FindColorSpiralTolerance(x,y,65536,688,393,721,425,50)) then
     begin
          closebank;
          writeln('all ore is there...');
     end else
     begin
      writeln('need to get ore again')
      wait(1000+random(1000));
      deposit(1,1,true);
      startbank
     end
    end;

    Procedure walksmelter;
    begin
      If (FindColorSpiralTolerance(x,y,18711,582,23,600,45,50))then
      begin
         writeln('found 1st step');
         Mouse(x-21,y+12,2,2,true);
         wait(6000+random(1000));
         fflag(10);
      end
    end;

    procedure walksmelter2;
     begin
        if (FindColorSpiralTolerance(x, y, 15658734, 594, 23, 623, 38, 50)) then
        begin
         writeln('found 2ed step');
         Mouse(x-20, y+13, 5, 5, True);
         wait(6000+random(1000));
         fflag(10);
        end else
        begin
        if (FindColorSpiralTolerance(x, y, 5990515, 574, 35, 585, 64, 30)) then
         begin
          writeln('2ed step plan B');
          Mouse(x-4, y+13, 5, 5, True);
          wait(6000+random(1000));
          fflag(10);
        end else
        writeln('alls gone to hell!!!');
       end
    end;

    procedure findfurnace;
    begin
         SymbolAccuracy := 0.3;
     if (FindSymbol(x, y, 'furnace')) then
     begin
          SymbolAccuracy := 0.8;
          Mouse(x-5, y, 5, 5, True);
          Writeln('Found the furnace symbol');
          fflag(3);
     end else
     begin
      Writeln('Could not find furnace symbol');
      SymbolAccuracy := 0.8;
      if (FindColorSpiralTolerance(x, y, 3900, 553, 67, 595, 121, 30)) then
         Mouse(x+6, y+11, 2, 2, True);
         fflag(8);
     end;
     if (FindColorSpiralTolerance(x, y, 3099836, 36, 28, 471, 328, 50)) then
     begin
        writeln('found furnace')
        Mouse(x, y, 1, 1, True);
        fflag(1);
        wait(1500+random(500));
     end else
     begin
       writeln('could not find furnace try again')
       findfurnace
     end
    end;

    procedure smelt;
    begin
     if (FindColorSpiralTolerance(x, y, 4144964, 286, 141, 342, 165, 50)) then
     begin
            Mouse(x, y, 5, 5, True);
            wait(270+random(300));
            mouse(361,405,10,10,true);
            wait(3000+random(400));
            z:=1+z
     end else
     if (FindColorSpiralTolerance(x, y, 65536, 36, 28, 471, 328, 50)) then
     begin
        writeln('trying to smelt remander of ore');
        Mouse(x, y, 1, 1, True);
        fflag(1);
        wait(1000+random(500));
        findfurnace
     end
    end;
    Procedure barcheck;
    begin
     if (FindColorSpiralTolerance(x, y, 4810880, 558, 430, 598, 461, 30)) then
     begin
      Smelt
     end
    end;
     
    Procedure walkbank;
     begin
        if (FindColorSpiralTolerance(x, y, 15658734, 686, 50, 700, 73, 30)) then
        begin
         writeln('found 3ed step');
         Mouse(x+5, y+24, 5, 5, True);
         wait(5000+random(1000));
         fflag(10);
        end else
        begin
         writeln('3ed step plan B');
         if (FindColorSpiralTolerance(x, y, 5991027, 683, 78, 692, 107, 30)) then
         begin
          Mouse(x+11, y+9, 5, 5, True);
          wait(5000+random(1000));
          fflag(10);
         end
        end
    end;

    Procedure walkbank2;
     begin
        if (FindColorSpiralTolerance(x, y, 6254199, 684, 107,688, 125, 50)) then
        begin
         writeln('found 4th step');
         Mouse(x, y, 5, 5, True);
         wait(4000+random(1000));
         fflag(10);
        end else
        begin
        if (FindColorSpiralTolerance(x, y, 15791859, 669, 70,695, 85, 50)) then
        begin
         writeln('found 4th step');
         Mouse(x+14, y+25, 5, 5, True);
         wait(4000+random(1000));
         fflag(10);
        end
       end
    end;

    Procedure searchbank;
    begin
     SymbolAccuracy := 0.3;
     if (FindSymbol(x, y, 'bank')) then
     begin
           SymbolAccuracy := 0.8;
           Mouse(x-10, y, 5, 5, True);
           Writeln('Found the bank symbol');
           fflag(8);
     if (FindColorSpiralTolerance(x, y, 7519179, 9, 65, 238, 321, 20)) then
           Mouse(x+60, y+20, 5, 5, True);
     end else Writeln('Could not find bank symbol');
           SymbolAccuracy := 0.8;
           wait(1000+random(1000));
    end;

    Procedure enterbank;
    begin
     wait(1500);
     OpenBankQuiet('feb');
     if (FindColorSpiralTolerance(x, y, 1908609, 283, 300, 337, 325, 30)) then
     begin
           wait(1000);
           deposit(1,1,true);
     end else Writeln('Could not open bank');
           mouse(195,236,2,2,true)
           OpenBankQuiet('feb');
           wait(1000);
           deposit(1,1,true);
    end;

    begin
      SetupSRL;
      clearvar;
      repeat;
           startbank;
           checkbank
           walksmelter;
           walksmelter2;
           findfurnace;
           repeat;
                  smelt;
           until(z=6)
           barcheck;
           walkbank;
           walkbank2;
           searchbank;
           enterbank;
      until(a=20)
    end.

  15. #15
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No problem. I also wrote a new tutorial for DTMs. I really think that you can't help but learn how if you read it. Yea DTMs are not really great for map walking except for finding a bank lol. That is really all I ever use them for on the minimap. The link to my new tut is:

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

  16. #16
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice thanks a lot dusk412. I will try to incorporate some dtms into my script, so i can get the hang of it. your tut helped me out a lot.

  17. #17
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No problem, if you have any other questions feel free to ask. Oh and if you think there needs to be a new tutorial on something ask me cuz I am looking for something to make a new one on .

  18. #18
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Maybe you guys can help me with this. I did a little bit of looking around on this forum and i got some ideas but none that are really viable. It seems like everyone is running into the same problem of not being able to transfuse the money from their bot to their main. so what i was going to do was go out in the wild kill my bot after my bot attacks me. Once the bot dies take the money and go one my way. Well i brought them both out into the right zone so i should be able to attack one and i couldn't attack my bot it just wouldn't let me. so i defriended them and tried to kill it again. still no option to do it. Anyone know what i am doing wrong and how i might be able to just kill my bloody bot and take the money.
    thanks a lot
    AUT

  19. #19
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you entirely miss all the new updates. You cannot pk anymore anywhere except the bounty hunter area (i believe) and anyways if there is a drop of more than 3k then it disappears

  20. #20
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol i guess i missed that one. I just started playing runscape again after like 6 years of not playing it and back then it was a lot different. might i say a little better. this whole bullshit about not being able to trade more then 3000 seems a bit crazy. o well thats how it is, I do like the GE though. thanks once a gain dusk for your help

  21. #21
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have been going crazy with this problem. I have looked around for help on the forums but maybe i am not asking the right question. here is my problem. I know for every beginning you need and end; but what does an else end count as do you need a beginning for that one? if so here is a little section of my script when ever i run it it just keeps coming back Identifier expected on the line where else end is.
    SCAR Code:
    Procedure getore;
    Begin
        If(mith=1)then
        Begin
           mithDTM:=DTMFromString('78DA634C606060F06300036608C5E0ED53C02' +
           '002A41981F83F1030060119EE0C28C0C3CE184C3342F98C2940C2' +
           '91010D30A2AAC903129E04D4A4038950026A228144340135FE402' +
           '218BF1A0092600A9C');
           If(findDTM(mithDTM,x,y,75,58,112,94)) then
           begin
               writeln('mithril ore found');
           else end
           begin
              writeln('no mithril ore found logging out');
           end;
           freeDTM(mithdtm);
        end;
    end;

  22. #22
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    First of all it is end else, not else end . Other than that I think you got it. I rewrote it for you here.
    SCAR Code:
    Procedure getore;
    Begin
      If(mith=1)then
      Begin
        mithDTM:=DTMFromString('78DA634C606060F06300036608C5E0ED53C02' +
           '002A41981F83F1030060119EE0C28C0C3CE184C3342F98C2940C2' +
           '91010D30A2AAC903129E04D4A4038950026A228144340135FE402' +
           '218BF1A0092600A9C');
        If(findDTM(mithDTM,x,y,75,58,112,94)) then
        begin
          writeln('mithril ore found');
        end else
        begin
          writeln('no mithril ore found logging out');
        end;
        freeDTM(mithdtm);
      end;
    end;

  23. #23
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks a lot dusk. I was going crazy trying to figure out what i was doing wrong, and it was just that simple. o well once again thanks.

  24. #24
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I have been trying to use radialwalking as much as i can. I one problem i am having with it though is it clicks a place to walk and then stops for just a sec before it click the next place. with mouse(); i can add a fflag() to make it so the bot doesn't stop between walks. is there a way to do this in radialwalking as well?

  25. #25
    Join Date
    Nov 2007
    Posts
    437
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea it is pretty much the same. FFlag(10) makes it so it is 10 pixels away and then it will go to the next step...

Page 1 of 2 12 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Handle Furnace
    By Richard in forum Research & Development Lounge
    Replies: 15
    Last Post: 05-17-2008, 04:47 PM
  2. Phasmatys Furnace Door
    By benjaa in forum OSR Help
    Replies: 16
    Last Post: 05-17-2008, 01:56 PM
  3. Blast Furnace CokeFiller!
    By drnewheart in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 09-03-2007, 09:18 PM
  4. Furnace color has changed.
    By WT-Fakawi in forum RS has been updated.
    Replies: 9
    Last Post: 05-13-2006, 03:36 PM

Posting Permissions

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