SRL Archive - Archive

freakymonkey - SRL Member Application Form

FreakyMonkey

2008-04-25 23:59:38

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

What is the meaning to life?

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

Programming Knowledge
No, SCAR is the first programming language that I have learned.

Other Communitys
Poopnsuch (Programming Site In General)

How Long have You Played Runescape
6 Years

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

I have been playing Runescape for 6 years and have enjoyed playing the game for all the memories and experiences that I've had. When I found SCAR I hoped to use it to my advantage in Runescape, but found out that I would rather help make scripts that help the SRL community rather than use them to increase my level in Runescape. I have been a member of SRL for months now, building my knowledge about the wonderful programming language and expanding the failsafes and limiting the bugs in my scripts with the help of many tutorials and all the help i received from the Scripting Help forum. After many months I have understood the anger that scripters have towards non-contributors and have felt this anger myself when i see '7 Views' of my script but NO PROGGIES and only one post…. However, this programming language gave me something to look forward to when I came home from school; it gave me a new perspective about the Pascal language and i hope by becoming a SRL member that i can continue to become acquainted with new functions, methods, and ideas for new scripts that will continue to help the SRL community.

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

Freakymonkey's Leather Crafter

Uses SCAR 15 REV #14

This is my leather crafting script that I have currently been working on. In essense this script takes tanned leather from the bank (soft leather, hard leather) and crafts it into your choice of either chaps, cowls, coifs, leather armor, and hard bodies.

Instructions

{===============================INSTRUCTIONS==============================}
{1.Start In Any Free World Bank!                                          }
{2.Have Your Needle And Thread in Inv.                                    }
{3.If You Don't Have Them in Your Inv. It Will Search For It In Your Bank!}
{4.Fill Out Lines 18-28 and the Declare Players                           }
{5.You Can Start Logged In Or Logged Out!                                 }
{6.YOu Can Use Any Amount Of Players!                                     }
{7.It Will Enter In The Pin.                                              }
{8.THIS AUTOER CRAFTS LEATHER ARMOR,COIFS,COWLS,HARD BODIES,AND CHAPS     }
{9.I Will Try To Add In A Function For DragonHide Armor!                  }
{10.If You Have Suggestions PM Me On SRL                                  }
{11.ENJOY! =)                                                             }

This Is My Script!

program FreaksAutoLeatherCrafter;
{.include SRL/SRL.scar}
{.include SRL/SRL/Misc/WorldSwitcher.scar}

{===============================INSTRUCTIONS==============================}
{1.Start In Any Free World Bank!                                          }
{2.Have Your Needle And Thread in Inv.                                    }
{3.If You Don't Have Them in Your Inv. It Will Search For It In Your Bank!}
{4.Fill Out Lines 18-28 and the Declare Players                           }
{5.You Can Start Logged In Or Logged Out!                                 }
{6.YOu Can Use Any Amount Of Players!                                     }
{7.It Will Enter In The Pin.                                              }
{8.THIS AUTOER CRAFTS LEATHER ARMOR,COIFS,COWLS,HARD BODIES,AND CHAPS     }
{9.I Will Try To Add In A Function For DragonHide Armor!                  }
{10.If You Have Suggestions PM Me On SRL                                  }
{11.ENJOY! =)                                                             }

//========================VERSION HISTORY============================//
///////////////////////////////////////////////////////////////////////
//           VERSION .1     BETA                                     //
///////////////////////////////////////////////////////////////////////
// AntiBan,AntiRandom,AutoResponder,LevelCheck,Customized Login Check//
// Multiplayer,TPA Inv Object Finder, Disabled Dragon Leather Crafter//
///////////////////////////////////////////////////////////////////////


//==========================CREDITS==================================//
///////////////////////////////////////////////////////////////////////
// Major Thanks To WhoCares357 For So Much Support! =)               //
///////////////////////////////////////////////////////////////////////
//  Major Advisors In Scripting Help Forum==>Hella Lotta Help! =)    //
//  n3ss3s==>Wonderfully Explicative TPA TUT XD                      //
//  Everyone Who Gave Me Advice In Genereal==>HELL OF A LOT OF HELP  //
//  Nauman,JAD==>Great SRL Members Tutorial That Gave Me A Basis XD  //
//  SRL DEVELOPERS                                                   //
///////////////////////////////////////////////////////////////////////

var
LevelIncrease,LevelIncrease2,x,y,z: Integer;
LevelReq,leather,crafted,antirandom,loads,Needle,CDTM,Thread: Integer;
SoftLeather,HardLeather,Dragonleather: Integer;
StXp,Endxp,TestColor:integer;
i: integer;
bankname: String;

///////
const//
///////
//=====================================================================================
CraftHL=False; //Craft Hard Leather?
CraftSL=True;  //Craft Soft Leather?
CraftDL=FALSE; //Craft Dragon Leather? TEMPORARILY DISABLED
WhatToCraft='chaps'; //Which Type Of Clothing To Craft? hard body,coif,cowl,armor,chaps
NameofBank='al kharid'; //Which Bank To Craft In?
TAntiBan=True; //Uses Talking AntiBan (Rare)
NTAntiBan=True; //Uses Non Talking AntiBan(More Common)
NumberofTimes=20; //Number Of Times To Craft (Before Switching?)<==If Applies
UseAutoResponder=True;//Use Auto Responder?
UseMultiple=False; //Use Multiple Characters?
Sleeping=True; //Sleep?
SleepTime=10; //Time To Sleep For (In Minutes Can Be Decimalized!).
SRLIdentification=''; //SRL ID. Not Your Forum ID!
SRLPASS=''; //SRL Password.
//=====================================================================================

//=========================================//
Version='.1';                              //NO TOUCHING!
//=========================================//

