SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
zasz - SRL Member Application Form
zasz

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
c ++, html

Other Communitys
Spork-eh.com,Zaszmedia.com

How Long have You Played Runescape
4-5 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I started scripting scar in october, and plan to do alot more. I was a noob for my first script and copy and pasted alot but i came a long way from that. I hope to stay here a long time.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

// C.S.M by Zasz
// ZaszMedia.com
// Way it works - Cuts certian types of trees depending on wc lvl
// If wc lvl =< 15 cuts trees.
// If wc lvl rises while script cutting trees it will finish load then switch
// If wc lvl = 15-30 it will cut oaks
// If wc lvl rises while script cutting trees it will finish load then switch
// If wc lvl > 30 it will cut willows

// Where to start: Any Were in the lumbride general store.
// Note the ent detection doesn't work all that well.

program oakseller;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}

Var x, y, time, vlvl, willowmoney, log5, oakl5, willowl2, ruby2, oakmoney, lost, wexp, willowl, wlogs, fguide, wc, saphire2, emerald, tts, oakl4, enta, log4, logsc, powers, log3, oakl2, oakl3, log2, me, lmoney, tmoney, log, ologs, saphire, ruby, oakl, version, oakt, ents: Integer;
  
  bronzea,steela: integer;
  
  fent: boolean;
  
  Lvl,axeu: string;

const
//dont edit below!!
tree = 6166;
oak = 4881312;
willow = 6203292;
storeguy = 5663104;
ent =  1649608;
storeg = 128;
pot = 6255480;
b = 347;
g = 372;
debug = 1;

procedure declarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //username
  Players[0].Pass := ''; //password
  Players[0].Nick := ''; //3-4 letters from your username
  Players[0].Active := True;
end;

procedure login;
begin
  if (not(loggedin)) then loginplayer;
  wait(200);
  findnormalrandoms;
  makecompass('w');
  highestangle;
  setrun(true)
end;

procedure report;
begin
  cleardebug;
  Writeln('[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]');
  Writeln('| ~ C.S.M             Cut. Sell. Money   ~ |');
  Writeln('|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|');
  Writeln(' Using version ' + IntToStr(version) + '. ');
  writeln(' Player has ' + inttostr(wc)+ ' woodcutting');
  if vlvl = 0 then
  begin
    writeln(' Player is chopping logs.');
  end;
  if vlvl = 1 then
  begin
    writeln(' Player is chopping oaks.');
  end;
  if vlvl = 2 then
  begin
    writeln(' Player is chopping willows.');
  end;
  Writeln(' Cut: ' + IntToStr(logsc) + ' Reg. Logs');
  Writeln(' Cut: ' + IntToStr(ologs) + ' Oaks');
  Writeln(' Cut: ' + IntToStr(wlogs) + ' Willows');
  Writeln(' Made: ' + IntToStr(tmoney) + ' Gp');
  Writeln(' Made: ' + IntToStr(oakmoney) + ' Gp off of oaks alone');
  Writeln(' Made: ' + IntToStr(willowmoney) + ' Gp off of willows alone');
  Writeln(' Made: ' + IntToStr(wexp) + ' XP');
  Writeln(' Avioded: ' + IntToStr(enta) + ' Number Of Ents');
  Writeln(' Found: ' + IntToStr(Lamps) + ' Lamps');
  WriteLn(' Ran for : '+TimeRunning);
  WriteLn(' Using a : ' + (axeu) + ' Axe ');
  Writeln('[=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-]');
  Writeln('| ~ You have used C.S.M      Cut. Sell. Money  ~ |');
  Writeln('|=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|');
end;

function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=1 to 10 do
  begin
    case I of
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
           if NoGameTab then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'No GameTab';
           end;
         end;
     8: begin
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
           end;
         end;
       9: RC;
       10: Respond;
    end;
    wait(1);
  end;
end;

function ClickToContinueScreen: Boolean;
begin
  if not LoggedIn then Exit;
  if not (GetColor(505, 453) = 1778730) and
     not (GetColor(499, 346) = 6456731) and
     not (GetColor(276, 459) = 6321792) then
  begin
    Writeln('Found a click to continue screen');
    Result := True;
  end;
end;

procedure FindRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('W');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    login;
  end;
    if ClickToContinueScreen then
      begin
        repeat
          if not LoggedIn then Break;
          Mouse(319, 448, 3, 3, True);
        until GetColor(253, 459) = 6321792;
      end;
end;

procedure AntiBan;
begin
  if (not(LoggedIn)) then
  Exit;
  Status('Doing antiban')
  case Random(8) of
    0: begin
         typesend('');
         typesend('.');
       end;
    1: HoverSkill('Woodcutting', False);
    2: wait(2000);
    4: PickUpMouse;
    5: typesend('');
    6: DoEmote(1 +Random(20));
    7: begin
         GameTab(1 +Random(12));
         wait(2000 +Random(1000));
         GameTab(4);
       end;
    end;
