Results 1 to 6 of 6

Thread: repeat question

  1. #1
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default repeat question

    ok is there a code that if it cant find the rock it will do somet hing else like anti ban or sumtin

    ill ada failsafe so if your not buy the rock it will jsut log u out

  2. #2
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    ok if you are searching for the rock like - if findcolorspiral(code) then blah.

    just do

    Code:
    if not(findcolorspiral(code)) then antibanprocedure;
    I do visit every 2-6 months

  3. #3
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    im doing the srl skill


    and

    i cant figure out y im getting this error can someone fix it for me
    Line 174: [Error] (17265:1): Identifier expected in script C:\Users\JP\Desktop\jps noobs199000.scar

    line 174 is the until

    Code:
    procedure DropTheStuff;
    begin
    repeat
      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');
      Drops:= drops+1;
      Until not InvFull or (Drops > 30)
      end;
    end;

  4. #4
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    switch until line and end; line around

    and whip a ";" after drops > 30
    Project: Welcome To Rainbow

  5. #5
    Join Date
    Feb 2009
    Posts
    2,155
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    ok so this is my dropping procedure i need someones help to get it to stop minnig after it cant find any more of the iron dtm ill fix the other dtms after i get it to work
    Code:
    procedure DropTheStuff;
    begin
    repeat
     Disguise('dropping');
      //MithDTM:= DTMFromString('78DA637461606038C780021C1CE3184480342' +
     {      '310FF0702C62020E318031A60442281B427903844408D13903848' +
           '408D29A67BB0AAB946845D7708A8F123C21C90DFCFE057030046A' +
           '30EB0');
    
       //AddyDTM:= DTMFromString('78DA6374656060D0646440069E315E0C22401' +
           'A24FA1F081803810C05543510591809A40380840101354E40C29C' +
           '801A3320A14E408D03909025A0C693B01A0010E60813');
                                                                 }
       IronDTM:= DTMFromString('78DA637461626078C28002BC7495181E02694' +
           '620FE0F048C0140357718D000231209A43D806ADE12506346841A' +
           '13A09A4704D45801D5DC23A0C61EA8E63A0135AE40353708A8F10' +
           '2AAB9895F0D0074680FD3');
      {
       //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,2,2,False);
      wait(random(200));
      ChooseOption('Drop');
      wait(1000 + random(100));
      Drops:= drops+1;
      j:= j+1;
      g:= g+ 1;
      end;
      Until(;
    end;

  6. #6
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    You need to put a condition after the until

    so Until (False); would repeat forever. Just change it to something like InvEmpty or something along those lines.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

Thread Information

Users Browsing this Thread

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

Posting Permissions

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