Procedure DeclarePlayers;
begin
     HowManyPlayers  :=1;
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer:=0;

     Players[0].Name :=''; //Username For Runescape
     Players[0].Pass :=''; //Password For Runescape
     Players[0].Nick :='';  //Three Words From Your Username
     Players[0].Active:=True; //If This Player Is Active
     Players[0].pin := 0000; // Your Pin Number.

   { Players[1].Name :=''; //Username For Runescape
     Players[1].Pass :=''; //Password For Runescape
     Players[1].Nick :='';  //Three Words From Your Username
     Players[1].Active:=True; //If This Player Is Active
     Players[1].pin := 0000; // Your Pin Number. }

     //Add More Players If You Wish
   Writeln('You are using '+inttostr(howmanyplayers)+' player[s]');
   Writeln('Good Luck');

   MouseSpeed:=15;//Higher Maybe If Higher Lag?

end;

//========================================//
//                                        //
procedure LevelCheck;forward;             //
procedure Depositing;forward;             //
procedure FindNeedleAndLeather;forward;   //
procedure WaitWhileCrafting;forward;      //
function Loggedin2:boolean;forward;       //
procedure Coordinatemapping;forward;      //
function IsInventoryOpen:Boolean;forward; //
//                                        //
//========================================//

procedure BankTrans;
begin
  bankName := '';
  case NameofBank of
   'al kharid':    bankName:='akb';
   'falador east': bankName:='feb';
   'falador west': bankName:='fwb';
   'edgeville':    bankName:='eb';
   'varrock west': bankName:='vwb';
   'varrock east': bankName:='veb';
   'draynor':      bankName:='db';
  end;
  if bankName = '' then
  begin
    WriteLn('Put in the correct bank.');
    TerminateScript;
  end;
end;



procedure DeclareDTMS;

begin
  if CraftSL=True then
  begin
  case lowercase(WhatToCraft) of
  'coif':begin
            CDTM := DTMFromString('78DA6314666060606740019696B6609A11CA6' +
                      '76405126C0C688011550D489E93801A6E20214A408D00901021A0' +
                      '461248481150230324848970B3007E350046B601B7');
           LevelReq:= 38;
         end;
  'cowl':begin
            CDTM := DTMFromString('78DA6314606060606740011AAAE2609A11CA6' +
                       '7940012BC0C688011558D18A639186A9881040701356C40828980' +
                       '1A1E20214C400DC8CD1294AB0100F7DC0167');
            levelreq:=14;
         end;
  'armor': begin
               CDTM := DTMFromString('78DA63E463606000612460A0A708A619A17C4' +
                            '66620C1CA80061831D5081250033243880835E204D4F000096902' +
                            '6A0489502309244408A89102123CF8D5000045DA01AB');
              LevelReq:=14;
            end;

  'chaps': begin
              CDTM:= DTMFromString('78DA63E4636060106140010A6126609A11CA6' +
                         '7E400129C0C688011550D0F906026A0468008354240828D801A90' +
                         '7B3908A8E10212F204D47013A106E41E19FC6A00787301CF');
            LevelReq:=18;
           end;
  end;
   if CraftDL=True then
   case WhatToCraft of
     'RVambraces','GVambraces','BLVambraces','Bdbody':begin
                                                        CDTM:= DTMFromString('78DA635CC7CCC090C1C4800C44458419FE0 36' +
                                                             '94620FE0F048C7B816AB250D540646124905E0454934B40CD 5AA0' +
                                                              '9A78026A5601D594E057030059E30AD5');
                                                      end;
     'RDBody','GDBody','BdBody','BLDBody':begin
                                             CDTM:= DTMFromString('78DA63AC646460F0036224C012C201A661A28' +
                                                              'C45409633AA1A982C5C4D33116A9A80AC28026A4A80AC68026AAA' +
                                                              '80AC1822DCE34F404D2190E54B404D3990E5845F0D00737B0799');
                                          end;
     'RDLegs','BLDLegs','BDlegs','GDLegs':begin
                                             CDTM:= DTMFromString('78DA63AC62646068026224C019CE03A661A28' +
                                                                  'CE5405619AA1A71714954357544A8A905B226A1AA616060C2B40B' +
                                                                  '4D8D989804AA9A5220AB99805D0D40563BAA1A46341A00C304089' +
                                                                  '9');
                                          end;
   end;
   
   if CraftHL=True then
   begin
     CDTM := DTMFromString('78DA63146060601066400121FE960CFF81342' +
       '310FF0702463E208385010D302291409A0348301150C346841A66' +
       '20C147400DC82D6204D470020939026A248084287E35005B0B06B' +
       '5');
     LevelReq:=23;
   end;

   if CraftHL=True then
   begin
    HardLeather := DTMFromString('78DA6314646060E061400196460A0CBF80342' +
       '310FF0702466920838F010D302291401AA48695801A2E20214140' +
       '8D18909024A08619480813A18693801A7620C1845F0D00389E067' +
       'B');
    Leather:=Hardleather;
   end;
  if CraftSL=true then
  begin
      SoftLeather := DTMFromString('78DA6394646060E06340017E9E5C0CBF80342' +
       '310FF0702465520838B010D302291405A1148B01250230E249808' +
       'A801D92342841A21026A78818438013562404286087F49E257030' +
       '062530711');
     leather:=Softleather;
  end;
  if CraftDL=True then
  begin
      Dragonleather:= DTMFromString('78DA636C636660C860624006392929609A1 1C' +
           'A679C82A906260B575309549343404D2B504D2C0135BD4035 15F8' +
           'D50000BC120612');

      leather:=DragonLeather;
  end;

  Needle := DTMFromString('78DA858C390E80300C04D71C12385C521AF87' +
       '77A9E1AA624147825CF6E31B225499B9ADCA5A8D2C65562CE58F4' +
       '89BD481FA00F9C099C81D381AB35927BEB8C20077F66B006CE0E8' +
       '67FE7016C1707B6');

  thread := DTMFromString('78DA6314666060106040019B972F67F80FA41' +
       '981F83F1030CA0219DC0C6880118904D212408295801A51202141' +
       '400D3F909027A0861348C81250C34AD82E00B4650817');
  end;
 end;



procedure DragonTrans;

begin
  if CraftDL=True then
  begin
    case WhatToCraft of
      'GDBody': LevelReq:=63;
      'RDBody': LevelReq:=77;
      'BLDBody': LevelReq:= 84;
      'BDBody': LevelReq:=71;
      'GDLegs': LevelReq:=60;
      'RDLegs': LevelReq:=75;
      'BLDLegs': LevelReq:=82;
      'BDLegs': LevelREq:=68;
      'BVambraces': LevelReq:=66;
      'RVambraces': LevelReq:=73;
      'GVambraces': LevelReq:=57;
      'BLVambraces': LevelReq:=79;
    end;
  end;
end;

procedure SleepyBaby;//by Freakymonkey

var
Sleepy,SSleep,Secs,Mints:integer;

begin
  if Sleeping=True then
  begin
    if not LoggedIn2 then
    begin
      repeat
         Sleepy:=Sleepy+1;
         Logout;
         Wait(2000+random(200));
      until(not Loggedin)or (Sleepy=5);
    end;
  end;
  if Sleepy=5 then
  begin
    Writeln('Could Not Log Out To Sleep!');
    Writeln('TERMINATING SCRIPT AS A SAFETY PRECAUTION!');
    TERMINATESCRIPT;
  end;
  if not LoggedIn then
  begin
    MarkTime(ssleep);
    repeat
       Secs:=Secs+1;
       Disguise(inttostr(Secs)+' second[s] Slept So Far!');
       Wait(1000);
    until(Secs mod 59=0);
  end;
  if Secs mod 59=0 then
  begin
    Secs:=0;
    Mints:=Mints+1;
    repeat
      Secs:=Secs+1;
      Disguise(inttostr(mints)+' minute[s] and '+inttostr(secs)+' second[s] Slept So Far!');
      Wait(1000);
      if Secs mod 59=0 then
      begin
        Secs:=0;
        Mints:=Mints+1;
      end;
    until(timefrommark(ssleep)>=SleepTime*60000);
  end;
end;

function IsRsLoading:Boolean; //Thank You n3ss3s Wonderful TUT
//by freakymonkey
var
LoadCol: Tpointarray;
colortoler,MW,CX,a,sha:integer;
RX: integer;

begin
  Colortoler:=Getcolortolerancespeed;
  if not colortoler=2 then
    colortolerancespeed(2);
    CX:=5;//fast use
  FindColorsspiralTolerance(x,y,LoadCol,1118604,230,233,524,275,CX);
  RX:=High(loadcol);
  Sha:=GetArrayLength(LoadCol[a]);
  for a:=0 to RX do
  begin
    if sha>50 then
    begin
      Writeln('RS is loading...');
      Result:=True;
    end else
      Writeln('Rs Is not Loading');
      Result:=False;
  end;
end;

function FindCHatBoxBlueTalk:boolean;

var

ChatB, BlueTalk: TpointArray;
Tol,a,i: integer;
cick,cick2: boolean;

begin
  Cick:=False;
  Cick2:=False;
  if GetColorToleranceSpeed>2 then
    Colortolerancespeed(2);
    Tol:=15; //fast use
  FindColorsSpiralTolerance(x,y,ChatB,11127516,10,352,470,438,Tol);
  for a:=0 to High(ChatB)do
  if GetArrayLength(ChatB[a])>=20 then
    begin
      Cick:=True;
      FindColorsSpiralTolerance(x,y,bluetalk,16711680,10,352,470,438,Tol);
    for i:=0 to High(bluetalk)do
      if getarraylength(bluetalk[i])>=5 then
      begin
        Cick2:=True;
        Result:=True;
      end;
    end;
    if Cick=False then
    begin
      Result:=False;
      Writeln('Did not Find ChatBox Screen');
    end;
    if Cick2=False then
    begin
      Result:=False;
      Writeln('Nobody is talking in chatbox.');
    end;
end;





procedure FAutoResponder; //by freakymonkey

var
NName:String;

begin
  NName:=TrimNumbers(Players[currentplayer].name);
  TrimNumbers(Players[currentplayer].name);
  if UseAutoResponder=True then
  begin
    Writeln('Starting up Auto Responder');
    if InChat(players[currentplayer].nick)then
    case random(5)of
      1:begin
         TypeSend('Ya huh =)'+Players[CurrentPlayer].name+'s my name');
         Wait(2000+random(200));
         TypeSend('Normally i would chat but im on a tight schedule');
        end;

      2:begin
         TypeSend('Los siento...no ingles...');
         Wait(2000+random(200));
         TypeSend('Soy de Mexico =)');
        end;

      3:TypeSend('Soz dude cant talk... workin on fletching..');

      4:begin
          TypeSend('Ya watcha want homie XD');
          Wait(2000+random(2000));
          TypeSend('Just kidin bim not black');
        end;
    end;
  end;

  if inchat('macro')then
    case random(6)of
      1:begin
       TypeSend('Macroers...are SO h0m0...');
       Wait(2000+random(200));
       TypeSend('Would u guys not agree?');
      end;

      2:TypeSend('They ruin the game for everyone!');

      3:TypeSend('Jesus..they took the wildy away from us =/');
    end;

  if inchat('craft')and inchat('level?')then
  case random(4)of
    1:begin
        TypeSend('Wait h/o lemme check');
        Wait(3000+random(3000));
        TypeSend('Mines'+inttostr(LevelIncrease));
        Wait(200+random(250));
        TypeSend('U?');
        Wait(6000+random(2000));
        if inchat(IntToStr(1+random(98)))then
        begin
          TypeSend('Sweet');
          Wait(2000+random(200));
        end;
      end;
     2:begin
         TypeSend('Mines '+inttostr(LevelIncrease));
         Wait(2000+random(2000));
         TypeSend('And you?');
       end;
   end;

  if inchat('esta')or inchat('aqui')or
     inchat('ja  ') or inchat('guapo')then
       case random(4)of
         1:begin
             Typesend('I DONT SPEAK FOREIGN DAG GUMMIT!');
             Wait(2000+random(200));
             TypeSend('Im srry that was uncalled for...=(');
           end;

         2:begin
             TypeSend('srry dont speak spanish');
             Wait(2000+random(200));
             TypeSend('haha i bet u speak it well though =)');
           end;
       end;


 end;

 procedure TalkAnti;

 begin
   if not LoggedIn then
     NextPlayer(False);
   if TAntiBan=True then
   case random(501)of
    1:TypeSend('sup?');
    2:TypeSend('Wat was that?');
    3:TypeSend('Hah');
    4,194:TypeSend('Crafting...gets boring sometimes..');
    6,142:TypeSend('Willows are great xp');
    7,33: begin
            TypeSend('Crafting lvls?');
            Wait(2000+random(200));
            SendKeys('Mines');
            SayCurrentLevels('crafting');
           end;
    8,14: TypeSend('HAHA tight!');
    20,198: begin
            SendArrowSilentWait(1, 5000);
            Wait(1000+random(3000));
            TypeSend('Flash2: HaHa WEEEEEE!!');
            Wait(2000+random(4000));
            TypeSend('Im kinda weird ya...im moving the direction around XD');
            Wait(2000+random(400));
           end;
    21,50,126,345:TypeSend('Hopefully i can get to '+(inttostr(levelincrease+1+random(4)))+' crafting by tonight!');
   end;
end;

procedure NonTalkAnti;

var
Movement:Integer;

begin
  if not LoggedIn then
    NextPlayer(False);
  if NTAntiBan=True then
  case random(200)of
    7: RandomRClick;
    8: BoredHuman;
    9: HoverSkill('Mining', False);
    10: HoverSkill('Woodcutting', False);
    11: HoverSkill('Fletching',False);
    14: Hoverskill('Random',False);
    12: AlmostLogout;
    13: PickUpMouse;
    16: begin
            Gametab(1+random(5));
            Wait(5000);
            Gametab(4);
           end;
    17: MMouse(200+random(400),300+random(300),2+random(90),3+random(99));
    18: MMouse(200+random(400),300+random(300),2+random(90),3+random(99));
    19: begin
          MouseSPeed:=5;
          repeat
            MoveMent:=Movement+1;
            MMouse(200+random(400),300+random(300),2+random(90),3+random(99));
          until(Movement=5);
          if Movement>=5 then
            MouseSpeed:=15;
        end;
  end;
end;

procedure AntiRandoms;

var
i,q:Integer;

begin
 if InBlack or NoGameTab then
 case random(4)of
  1:begin
     AntiRandom:=Antirandom+1;
     TypeSend('snap..');
     Logout;
     Wait(2000+random(300));
     if LoggedIn then
     repeat
      Writeln('Could Not log out for some reason. Trying again.');
      Logout;
     until(not Loggedin);
    end;

  2:begin
     AntiRandom:=AntiRandom+1;
     TypeSend('Aw jeez here we go again..');
     Logout;
     Wait(2000);
     if LoggedIn then
     repeat
       Writeln('Could Not log out for some reason. Trying again.');
       Logout;
     until(not Loggedin);
    end;

  3:begin
     AntiRandom:=AntiRandom+1;
     TypeSend('Oh lord...just crafting and this happens');
     Logout;
     Wait(2000+random(300));
     if LoggedIn then
     repeat
      Writeln('Could Not log out for some reason. Trying again.');
      Logout;
     until(false);
    end;
  end;

begin
 if FindFight then
 begin
  AntiRandom:=AntiRandom+1;
  TypeSend('Snappities =(');
  Wait(2000+random(400));
  Runto('n',true);
  Depositing;
 end;
end;

begin
  if FindDead or Ischatblacktextanyline('Oh dear')then
  begin
    Writeln('You are dead performing antiban and terminating script.');
    Wait(2000+random(200));
    case random(4)of
      1:TypeSend('Dang i died....');
      2:TypeSend('Freakin....died again?');
      3:begin
          q:=1;
          TypeSend('Gosh i can neva stop dying...');
          Wait(2000+random(200));
          TypeSend('Oh wel...lets dance!');
          Wait(2000+random(200));
          DoEmote(13);
          if ischatblacktextanyline('unlock')then DoEmote(11);
        end;
    end;
  begin
    if (q<1)then
    begin
      DoEmote(17);
      Wait(2000+random(200));
    end;
      Logout;
      NextPlayer(false);
  end;
 end;
end;

begin
 if FindNormalRandoms then
 begin
   AntiRandom:=AntiRandom+1;
   Logout;
   NextPlayer(True);
 end;
end;
end;


procedure LevelCheck; //by freakymonkey

var
Doit: integer;

begin
  Doit:=GetSkillInfo('Crafting',false);
  if (Doit)<(LevelReq)then
  begin
    WriteLn('You dont have the appropriate level to craft this type of leather');
    TerminateScript;
  end else
  Writeln('Your Crafting Level is '+IntToStr(GetSkillInfo('Crafting',false)));
  LevelIncrease:=Doit;
end;

procedure SetupRS;

begin
 if not LoggedIn2 then NextPlayer(False);
   StXp:= GetXp('crafting');
   GetXp('crafting');
   Wait(2000+random(200));
   LevelCheck;
   Wait(1000+random(100));
   if not IsInventoryOpen then
     GameTab(4);
   Wait(750);
   SetChat('on',1);
   Wait(2000+random(200));
   SetChat('off',2);
   Wait(1000+random(100));
   SendArrowWait(0,1000);
   MakeCompass('n');
 end;

procedure OpeningBank;

var
Tries,FB,AT: Integer;
Cha,it:boolean;

begin
  Writeln('Starting to Open Bank');
  repeat
    Tries:=Tries+1;
    OpenBankQuiet(BankName);
  until(BankScreen)or (Pinscreen)or(Tries>5);
    if Tries>5 then
    begin
      Writeln('You are not in the right bank or we cannot find it');
      Writeln('Switching chars!');
      Nextplayer(false);
    end;
    if PinScreen then
    begin
      Inpin(Inttostr(Players[0].pin));
      if ischatblacktextanyline('try')then
      begin
        Writeln('We Incorrectly entered the pin.');
        OpenBankQuiet(bankname);
        Inpin(Inttostr(Players[0].pin));
      end;
        Writeln('We have entered the pin or should have.');
    end;
    if BankScreen then
    begin
      repeat
        FB:=FB+1;
        FindDTM(leather,x,y,23,57,478,303);
      until(FindDTM(leather,x,y,23,57,478,303))or
      (FB>=50);
    end;
    if FB>=50 then
    begin
      Writeln('COuld not find the '+inttostr(leather)+' . switching chars!');
      nextplayer(false);
    end;
    if FindDTM(leather,x,y,23,57,478,303)then
    begin
      It:=False;
      Cha:= ChooseOption('draw X');
      repeat
        AT:=AT+1;
        Mouse(x,y,1+random(8),1+random(8),false);
        Wait(2000+random(200));
       ChooseOption('draw X');
      until(FindColor(x,y,4231423,x-22,y-72,x+40,y-3))or (AT=5);
      if (FindColor(x,y,4231423,x-22,y-72,x+40,y-3)) then
      begin
        Wait(2000+random(200));
        TypeSend(inttostr(27+random(200)));
        Writeln('We withdrew the leather...or we should have =)');
        CLOSEBANK;
      end;
      if AT=5 then
      begin
        Writeln('Something Is Wrong. Extreme Lag or We re off switching players');
        Logout;
        nextplayer(false);
      end;
    end;

end;

procedure AbsentNeedle;

var
Tries2,FN: Integer;

begin
  Writeln('Trying to Open bank to find a needle!');
  repeat
    Tries2:=Tries2+1;
    OpenBankQuiet(BankName);
  until(BankScreen)or (Tries2>5);
    if Tries2>5 then
    begin
      Writeln('You are not in the right bank or we cannot find it');
      Writeln('switching chars!');
      TERMINATESCRIPT;
    end;
    if BankScreen then
    begin
      repeat
         FN:=FN+1;
         FindDTM(Needle,x,y,23,57,478,303);
      until (FN>=50) or (FindDTM(Needle,x,y,23,57,478,303));
      if FN>=50 then
      begin
        Writeln('You DONT have a needle..switching chars!');
        Nextplayer(false);
      end;
      begin
      if FindDTM(Needle,x,y,23,57,478,303)then
        begin
          Writeln('We have found the needle in your bank!');
          Mouse(576,229,1+random(8),1+random(8),true);
          Writeln('Deposited first item in inv.');
          Mouse(x,y,1+random(8),1+random(8),true);
          CLOSEBANK;
          FINDNEEDLEANDLEATHER;
        end;
      end;
   end;
end;

procedure AbsentThread;

var
FT,Tries3: Integer;

begin
  Writeln('Opening bank to try and find absent thread!');
  repeat
    Tries3:=Tries3+1;
    OpenBankQuiet(BankName);
  until(BankScreen)or (Tries3>5);
    if Tries3>5 then
    begin
      Writeln('You are not in the right bank or we cannot find it');
      Writeln('switching chars.');
      Nextplayer(false);
    end;
    if BankScreen then
    begin
       if FindDTM(leather,x,y,549,205,740,465)then
         Mouse(x,y,1,1,true);
      repeat
         FT:=FT+1;
         FindDTM(Thread,x,y,23,57,478,303);
      until (FT>=50) or (FindDTM(Thread,x,y,23,57,478,303));
      if FT>=50 then
      begin
        Writeln('You DONT have Thread... switching chars.');
        Nextplayer(false);
      end;
      begin
        if FindDTM(Thread,x,y,23,57,478,303)then
        begin
          Mouse(x,y,1+random(8),1+random(8),false);
          Wait(2000+random(200));
          ChooseOption('draw X');
          Wait(2000+random(200));
          TypeSend(inttostr(200+random(200)));
          Writeln('Retrieved Thread');
          CLOSEBANK;
          FINDNEEDLEANDLEATHER;
        end;
      end;
  end;
end;

function Loggedin2:boolean;// Thanks Cazax For Your Very Skilled TUT
                            //Just Did This To Show That I Understand
//by freakymonkey
var
  R,G,B : Integer;
  H,S,L : Extended;
  X,Y,Z : Extended;
  L1Color: Integer;
  CTPA : TPointArray;
  Uno: TIntegerArray;
  i : Integer;
begin
  L1color :=16777215;
  FindColorsSpiralTolerance(MSCX, MSCY, CTPA, l1color, 210,177, 558, 363, 60);
  Uno := GetColors(CTPA);
  for i:=0 to Length(Uno)-1 do
  begin
    TestColor:=GetColor(CTPA[i].x,CTPA[i].y);
    if SimilarColors(TestColor,l1color,40)then
    begin
      ColortoRGB(testcolor,R,G,B);
      ColorToHSL(testcolor,H,S,L);
      ColortoXYZ(testcolor,x,y,z);
      if InRange(R-G,-15,15)then
        if Inrange(R-B,-15,15)then
          if Inrange(g-b,-15,-5)then
             if InRange(Round(S) - Round(H),-15,15) then
                if InRange(Round(L) - Round(H), 85, 115) then
                  if InRange(Round(S) - Round(L), -115,-85) then
                    if InRange(Round(X) - Round(Y),-20,10) then
                      if InRange(Round(Y) - Round(Z),-24,7) then
                         if GetColor(CTPA[i].X + 2, CTPA[i].Y + 2) = TestColor then
                            if GetColor(CTPA[i].X + 1, CTPA[i].Y + 1) = TestColor then

        begin
          WriteLn('We are logged in...');
          Result:=True;
        end;
      end;
    end;
  Writeln('We are Logged Out.');
  Result := False;
end;



function FindColorObjectInvTPA(color:integer;Text:String):Boolean;//Thanks n3ss3s Wonderful TUT
//by freakymonkey

var
OC: array of Tpoint;
I,C,AR,B,my,mx: integer;
ColorTols: integer;

begin
  ColorTols:=GetColorToleranceSpeed;
  if not Colortols=2 then
    colortolerancespeed(2);
  AR:=getarraylength(oc[i])
  C:=10;
  FindColorsSPiralTolerance(MSCX,MSCY,OC,COLOR,MIX1,MIY1,MIX2,MIY2,C);
  for i:=0 to Length(OC)-1 do
  begin
    if AR>=2 then
    begin
      repeat
        B:=B+1;
        C:=C-1;
        FindColorsSPiralTolerance(x,y,OC,COLOR,MIX1,MIY1,MIX2,MIY2,C);
      until(AR=1)or (b=5)and(Ar>=2);
    end;
   if AR=1 then
   begin
     GetMousePos(mx,my);
     MMouse(mx,my,1,1);//moves mouse on object
     If IsUpText(Text) then
       Result := True;
   end else
   if (B=5) and (AR>=2) then
   begin
     if GetArrayLength(oc[i])>=2 then
     begin
       MiddleTPAEx(Oc,x,y); //haha this is my idea of randomly XD
       MMouse(x,y,1,1);
       if IsUpText(Text)then
         Result:=True;
       end else
         begin
           Writeln('Cannot Find Object!');
           Result := False;
         end;
     end;
   end;
  end;
  
function IsInventoryOpen: boolean;

var
BackCol: TpointArray;
q,u,hx: integer;

begin
  if not GetColorToleranceSpeed=2 then
    ColorToleranceSpeed(2);
  U:=30;//Fast Change Tolerance
  FindColorsSpiralTolerance(x,y,BackCol,1976437,628,171,658,200,U);
  HX:=High(BackCol);
  for q:=0 to HX do
  begin
    if GetArrayLength(BackCOl[q])>=1 then
    begin
      Writeln('Inventory Is Open!');
      Result:=True;
   end else
     begin
       Writeln('Inventory is Not Open.');
       Result:=False;
     end;
 end;
end;

  
  



procedure DragonArea;

begin
  case whattocraft of
    'RVambraces','GVambraces','BVambraces':begin
                                             //coors here
                                           end;
    'RDBody','GDBody','BdBody':begin
                                 //coors here
                               end;

     'RDLegs','BDLegs','GDLegs':begin
                                  //coors here
                                end;
  end;
 WaitWhileCrafting;
end;

function WorldSwitch(world:integer): Boolean;

var
AT,SCHLA:integer;

begin
 Writeln('Starting up World SWitcher!');
  repeat
    AT:=AT+1;
    Logout;
  until(not loggedin) or (AT=10);
  if AT=10 then
  begin
    Writeln('cannot log out for some reason!');
    Writeln('Terminating script as a safety precaution!');
    Result:=false;
    TERMINATESCRIPT;
  end;
  if not loggedin then
  begin
    repeat
      SCHLA:=SCHLA+1;
      Worldswitchbutton;
    until(Worldscreen) or (SCHLA=5);
  end;
  if SCHLA=5 then
  begin
    Writeln('Major lag terminating script!');
    Result:=false;
    TERMINATESCRIPT;
  end;
  if Worldscreen then
  begin
    selectworld(world);
    Writeln('Switching to world '+inttostr(world));
  end;
  begin
    Wait(2000+random(200));
    if FindColor(x,y,0,174,107,266,174)then
    begin
      repeat
        Wait(10);
      until(not FindColor(x,y,0,174,107,266,174));
    end;
  end;
  begin
    repeat
      wait(10);
    until(not isrsloading);
    writeln('RS is loaded.');
  end;
  LoginPlayer;
  Result:=True;
end;



procedure FindNeedleAndLeather;

var
FN:integer;

begin
  LevelIncrease2:=GetSKillInfo('Crafting',false);
  GetSKillInfo('Crafting',false);
  if LevelIncrease2>LevelIncrease then
    Writeln('You Have Increased A Level!');
  Gametab(4);
  repeat
    FN:=FN+1;
    FindDTM(Needle,x,y,549,205,740,465);
  until(FindDTM(Needle,x,y,549,205,740,465))or
  (FN>=50);
  if FN>=50 then
  begin
    Writeln('No Needle in your Inventory Searching in bank....');
    AbsentNeedle;
  end;
  begin
    if not FindDTm(thread,x,y,549,205,740,465)then
      AbsentTHread;
    if FindDTM(Needle,x,y,549,205,740,465)then
    begin
      Mouse(x,y,1+random(8),1+Random(8),true);
      Writeln('The Needle should be used right now.');
    end;
  end;
  begin
    if FindDTM(leather,x,y,549,205,740,465)then
    begin
      Mouse(x,y,1+random(8),1+random(8),true);
      if FindTextTPA(0,5,229,396,286,410,'to make',NPCchars,nothing)then
      begin
        Writeln('You dont have thread');
        AbsentThread;
      end;
      Coordinatemapping;
    end;
  end;
 end;

procedure CoordinateMapping;

var
Time:integer;
clicked,option: boolean;

begin
  if (craftsl=true) or (crafthl=true) then
  begin
    Clicked:=false;
    MarkTime(Time);
  begin                               //haha thanks to everyone who helped me figure
   Option:=chooseoption('Make All');  //out how to do this =).
    case WhatToCraft of
      'chaps':while Clicked = False do
              begin
                if(TimeFromMark(Time) > 15000)then
                begin
                  NextPlayer(False);
                  Writeln('Major Lag Or Something...Switching Players..');
                  Exit;
               end;
               Mouse(x, y, 1, 1, False);
               Wait(1000);
               if Option then
                 Clicked := True;
             end;
    'armor':while Clicked = False do
              begin
                if(TimeFromMark(Time) > 15000)then
                begin
                  Writeln('Major Lag Or Something...Switching Players..');
                  NextPlayer(False);
                  Exit;
                end;
               Mouse(x, y, 1, 1, False);
               Wait(1000);
               if Option then
                 Clicked := True;
             end;
    'coif':while Clicked = False do
              begin
                if(TimeFromMark(Time) > 15000)then
                begin
                  Writeln('Major Lag Or Something...Switching Players..');
                  NextPlayer(False);
                  Exit;
                end;
               Mouse(x, y, 1, 1, False);
               Wait(1000);
               if Option then
                 Clicked := True;
             end;
    'cowl':while Clicked = False do
              begin
                if(TimeFromMark(Time) > 15000)then
                begin
                  Writeln('Major Lag Or Something...Switching Players..');
                  NextPlayer(False);
                  Exit;
                end;
               Mouse(x, y, 1, 1, False);
               Wait(1000);
               if Option then
                 Clicked := True;
             end;
    'hard body':while Clicked = False do
                begin
                  if(TimeFromMark(Time) > 15000)then
                  begin
                    Writeln('Major Lag Or Something...Switching Players..');
                    NextPlayer(False);
                    Exit;
                  end;
                  Mouse(x, y, 1, 1, False);
                 Wait(1000);
                  if Option then
                    Clicked := True;
                end;
  end;
 end;
    if Clicked=True then
      WaitWhileCrafting;
   if CraftDL=True then
     DragonArea;
 end;
end;

procedure WaitWhileCrafting;

var
Mark:integer;

begin
  MarkTime(mark);
    TalkAnti;
    repeat
      FAutoResponder;
      AntiRandoms;
      NonTalkAnti;
    until(TimeFromMark(Mark)>=50000);
  Crafted:=Crafted+26;
  Endxp:=GetXp('crafting');
  GetXp('Crafting');
end;

procedure Depositing;

var
Tries4,Dep,FZ: Integer;

begin
  Writeln('Opening bank to deposit crafted '+inttostr(CDTM)+'s!');
  repeat
    Tries4:=Tries4+1;
    OpenBankQuiet(BankName);
  until(BankScreen)or (Tries4=5);
    if Tries4=5 then
    begin
      Writeln('We cannot find the bank');
      Writeln('TERMINATING SCRIPT!');
      nextplayer(false);
    end;
    if BankScreen then
    begin
      repeat
        Dep:=Dep+1;
        FindDTM(CDTM,x,y,549,205,740,465);
      until(FindDTM(CDTM,x,y,549,205,740,465))or
      (Dep=5);
      if Dep=5 then
      begin
        Writeln('Cannot find the '+inttostr(CDTM)+'s. TERMINATING SCRIPT!');
        nextplayer(false);
      end;
      if FindDTM(CDTM,x,y,549,205,740,465)then
      begin
        Mouse(x,y,1+random(8),1+random(8),false);
        Wait(2000+random(200));
        ChooseOption('Store All');
        Loads:=Loads+1;
      end;
      begin
        repeat
          FZ:=FZ+1;
          FindDTM(leather,x,y,23,57,478,303);
        until(FindDTM(leather,x,y,23,57,478,303))or
      (FZ>=50);
    end;
    if FZ>=50 then
    begin
      Writeln('COuld not find the '+inttostr(leather)+' . Terminating the script!');
      nextplayer(false);
    end;
    if FindDTM(leather,x,y,23,57,478,303)then
    begin
      Mouse(x,y,1+random(8),1+random(8),false);
      Wait(2000+random(200));
      ChooseOption('draw X');
      Wait(2000+random(200));
      TypeSend(inttostr(27+random(200)));
      Writeln('We withdrew the leather...or we should have =)');
    end;
    CLOSEBANK;
  end;
end;

procedure Credits;

begin
 ClearDebug;
 Writeln('///////////////////////////////////////');
 Writeln('=========                            //');
 Writeln('==                                   //');
 Writeln('=======                              //');
 Writeln('==                                   //');
 Writeln('==                                   //');
 Writeln('==   REAKYMONKEYS AUTO CRAFTER       //');
 Writeln('Version'+' '+Version+'/////////////////////////////');
 Writeln('Special Thanks To WHOCARES357 and the staff of http://poopnsuch.com.');
 Wait(2000+random(200));
 ClearDebug;
end;

procedure Proggie;

var
ToTxp:Integer;

begin
  TotXp:=EndXp-StXp;
  Writeln('');
  Writeln('');
  Writeln('');
  Writeln('=========FREAKS AUTO==========');
  Writeln('Time Running     '+(TimeRunning));
  Writeln('Your Current Level    '+inttostr(levelincrease));
  Writeln('AntiRandom peformed' +inttostr(AntiRandom));
  if Crafted>=1 then
  Writeln('Number Crafted   '+inttostr(Crafted));
  Writeln('Item Crafted     '+Whattocraft);
  if Loads>=1 then
  Writeln('Loads done       '+inttoStr(loads));
  if Totxp>=50 then
  Writeln('Experience       '+inttostr(Totxp));
  Writeln('Version          '+version);
  if levelincrease2>levelincrease then
  Writeln('You increased    '+inttostr(levelincrease2)+'level[s]');
  Writeln('===========THANKS=============');
end;

begin
  Credits;
  SetupSRL;
   ScriptID:='784';
  SRLID:=SRLIdentification;
  SRLPASSWORD:=SRLPASS;
  begin
    case Random(3) of
     1:begin
        Writeln('Disguising as Itunes');
        Disguise('iTunes');
       end;
     2:begin
         Writeln('Disguising as AIM 6');
         Disguise('AIM 6');
       end;
     3:begin
         Writeln('Disguising as Paint');
         Disguise('Paint');
       end;
    end;
  end;
  begin
    if CraftDl=True then
    begin
      Writeln('Sorry, Ive Currently Disabled Dragon Crafting.');
      TERMINATESCRIPT;
    end;
    BankTrans;
    DeclarePlayers;
    DeclareDTMS;
    DragonTrans;
    ActivateClient;
    if not Loggedin then
     LoginPlayer;
    begin
      SetupRS;
      OpeningBank;
      repeat
        i:=i+1;
        z:=z+1;
        FindNeedleAndLeather;
        WaitWhileCrafting;
        Depositing;
        if i mod 1 = 0 then
          Proggie;
        if (z=NumberofTimes)then
          NextPlayer(False);
      until(false);
   TERMINATESCRIPT;
    end;
  end;
end.

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

P1nky

2008-04-26 00:23:49

i like it even though has no walking (which is a requirement well Radial Walking.) but you have potential and btw the randomtalk looks not too great.

Keep it up and GL btw i didnt read it deeply but took glances of it and looked great ill look into it 2mooro good night :) 1 am here shit

