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
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
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
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;
switch until line and end; line around
and whip a ";" after drops > 30
Project: Welcome To Rainbow
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;
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
There are currently 1 users browsing this thread. (0 members and 1 guests)