Results 1 to 4 of 4

Thread: iam new to scirpts and i need a little help

  1. #1
    Join Date
    Feb 2009
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default iam new to scirpts and i need a little help

    ok.. i found this script what do i need to fill out?program willows;

    {.include srl/srl/misc/smart.scar}
    {.include srl/srl.scar}

    const
    treecolor=5341817;
    entcolor=514778;
    symbolcolor=10089719;

    var
    x, y, dud, time, elapse, loads, h ,m ,s:integer;

    procedure randoms;
    begin
    findnormalrandoms;
    if findfight=true then
    begin
    runaway('E',true,1,5000+random(1000));
    end;
    end;

    procedure bank;
    begin
    if loggedin=false then
    begin
    exit;
    end;
    randoms;
    if random(10)=0 then
    begin
    hoverskill('woodcutting',false);
    end;
    makecompass('n');
    if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2, MMY2,40) then
    begin
    mouse(x-3,y-3,2,2,true);
    time:=gettimerunning+13000+random(2000);
    repeat
    wait(100);
    randoms;
    until((gettimerunning>time) or (flagpresent=false))
    randoms;
    repeat
    openbank('db',false,false);
    wait(100);
    randoms;
    until((bankscreen=true) or (loggedin=false))
    if bankscreen=true then
    begin
    deposit(2,28,true);
    wait(100+random(100));
    closebank;
    loads:=loads+1;
    converttime(gettimerunning,h,m,s);
    writeln('#### progress ####');
    writeln('#### time: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s));
    writeln('#### loads: ' + inttostr(loads));
    writeln('##################');
    end;
    end;
    wait(100+random(100));
    end;

    procedure omfg_ent;
    begin
    makecompass('n');
    mouse(MMCX+10,MMCY+10,2,2,true);
    x:=MSCX;
    y:=MSCY;
    wait(random(100));
    if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2, MMY2,40) then
    begin
    mouse(x-40,y+40,10,10,true);
    time:=gettimerunning+8000+random(2000);
    repeat
    wait(100);
    randoms;
    until((gettimerunning>time) or (flagpresent=false))
    randoms;
    end;
    end;

    procedure chop;
    begin
    makecompass('n');
    if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2, MMY2,40) then
    begin
    mouse(x-40,y+40,10,10,true);
    time:=gettimerunning+8000+random(2000);
    repeat
    wait(100);
    randoms;
    until((gettimerunning>time) or (flagpresent=false))
    randoms;
    end;
    x:=MSCX;
    y:=MSCY;
    repeat
    randoms;
    wait(100);
    if findobjtpa(x,y,treecolor,20,-1,50,50,40,['Chop down Willow']) then
    begin
    mmouse(x,y,0,0);
    wait(100+random(100));
    if findcolortolerance(dud,dud,entcolor,80,10,130,20,4 0)=false then
    begin
    mouse(x,y,2,2,false);
    wait(100+random(100));
    if chooseoption('hop') then
    begin
    if flagpresent=true then
    begin
    time:=gettimerunning+4000+random(1000);
    repeat
    wait(100);
    randoms;
    until((flagpresent=false) or (gettimerunning>time))
    wait(500);
    end else
    begin
    mmouse(x,y,2,2);
    wait(100);
    time:=gettimerunning+20000+random(5000);
    repeat
    wait(100);
    randoms;
    until((startswith('Chop',getuptext)=false) or (invfull=true) or (findcolortolerance(dud,dud,entcolor,80,10,130,20, 40)=true) or (gettimerunning>time))
    if findcolortolerance(dud,dud,entcolor,80,10,130,20,4 0)=true then
    begin
    omfg_ent;
    end;
    end;
    end;
    end else
    begin
    omfg_ent;
    end;
    end else
    begin
    makecompass('n');
    if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2, MMY2,40) then
    begin
    mouse(x-40,y+40,10,10,true);
    time:=gettimerunning+8000+random(2000);
    repeat
    wait(100);
    randoms;
    until((gettimerunning>time) or (flagpresent=false))
    randoms;
    end;
    end;
    until((loggedin=false) or (invfull=true))
    wait(100+random(100));
    end;

    begin
    cleardebug;
    smartsetup('world61',false,true);
    settargetdc(smartgetdc);
    setupsrl;
    activateclient;
    lampskill:='woodcutting';
    howmanyplayers:=3;
    numberofplayers(howmanyplayers);
    players[0].name:='x';
    players[0].pass:='x';
    players[0].nick:='x';
    players[0].active:=true;
    players[0].worked:=0;
    players[1].name:='x';
    players[1].pass:='x';
    players[1].nick:='x';
    players[1].active:=true;
    players[1].worked:=0;
    players[2].name:='x';
    players[2].pass:='x';
    players[2].nick:='x';
    players[2].active:=true;
    players[2].worked:=0;
    currentplayer:=0;
    loads:=0;
    logout;
    closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\ uid.dat',true));
    loginplayer;
    repeat
    setangle(true);
    elapse:=gettimerunning+2700000+random(1800000);
    if invfull=true then
    begin
    bank;
    end;
    repeat
    chop;
    bank;
    until((gettimerunning>elapse) or (loggedin=false))
    logout;
    currentplayer:=currentplayer+1;
    if currentplayer>=howmanyplayers then
    begin
    currentplayer:=0;
    end;
    if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
    begin
    closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\ uid.dat',true));
    loginplayer;
    players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
    end;
    until(false)
    end.

  2. #2
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That script dosen't look really good but to set it up you must find the player array. It will look like Players[0].Name etc.

    Also when posting code, use [SCAR ] tags as it is easier to navigate. The colors also may need a little tweaking but try using the default first .

  3. #3
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Where did you get this script, looks kinda a mess.

    If you post on the thread where you found the script, the user is likely to see it and tell you how to use it.

    For now I'll just tell you that its near the bottom

  4. #4
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 164 if you copy all that into SCAR.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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