alright so im just starting to get back into scripting again(i wasnt even that good before) so im really bad now and i need such serious help on this auto fighter its not even funny. all criticism will be taken wether it is constructive or not, and all HELP IS GREATLY APPRECIATED! i also understand certain parts i didnt even put in there mainly because i started to give up about half way through when i realised i completely forgot what i am doing.
Code:program NCDSautofight; {.include srl/srl.scar} {.include srl/srl/skill/fighting.scar} //------------------------------------------------------------------------------ var x, y, Bitmap: integer; //------------------------------------------------------------------------------ const MonsterName = '';//monster to attack (case sensitive) const Color1 = '';//first monster color const Color2 = '';//second monster color const Color3 = '';//third monster color const Color4 = '';//fourth monster color const Color5 = '';//fifth monster color const LogHP = '';//HP level to log out at //------------------------------------------------------------------------------ procedure NCDS; begin ClearDebug; Writeln(' xxxx xx xxxxxxxx xxxxxx xxxxxxx ') Writeln(' x x xx xx xx x x x x x x ') Writeln(' x xx xx xx x x x xxxxxxx x ') Writeln(' x x xx xx xx x x x x x x ') Writeln(' xx xxxx xxxxxxxx xxxxxx xxxxxxx ') Writeln(' ') Writeln('Under attack, will you defend your honor? ') Writeln('When no one has your back, will you press on or cowar?') end; //------------------------------------------------------------------------------ procedure AntiBan; begin case Random(10) of 0: TypeSend('Im soo bored') 1: TypeSend('Str lvl?') 2: TypeSend('Att Lev?') 3: TypeSend('Defence leval?')//miss spelled for more lifelike behavior 4: TypeSend('how long you been playing this game?') 5: TypeSend('keep singing nowww!!! haha') 6: TypeSend('i hate all those woodcutting bots') 7: TypeSend(' i wish jagex would ban all the WC bots!') 8: TypeSend('mining lvl?') 9: TypeSend('ugh my friends keep IMing me') 10:TypeSend('i wish i had friends') end; //------------------------------------------------------------------------------ procedure AutoRetaliate; // fawaki's autoretaliate begin GameTab(1); if Retaliate then begin If not FindColor(x, y, 1777020, 624, 385, 719, 396) then begin Mouse(666, 381, 8, 8, True); end; end; if not Retaliate then begin If FindColor(x, y, 1777020, 624, 385, 719, 396) then begin Mouse(666, 381, 8, 8, True); end; end; end; //------------------------------------------------------------------------------ procedure HighAngle; begin KeyDown(38); Wait(4000+random(500)); KeyUp(38); end; //------------------------------------------------------------------------------ procedure DeclareBMPS; begin logout_ := BitmapFromString(10, 9, 'beNqbWl8SZFHhZghE9YFGQB' + 'LItVEUf3x9MxBdO7kcqyxQHIj2bpiEVRYovnnVzFULOnDJAhGyLNC' + 'oNfVRENnFfdlANKEuGS4LlEowFoLINhVEZKdGMTAw4nEVfjcDHYZV' + 'FigORPMAVzptnQ=='); logout_screen := BitmapFromString(16, 15, 'beNolkldPUwEYhn+' + 'W40aNEcpoobvQvTfdLR20hbZQWqCFFjqYLUGGkWGAoEI0iCZovHLd' + 'oFf+EJ/E5Ls65z3v97zvdzqtfnGfQNKndxqCqVAkE/1x972zt+Xw2' + 'Z1+x1ytPD1fsLjNCq1cOipZbFa3djd5lZnN1tbrs7VSIBn0x3yr3f' + 'b+8V55qWT1WMSqYW/Y093v1NpLBrt+UDogU0t7xQKz17K+u3H77TP' + '6cDKE0ua1FubyrHAHXUMKERNJhReW53kFCaM0qh48faizauF5e/2m' + 'sbEyFvEaHYZ4dpwnDFYiuRB/oVJkcBlL9fLhxVF0IgKAZETMJKcS8' + '/U5ZGjuP7qXmU5vH3S1Fg0wVp+NyCrTiC86tra9enR+2Npqjmdiep' + 'uOgGR59foEHrarTaPI7AEH/genL+qrNfjZq9Qp4F9qLbKFjcF4gM/' + 'JYnaZgMdfopHK9Yph5RCamy8fqI7InpC7WJmZLGZNTqN9zJadyWDV' + 'LxsgbH6h8O72/dXNJRHwPLk4hjaUCMJA/5WVhYl8asSgIks4HYlmY' + 'yAx51dnZEwXJnATygZj6ejGzjq2/4OkckmeI9PadVSUyCc1ZjW0Z5' + 'enn75+REafCDhTu9NKTMZdAadKrxy1qNFz3Ean+evPT8wRDEj65Ro' + 'Z5JybJrlFvpzLlaY4nCfq9cX9RrfJ5DH3CJ8Fxv3PX+5QYHOzgQYG' + 'UlA7i1gHmExHfSKuUGlVf/+9qzYq/GMUCxX8fcMClNT7RPC4V9TDh' + '5izgkr9iQAyKuJ/m60Wl9fqRKAQbg05Pbf/Aal3Ux8='); end; //------------------------------------------------------------------------------ Procedure HPCheck; begin gethp; if (gethp <= LogHP) then begin Logout; end; end; //------------------------------------------------------------------------------ Procedure logout; If(FindBitmap(logout,x,y)) then Wait(1000+random(500)) mouse(x,y) Wait(500+random(1000)) MMouse(x,y,true) until(findBitmap(logoutscreen,x,y)) Writeln('whew, almost died!') end; //------------------------------------------------------------------------------ Procedure fight; begin if(findcolor(x,y:Color1) then Wait(600+random(100)) mouse(x,y) Wait(200+random(500)) MMouse(x,y,true) Wait(5000+random(1000)) end; //------------------------------------------------------------------------------ Procedure setup; begin NCDS; DeclareBMPS; AutoRetaliate; HPCheck; HighAngle; AntiBan; fight; end; end.










Reply With Quote