end;

procedure findptalk;
begin
  if (InChatmulti('wc lvls', 'woodcutting lvls', 'wood cutting lvls')) then
  begin
    Lvl := IntToStr(GetSkillLevel('woodcutting')); // this line is from hypersecret
    typesend(Lvl);
    wait(500 + random(200));
    typesend('you?');
  end;
  if (InChat(Players[CurrentPlayer].Name)) then
  begin
    typesend('what?');
    wait(5000 + random(1000));
    typesend('no');
  end;
end;

procedure dtms;
begin
log := DTMFromString('78DA63CC616260E065644006F5C936601A26C' +
       'A180B54C38DAA06260B57530D54C345404D1613120F8F1A11FC6A' +
       '00B198038A');
log2 := DTMFromString('78DA633CC4C4C03097910119D4265A8169982' +
       '8E379A09A39A86A60B270351B31CDC1507310A86602116A16E357' +
       '030087B50803');
log3 := DTMFromString('78DA63746262600863644006D57116601A26C' +
       'A680C54138EAA06260B571308541342408D03508D07116A62F0AB' +
       '0100E640041A');
log4 := DTMFromString('78DA63CC67626078CD80021A536CC0342394C' +
       'F188BA906260B575345849A3CA09A7744A8B98D5F0D00773907E6' +
       '');
log5 := DTMFromString('78DA63CC67626078C98002EA93ACC0342394C' +
       'F188BA906260B57530D54F39C809A5CA09AF744A8B9835F0D006F' +
       'D207D9');
oakl2 := DTMFromString('78DA639CC9C4C0F0920105F4E539816946289' +
       'F712950CD0B0634C088AAA61DD31C0C35D3806AEE10503309A8E6' +
       '237E3500DE7308CB');
oakl := DTMFromString('78DA63CC65626078C180027A729DC0342394C' +
       'F580D54F38C010D30A2AA8905AA7949400DC8AEF744A8B9835F0D' +
       '00850707F5');
oakl3 := DTMFromString('78DA63CC67626030626440063D390E601A26C' +
       'A180B546380AA06260B57534D849A3CA01A6522D498E15703000F' +
       '8A0464')
oakl4 := DTMFromString('78DA637460626078C58002FAF39DC1342394C' +
       'F680C54F392010D30A2AA0904AA794E408D1350CD1D22D4BCC7AF' +
       '060029C70727');
oakl5 := DTMFromString('78DA632C646260E065644006BDB98E601A26C' +
       'A188BA906260B57530D54C343404D2E508D30116A18F0AB0100CC' +
       'D203B5');
willowl := DTMFromString('78DA63CC616260E063644006A13EF2601A26C' +
       'A188BA906260B57530D54C34B404D3613120F8F1A61FC6A007AF9' +
       '0334');
willowl2 := DTMFromString('78DA63CC636260E065644006C15EB2601A26C' +
       'A180B54C38DAA06260B57530D54C345404D3613120F8F1A61FC6A' +
       '0075200329');
oakt := DTMFromString('78DA632C616260F0634001A5D5F2609A11CA6' +
       '76C06AAF14155A314C68BA206008F9E032E');
saphire := DTMFromString('78DA639CCEC4C0309D910119084B4C03D3305' +
       '1C61EA09A99A86A60B27035F389503305A86602013520F72CC1AF' +
       '0600EC6206C9');
saphire2 := DTMFromString('78DA63CC666260086064400682623D601A26C' +
       'A0852E381AA06260B579305541343404D29504D2001354984D500' +
       '00FCDE047E');
emerald := DTMFromString('78DA633CC4C4C050C2C8800C043A44C1344C9' +
       '4711B504D31AA1A982C5CCD4922D4EC07AA6920A006E49E1CFC6A' +
       '00F28606D3');
ruby := DTMFromString('78DA637461626078C28002AAA5F8C1342394C' +
       'F680154F394010D30A2AAF126428D1350CD0722D4DCC6AF0600C7' +
       '260681');
ruby2 := DTMFromString('78DA63CC63626078C280022A25F9C0342394C' +
       'F980454F394010D30A2AAC907AAF940849A3B04D49401D53CC3AF' +
       '06001CB50758');
end;

procedure drop;
forward;

procedure logpicker;
forward;

procedure gotowillows;
forward;

procedure axedtm;
begin
steela := DTMFromString('78DA63CC656260D8C4C8800C7A9A9AC0344C9' +
       '4B10C530D4C16AE2603A866330135C9403527F1AB01004FF80636' +
       '');
