Results 1 to 4 of 4

Thread: my first wcer =]

  1. #1
    Join Date
    Mar 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my first wcer =]

    please try and tell me how its work its my first script

  2. #2
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Upload it as a scar file please mate

    Edit:: ACTUALLY WARNING DO NOT DOWNLOAD THIS FILE TILL ITS A SCAR SCRIPT draynor wcer by jonux.rar (481.7 KB, 2 views) compared to Goblin Scheduler 8.00 KB.. There is certianly something in there.

    Downloaded the script and saved it else were it dropped down to 18kb from 480 wow..

    Reported the post..

    If infecting myself to help the community doesnt show dedication i dont no what does.. Yep i turned up a trojan or a keylogger.. Good old avast sturdy as a rock.

  3. #3
    Join Date
    Feb 2007
    Posts
    424
    Mentioned
    0 Post(s)
    Quoted
    16 Post(s)

    Default

    .............
    Last edited by WinterDream; 05-19-2012 at 03:54 PM.

  4. #4
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    {.include SSI2.txt}
    {.include BoxBreaker.txt}

    Old script

    SCAR Code:
    //                                //
    ////////////////////////////////////////////////////////////////////////////////
    //                               SET UP                                       //
    ////////////////////////////////////////////////////////////////////////////////
    //                    //
    // SCAR version 2.02 needed                                                   //
    // V-Bright, developed in high res                                            //
    // Take colors in lines 43-46 (not required, leave at 0 to autopick)          //
    // Set up in lines 59-66                                                      //
    // Start in draynor village                                                   //
    // Start with an axe in first inventory spot                                  //
    // DO NOT WIELD THE AXE i am putting in support for this in the next version  //
    ////////////////////////////////////////////////////////////////////////////////
    //                                Versions                                    //
    ////////////////////////////////////////////////////////////////////////////////
    // Version 1.0, First Release, used osi include                               //
    ////////////////////////////////////////////////////////////////////////////////

    program moparswillowcutterbanker;

    {.include SSI2.txt}
    {.include BoxBreaker.txt}

    const
    //=//===============Colors(Leave as 0 to let script find)==============\=\\
    WillowColor1=2444649;//Colors of Willow leaves in main screen
    WillowColor2=1453629;
    WillowColor3=4147264;
    MMBankColor= 11186596;//Bank symbol color (SS:3060683)
    //=\\=================================================================//=\\
    //=\\        Under the varibles there are more setup options.         //=\\
    //=\\=================================================================//=\\

    var
      BankColor,Report,Report2,TotalOres,Banks,
      IAmLostCount,equipit,DropText,DropTextb:integer;
      NoPick,LogsOut,Chats,EquipPick,Rotates:boolean;

    procedure Setup;
    begin







    //=\\============================Setup================================//=\\
    Username:= 'timmy 292';//Username.
    Password:= 'meonly';//Password.
    LogsOut:= false;//If you want to log out every so often for antiban.
    Chats:= false;//If you want to randomly chat for anti-ban.
    Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
    EquipPick:= false;//do not wield axe in this version
    //=\\=================================================================//=\\
    if(not(EquipPick))then
    equipit:=1;
    end;

    //DO NO TOUCH BELOW

    procedure ProgressReport;
    var
      RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
      Time:String;
    begin
    if(GetSystemTime-report2 > report*60000)then
    begin
      Seconds:=(GetSystemTime-ST) div 1000;
      Minutes:=Seconds div 60;
      RHours:=Minutes div 60;
      Time:=IntToStr(Seconds)+' Seconds';
      avtime:=Seconds/banks;
      if Minutes<>0 then
      begin
       RSeconds:=Seconds Mod (Minutes*60);
       Time:=IntToStr(Minutes)+' Minutes and '+IntToStr(RSeconds)+' Seconds';
      end;
      if RHours<>0 then
      begin
       RMinutes:=Minutes Mod (RHours*60);
       RSeconds:=Seconds Mod (Minutes*60);
       Time:=IntToStr(RHours)+' Hours, '+IntToStr(RMinutes)+' Minutes and '
       +IntToStr(RSeconds)+' Seconds';
      end;
      begin
      WriteLn(' ');
      WriteLn('<=================Progress Report================>');
      WriteLn('Worked for '+Time);
      WriteLn('Banked '+IntToStr(banks)+' loads[s].');
      WriteLn('Banked '+IntToStr(banks*27)+' willow[s].');
      WriteLn('Gained '+floattostr(67.5*(banks*27))+'xp.');
      WriteLn('Currently Averaging about '+IntToStr(3600/avtime*(banks*27))+
      ' willow[s] and '+floattostr(3600/avtime*(67.5*(banks*27)))+' xp an hour.');
      WriteLn('Random Event Report:');
      if(fights>0)then WriteLn('  Fought '+IntToStr(fights)+' time[s].');
      if(talks>0)then WriteLn('  Talked to '+IntToStr(talks)+' Random event[s].');
      if(lamps>0)then WriteLn('  Used lamps '+IntToStr(lamps)+' time[s].');
      if(boxes>0)then WriteLn('  Solved '+IntToStr(boxes)+' box[es].');
      if(logs>0)then WriteLn('  Logged in '+IntToStr(logs)+' time[s].');
      WriteLn('<================================================>');
      Report2:=GetSystemTime;
      end;
    end;
    end;

    //===========================Color Finding procedures=========================\\

    procedure SetColors;
    begin
      BankColor:=MMBankColor;
      OreColor1:=WillowColor1;
      OreColor2:=WillowColor2;
      OreColor3:=WillowColor3;
    end;

    procedure CouldNotFindColors;
    begin
      WriteLn('ERROR, script could not find colors, please run the script again'
      +' or set your own colors.');
      TerminateScript;
    end;

    Function FindTreeColorsifneeded(refrencecol,tol,tol2:integer):boolean;
    var
      c,a,b,xm,ym,curcolor:integer;
      oc1,oc2,oc3:boolean;
    begin
    if((OreColor1=0)or(OreColor2=0)or(OreColor3=0))then
    begin
    if(FindColorTolerance(x,y,refrencecol,3,3,515,338,tol))then//Find ore close
    begin
    if(FindObj('Chop',refrencecol,tol))then
    begin
      a:=1;
      GetMousePos(x,y);
      xm:=x;
      ym:=y;
      repeat
      xm:=xm+a;
      ym:=ym+b;
      curcolor:=GetColor(xm,ym);
      MoveMouseSmooth(xm,ym);
      wait(5+random(5));
      if(IsTextAt2(9,9,'Chop',100))then
    begin
      if(SimilarColors(curcolor,refrencecol,tol2))and(oc1=false)then
      begin
        orecolor1:=curcolor;
        oc1:=true;
      end;
      if(SimilarColors(curcolor,refrencecol,tol2))and
        (not(curcolor=orecolor1))and(oc2=false)then
      begin
        orecolor2:=curcolor;
        oc2:=true;
      end;
      if(SimilarColors(curcolor,refrencecol,tol2))and
        (not(curcolor=orecolor1))and
        (not(curcolor=orecolor2))and(oc3=false)then
      begin
        orecolor3:=curcolor;
        oc3:=true;
      end;
    end;
      if(not(IsTextAt2(9,9,'Chop',100)))then
      begin
        c:=c+1;
        xm:=x;
        ym:=y
        MMouse(xm,ym,1,1);
        wait(200+random(100)+random(100))
        if(c=1)then a:=-1;
        if(c=2)then begin a:=0;b:=-1;end;
        if(c=3)then begin a:=0;b:=2;end;
      end;
      until((oc1)and(oc2)and(oc3))or(c>=4);
    end;
    end;
    if(orecolor1>0)and(orecolor2>0)and(orecolor3>0)then
    begin
      result:=true;
      writeln('TreeColors... '+inttostr(orecolor1)+' '+inttostr(orecolor2)+' '+inttostr(orecolor3));
    end;
    end;
    end;

    procedure FindBankColorIfNeeded;
    var
      c:integer;
    begin
      if(BankColor=0)then
      begin
        WriteLn('Finding bank color please Wait...');
        while(BankColor=0)do
          begin
          c:=c+1;
          if(BankColor=0)then
            BankColor:=GetSymbolColor('bank');
          if(c>20)then
            CouldNotFindColors;
          Wait(Random(50)+500);
          end;
        WriteLn('BankColor:'+IntToStr(BankColor))
      end;
    end;

    //========================Map Walking procedures==============================\\

    procedure WillowsToBank;
     Begin
      If FindMMcolor(BankColor) then
       begin
        Status('Going To Bank');
        Mouse(x,y,3,3,true)
        flag;
        wait(500+random(250));
     //   Checkrandoms2;
       end;
     End;

    procedure BankToWillows;
     Begin
    // Checkrandoms2;
      If findMMcolor(BankColor) then
        begin
          Status('Going To Trees');
          FindMMcolortol(10320746,30);
          Mouse(x+50,y+23,0,0,true)
          flag;
          wait(500+random(500));
        end;
     end;

    procedure ToBankers;
    var
      c,ax,ay:integer;
    begin
      while c<30 do
      begin
        c:=c+5;
        if(FindMMColor(BankColor))then
        begin
          if(FindColorSpiralTolerance(ax,ay,195836,x-c,y-c,x+c,y+c,10))then
          begin
            x:=ax;
            y:=ay;
            MouseFindFlag(x,y-5,0,-2);
            FlagAtColor(BankColor);
            Wait(1000+Random(100));
            Break;
          end;
        end;
      end;
    end;

    procedure TakeOffaxe;
    begin
      GameTab(5);
      Mouse(600, 315, 5, 5, true);
    end;

    //=======================procedures taken from squig.txt=======================\\
    Function AxeBroken(c : integer) : boolean;
    begin
      if(c=0)then
        begin
          if(getcolor(686,173)<>2171233)then
            GameTab(5);
          if(getcolor(601,297)=5067346)then
            result:=true
          else
            result:=false;
        end
      else
        begin
          if(getcolor(635,173)<>2500207)then
            GameTab(4);
          if(getcolor(594,221)=3885652)then
            result:=true
          else
            result:=false;
        end;
    end;

    procedure MouseC(x1, y1, click : integer);
    begin
      MoveMouseSmoothEx(x1,y1,1,6,15,20,20);
      wait(random(150)+100);
      if(click=1)then
        begin
      holdmouse(x,y,true);
      wait(random(20)+15);
      releasemouse(x,y,true);
    end
      else if(click=2)then
        begin
      holdmouse(x,y,false);
      wait(random(20)+15);
      releasemouse(x,y,false);
    end;
    end;

    function SlotFilled(row, col : integer) : boolean;
    var
      a1, b1, a2, b2, c, d, e : integer;
    begin
      result:=false;
      case row of
        1 : a1:=215;
        2 : a1:=250;
        3 : a1:=285;
        4 : a1:=325;
        5 : a1:=360;
        6 : a1:=395;
        7 : a1:=430;
      end;
      case col of
        1 : b1:=570;
        2 : b1:=610;
        3 : b1:=655;
        4 : b1:=696;
      end;
      a2:=a1+30;
      b2:=b1+35;
      if(getcolor(633,172)<>2500207)and(istextat2(185,36,'The Bank',100)=false)then
        GameTab(4);
      c:=b1;
      d:=a1;
      e:=0;
      repeat
        if(getcolor(c,d)<>3885652)and(getcolor(c,d)<>2370094)
        and(getcolor(c,d)<>2699832)and(getcolor(c,d)<>1713453)
        and(getcolor(c,d)<>3490379)and(getcolor(c,d)<>3095106)
        and(getcolor(c,d)<>5531511)and(getcolor(c,d)<>8167865)
        and(getcolor(c,d)<>6917802)and(getcolor(c,d)<>3951188)
        and(getcolor(c,d)<>2461584)and(getcolor(c,d)<>2329485)
        and(getcolor(c,d)<>2328713)and(getcolor(c,d)<>2109231)
        and(getcolor(c,d)<>2327943)and(getcolor(c,d)<>4543586)
        and(getcolor(c,d)<>1598565)and(getcolor(c,d)<>6505283)
        and(getcolor(c,d)<>1796458)and(getcolor(c,d)<>1085328)
        and(getcolor(c,d)<>1929843)and(getcolor(c,d)<>1383200)
        and(getcolor(c,d)<>1798257)and(getcolor(c,d)<>1797229)
        and(getcolor(c,d)<>1995636)and(getcolor(c,d)<>1997692)
        and(getcolor(c,d)<>2130563)and(getcolor(c,d)<>2129535)
        and(getcolor(c,d)<>1997692)and(getcolor(c,d)<>1996664)
        and(getcolor(c,d)<>1974562)and(getcolor(c,d)<>3094847)
        and(getcolor(c,d)<>3687501)and(getcolor(c,d)<>4345174)then
          result:=true;
        if(d<>a2)and(c>=b2)then
          begin
            d:=d+random(2)+1;
            c:=b1;
          end;
        if(c<b2)then
          c:=c+3;
        e:=e+1;
        if(e=30)then
          begin
            wait(1);
            e:=0;
          end;
      until((c>=b2)and(d>=a2))or(result=true);
    end;

    procedure FindRowCol(var row, col : integer);
    var
      a, b : integer;
    begin
      case row of
        1 : a:=230;
        2 : a:=260;
        3 : a:=300;
        4 : a:=335;
        5 : a:=370;
        6 : a:=405;
        7 : a:=440;
      end;
      case col of
        1 : b:=580;
        2 : b:=625;
        3 : b:=665;
        4 : b:=710;
      end;
      row:=a;
      col:=b;
    end;

    procedure DropItem (row, col : integer);
    var
      b1, a : integer;
    begin
      if(getcolor(633,172)<>2500207)then
        GameTab(4);
      if(Slotfilled(row,col)=false)then
        exit;
      Findrowcol(row,col);
      MouseC(col+random(5),row+random(5),2);
      wait(random(500)+500);
      if(findbitmaptolerancein(DropText,a,b1,545,190,750,480,100))or(findbitmaptolerancein(DropTextb,a,b1,545,190,750,480,100))then
        begin
          MouseC(random(20)+a,b1+random(3),1);
          wait(random(200)+300);
        end
        else
        GameTab(4);
    end;

    procedure TakeOffSword;
    begin
      if(getcolor(685,173)<>2434414)then
        GameTab(5);
      wait(random(300)+300);
      MouseC(random(10)+580,random(10)+300,1);
    end;

    procedure FindHead(var axez : integer; c, e : integer);
    var
      a, b, d, x1, y1, x2, y2, a1, b1 : integer;
      mes : string;
    begin
      x1:=645;
      y1:=75;
      x2:=650;
      y2:=85;
      d:=0;
      if(e=0)then
        mes:='Take Gl'
      else
        mes:='Take Gl';
      repeat
        wait(10);
        a:=650;
        b:=85;
        if(findcolorspiral(a,b,395004,x1,y1,x2,y2))then
          begin
            x1:=645;
            y1:=75;
            x2:=650;
            y2:=85;
            wait(random(200)+300);
            Mouse(a,b,2,2,true);
            wait(random(200)+300);
            Flag;
            Flag;
            Flag;
            Flag;
            repeat
              d:=d+1;
              a1:=230;
              b1:=145;
              repeat
                MoveMouseSmoothEx(a1,b1,1,6,15,20,20);
                a1:=a1+random(3);
                b1:=b1+random(3);
                wait(random(3)+3);
              until(b1>195)or(a1>295)or(istextatex(7,7,mes,100,UpChars,False,True,0,1,-1));
              Mouse(267,179, 1, 1, true);
              wait(random(200)+300);
                begin
                  if(c=0)and(slotfilled(1,1))then
                    DropItem(1,1);
                  wait(random(300)+300);
                  if(slotfilled(1,2))then
                    DropItem(1,2);
                  wait(random(300)+300);
                  if(c=0)then
                    TakeOffSword;
                  MouseC(a,b,1);
                  wait(random(300)+400);
                  Mouse(585,229, 1, 1, true);
                  wait(random(300)+300);
                  Mouse(625,229, 1, 1, true);
                  wait(random(200)+300);
                  if(c=0)then
                    Mouse(585,229, 1, 1, true);
                  exit;
                end;
            until(d=25);
            d:=0;
          end;
        x1:=x1-2;
        y1:=y1-2;
        x2:=x2+3;
        y2:=y2+3;
        if(x1<615)then
          begin
            axeZ:=0;
            exit;
          end;
      until(findcolor(a,b,241,615,55,675,110)=false);
    end;

    function AxeFound(c : integer) : boolean;
    var
      look : boolean;
      ab : integer;
    begin
      look:=false;
      ab:=1;
      result:=true;
      if(c=0)then
        begin
          if(getcolor(682,173)<>2434414)then
            GameTab(5);
          if(getcolor(598,295)=5067346)then
            look:=true;;
        end
      else
        begin
          if(getcolor(630,172)<>2171233)then
            GameTab(4);
          if(getcolor(591,220)=4345174)then
            look:=true;
        end;
      if(look=true)then
        begin
          result:=true;
          FindHead(ab,c,0);
          if(ab=0)then
            result:=false;
        end;
    end;

    procedure LoadInventoryPics;
    begin
      droptext := BitmapFromString(28, 14, 'z78DA7373C30E0C0619C0' +
           '74DBE0742D2E570D36D70E5777BA119D9EDD484CF9F8D553EE4EE' +
           'AFA9D549F52921E46DD39B4DC4949DAA3241F91EA86C156E60CFE' +
           '3A71D49DB47627007188F354');
      droptextb:= BitmapFromString(28, 7, 'z78DA7373737333307003' +
           '93C8C00D87F840013712DD892C8EDF2FC4AB24463DE5EEA4AEDF4' +
           '9F5A91B05E961D49D43CB9D94A43D4AF211316E000009B6FC79');
    end;
    //=======================procedure taken from rsci.txt=======================\\
    function CheckEnt: Boolean;
    var
      x, y: Integer;
    begin
      if(istextat2(9,9,'Chop',100))and
      ((FindColorTolerance(x, y, 57311, 80, 5, 160, 25, 10))or
       (FindColorTolerance(x, y, 118478, 80, 5, 160, 25, 10))or
       (FindColorTolerance(x, y, 53199, 80, 5, 160, 25, 10)))then
        Result := true;
    end;

    //==========================Random Event procedures===========================\\

    procedure RunAway;
    begin
    SetRun(true);
    Mouse(648,35,5,5,true);
    Flag;
    Wait(5000+Random(2000));
    Mouse(648,135,5,5,true);
    Flag;
    end;

    procedure TerminateIfLost;
    begin
      if(LoggedIn)then
      begin
        if(not(FindMMColor(BankColor)))then
        begin
          IAmLostCount:=IAmLostCount+1;
          if(IAmLostCount>10)then
          begin
            WriteLn('Lost!!!');
            TerminateScript;
          end;
        end else
          IAmLostCount:=0;
      end;
    end;

    procedure chklvlup;
    begin
    if(getcolor(285,441)=16711680)then
    begin
    repeat
    mouse(285,441,5,5,true);
    wait(400+random(50));
    until(not((getcolor(285,441)=16711680)or(getcolor(285,441)=16777215)))
    end;
    end;

    procedure chkdoctor;
    begin
    if(getcolor(308,445)=16711680)then
    begin
    repeat
    if((findcolorspiral(x,y,16711680,152,433,406,459))or(findcolorspiral(x,y,16777215,152,433,406,459)))then
    mouse(x,x,3,3,true);
    wait(400+random(50));
    until(not((findcolorspiral(x,y,16711680,152,433,406,459))or(findcolorspiral(x,y,16777215,152,433,406,459))))
    end;
    end;

    procedure FindRandoms;
    begin
      if(LogsOut)then
        LogOutEvery(2+Random(2),10+Random(5));
      if(Chats)then
        RandomChatEvery(5+Random(5));
      if(Rotates)then
        RotateEvery(20+random(10));
      LeaveScreenEvery(5+random(5));
      FindNormalRandoms;
      chkdoctor;
      FindDoctor;
      FindBox;
      AxeFound(equipit);
      chklvlup;
      if((FindFight)or(CheckEnt))then
        RunAway;
    end;

    //=========================Main Screen procedures=============================\\

    procedure Bank;
      begin
        FindBox;
        TotalOres:=TotalOres+(CountItemBmpTol(Ore,50));
        if(NoPick=true)and(EquipPick=true)then
        begin
          GameTab(5);
          Mouse(593,303,r,r,true);
          Wait(Random(50)+1000);
          GameTab(4);
        end;
        OpenBank;
        if(BankScreen)then
        begin
          if(NoPick=true)then
          begin
            ClickAllItemsColorWait('All',65536,1000+Random(100));
            Withdraw(1,1,1);
          end else
          begin
            if(EquipPick=false)then
              Deposit(2,28,2);
            if(EquipPick=true)then
              ClickAllItemsColorWait('All',65536,1000+Random(100));
          end;
          CloseWindow;
          if(NoPick=true)and(EquipPick=true)then
          begin
            FindPickHeadColor;
            ClickItemColor(hc1,true);
          end;
          Banks:=Banks+1;
          ProgressReport;
          NoPick:=false
        end;
      end;

    procedure waitwhilecutting;
    var SysTime:integer;
    begin
    MarkTime(SysTime);
    repeat
    wait(200+random(50));
    findrandoms;
    if(TimeFromMark(SysTime)>=85000+random(100))then
    begin
    MarkTime(SysTime);
    getmousepos(x,y);
    Mouse(x,y,r,r,true);
    end;
    until((not(istextat2(9,9,'Chop',100)))or(InventoryFull));
    end;

    procedure Chop;
    begin
      SetRandomOreColor;
      if(FindObj('Chop',OreColor,5))then
      begin
        if(not(CheckEnt))then
        begin
    //    if(TimeFromMark(choptime)>=500+random(100))then
          begin
          Mouse(x,y,r,r,true);
          flag;
    //      MarkTime(choptime);
          end;
          if(FlagPresent)then
          begin
            Flag;
            Wait(500+Random(500));
          end;
          waitwhilecutting;
        end;
      end;
    end;

    //======================================Main Line=============================\\

    begin
    SetupSSI;
    Setup;
    SetColors;
    LoadInventoryPics;
    FindBankColorIfNeeded;
    SetRun(true);
    if(true)then
    begin
      repeat
      FindRandoms;
      BankToWillows;
      FindTreeColorsifneeded(3102800,5,45);
        repeat
        FindRandoms;
        Chop;
        NoPick:=false;
        until(InventoryFull)or(NoPick=true)
      WillowsToBank;
      TerminateIfLost;
      Bank;
      until(false)
    end;
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Issues with my Wcer
    By Faelstorm in forum OSR Help
    Replies: 3
    Last Post: 12-31-2007, 02:35 AM
  2. power wcer
    By haurp00ned in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 05-07-2007, 05:00 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
  •