Naum

2008-04-26 04:00:08

YaY I've been credited, Looks worthy
Could add some randomness to DoEmote and maybe you could use the global co-ords in Globals.scar e.g MIX,MIY…

Nice to see you read my tut on WaitWhile ;).

Oh and this:

procedure DragonArea;
 
begin
  case whattocraft of
    'RVambraces','GVambraces','BVambraces':begin
                                             //coors here
                                           end;
    'RDBody','GDBody','BdBody':begin
                                 //coors here
                               end;
 
     'RDLegs','BDLegs','GDLegs':begin
                                  //coors here
                                end;
  end;
 WaitWhileCrafting;
end;

Maybe needs to be finished, What can I say

"Yes". Keep It Up!

Iron Man

2008-04-26 04:15:40

Uhh, do you know how to use mix1, miy1 etc?

AFAIK there isn't any freeing DTM's in your script?

You don't need to disguise SCAR, serves no purpose.

I see this(and other ones like it):


repeat
  FB:=FB+1;
  FindDTM(leather,x,y,23,57,478,303);
until(FindDTM(leather,x,y,23,57,478,303)) or
etc....

Why not just make it:


repeat
  FB:=FB+1;
until(FindDTM(leather,x,y,23,57,478,303)) or
etc...

I see a couple of these


