SRL Archive - First Scripts

ill be addin multi player and anti randomns as soon as there ready and updated so here my first script hope u enjoy


post proggys and bugs





[ATTACH]6319[/ATTACH]

Nice first script. Though i won't be able to test it, sorry. Try using Bitmaps or DTMs next time.

you should make the FindObjRock a const if you MUST use that..

const
  RockToMine = 'rimmington_Copper'; {rimmington_Clay
                                                      rimmington_Copper
                                                      rimmington_Tin
                                                      rimmington_Iron
                                                      rimmington_Gold
 
                                                      old_Clay
                                                      old_Copper
                                                      old_Tin
                                                      old_Iron
                                                      old_Coal
                                                      old_Mithril
                                                      old_Adamant
   
                                                      varrock_Clay
                                                      varrock_Copper
                                                      varrock_Tin
                                                      varrock_Iron
                                                      varrock_Silver
   
                                                      lumbridge_Copper
                                                      lumbridge_Tin
                                                      lumbridge_Coal
                                                      lumbridge_Mithril
                                                      lumbridge_Adamant
   
                                                      falador_Clay
                                                      falador_Copper
                                                      falador_Tin
                                                      falador_Iron
                                                      falador_Coal
                                                      falador_Mithril
                                                      falador_Adamant}

//Code;

  if(FindObjRock(x, y, StrToInt(RockToMine)))then //StrToInt turns a string into an integer.. it's for parameters ;)
    //Stuff;

hopefully that makes sense :D

From: Smarter Child
Nice first script. Though i won't be able to test it, sorry. Try using Bitmaps or DTMs next time.

ok im usong a dtm is there any way to make the dtm repeat till the inv is empty

if theres a code can u add i to my dtm

procedure DropTheStuff;
begin
  MithDTM:= DTMFromString('78DA637461606038C780021C1CE3184480342' +
       '310FF0702C62020E318031A60442281B427903844408D13903848' +
       '408D29A67BB0AAB946845D7708A8F123C21C90DFCFE057030046A' +
       '30EB0');

   AddyDTM:= DTMFromString('78DA6374656060D0646440069E315E0C22401' +
       'A24FA1F081803810C05543510591809A40380840101354E40C29C' +
       '801A3320A14E408D03909025A0C693B01A0010E60813');

   IronDTM:= DTMFromString('78DA633CC4C4C0F0940105F819AA328800694' +
       '620FE0F048CFB30D540646124903E0854F38A809AA340352F08A8' +
       '01D9F589809A8D4035CF09A8D90D547393809A6340353708A8390' +
       '754F388809A5340356FF0AB0100BA0D1568');

   CoalDTM:= DTMFromString('78DA639CC6C4C0F08C01059899A9328800694' +
       '620FE0F048C8B816A6E33A001462412482F02AA794D40CD64A09A' +
       '4F04D4B403D5BC2042CD13026A2601D5DC20A0A61BA8E61E7E350' +
       '0164F1082');

   CopperDTM:= DTMFromString('78DA6374656260E060644006B7EA2D1944803' +
       '448F43F10300602D530A2AA81C8C24820ED03542340408D3D508D' +
       '180135C64035DC04D4D801D5FC61C0AFC683B01A008E8109D6')

   TinDTM:= DTMFromString('78DA637463606058C58002BA9B1A194480342' +
       '310FF0702C620206301031A60442281740090584F408D3390D846' +
       '408D3990D848408D0590584C408D2390984D408D079098835F0D0' +
       '05B190D13');
  If FindDTM(MithDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
  If FindDTM(AddyDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
  If FindDTM(IronDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
  If FindDTM(CopperDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
  If FindDTM(TinDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
  If FindDTM(CoalDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
  Begin
  Mouse(x,y,0,0,False);
  ChooseOption('Drop');
  end;
end;