Results 1 to 9 of 9

Thread: Need help with a quick question

  1. #1
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help with a quick question

    i am trying to get 99 firemakeing and i have a script for it but every time i go to turn it on i get a error. (Failed when compiling, Line 175: [Error] (175:1) : Unknown identifier 'direction' in script)

    i have no idea what to type in there but on that line alredy there is (Direction:='SE' i tryed typing in other directions like n,s,w,e and it still says the same thing.

    plz help me i dont whana have to burn 114k willows

  2. #2
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Post the script please?
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  3. #3
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default this is the script

    var
    a, b, TotalDone, UpDown, time1 : integer;
    ALog, burn, cant, time2, time3, attempt : integer;
    NoMoreLogs, FirstTime, stoppingscript : boolean;
    expgetting : extended;
    TheStatus : string;
    const
    MiniWater = 10386796 ;//The stream east of the bank
    WaterSymbol = 10386795 ;//The water symbol on the minimap
    BankSymbol = 3984354 ;//The bank symbol color of the bank
    UserName = '' ;//Your username
    Password = '' ;//Your password
    TotalNeeded = 557 ;//Total Amount of logs
    TinderBox = 9605789 ;//The color of the tinerbox in your inventory (sorta grey)

    TypeofLog = 2 ;//0 is normal, 1 is oak, 2 is willow,
    //3 is maple, 4 is yew and 5 is magic

    Lamp = 'Prayer' ;//The skill you wish to train when a lamp comes


    //DEBUG//
    LogWait = 1 ;//Only change if you seem to be dropping logs and not burning them.
    //Its the ammount of seconds to wait between logs (1 is the default value)
    /////////

    procedure LoadPics;
    begin
    ALog := BitmapFromString(34, 7,
    '0000000000000000000000009D6B399867378E613383582E7 9522A' +
    'B07000B88015B07000A87011A86800B88015B07000B0801A3 01F11' +
    '724D28674624604022573C1F50351A3C2815372411301F110 00001' +
    '3020200000000000000000000000000000000000000000000 00000' +
    '0000009D6B39D0A867C09040A87815B87022B88015B88015C 0883A' +
    'B87022A87815B87022C8A04EA87011B070007C552C6746246 04022' +
    '573C1F50351A4630183C2815301F110000013020203020200 00000' +
    '000000000000000000000000000000000000000000000000D 0B078' +
    'B07000B07000A87815B87022B87022C09040A87011B08032C 08018' +
    'C09040B8883FA87011B070006B4926644324573C1F50351A4 63018' +
    '422C18372411301F110000013020200000000000000000000 00000' +
    '000000000000000000000000000000000000C09040A87011A 87011' +
    'B08032B87022A86800C0883AB88015B87022A87011B87022B 0801A' +
    'C0883AA870116F4A266443245C3D1F50351A422C183724113 01F11' +
    '0000013020203020200000000000000000000000000000000 00000' +
    '000000000000000000000000000000B88015A87815B0801AA 87011' +
    'B08032A87011B08032C08018573C1FB07000A87011B0801AC 8A04E' +
    'B07000C0801850351A422C183C28153724112A1D0D0000013 02020' +
    '0000000000000000000000000000000000000000000000000 00000' +
    '000000000000000000D0A867A87815C0883AB08032C8A04EA 87011' +
    'A87011B07000C09040B88015A87011B87022B08032B87022B 87022' +
    'B07000B0801A3C2815301F110000013020203020200000000 00000' +
    '0000000000000000000000000000000000000000000000000 00000' +
    '000000000000000000B87022B87022C0883AB0801AB08032A 87815' +
    'C8A04EB07000B0801AB87022B8883FB08032A87011A87815B 07000' +
    'C090402A1D0D0000013020200000000000000000000000000 00000' +
    '000000000000000000000000');
    attempt := BitmapFromString(15, 7,
    'BAAB8ABAAB8ABAAB8AB9A581B9A581B9A581B9A581000000B 9A581' +
    'B9A581B9A581B9A581000000B9A581B9A581BBAE920000000 00000' +
    '000000BAAB8ABAAB8AB9A581000000000000000000B9A581B 9A581' +
    '000000000000000000000000BAAB8ABAAB8ABAAB8A000000B 9A581' +
    'B9A581000000BAAB8AB9A581B9A581B9A581000000B9A581B 9A581' +
    'BBAE92000000000000000000000000B9A581B9A581000000B 9A581' +
    'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8AB AAB8A' +
    'B9A581000000B9A581BAAB8A000000B9A581B9A581B9A581B 9A581' +
    '000000B9A581B9A581000000B9A581B9A581BAAB8A000000B AAB8A' +
    'BAAB8A000000BAAB8AB9A581BAAB8ABAAB8A000000BAAB8AB AAB8A' +
    'BAAB8A000000000000000000000000BAAB8ABAAB8ABAAB8A0 00000' +
    '000000B9A581BAAB8AB9A581000000000000');
    Cant := BitmapFromString(24, 11,
    'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB9A581B AAB8A' +
    'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB AAB8A' +
    'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A000000BAAB8AB AAB8A' +
    'BAAB8ABBAE92BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB AAB8A' +
    'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABAAB8AB AAB8A' +
    'BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8ABBAE92BBAE92B AAB8A' +
    'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB AAB8A' +
    'BAAB8ABBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8AB AAB8A' +
    '000000BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB AAB8A' +
    'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8AB BAE92' +
    'BAAB8ABBAE92BAAB8ABBAE92BAAB8ABAAB8A000000BAAB8AB AAB8A' +
    'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB AAB8A' +
    'BBAE92BBAE92BBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8AB AAB8A' +
    'BAAB8ABAAB8ABAAB8A000000BAAB8A000000000000BAAB8AB 9A581' +
    'B9A581BAAB8A000000000000000000BBAE92BBAE92BBAE920 00000' +
    'BBAE92000000BBAE92BAAB8ABBAE92000000000000000000B AAB8A' +
    '000000000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000B AAB8A' +
    'BAAB8ABBAE92000000BBAE92BBAE92000000000000BBAE92B BAE92' +
    'BBAE92000000BBAE92BAAB8ABAAB8A000000000000BAAB8AB AAB8A' +
    'BAAB8A000000BAAB8ABAAB8A000000BAAB8ABBAE92BAAB8A0 00000' +
    'BAAB8ABBAE92000000BBAE92BBAE92BBAE92BBAE92000000B AAB8A' +
    'BAAB8ABAAB8A000000000000BAAB8ABAAB8ABAAB8A000000B AAB8A' +
    'BBAE92000000000000000000000000BAAB8ABAAB8ABAAB8A0 00000' +
    'BAAB8ABAAB8ABAAB8ABAAB8A000000000000000000000000B 9A581' +
    '000000BAAB8ABBAE92BAAB8A000000BAAB8ABBAE92000000B BAE92' +
    'BBAE92BBAE92BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8AB AAB8A' +
    'BBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8AB AAB8A' +
    'BAAB8A000000BAAB8ABAAB8ABBAE920000000000000000000 00000' +
    'BBAE92BBAE92000000BBAE92BBAE92BBAE92BAAB8ABBAE920 00000' +
    '000000000000000000');
    Burn := BitmapFromString(8, 10,
    '000000B29975B29975B29975B29975B29975B9A581B9A5810 00000' +
    'B9A581B9A581B29975B29975B29975B29975B29975000000B 9A581' +
    'B9A581B9A581B29975B29975B9A581B9A581000000B9A581B 29975' +
    'B29975B29975B9A581B29975B29975000000000000000000B 29975' +
    'B29975B29975B29975000000000000B9A581B29975000000B 29975' +
    'B29975B29975000000000000B29975B29975B29975000000B 29975' +
    'B29975000000000000B29975B29975B29975000000B29975B 29975' +
    '000000000000B29975B9A581B9A581000000B9A581B9A5810 00000' +
    '000000000000000000000000B9A581B9A581B9A581B9A581' )
    end;

    procedure DeadHandler;
    begin
    writeln('');
    writeln('');
    writeln('You Are Dead');
    writeln('');
    writeln('');
    stoppingscript:=true;
    end;

    procedure ChangeReport;
    var
    str1 : string;
    int1, seconds, minits, hours : integer;
    begin
    seconds:=(getsystemtime-time1)/1000;
    minits:=0;
    hours:=0;
    while(seconds>59)do
    begin
    seconds:=seconds-60;
    minits:=minits+1;
    end;
    while(minits>59)do
    begin
    minits:=minits-60;
    hours:=hours+1;
    end;
    str1:=floattostr(expgetting*totaldone);
    int1:=pos('.',str1);
    str1:=copy(str1,1,int1+2);
    if(firsttime=false) then
    begin
    clearreport;
    addtoreport('Hello ' + username + ' this is the status so far');
    addtoreport('FireMaker Deluxe by Squigglyo');
    addtoreport('***********************');
    addtoreport('Currently: '+ (TheStatus));
    addtoreport('Flamed: '+inttostr(TotalDone)+' logs');
    addtoreport('XP Gained: '+str1);
    addtoreport(inttostr(TotalNeeded - TotalDone) + ' logs to Go');
    addtoreport('Worked for: ' + inttostr(hours) + ' Hours and ' + inttostr(minits) + ' Minutes');
    end
    else
    begin
    clearreport;
    addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
    addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
    addtoreport('');
    addtoreport('This is a free program so this should never be sold');
    addtoreport('I hope you enjoy using this, check out my other scripts too');
    addtoreport('');
    addtoreport('Currently - ' + (TheStatus));
    end;
    end;

    procedure OutOfBank;
    var
    a1, c, a2 : integer;
    begin
    TheStatus:=('Out of Bank');
    Status(TheStatus);
    ChangeReport;
    Direction:='SE';
    repeat
    findrandoms;
    if(fightfound=true)then
    begin
    MouseC(random(5)+670,random(5)+110,1);
    MapFlagging;
    end;
    findcolor(a,b,BankSymbol,555,5,725,155);
    a2:=a
    a:=a+random(10)+50;
    b:=b-random(10)-20;
    a1:=a;
    c:=0;
    repeat
    a1:=a1-random(3);
    if(similarcolors(getcolor(a1,b),15528686,50))or(si milarcolors(getcolor(a1,b),2105598,100))then
    begin
    a1:=a;
    b:=b-5-random(2);
    end;
    if(b<20)then
    begin
    findcolor(a,b,banksymbol,555,5,725,155);
    a1:=a;
    c:=c+1;
    a:=a+random(10)+50;
    b:=b-random(10)-20;
    if(c=10)then
    begin
    writeln('')
    writeln('')
    writeln('Got lost leaving the bank')
    writeln('')
    writeln('')
    stoppingscript:=true;
    exit;
    end;
    end;
    wait(1);
    until(a1<(a2-25));
    MouseC(a,b,1);
    wait(500+random(100));
    until(findbitmaptolerancein(RunescapeFlag,a,b,550, 5,735,160,100))or(findbitmaptolerancein(RunescapeF lag2,a,b,550,5,735,160,100))
    MapFlagging;
    wait(random(300)+800);
    end;

    procedure BackToBank;
    var
    c : integer;
    begin
    TheStatus:=('Back to the Bank');
    Status(TheStatus);
    ChangeReport;
    Direction:='S'
    FindRandoms;
    c:=0;
    while(findcolor(a,b,Banksymbol,555,5,735,155)=fals e)do
    begin
    a:=random(35)+645;
    b:=random(75)+85;
    MouseC(a,b,1);
    wait(random(300)+300);
    MapFlagging;
    if(c=5)then
    begin
    writeln('');
    writeln('');
    writeln('Lost way to the bank');
    writeln('');
    writeln('');
    TheStatus:=('Lost way to the bank');
    Status(TheStatus);
    ChangeReport;
    stoppingscript:=true;
    exit;
    end;
    c:=c+1;
    end;
    c:=0;
    repeat
    findcolor(a,b,BankSymbol,555,5,735,155);
    MouseC(a+random(10),b+random(10),1);
    c:=c+1;
    if(c=25)then
    begin
    writeln('');
    writeln('');
    writeln('Lost way to the bank');
    writeln('');
    writeln('');
    stoppingscript:=true;
    exit;
    end;
    until(findbitmaptolerancein(RunescapeFlag,a,b,560, 5,735,165,100))or(findbitmaptolerancein(RunescapeF lag2,a,b,560,5,735,165,100));
    wait(random(300)+300);
    MapFlagging;
    end;

    procedure MoveUp;
    var
    c : integer;
    begin
    TheStatus:='Moving back to the bank';
    Status(TheStatus);
    ChangeReport;
    c:=0
    if(findcolor(a,b,WaterSymbol,555,5,735,160))and(fi ndcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
    c:=c+1;
    mouseC(475+random(5),260+random(5),1);
    wait(random(300)+500);
    MapFlagging;
    if(c=25)then
    begin
    stoppingscript:=true;
    writeln('');
    writeln('');
    writeln('Lost way to the bank');
    writeln('');
    writeln('');
    exit;
    end;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
    c:=0;
    if(findcolor(a,b,MiniWater,640,5,735,160))and(find color(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
    if(c=25)then
    begin
    stoppingscript:=true;
    writeln('');
    writeln('');
    writeln('Lost way to the bank');
    writeln('');
    writeln('');
    exit;
    end;
    c:=c+1;
    MouseC(random(10)+120,random(10)+100,1);
    wait(random(300)+500);
    MapFlagging;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
    c:=0;
    if(findcolor(a,b,MiniWater,555,5,735,160))and(find color(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
    if(c=25)then
    begin
    stoppingscript:=true;
    writeln('');
    writeln('');
    writeln('Lost way to the bank');
    writeln('');
    writeln('');
    exit;
    end;
    c:=c+1;
    MouseC(random(10)+120,random(10)+100,1);
    wait(random(300)+500);
    MapFlagging;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
    c:=0
    if(findcolor(a,b,MiniWater,555,5,735,160)=false)an d(findcolor(a,b,WaterSymbol,555,5,735,160)=false)a nd(findcolor(a,b,BankSymbol,555,5,735,160)=false)t hen
    repeat
    c:=c+1
    MouseC(random(10)+640,random(10)+115,1);
    MapFlagging;
    begin
    Writeln('');
    writeln('');
    Writeln('Lost way to the bank');
    Writeln('');
    writeln('');
    stoppingscript:=true;
    exit;
    end;
    until(findcolor(a,b,BankSymbol,555,5,736,160))or(g etcolor(467,286)=65535)
    c:=0
    if(getcolor(467,286)=65535)then
    repeat
    mousec(675+random(10),115+random(10),1);
    MapFlagging;
    c:=c+1
    if(c=20)then
    begin
    Writeln('');
    writeln('');
    Writeln('Lost way to the bank');
    Writeln('');
    writeln('');
    stoppingscript:=true;
    exit;
    end;
    until(findcolor(a,b,banksymbol,555,5,735,160));
    repeat
    c:=c+1
    findcolor(a,b,banksymbol,555,5,735,160)
    MouseC(a+random(10),b+random(10),1);
    if(c=25)then
    begin
    stoppingscript:=true;
    writeln('');
    writeln('');
    writeln('Lost way to the bank');
    writeln('');
    writeln('');
    exit;
    end;
    wait(random(200)+400);
    until(findbitmaptolerancein(Runescapeflag,a,b,555, 5,735,160,100));
    MapFlagging;
    a:=random(10)+575;
    b:=random(10)+215;
    MouseC(a,b,2);
    wait(random(300)+300);
    MouseC(a+random(10),b+random(3)+52,1);
    wait(random(200)+200);
    OutOfBank;
    end;

    procedure FireMaking;
    var
    color1, color2, color3, c : integer;
    begin
    TheStatus:='Making Fires';
    Status(TheStatus);
    Direction:= 'SE'
    MouseC(random(10)+570,random(10)+225,0);
    if(IsTextAt2(9,9,'Use T',100)=false)then
    begin
    writeln('');
    writeln('');
    writeln('Couldnt find the tinerbox in your inventory');
    writeln('');
    writeln('');
    stoppingscript:=true;
    exit;
    end;
    repeat
    c:=0;
    Color1:=getcolor(262,57);
    Color2:=getcolor(416,56);
    Color3:=getcolor(63,182);
    FindRandoms;
    if(fightfound=true)then
    begin
    MoveUp;
    exit;
    end;
    if(IsDead=true)then
    Exit;
    UseItem(1,1);
    wait(random(500)+1000);
    TheStatus:=('Finding the Log')
    Status(TheStatus);
    ChangeReport;
    if(findbitmaptolerancein(ALog,a,b,560,200,735,460, 100)=false)then
    begin
    Exit;
    end;
    MouseC(a+random(10)+5,b-random(10),1);
    wait(random(500)+500);
    repeat
    c:=c+1;
    wait(10);
    if(findbitmaptolerancein(cant,a,b,13,413,173,435,1 00)=true)then wait(1000);
    if(findbitmaptolerancein(cant,a,b,13,413,173,435,1 00)=true)then
    begin
    MoveUp;
    if(stoppingscript=true)then
    exit;
    C:=150;
    end;
    Findrandoms;
    if(fightfound=true)then
    begin
    MoveUp;
    c:=150;
    end;
    until(c=150)or(findbitmaptolerancein(attempt,a,b,4 0,410,70,430,100))
    if(c<>150)then
    begin
    c:=0;
    repeat
    Findrandoms;
    if(RandomTalked=true)or(fightFound=true)then
    MoveUp;
    wait(100);
    c:=c+1
    until(c=30)or((findbitmaptolerancein(burn,a,b,233, 415,249,431,100))and((color1<>getcolor(262,57))or( color2<>getcolor(416,56))or(Color3<>getcolor(63,18 2))));
    end;
    wait(random(300)+(LogWait*1000));
    until(NoMoreLogs=True);
    wait(random(300)+300);
    end;

    procedure GetMoreLogs;
    begin
    TheStatus:=('Getting more Logs');
    Status(TheStatus);
    ChangeReport;
    WithDraw(1,1,0);
    CloseBank;
    end;

    procedure FirstTime1;
    begin
    addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
    addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
    addtoreport('');
    addtoreport('This is a free program so this should never be sold');
    addtoreport('I hope you enjoy using this, check out my other scripts too');
    writeln('');
    writeln('Thank you for using Squigglyo"s FireMaker Deluxe')
    writeln('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
    writeln('');
    writeln('');
    writeln('This is a free program so this should never be sold');
    writeln('I hope you enjoy using this, check out my other scripts too');
    writeln('');
    end;

    procedure GetExp;
    begin
    if(typeoflog=0)then
    expgetting:=40;
    if(typeoflog=1)then
    expgetting:=60;
    if(typeoflog=2)then
    expgetting:=90;
    if(typeoflog=3)then
    expgetting:=135;
    if(typeoflog=4)then
    expgetting:=202.5;
    if(typeoflog=5)then
    expgetting:=303.75;
    end;

    procedure DepositStuff;
    var
    q, w, c, d : integer;
    begin
    repeat
    TheStatus:='Putting Stuff in the Bank';
    Status(TheStatus);
    ChangeReport;
    q:=1;
    a:=random(10)+580;
    b:=random(10)+255;
    MoveMouseSmoothEx(a,b,1,6,15,20,20);
    repeat
    wait(random(10)+5);
    b:=b+random(10);
    MoveMouseSmoothEx(a,b,1,6,15,20,20);
    if(b>455)then
    begin
    b:=210;
    if(q=1)then
    a:=random(2)+625;
    if(q=2)then
    a:=random(2)+670;
    if(q=3)then
    a:=random(2)+710;
    MoveMouseSmoothEx(a,b,1,6,15,20,20);
    q:=q+1;
    if(q=4)then
    exit;
    end;
    until(IsTextAt2(9,9,'Store',100))
    a:=a+5;
    b:=b+5;
    MoveMouseSmoothEx(a,b,1,6,15,20,20);
    wait(random(500)+500);
    clickmouse(a,b,false);
    wait(random(500)+500);
    w:=0;
    repeat
    w:=w+1;
    wait(100);
    until(findbitmaptolerancein(AllText,c,d,535,170,75 0,475,100))or(w=50);
    if(w<50)then
    begin
    MoveMouseSmoothEx(c+random(10),d+random(3)+3,1,6,1 5,20,20);
    wait(random(250)+500);
    clickmouse(c,d,true);
    wait(random(250)+500);
    a:=random(10)+580;
    b:=random(10)+255;
    wait(random(500)+1000);
    end;
    until(q=4);
    end;


    begin
    SetupSquig;
    a:=0;
    Loadchars('');
    clearReport;
    UpDown:=1;
    StoppingScript:=false;
    time1:=getsystemtime;
    time2:=((time1/1000)/60)+random(100)+423;
    user:=username;
    pass:=password;
    FindRandoms;
    NoMoreLogs:=False;
    FirstTime1;
    OpenBag;
    FirstTime:=true;
    LoadPics;
    GetExp;
    SetChat;
    If(IsDead=true)then
    DeadHandler;
    a:=random(10)+570;
    b:=random(10)+215;
    MouseC(a,b,0);
    if(istextat2(9,9,'Use T',100)=false)then
    begin
    writeln('');
    writeln('');
    writeln('Couldnt find the tinderbox');
    writeln('');
    writeln('');
    stoppingscript:=true;
    end;
    MouseC(a,b,2);
    wait(random(100)+800);
    MouseC(a+random(10),b+random(5)+52,1);
    repeat
    if(stoppingscript=true)then
    break;
    OutofBank;
    If(IsDead=true)then
    DeadHandler;
    if(stoppingscript=true)then
    break;
    FirstTime:=false;
    FireMaking;
    If(IsDead=true)then
    DeadHandler;
    if(stoppingscript=true)then
    break;
    NoMoreLogs:=False;
    FindRandoms;
    BackToBank;
    If(IsDead=true)then
    DeadHandler;
    if(stoppingscript=true)then
    break;
    FindRandoms;
    TotalDone:=TotalDone+27;
    if((TotalDone+1)>TotalNeeded)then
    exit;
    a:=0;
    while(OpenBank=false)do
    begin
    a:=a+1;
    BackToBank;
    if(a=5)then
    begin
    writeln('');
    writeln('');
    writeln('Lost way to the bank');
    writeln('');
    writeln('');
    Break;
    end;
    end;
    DepositStuff;
    GetMoreLogs;
    FindRandoms;
    if((((getsystemtime-time1)/1000)/60)>time2)then
    begin
    a:=random(4);
    writeln('');
    writeln('');
    time3:=(getsystemtime-time1);
    if(a=0)then
    begin
    writeln('Taking a 5 minit break');
    wait(random(120000)+300000);
    writeln('');
    writeln('');
    end;
    if(a=1)then
    begin
    writeln('Taking a 10 minit break');
    wait(random(150000)+600000);
    writeln('');
    writeln('');
    end;
    if(a=2)then
    begin
    writeln('Taking a 20 minit break');
    wait(random(300000)+1200000);
    writeln('');
    writeln('');
    end;
    if(a=3)then
    begin
    writeln('Taking a 30 minit break');
    wait(random(600000)+1800000);
    writeln('');
    writeln('');
    end;
    if(a=4)then
    begin
    writeln('Taking a 45 minit break');
    wait(random(750000)+2700000);
    writeln('');
    writeln('');
    end;
    if(a=5)then
    begin
    writeln('Taking an hour break');
    wait(random(90000)+3600000);
    writeln('');
    writeln('');
    end;
    Login;
    time1:=getsystemtime+time3;
    time2:=((time1/1000)/60)+random(100)+423;
    end;
    if(loggedin=false)then
    Login;
    until(TotalNeeded<=TotalDone)or(stoppingscript=tru e);
    Logout;
    end.

  4. #4
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Can you please put it into scar tags. type this.

    [SCAR] [/ SCAR]

    pASTE THE script between the two [SCAR] Things then take out the space in the [/ SCAR]

    Edit: OMG this script is super outdated. Try and find another one. This was back when Squigglyo still scripted. A year or two ago.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  5. #5
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default like this

    SCAR Code:
    var
      a, b, TotalDone, UpDown, time1 : integer;
      ALog, burn, cant, time2, time3, attempt : integer;
      NoMoreLogs, FirstTime, stoppingscript : boolean;
      expgetting : extended;
      TheStatus : string;
    const
      MiniWater = 10386796         ;//The stream east of the bank
      WaterSymbol = 10386795   ;//The water symbol on the minimap
      BankSymbol =  3984354    ;//The bank symbol color of the bank
      UserName = ''    ;//Your username
      Password = ''    ;//Your password
      TotalNeeded = 557       ;//Total Amount of logs
      TinderBox = 9605789     ;//The color of the tinerbox in your inventory (sorta grey)

      TypeofLog = 2            ;//0 is normal, 1 is oak, 2 is willow,
      //3 is maple, 4 is yew and 5 is magic

      Lamp = 'Prayer' ;//The skill you wish to train when a lamp comes


      //DEBUG//
      LogWait =    1           ;//Only change if you seem to be dropping logs and not burning them.
                               //Its the ammount of seconds to wait between logs (1 is the default value)
      /////////

    procedure LoadPics;
    begin
      ALog := BitmapFromString(34, 7,
           '0000000000000000000000009D6B399867378E613383582E79522A' +
           'B07000B88015B07000A87011A86800B88015B07000B0801A301F11' +
           '724D28674624604022573C1F50351A3C2815372411301F11000001' +
           '302020000000000000000000000000000000000000000000000000' +
           '0000009D6B39D0A867C09040A87815B87022B88015B88015C0883A' +
           'B87022A87815B87022C8A04EA87011B070007C552C674624604022' +
           '573C1F50351A4630183C2815301F11000001302020302020000000' +
           '000000000000000000000000000000000000000000000000D0B078' +
           'B07000B07000A87815B87022B87022C09040A87011B08032C08018' +
           'C09040B8883FA87011B070006B4926644324573C1F50351A463018' +
           '422C18372411301F11000001302020000000000000000000000000' +
           '000000000000000000000000000000000000C09040A87011A87011' +
           'B08032B87022A86800C0883AB88015B87022A87011B87022B0801A' +
           'C0883AA870116F4A266443245C3D1F50351A422C18372411301F11' +
           '000001302020302020000000000000000000000000000000000000' +
           '000000000000000000000000000000B88015A87815B0801AA87011' +
           'B08032A87011B08032C08018573C1FB07000A87011B0801AC8A04E' +
           'B07000C0801850351A422C183C28153724112A1D0D000001302020' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000D0A867A87815C0883AB08032C8A04EA87011' +
           'A87011B07000C09040B88015A87011B87022B08032B87022B87022' +
           'B07000B0801A3C2815301F11000001302020302020000000000000' +
           '000000000000000000000000000000000000000000000000000000' +
           '000000000000000000B87022B87022C0883AB0801AB08032A87815' +
           'C8A04EB07000B0801AB87022B8883FB08032A87011A87815B07000' +
           'C090402A1D0D000001302020000000000000000000000000000000' +
           '000000000000000000000000');
      attempt := BitmapFromString(15, 7,
           'BAAB8ABAAB8ABAAB8AB9A581B9A581B9A581B9A581000000B9A581' +
           'B9A581B9A581B9A581000000B9A581B9A581BBAE92000000000000' +
           '000000BAAB8ABAAB8AB9A581000000000000000000B9A581B9A581' +
           '000000000000000000000000BAAB8ABAAB8ABAAB8A000000B9A581' +
           'B9A581000000BAAB8AB9A581B9A581B9A581000000B9A581B9A581' +
           'BBAE92000000000000000000000000B9A581B9A581000000B9A581' +
           'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8ABAAB8A' +
           'B9A581000000B9A581BAAB8A000000B9A581B9A581B9A581B9A581' +
           '000000B9A581B9A581000000B9A581B9A581BAAB8A000000BAAB8A' +
           'BAAB8A000000BAAB8AB9A581BAAB8ABAAB8A000000BAAB8ABAAB8A' +
           'BAAB8A000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
           '000000B9A581BAAB8AB9A581000000000000');
      Cant := BitmapFromString(24, 11,
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB9A581BAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8A' +
           'BAAB8ABBAE92BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8ABBAE92BBAE92BAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
           '000000BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABBAE92' +
           'BAAB8ABBAE92BAAB8ABBAE92BAAB8ABAAB8A000000BAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BBAE92BBAE92BBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8A000000BAAB8A000000000000BAAB8AB9A581' +
           'B9A581BAAB8A000000000000000000BBAE92BBAE92BBAE92000000' +
           'BBAE92000000BBAE92BAAB8ABBAE92000000000000000000BAAB8A' +
           '000000000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8A' +
           'BAAB8ABBAE92000000BBAE92BBAE92000000000000BBAE92BBAE92' +
           'BBAE92000000BBAE92BAAB8ABAAB8A000000000000BAAB8ABAAB8A' +
           'BAAB8A000000BAAB8ABAAB8A000000BAAB8ABBAE92BAAB8A000000' +
           'BAAB8ABBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8A' +
           'BAAB8ABAAB8A000000000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
           'BBAE92000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
           'BAAB8ABAAB8ABAAB8ABAAB8A000000000000000000000000B9A581' +
           '000000BAAB8ABBAE92BAAB8A000000BAAB8ABBAE92000000BBAE92' +
           'BBAE92BBAE92BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A' +
           'BBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8ABAAB8A' +
           'BAAB8A000000BAAB8ABAAB8ABBAE92000000000000000000000000' +
           'BBAE92BBAE92000000BBAE92BBAE92BBAE92BAAB8ABBAE92000000' +
           '000000000000000000');
      Burn := BitmapFromString(8, 10,
           '000000B29975B29975B29975B29975B29975B9A581B9A581000000' +
           'B9A581B9A581B29975B29975B29975B29975B29975000000B9A581' +
           'B9A581B9A581B29975B29975B9A581B9A581000000B9A581B29975' +
           'B29975B29975B9A581B29975B29975000000000000000000B29975' +
           'B29975B29975B29975000000000000B9A581B29975000000B29975' +
           'B29975B29975000000000000B29975B29975B29975000000B29975' +
           'B29975000000000000B29975B29975B29975000000B29975B29975' +
           '000000000000B29975B9A581B9A581000000B9A581B9A581000000' +
           '000000000000000000000000B9A581B9A581B9A581B9A581')
    end;

    procedure DeadHandler;
    begin
      writeln('');
      writeln('');
      writeln('You Are Dead');
      writeln('');
      writeln('');
      stoppingscript:=true;
    end;

    procedure ChangeReport;
    var
      str1 : string;
      int1, seconds, minits, hours : integer;
    begin
      seconds:=(getsystemtime-time1)/1000;
      minits:=0;
      hours:=0;
      while(seconds>59)do
        begin
          seconds:=seconds-60;
          minits:=minits+1;
        end;
      while(minits>59)do
        begin
          minits:=minits-60;
          hours:=hours+1;
        end;
      str1:=floattostr(expgetting*totaldone);
      int1:=pos('.',str1);
      str1:=copy(str1,1,int1+2);
      if(firsttime=false) then
        begin
          clearreport;
          addtoreport('Hello ' + username + ' this is the status so far');
          addtoreport('FireMaker Deluxe by Squigglyo');
          addtoreport('***********************');
          addtoreport('Currently: '+ (TheStatus));
          addtoreport('Flamed: '+inttostr(TotalDone)+' logs');
          addtoreport('XP Gained: '+str1);
          addtoreport(inttostr(TotalNeeded - TotalDone) + ' logs to Go');
          addtoreport('Worked for: ' + inttostr(hours) + ' Hours and ' + inttostr(minits) + ' Minutes');
        end
        else
        begin
          clearreport;
          addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
          addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
          addtoreport('');
          addtoreport('This is a free program so this should never be sold');
          addtoreport('I hope you enjoy using this, check out my other scripts too');
          addtoreport('');
          addtoreport('Currently - ' + (TheStatus));
        end;
    end;

    procedure OutOfBank;
    var
      a1, c, a2 : integer;
    begin
      TheStatus:=('Out of Bank');
      Status(TheStatus);
      ChangeReport;
      Direction:='SE';
      repeat
        findrandoms;
        if(fightfound=true)then
          begin
            MouseC(random(5)+670,random(5)+110,1);
            MapFlagging;
          end;
        findcolor(a,b,BankSymbol,555,5,725,155);
        a2:=a
        a:=a+random(10)+50;
        b:=b-random(10)-20;
        a1:=a;
        c:=0;
        repeat
          a1:=a1-random(3);
          if(similarcolors(getcolor(a1,b),15528686,50))or(similarcolors(getcolor(a1,b),2105598,100))then
            begin
              a1:=a;
              b:=b-5-random(2);
            end;
          if(b<20)then
            begin
              findcolor(a,b,banksymbol,555,5,725,155);
              a1:=a;
              c:=c+1;
              a:=a+random(10)+50;
              b:=b-random(10)-20;
              if(c=10)then
                begin
                  writeln('')
                  writeln('')
                  writeln('Got lost leaving the bank')
                  writeln('')
                  writeln('')
                  stoppingscript:=true;
                  exit;
                end;
            end;
            wait(1);
        until(a1<(a2-25));
        MouseC(a,b,1);
        wait(500+random(100));
      until(findbitmaptolerancein(RunescapeFlag,a,b,550,5,735,160,100))or(findbitmaptolerancein(RunescapeFlag2,a,b,550,5,735,160,100))
      MapFlagging;
      wait(random(300)+800);
    end;

    procedure BackToBank;
    var
      c : integer;
    begin
      TheStatus:=('Back to the Bank');
      Status(TheStatus);
      ChangeReport;
      Direction:='S'
      FindRandoms;
      c:=0;
      while(findcolor(a,b,Banksymbol,555,5,735,155)=false)do
        begin
          a:=random(35)+645;
          b:=random(75)+85;
          MouseC(a,b,1);
          wait(random(300)+300);
          MapFlagging;
          if(c=5)then
            begin
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              TheStatus:=('Lost way to the bank');
              Status(TheStatus);
              ChangeReport;
              stoppingscript:=true;
              exit;
            end;
            c:=c+1;
        end;
      c:=0;
      repeat
        findcolor(a,b,BankSymbol,555,5,735,155);
        MouseC(a+random(10),b+random(10),1);
        c:=c+1;
        if(c=25)then
          begin
            writeln('');
            writeln('');
            writeln('Lost way to the bank');
            writeln('');
            writeln('');
            stoppingscript:=true;
            exit;
          end;
      until(findbitmaptolerancein(RunescapeFlag,a,b,560,5,735,165,100))or(findbitmaptolerancein(RunescapeFlag2,a,b,560,5,735,165,100));
      wait(random(300)+300);
      MapFlagging;
    end;

    procedure MoveUp;
    var
      c : integer;
    begin
      TheStatus:='Moving back to the bank';
      Status(TheStatus);
      ChangeReport;
      c:=0
      if(findcolor(a,b,WaterSymbol,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          c:=c+1;
          mouseC(475+random(5),260+random(5),1);
          wait(random(300)+500);
          MapFlagging;
          if(c=25)then
            begin
              stoppingscript:=true;
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              exit;
            end;
        until(findcolor(a,b,BankSymbol,555,5,735,160));
      c:=0;
      if(findcolor(a,b,MiniWater,640,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          if(c=25)then
            begin
              stoppingscript:=true;
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              exit;
            end;
          c:=c+1;
          MouseC(random(10)+120,random(10)+100,1);
          wait(random(300)+500);
          MapFlagging;
        until(findcolor(a,b,BankSymbol,555,5,735,160));
      c:=0;
      if(findcolor(a,b,MiniWater,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          if(c=25)then
            begin
              stoppingscript:=true;
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              exit;
            end;
          c:=c+1;
          MouseC(random(10)+120,random(10)+100,1);
          wait(random(300)+500);
          MapFlagging;
        until(findcolor(a,b,BankSymbol,555,5,735,160));
        c:=0
      if(findcolor(a,b,MiniWater,555,5,735,160)=false)and(findcolor(a,b,WaterSymbol,555,5,735,160)=false)and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          c:=c+1
          MouseC(random(10)+640,random(10)+115,1);
          MapFlagging;
          begin
            Writeln('');
            writeln('');
            Writeln('Lost way to the bank');
            Writeln('');
            writeln('');
            stoppingscript:=true;
            exit;
          end;
        until(findcolor(a,b,BankSymbol,555,5,736,160))or(getcolor(467,286)=65535)
      c:=0
      if(getcolor(467,286)=65535)then
        repeat
          mousec(675+random(10),115+random(10),1);
          MapFlagging;
          c:=c+1
          if(c=20)then
            begin
              Writeln('');
              writeln('');
              Writeln('Lost way to the bank');
              Writeln('');
              writeln('');
              stoppingscript:=true;
              exit;
            end;
        until(findcolor(a,b,banksymbol,555,5,735,160));
      repeat
        c:=c+1
        findcolor(a,b,banksymbol,555,5,735,160)
        MouseC(a+random(10),b+random(10),1);
        if(c=25)then
          begin
            stoppingscript:=true;
            writeln('');
            writeln('');
            writeln('Lost way to the bank');
            writeln('');
            writeln('');
            exit;
          end;
        wait(random(200)+400);
      until(findbitmaptolerancein(Runescapeflag,a,b,555,5,735,160,100));
      MapFlagging;
      a:=random(10)+575;
      b:=random(10)+215;
      MouseC(a,b,2);
      wait(random(300)+300);
      MouseC(a+random(10),b+random(3)+52,1);
      wait(random(200)+200);
      OutOfBank;
    end;

    procedure FireMaking;
    var
      color1, color2, color3, c : integer;
    begin
      TheStatus:='Making Fires';
      Status(TheStatus);
      Direction:= 'SE'
      MouseC(random(10)+570,random(10)+225,0);
      if(IsTextAt2(9,9,'Use T',100)=false)then
        begin
          writeln('');
          writeln('');
          writeln('Couldnt find the tinerbox in your inventory');
          writeln('');
          writeln('');
          stoppingscript:=true;
          exit;
        end;
      repeat
        c:=0;
        Color1:=getcolor(262,57);
        Color2:=getcolor(416,56);
        Color3:=getcolor(63,182);
        FindRandoms;
        if(fightfound=true)then
          begin
            MoveUp;
            exit;
          end;
        if(IsDead=true)then
          Exit;
        UseItem(1,1);
        wait(random(500)+1000);
        TheStatus:=('Finding the Log')
        Status(TheStatus);
        ChangeReport;
        if(findbitmaptolerancein(ALog,a,b,560,200,735,460,100)=false)then
          begin
            Exit;
          end;
        MouseC(a+random(10)+5,b-random(10),1);
        wait(random(500)+500);
        repeat
          c:=c+1;
          wait(10);
          if(findbitmaptolerancein(cant,a,b,13,413,173,435,100)=true)then wait(1000);
            if(findbitmaptolerancein(cant,a,b,13,413,173,435,100)=true)then
              begin
                MoveUp;
                if(stoppingscript=true)then
                  exit;
                  C:=150;
              end;
            Findrandoms;
            if(fightfound=true)then
              begin
                MoveUp;
                c:=150;
              end;
        until(c=150)or(findbitmaptolerancein(attempt,a,b,40,410,70,430,100))
        if(c<>150)then
          begin
          c:=0;
            repeat
              Findrandoms;
              if(RandomTalked=true)or(fightFound=true)then
                MoveUp;
              wait(100);
              c:=c+1
            until(c=30)or((findbitmaptolerancein(burn,a,b,233,415,249,431,100))and((color1<>getcolor(262,57))or(color2<>getcolor(416,56))or(Color3<>getcolor(63,182))));
          end;
        wait(random(300)+(LogWait*1000));
      until(NoMoreLogs=True);
      wait(random(300)+300);
    end;

    procedure GetMoreLogs;
    begin
      TheStatus:=('Getting more Logs');
      Status(TheStatus);
      ChangeReport;
      WithDraw(1,1,0);
      CloseBank;
    end;

    procedure FirstTime1;
    begin
      addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
      addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
      addtoreport('');
      addtoreport('This is a free program so this should never be sold');
      addtoreport('I hope you enjoy using this, check out my other scripts too');
      writeln('');
      writeln('Thank you for using Squigglyo"s FireMaker Deluxe')
      writeln('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
      writeln('');
      writeln('');
      writeln('This is a free program so this should never be sold');
      writeln('I hope you enjoy using this, check out my other scripts too');
      writeln('');
    end;

    procedure GetExp;
    begin
      if(typeoflog=0)then
        expgetting:=40;
      if(typeoflog=1)then
        expgetting:=60;
      if(typeoflog=2)then
        expgetting:=90;
      if(typeoflog=3)then
        expgetting:=135;
      if(typeoflog=4)then
        expgetting:=202.5;
      if(typeoflog=5)then
        expgetting:=303.75;
    end;

    procedure DepositStuff;
    var
    q, w, c, d : integer;
    begin
      repeat
        TheStatus:='Putting Stuff in the Bank';
        Status(TheStatus);
        ChangeReport;
        q:=1;
        a:=random(10)+580;
        b:=random(10)+255;
        MoveMouseSmoothEx(a,b,1,6,15,20,20);
        repeat
          wait(random(10)+5);
          b:=b+random(10);
          MoveMouseSmoothEx(a,b,1,6,15,20,20);
          if(b>455)then
            begin
              b:=210;
              if(q=1)then
                a:=random(2)+625;
              if(q=2)then
                a:=random(2)+670;
              if(q=3)then
                a:=random(2)+710;
              MoveMouseSmoothEx(a,b,1,6,15,20,20);
              q:=q+1;
              if(q=4)then
                exit;
              end;
        until(IsTextAt2(9,9,'Store',100))
        a:=a+5;
        b:=b+5;
        MoveMouseSmoothEx(a,b,1,6,15,20,20);
        wait(random(500)+500);
        clickmouse(a,b,false);
        wait(random(500)+500);
        w:=0;
        repeat
          w:=w+1;
          wait(100);
        until(findbitmaptolerancein(AllText,c,d,535,170,750,475,100))or(w=50);
        if(w<50)then
          begin
            MoveMouseSmoothEx(c+random(10),d+random(3)+3,1,6,15,20,20);
            wait(random(250)+500);
            clickmouse(c,d,true);
            wait(random(250)+500);
            a:=random(10)+580;
            b:=random(10)+255;
            wait(random(500)+1000);
          end;
      until(q=4);
    end;


    begin
      SetupSquig;
      a:=0;
      Loadchars('');
      clearReport;
      UpDown:=1;
      StoppingScript:=false;
      time1:=getsystemtime;
      time2:=((time1/1000)/60)+random(100)+423;
      user:=username;
      pass:=password;
      FindRandoms;
      NoMoreLogs:=False;
      FirstTime1;
      OpenBag;
      FirstTime:=true;
      LoadPics;
      GetExp;
      SetChat;
      If(IsDead=true)then
        DeadHandler;
      a:=random(10)+570;
      b:=random(10)+215;
      MouseC(a,b,0);
      if(istextat2(9,9,'Use T',100)=false)then
        begin
          writeln('');
          writeln('');
          writeln('Couldnt find the tinderbox');
          writeln('');
          writeln('');
          stoppingscript:=true;
        end;
      MouseC(a,b,2);
      wait(random(100)+800);
      MouseC(a+random(10),b+random(5)+52,1);
      repeat
        if(stoppingscript=true)then
          break;
        OutofBank;
        If(IsDead=true)then
          DeadHandler;
        if(stoppingscript=true)then
          break;
        FirstTime:=false;
        FireMaking;
        If(IsDead=true)then
          DeadHandler;
        if(stoppingscript=true)then
          break;
        NoMoreLogs:=False;
        FindRandoms;
        BackToBank;
        If(IsDead=true)then
          DeadHandler;
        if(stoppingscript=true)then
          break;
        FindRandoms;
        TotalDone:=TotalDone+27;
        if((TotalDone+1)>TotalNeeded)then
          exit;
        a:=0;
        while(OpenBank=false)do
          begin
          a:=a+1;
          BackToBank;
          if(a=5)then
            begin
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              Break;
            end;
          end;
        DepositStuff;
        GetMoreLogs;
        FindRandoms;
        if((((getsystemtime-time1)/1000)/60)>time2)then
          begin
            a:=random(4);
            writeln('');
            writeln('');
            time3:=(getsystemtime-time1);
            if(a=0)then
              begin
                writeln('Taking a 5 minit break');
                wait(random(120000)+300000);
                writeln('');
                writeln('');
              end;
            if(a=1)then
              begin
                writeln('Taking a 10 minit break');
                wait(random(150000)+600000);
                writeln('');
                writeln('');
              end;
            if(a=2)then
              begin
                writeln('Taking a 20 minit break');
                wait(random(300000)+1200000);
                writeln('');
                writeln('');
              end;
            if(a=3)then
              begin
                writeln('Taking a 30 minit break');
                wait(random(600000)+1800000);
                writeln('');
                writeln('');
              end;
            if(a=4)then
              begin
                writeln('Taking a 45 minit break');
                wait(random(750000)+2700000);
                writeln('');
                writeln('');
              end;
            if(a=5)then
              begin
                writeln('Taking an hour break');
                wait(random(90000)+3600000);
                writeln('');
                writeln('');
              end;
            Login;
            time1:=getsystemtime+time3;
            time2:=((time1/1000)/60)+random(100)+423;
          end;
          if(loggedin=false)then
            Login;
      until(TotalNeeded<=TotalDone)or(stoppingscript=true);
      Logout;
    end.

  6. #6
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Perfect, exactly like that. The only problem is that this script is way, way outdated and if used, will most definatly get a you banned. It is 1 or 2 years old. Try and find another one
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  7. #7
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good thing i dident use that. im new to this stuff i just googled firemakeing script and that was the only one that look any good. is there a beter way to find uptodate scripts?

  8. #8
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Yea, get 10 posts, wait 1 week. Then you will have acces to alot more, uptodate, and better scripts.
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  9. #9
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default how would this work

    i am just trying a simple one like this so i can get the hang of things im doing it on a lv 3
    im still geting an error tho(unknow identifier ofhowmeany players in line 2 what would i type here





    [scar] HowManyPlayers := 1; //how many players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0; //current player

    Players[0].Name := ''; //username!
    Players[0].Pass := ''; //password
    Players[0].Nick := 'uga'; //Nick (3-4 letters of ur name
    Players[0].Active := True; //is the player active?

    {Players[1].Name := 'Username'; //username!
    Players[1].Pass := 'password'; //password
    Players[1].Nick := ''; //Nick (3-4 letters of ur name
    Players[1].Active := True; //is the player active?

    Players[2].Name := 'Username'; //username!
    Players[2].Pass := 'password'; //password
    Players[2].Nick := ''; //Nick (3-4 letters of ur name
    Players[2].Active := True; //is the player active? }

    end;

    procedure PreparePlayer;
    begin
    if not LoggedIn then LoginPlayer;
    SetRun(True);
    end;

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    //Anti-ban and randoms //

    procedure AntiRandoms;
    begin
    if not LoggedIn then Exit;
    FindNormalRandoms;
    end;


    procedure AntiBan;
    begin
    if not LoggedIn then Exit;
    case (Random(30)) of
    1: RandomRClick;
    5: HoverSkill('Woodcutting', False);
    11: RandomMovement;
    15: BoredHuman;
    21: DoEmote(400 +Random(90));
    24: PickUpMouse;
    27: begin
    Gametab(1 + Random(12));
    Wait(3000 + Random(2000));
    Gametab(4);
    end;
    30: SleepAndMoveMouse(3600);
    end;
    end;


    procedure KillChicken;
    var
    X, Y, Mark: Integer;
    begin
    FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3);
    Mouse(x, y, 2, 2, False);
    Wait(25 + Random(100));
    if not ChooseOption('ttack') then Exit;
    Flag;
    MarkTime(Mark);
    Wait(2 * 5000 + Random(1000));
    AntiBan;
    AntiRandoms;
    if HPPercent < 25 then RunTo('N', true);
    Wait(300);
    if HPPercent <100 then FindNormalRandoms;
    end;

    //---------->>FEATHER PICKUP MADE BY TheVoiceInYourHead<<-------------------\\


    function PickupFeathers: boolean;
    var
    x, y, FeatherDTM: integer;
    begin
    FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C4 01' +
    'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A 433B' +
    '77A0A80100CAC20B42');
    if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
    begin
    Mouse(x, y, 0, 0, False);
    Wait(250 + Random(150));
    if ChooseOption('eather') then
    begin
    Flag;
    Result := True;
    end;
    end;
    end;

    procedure MainLoop;
    var
    Mark : Integer;
    begin
    repeat
    MarkTime(Mark);
    repeat
    if not LoggedIn then Exit;
    KillChicken;
    PickupFeathers;
    until((TimeFromMark(Mark) / 10000 * 60) >= 50); //60 minutes
    until(False);
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    PreparePlayer;
    MainLoop;
    end.[/ SCAR]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Just a quick question? Did I say quick?
    By SeanJohn in forum OSR Help
    Replies: 3
    Last Post: 01-28-2009, 12:03 AM
  2. Quick question
    By GinFoxface in forum OSR Help
    Replies: 2
    Last Post: 04-07-2007, 04:25 AM
  3. Quick Question
    By mage of begu in forum OSR Help
    Replies: 10
    Last Post: 01-12-2007, 10:48 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
  •