Logout;
NextPlayer(True);

You don't need to logout before nextplayer, it includes it ;)

Umm, I'll hold vote and see other comments.

Metagen

2008-04-26 07:41:59

Very nice. i vote yes. Lots of failsafes. Good logic going on.
Excellent Standards, DTMs (you should probably free them, but i wont vote no because of that, its something you can fix in all of 10 minutes). Good Banking.


    if Tries2>5 then
    begin
      Writeln('You are not in the right bank or we cannot find it');
      Writeln('switching chars!');
      TERMINATESCRIPT; // thats not how you switch chars :p
    end;

also make use of this, i see you wrote an entire function to check for inventory being open

function GetCurrentTab: Integer;
By: Wizzup?
Description:
Returns current tab

but everyone learns SRL over time ;) good job, keep it up.

EvilChicken!

2008-04-26 07:59:20

I was planning to hold my vote..
Until I saw TPA stuff!

^_^

But, yes - you should do this after you've used them:


var
  LOL: Integer;

begin
  LOL :=DTMFromString('fsdjjfsiosfjio');
  if FindDTM(Ect...) then 
    Mouse(X, Y, 5, 5, true);
  FreeDTM(LOL);
end.

Something like this.

FreakyMonkey

2008-04-26 11:36:07

oh ok thanks guys, i have a lot to improve on this still. There are a lot of stupid errors that I forgot to change like the Terminatescript instead of nextplayer(false)….

and i should have freed my DTMs to reduce lag, thanks for pointing that out.

oh and ya btw, kinda got bored and did the disguise SCAR thing iron man XD, but ya i that repeat/until, i shoulda paid more attention to..

haha and nauman about the incomplete dragon crafting lol, didnt know how to map out the coordinates and/or colors when the crafting screen is pulled up because i dont have the required level to craft them. but ill get my crafting level up soon =)

WhoCares357

2008-04-26 22:17:49

The point of an app is to see what you know and how determined you are to know more. You show both very well with this script. I liked the TPA function and your show of knowing how colors work. These two things prove that you spent time reviewing tutorials (and other scripts?) to learn the how and why.

You also used a lot of failsafes which shows that you worked on this script for a while and did not just slap something together.

There are a few miner mistakes, but I think that you achieved the purpose of showing your determination and knowledge. I wish you well.

A yes from me.

Wizzup?

2008-04-30 06:41:54

Yes. In.

Sumilion

2008-04-30 06:42:13

Welcome!
In!
Aye Caramba!