bronzea := DTMFromString('78DA6374676260B8C5800202EDD5C0342394C' +
       'FE803547397010D30A2AAB1C73407438D0550CD07FC6A00E3E705' +
       '55');

end;

procedure raxe;
begin
  if(FindDTM(steela, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    powers := 3
  end;
  if(FindDTM(bronzea, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    powers := 1
  end;
  if powers = 1 then
  begin
    axeu := ('Bronze')
  end;
  if powers = 3 then
  begin
    axeu := ('Steel')
  end;
end;
  
procedure EntFinder1;
begin
  findptalk;
  if (InChatmulti('an Ent!', 'not a tree', 'not a tree it')) then
  begin
   fent := true
  end;
  if(FindObjCustom(x, y, ['tree'], [tree], 2)) then
  begin
    MMouse(x, y, 0, 0)
    if FindColorTolerance(x, y, 184528, 85, 15, 115, 15, 20) then
      begin
        fent := true
      end;
  end;
  findptalk;
  FindTalk;
  if fent then
  begin
    writeln('Found an ent. Avoiding.');
    mmouse(646,84,0,0);
    mouse(646,84,0,0,true);
    wait(28000 + random (1000));
    writeln('Ent avoided');
    mmouse(640,84,0,0);
    mouse(640,84,0,0,true);
    enta := enta + 1
  end;
end;

procedure EntFinder2;
begin
  findptalk;
  if (InChatmulti('an Ent!', 'not a tree', 'not a tree it')) then
  begin
   fent := true
  end;
  if(FindObjCustom(x, y, ['oak'], [oak], 2)) then
  begin
    MMouse(x, y, 0, 0)
    if FindColorTolerance(x, y, 186068, 88, 15, 115, 15, 20) then
      begin
        fent := true
      end;
  end;
  findptalk;
  FindTalk;
  if fent then
  begin
    writeln('Found an ent. Avoiding.');
    mmouse(646,84,0,0);
    mouse(646,84,0,0,true);
    wait(28000 + random (1000));
    writeln('Ent avoided');
    mmouse(640,84,0,0);
    mouse(640,84,0,0,true);
    enta := enta + 1
  end;
end;

procedure EntFinder3;
begin
  findptalk;
  if (InChatmulti('an Ent!', 'not a tree', 'not a tree it')) then
  begin
   fent := true
  end;
  if(FindObjCustom(x, y, ['Willow'], [willow], 8)) then
  begin
    MMouse(x, y, 0, 0)
    if FindColorTolerance(x, y, 55769, 85, 15, 115, 15, 20) then
      begin
        fent := true
      end;
  end;
  findptalk;
  FindTalk;
  if fent then
  begin
    writeln('Found an ent. Avoiding.');
    mmouse(646,84,0,0);
    mouse(646,84,0,0,true);
    wait(28000 + random (1000));
    writeln('Ent avoided');
    mmouse(640,84,0,0);
    mouse(640,84,0,0,true);
    enta := enta + 1
  end;
end;

Procedure Chop1;
begin
  if (not(LoggedIn)) then
  login;
  if(FindColorSpiralTolerance(x,y,tree,MSX1,MSY1,MSX2,MSY2,5)) then
  begin
    Status('chopping regular trees')
    EntFinder1;
    MMouse(x,y,0,0);
    Mouse(x,y,0,0,false);
    chooseoption('hop');
    Wait(1000 +Random(3000));
    EntFinder1;
    //randomtalk; //this is optional if you want to add some random talk!
  end;
end;

Procedure Chop2;
begin
  if (not(LoggedIn)) then
  begin
    login;
  end;
  makecompass('N');
  if(FindColorSpiralTolerance(x,y,oak,MSX1,MSY1,MSX2,MSY2,1)) then
  begin
    MMouse(x,y,0,0);
    if isUpTextMulti('oa','oak','ak') then
    begin
      me := me * 0
      Status('chopping oaks')
      writeln('Chopping oaks');
      EntFinder2;
      Mouse(x,y,0,0,false);
      chooseoption('own');
      Wait(500);
      highestangle;
      EntFinder2;
      findrandoms;
    end;
  end;
  if(not(FindColorSpiralTolerance(x,y,oak,MSX1,MSY1,MSX2,MSY2,1))) then
  begin
    me := me + 1
  end;
  if me >= 5 then
  begin
    lowestangle;
  end;
end;

procedure chop3;
begin
  if (not(LoggedIn)) then
  begin
    login;
  end;
  makecompass('s');
  if(FindColorSpiralTolerance(x,y,willow,MSX1,MSY1,MSX2,MSY2,1)) then
  begin
    Status('chopping willows')
    writeln('Chopping willows');
    MMouse(x,y,0,0);
    Mouse(x,y,0,0,false);
    chooseoption('own');
    findptalk;
    findrandoms;
    EntFinder3;
    me := me * 0
    lost := 2;
  end;
  if(not(FindColorSpiralTolerance(x,y,willow,MSX1,MSY1,MSX2,MSY2,1))) then
  begin
    me := me + 1
  end;
  if me = 10 then
  begin
    writeln('Player lost trying to find a way back');
    makecompass('w');
    if (FindSymbol(x, y, 'shop')) then
    begin
      mmouse(x,y,0,0);
      mouse(x,y,0,0,true);
      flag;
      wait(3000);
      gotowillows;
      lost := 1
    end;
    if lost = 2 then
    begin
      if (FindSymbol(x, y, 'furnace')) then
      begin
        mmouse(x,y,0,0);
        mouse(x,y,0,0,true);
        flag;
        wait(3000);
        makecompass('e');
        makecompass('w');
        wait(500);
        mmouse(640,39,0,0);
        mouse(640,39,0,0,true);
        flag;
        wait(3000);
        gotowillows;
        if (FindSymbol(x, y, 'shop')) then
        begin
          mmouse(x,y,0,0);
          mouse(x,y,0,0,true);
          flag;
          wait(3000);
          gotowillows;
        end;
      end;
    end;
  end;
end;

procedure drop;
begin
  repeat
  if(FindDTM(log, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
    mouse(x,y,1,1,false);
    chooseoption('rop');
    logsc := logsc + 1
    wexp := wexp + 25
    wait(2000);
  end;
  until not(FindDTM(log, x, y, MIX1, MIY1, MIX2, MIY2))
  repeat
  if(FindDTM(log2, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
    mouse(x,y,1,1,false);
    chooseoption('rop');
    logsc := logsc + 1
    wexp := wexp + 25
    wait(2000);
  end;
  until not(FindDTM(log2, x, y, MIX1, MIY1, MIX2, MIY2))
  repeat
  if(FindDTM(log3, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
    mouse(x,y,1,1,false);
    chooseoption('rop');
    logsc := logsc + 1
    wexp := wexp + 25
    wait(2000);
  end;
  until not(FindDTM(log3, x, y, MIX1, MIY1, MIX2, MIY2))
  repeat
  if(FindDTM(log4, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
    mouse(x,y,1,1,false);
    chooseoption('rop');
    logsc := logsc + 1
    wexp := wexp + 25
    wait(2000);
  end;
  until not(FindDTM(log4, x, y, MIX1, MIY1, MIX2, MIY2))
   repeat
  if(FindDTM(log5, x, y, MIX1, MIY1, MIX2, MIY2)) then
    begin
    mouse(x,y,1,1,false);
    chooseoption('rop');
    logsc := logsc + 1
    wexp := wexp + 25
    wait(2000);
  end;
  until not(FindDTM(log5, x, y, MIX1, MIY1, MIX2, MIY2))
end;

procedure calculatecash;
begin
  oakmoney := ologs * 2
  willowmoney := wlogs * 4
  lmoney := lmoney + oakmoney
  lmoney := lmoney + willowmoney
  tmoney := tmoney + lmoney
end;

procedure sell;
begin
  makecompass('w');
  SymbolAccuracy:= 0.4;
  if (FindSymbol(x, y, 'shop')) then
  begin
    Mouse(x, y, 2, 2, true);
    Flag;
    Writeln('We made it to the shop. Finding guy...');
  end;
  wait(10000);
  makecompass('s');
  wait(10000);
  repeat
  if(FindColorSpiralTolerance(x,y,storeguy,MSX1,MSY1,MSX2,MSY2,5)) then
  begin
    mouse(x,y,0,0,false);
    chooseoption('k-to');
  end;
  clicktocontinuescreen;
  wait(4000);
  until ClickToContinueScreen
  if ClickToContinueScreen then
  begin
    mouse(224,454,0,0,true);
    wait(4000);
    mouse(230, 394,0,0,true);
  end;
  wait(6000);
    if(FindDTM(saphire, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(saphire2, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(emerald, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(ruby, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(ruby2, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  repeat
  if(FindDTM(oakl, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(oakl2, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl2, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(oakl3, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl3, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(oakl4, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl4, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(oakl5, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl5, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(willowl, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 68
    wlogs := wlogs + 1
    tts := tts + 1
    wait(1400);
  end;
  until not(FindDTM(willowl, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  tts := 0
  calculatecash;
end;

procedure sellw;
begin
  makecompass('w');
  makecompass('e');
  makecompass('w');
  mmouse(642,19,0,0);
  mouse(642,19,0,0,true);
  wait(5000);
  flag;
  makecompass('N');
  mmouse(625,97,0,0);
  mouse(624,97,0,0,true);
  wait(4000);
  makecompass('w');
  SymbolAccuracy:= 0.4;
  if (FindSymbol(x, y, 'shop')) then
  begin
    Mouse(x, y, 2, 2, true);
    Flag;
    Writeln('We made it to the shop. Finding guy...');
  end;
  wait(10000);
  makecompass('s');
  wait(10000);
  repeat
  if(FindColorSpiralTolerance(x,y,storeguy,MSX1,MSY1,MSX2,MSY2,5)) then
  begin
    mouse(x,y,0,0,false);
    chooseoption('k-to');
  end;
  clicktocontinuescreen;
  wait(4000);
  until ClickToContinueScreen
  if ClickToContinueScreen then
  begin
    mouse(224,454,0,0,true);
    wait(4000);
    mouse(230, 394,0,0,true);
  end;
  wait(6000);
  if(FindDTM(saphire, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(saphire2, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(emerald, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(ruby, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  if(FindDTM(ruby2, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 50');
  end;
  repeat
  if(FindDTM(oakl, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(oakl2, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl2, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(oakl3, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl3, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(oakl4, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 36
    ologs := ologs + 1
    tts := tts + 1
    wait(2000);
  end;
  until not(FindDTM(oakl4, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(willowl, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 68
    wlogs := wlogs + 1
    tts := tts + 1
    wait(1400);
  end;
  until not(FindDTM(willowl, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  repeat
  if(FindDTM(willowl2, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    mouse(x,y,1,1,false);
    chooseoption('ell 1');
    wexp := wexp + 68
    wlogs := wlogs + 1
    tts := tts + 1
    wait(1400);
  end;
  until not(FindDTM(willowl2, x, y, MIX1, MIY1, MIX2, MIY2)) or (tts = 28)
  tts := 0
  calculatecash;
end;

procedure gototrees;
begin
  wait(3000);
  makecompass('e');
  mmouse(631,39,0,0)
  mouse(631,39,0,0,true)
  flag;
  makecompass('w');
end;

procedure gotooak;
begin
  makecompass('w');
  makecompass('s');
  makecompass('w');
  mouse(644,58,0,0,true)
  wait(10000);
end;

procedure gotowillows;
begin
  makecompass('e');
  makecompass('w');
  makecompass('e');
  mmouse(642,19,0,0);
  mouse(642,19,0,0,true);
  wait(5000);
  flag;
  makecompass('s');
  mmouse(625,97,0,0);
  mouse(624,97,0,0,true);
  wait(4000);
  SymbolAccuracy:= 0.4;
  if (FindSymbol(x, y, 'fishing spot')) then
  begin
    status('Found checkpoint, working on');
  end;
  if (not(FindSymbol(x, y, 'fishing spot'))) then
  begin
    status('Could not find checkpoint, player going false');
    nextplayer(true);
    logpicker;
  end;
  mmouse(645, 72,0,0);
  mouse(645, 72,0,0,true);
  status('At willows');
end;

procedure coaks;
begin
  dtms;
  vlvl := 1
  gotooak;
  FindTalk;
  findptalk;
  repeat
  axedtm;
  FindTalk;
  findptalk;
  raxe;
  Antiban;
  raxe;
  chop2;
  FindTalk;
  findptalk;
  FindRandoms;
  raxe;
  drop;
  FindTalk;
  findptalk;
  report;
  if me = 30 then
  begin
    writeln('Couldn''nt find the oak going false.');
    logout;
    writeln('Player false (no oak tree.)');
  end;
  until (InvFull)
  me := me * 0
  report;
  sell;
  report;
  gotooak;
  report;
  logpicker;
  report;
end;

procedure doaks;
begin
  if wc = 15 then
  begin
    coaks;
  end;
  if wc = 16 then
  begin
    coaks;
  end;
  if wc = 17 then
  begin
    coaks;
  end;
  if wc = 18 then
  begin
    coaks;
  end;
  if wc = 19 then
  begin
    coaks;
  end;
  if wc = 20 then
  begin
    coaks;
  end;
  if wc = 21 then
  begin
    coaks;
  end;
  if wc = 22 then
  begin
    coaks;
  end;
  if wc = 23 then
  begin
    coaks;
  end;
  if wc = 24 then
  begin
    coaks;
  end;
  if wc = 25 then
  begin
    coaks;
  end;
  if wc = 26 then
  begin
    coaks;
  end;
  if wc = 27 then
  begin
    coaks;
  end;
  if wc = 28 then
  begin
    coaks;
  end;
  if wc = 29 then
  begin
    coaks;
  end;
end;

procedure logpicker;
begin
  SymbolAccuracy:= 0.4;
if (FindSymbol(x, y, 'shop')) then
    begin
      Mouse(x, y, 2, 2, true);
      Flag;
      Writeln('We made it to the shop point');
    end;
wc:=getskilllevel('woodcutting');
  if wc < 15 then
  begin
  dtms;
  vlvl := 0
  gototrees;
  FindTalk;
    repeat
    Antiban;
    chop1;
    FindTalk;
    findptalk;
    report;
    FindTalk;
    findptalk;
    FindRandoms;
    report;
    FindTalk;
    findptalk;
    until (InvFull)
    drop;
    FindTalk;
    report;
    logpicker;
    report;
    FindTalk;
  end;
  doaks;
  if wc >= 30 then
  begin
  dtms;
  vlvl := 2
  gotowillows;
    repeat
    axedtm;
    FindTalk;
    findptalk;
    raxe;
    Antiban;
    raxe;
    FindTalk;
    findptalk;
    chop3;
    FindTalk;
    findptalk;
    FindRandoms;
    report;
    FindTalk;
    findptalk;
    raxe;
    FindTalk;
    drop;
    FindTalk;
    findptalk;
    report;
    until (InvFull)
    me := me * 0
    report;
    sellw;
    report;
    logpicker;
    report;
  end;
end;

procedure setupscript;
begin
  disguise('zaszmedia');
  setupsrl;
  version := 1;
  lost := 2;
  activateclient;
  cleardebug;
  declareplayers;
  login;
  MarkTime(time);
end;

begin
setupscript;
logpicker;
end.

——————————————————
<!– END TEMPLATE: formanswers –>

This will sound mean and criticizing but it is only meant to be helpful.

Here are a few things I noticed.

procedure FindRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then
  begin
    MakeCompass('W');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    login;
  end;
    if ClickToContinueScreen then
      begin
        repeat
          if not LoggedIn then Break;
          Mouse(319, 448, 3, 3, True);
        until GetColor(253, 459) = 6321792;
      end;
end;

Um. All you need in that procedure is the FindNormalRandoms and FindFight. Everything else is included in the FindNormalRandoms function.

Your FindPTalk procedure… will get you banned. Try using cases and take advantage of SRL's HumanText procedure.

Your 3 entfinder procedures could easily be condensed into 1 procedure and you could make it a function to save from declaring Fent as a variable.

Your 3 chop procedures could also be condensed into 1 procedure saving space.

Your ClickToContinueScreen is already done in an SRL function "ClickToContinue''…

And I'm sorry to say but it looks like you have no clue how to properly use dtm's since you could condense all of your gem dtm's into a single one, and you could make a universal log dtm for all your dropping and selling.

Sorry, its a no.

It is a no from me too, PLEASE use the correct standards next time.

(2 spaces inward after begins, 2 spaces in after ends, etc.)

He's flippin 'cause he no think you know C++.

i know some c++ not much

Hey it looks like you worked hard on making this script, but you need to find more effective ways to accomplish things in your scripts.

As mickaliscious said, there are tons of procedures that can be condensed into one. You use coord-clicking way to often and it WILL get you banned since you dont add any randomness to the clicks.

My advice would be to read up on tutorials and work on failsafes as a strong point in your next script or next version of this script.

You have made a good attempt, just not quite SRL member material yet. Good luck and apply with a kick ass script in one month. ;)

Learn cases too ;)

No soz :(

Good try. I think you need to learn just a bit more. :)
There are only a few things in your script I don't like.
The first thing is the walking. It's alright to use Mouse just for walking (coordinate walking), but you should use some randomness. And yes, it would be nice to see if you knew how cases work. ;)

Voted yes.

TIntegerArray for the oak dtms and a for loop.

No.

Yes

Yep its a good script. As wizzy said 'not quite members criteria' but as i got 5 refs on Bux.to im happy! so YESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS

it seems ok. to me way better then what i aplied with;)

I might as well vote yes. I read through the script and it was on par with my first one.

Better than most of them are, he had lot of work with it…
But standards are way too off…You should learn cases -.-

You got something like

If wc = 34 then
begin
  coaks
end;

it should be something like

case wc of
  15,16,17,18,19,20,21, and so on : coaks;
end;

Anyways, it seems way too unlogical… it could be done almost half shorter

Good luck next time:)

procedure FindRandoms;
begin
  FindTalk;
  FindFastRandoms;
  FindNormalRandoms;
  FindLamp('Woodcutting');
  SolvePinball;
  if (FindFight) then

All of this is not needed. You only need FindNormalRandoms, it does all of those. Also I suggest you put FindFight above FindNormalRandoms because sometimes it trys to talk to the chickens etc lol and you get killed. Remove all of the things above so you are left with

procedure FindRandoms;
begin
  if (FindFight) then
  begin
    MakeCompass('W');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    login;
  end;    
  FindNormalRandoms;
  if ClickToContinueScreen then
      begin
        repeat
          if not LoggedIn then Break;
          Mouse(319, 448, 3, 3, True);
        until GetColor(253, 459) = 6321792;
      end;
end;

Also in your responding function you should probably have a timeout so that if the player has talked to say MrX in 50 secs he will not respond again. This is because if someone thinks you are a bot and realises that your trigger to respond is wc lvl then they can make you say it like 100 times and most likely get you BANNED.

Also scripting standards! Look!:

procedure coaks;
begin
  dtms;
  vlvl := 1
  gotooak;
  FindTalk;
  findptalk;
  repeat
  axedtm;
  FindTalk;
  findptalk;
  raxe;
  Antiban;
  raxe;
  chop2;
  FindTalk;
  findptalk;
  FindRandoms;
  raxe;
  drop;
  FindTalk;
  findptalk;
  report;
  if me = 30 then
  begin
    writeln('Couldn''nt find the oak going false.');
    logout;
    writeln('Player false (no oak tree.)');
  end;
  until (InvFull)
  me := me * 0
  report;
  sell;
  report;
  gotooak;
  report;
  logpicker;
  report;
end;

this is a mess, should be like this

procedure coaks;
begin
  dtms;
  vlvl := 1
  gotooak;
  FindTalk;
  findptalk;
  repeat
    axedtm;
    FindTalk;
    findptalk;
    raxe;
    Antiban;
    raxe;
    chop2;
    FindTalk;
    findptalk;
    FindRandoms;
    raxe;
    drop;
    FindTalk;
    findptalk;
    report;
    if me = 30 then
    begin
      writeln('Couldn''nt find the oak going false.');
      logout;
      writeln('Player false (no oak tree.)');
    end;
  until (InvFull)
  me := me * 0
  report;
  sell;
  report;
  gotooak;
  report;
  logpicker;
  report;
end;

OK so it wasn't that bad, but could have been better. also things like logpicker look much neater as LogPicker. I'm not voting, just suggesting :D

Edit:
writeln('Couldn''nt find the oak going false.');
Looks like ur trying to use an apostrophe ^^ here you are :p
writeln('Couldn' + #39 + 't find the oak going false.');
#39 (which is a shortened version of chr(39)) is apostrophe. the same as #13 is enter ya :)

to extend on what frozen was saying…also why call for things more than once during a repeat? its a repeat for a reason…it will be called again because it is repeat so no reason to call a procedure more than once like that…and liek ou have it you call everything multiple times in a repeat…

no from me…its also very sloppy and has many things that could be shortened and put together better…

ClickToContinue; in srl not good enough or wat? no need for yours…unless its something else…

no

Automatic No From Me.

You shouldn't crack people's obfuscatory or w/e those are called.

You're holding it against him that he cracked a script? If you don't want it cracked, make an exe or use a better authing system. He only obfuscated it, yes? I could crack that.

He screwed up Bobbo's script. Now he has to make a whole new system. Doesn't seem very high in responsibility tbh.

From: IEatJ00erBaybees
Automatic No From Me.

You shouldn't crack people's obfuscatory or w/e those are called.

hes sure right you got no right to do that… [THEY OBFUS IT SO NO-ONE CAN SEE GET THE POINT?]

was it bobbohobbo EYC he tried to crack… if thats the case :f: :f: :f:

From: IEatJ00erBaybees
He screwed up Bobbo's script. Now he has to make a whole new system. Doesn't seem very high in responsibility tbh.

Its not like he gave away the script after cracking it. Its more BH's fault for making an easily crackable auth system. I'm sure zasz didn't spend hours trying to get it so he could use it without a password. Sporky cracked BobboHobbo's VYC also… does that mean he shouldn't be a member anymore?

Eh, Im kinda working with BH, trying to crack then show the flaw.

From: zasz
Eh, Im kinda working with BH, trying to crack then show the flaw.

Thats true :)

I'm not going to vote either way. The standards are off, but that will come over time. Some things were made unnecessarily long, such as your doaks procedure. Instead of so many if statements, try a case instead.

case wc of
begin
15: coaks;
…
…
end;

Better yet, just make it into one line like I would.

if ( ( wc > 14 ) and ( wc < 30 ) ) then coaks;

Not only does this save the reviser time, it increases the speed of your script. It takes much less time to do three comparisons than the many you made your script do.

comparisons:
1) is wc greater than 14
2) is wc less than 30
3) was condition one and two both true

This doesn't make too much of a difference on your script, but on a large script it would save much processor time and allow the script to perform better. Especially since lag tends to cause runescape to perform poorly, making you either log out or miss text from a random event.

Just improve your functions, more is not always better. In fact, less is better. Less comparisons that is ;)

If this doesn't get you in, don't worry about it, just revise the script with good standards and make the procedures more efficient for the work they do. If you can do something in 1 line instead of 20, do it, as long as you don't sacrifice the quality of the answer.

Good luck.

Shows effort, needs more skill.

No for now, I expect you'll get in eventually, though.

See, this whole fucking thing wouldn't have happened if it wasn't for the greedy assholes who refuse to keep money out of SCAR scripts.


It just doesn't work how you want it to.

From: R0b0t1
See, this whole fucking thing wouldn't have happened if it wasn't for the greedy assholes who refuse to keep money out of SCAR scripts.


It just doesn't work how you want it to.

what you mean?

I'm tired of the people trying to sell their work they have coded in SCAR. Money complicates everything, and this is no exception. I'm also tired of the stupid complaints that the people who have made the script and try to sell it when it finally gets cracked or something like that.

So everyone selling a SCAR script should go GET A FUCKING JOB!

From: R0b0t1
I'm tired of the people trying to sell their work they have coded in SCAR. Money complicates everything, and this is no exception. I'm also tired of the stupid complaints that the people who have made the script and try to sell it when it finally gets cracked or something like that.

So everyone selling a SCAR script should go GET A FUCKING JOB!

Selling a great scar script that you made is work. Fun work. Not good money for you, but you could pull in $500 or so after a while. But I'm not going to argue with you, because you have good points.

Then have fun keeping the authorization/obfuscation secret.

i agree with R0b0t1 on the terms of cracking scripts. scar is a free program all things it produces should be free imo.

but now back ontopic im going to say no to this app (sorry) :( there are too many things that have been pointed out that need doing.

but dont forget too keep trying and im sure with your next script you will get in. (i had to apply twice myself)

From: R0b0t1
Then have fun keeping the authorization/obfuscation secret.

It's not the fact that he cracked the script that annoys me. It's the fact that he cracked the script for the sake of showing off…and I don't vote for arrogance in members.

So? He didn't "crack" anything. He figured out how to remove the End Of File character that was placed to hide the code and added a New Line character after each semi-colon to make it readable. He then could have used find and replace to replace all of the random symbols, as you can clearly see what type they are…

But thats not really the point. You've show off too? The whole voting process involves showing off your work. I could care less that he cracked someone else's script, because authing/obfuscation in SCAR isn't the easiest of tasks. You should not be biased either by what he may have done that would not effect you.

No from me also, not necessarily for the script either.

One of my reasons is that ALL you do is hijack threads, the majority of your posts that I read are hijacking the original thread to absolutely nothing even close to be worth mentioning in the topic of the thread.

From: R0b0t1
So? He didn't "crack" anything. He figured out how to remove the End Of File character that was placed to hide the code and added a New Line character after each semi-colon to make it readable. He then could have used find and replace to replace all of the random symbols, as you can clearly see what type they are…

But thats not really the point. You've show off too? The whole voting process involves showing off your work. I could care less that he cracked someone else's script, because authing/obfuscation in SCAR isn't the easiest of tasks. You should not be biased either by what he may have done that would not effect you.

Cracking a script is like going to the shops and stealing, shops are open soruced? so whats the diffrence between cracking a script thats for sale?

Off:
BobboHobbo, did zasz told to public that he cracked it and how he did it?
…
That, would be kinda lame…He should just warn you about easy crackable script

And I agree selling scripts if it's your own work…and you made it for sale…
It peoples own business, does they buy or not…

Also I agree with robot1, there would not be such a problem if we all would be millionares…
It's all about money :)

Home was barred from SRL Members for cracking Stars Esse miner

He just was finally allowed in like int he summer I believe

From: Negaal
Off:
BobboHobbo, did zasz told to public that he cracked it and how he did it?
…
That, would be kinda lame…He should just warn you about easy crackable script

And I agree selling scripts if it's your own work…and you made it for sale…
It peoples own business, does they buy or not…

Also I agree with robot1, there would not be such a problem if we all would be millionares…
It's all about money :)

I just mentioned it 1nce and only 1nce in his thread. I just said check pm after but then i showed only and i repeat only him how i did it. Yes i got like 1 or 2 pm's asking me to show it but i refused and said i need permission from BH to do that.

If not everyone agrees with me, then how about we remove script sales from this site? It would make me happy because nothing done on another forum could be held against someone here, and it would get rid of the "OMFG! My script got crackedzored!" threads.

Ummm there are no script sales at this site anyway..

BH's script was a free preview

From: Hobbit
Ummm there are no script sales at this site anyway..

BH's script was a free preview

Sure was, but IDC cuz i know Zasz didnt give it out to anyone *Nuge* You of not */Nuge*

The Poll has closed
20 - no
7 - yes

Please reapply after the period of one month.

Cheers,
Hobbit