andy1550 Starter
Number of posts: : 29 Age : 29 Location : Dominican Republic, DR Join date : 2010-03-28
| Subject: Re: REQUEST nutviper script Mon Apr 05, 2010 7:22 am | |
| There isnt a nutviper script i can help u on its on amm8 How to use it , put small fire/thunder on f2 and , heals! on f1 Hope it helped :] - Code:
-
program AMM8; var ksm,magec, ksmy, ksmx, ksmw, ksu, ksd, ksr, ksl,clickheal, hit:integer; var x,w,y, skip,z, monster1, monsterM,sx, sy, xx, yy, t, ptts: Integer; var clx, cly, ksosx, ksosy, setclx, setcly, ksoffsetx, ksoffsety:integer; var ptx, pty, tr, relogtime, relogtimer,buypotsX, buypotsY:integer; var window:string; var ksS, selfbox: TBox; const
user='no relog'; pass='no relog'; share=1; //1 is on //anything else is off
Procedure ReadString(str: String);{by rena: START} var i,strLength :Integer; goer: Boolean;
begin i:=1 strLength:=Length(str) goer:=False while(i<strLength+1) do begin if(GetKeyCode(StrGet(str,i))=191)then begin KeyDown(16) goer:=True i:=i+1 end; KeyDown(GetKeyCode(StrGet(str,i))) wait(10) KeyUp(GetKeyCode(StrGet(str,i))) wait(100) KeyUp(GetKeyCode(StrGet(str,i))) wait(50) i:=i+1 if(goer=True)then begin KeyUp(16) wait(600) end; end; wait(300) end;{by rena: END} Procedure relog; var char:integer; begin // char:=1 clickmouse(600, 50, true);wait(500); findcolorspiral2(x, y, 10079232, 10, 10, 640, 350);clickmouse(x, y, true) wait(1000) repeat clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700) until (findcolorspiral (x, y, 255,17, 359, 54, 496)=false) repeat clickmouse(115, 375, true);wait(500) until ((findcolorspiral(x, y, 255, 276, 322,575, 343)) or (findcolorspiral(x, y, 10079232, 358, 307, 449, 332))) clickmouse(414, 353, true);wait(500); if(findcolorspiral (x, y, 255,17, 359, 54, 496)=false)then begin; readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500) clickmouse(409, 428, true);wait(3000);end if findcolorspiral(x, y, 10079232,357, 305, 444, 333) then begin clickmouse(380, 315, true);wait(500);pty:=4545 end
if ((findcolorspiral(x, y, 255,280, 323, 574, 343)=false)and(pty=4545)=false ) then begin wait(500);clickmouse(534, (124*(char)), true);wait(500); repeat until((findcolorspiral (x, y, 255,17, 359, 54, 496))OR (findcolorspiral(x, y, 255,280, 323, 574, 343))) end pty:=0 ;wait(500); clickmouse(608, 446, true) wait(500) if (findcolorspiral(x, y,13158600,465, 455, 469, 459)=false) then begin if (not(share=1))then begin clickmouse(567, 461, true);wait(200) end end if (findcolorspiral(x, y,13158600,465, 455, 469, 459)) then begin if (share=1)then begin clickmouse(567, 461, true);wait(200) end wait(100);clickmouse(80,446,true);wait(100) end
end; // Procedure check_dc; var char:integer; begin // char:=1 if (((findcolorspiral (x, y, 10079232, 410, 210, 458, 287) or (findcolorspiral(x, y, 255,17, 359, 54, 496)=false)))and ((user='no relog')=false)) then begin repeat clickmouse(400, 224, true);wait(700);clickmouse(400, 324, true);wait(700) until (findcolorspiral (x, y, 255,17, 359, 54, 496)=false) repeat clickmouse(115, 375, true);wait(500) until ((findcolorspiral(x, y, 255, 276, 322,575, 343)) or (findcolorspiral(x, y, 10079232, 358, 307, 449, 332))) clickmouse(414, 353, true);wait(500); if(findcolorspiral (x, y, 255,17, 359, 54, 496)=false)then begin; readstring(user);clickmouse(414, 388, true);wait(500);readstring(pass);wait(500) clickmouse(409, 428, true);wait(3000);end if findcolorspiral(x, y, 10079232,357, 305, 444, 333) then begin clickmouse(380, 315, true);wait(500);pty:=4545 end
if ((findcolorspiral(x, y, 255,280, 323, 574, 343)=false)and(pty=4545)=false ) then begin wait(500);clickmouse(534, (124*(char)), true);wait(500); repeat until((findcolorspiral (x, y, 255,17, 359, 54, 496))OR (findcolorspiral(x, y, 255,280, 323, 574, 343))) end pty:=0 clickmouse(608, 446, true) wait(500) if (findcolorspiral(x, y,13158600,465, 455, 469, 459)=false) then begin if (not(share=1))then begin clickmouse(567, 461, true) end end if (findcolorspiral(x, y,13158600,465, 455, 469, 459)) then begin if (share=1)then begin clickmouse(567, 461, true) end end end
if ((findcolorspiral2(x, y, 10079232, 260, 208, 290, 238)) and (share=1)) then begin clickmouse(x, y, true); wait(600) if findcolorspiral2(x, y, 10079232, 354, 208, 442, 239)then begin clickmouse(x, y, true);wait(600); end if findcolorspiral2(x, y, 6711039, 500, 291, 585, 319)then begin clickmouse(x, y, true);wait(600); end wait(100);clickmouse(80,446,true);wait(100) end
end; //
begin
t:=1 //1 is right, 2 is left tr:=1 relogtimer:=100
monster1:= 1638350; monsterM:= 1638350; ptts:=0
selfbox:=IntToBox(270, 144, 364, 199); if (findwindowtitlepart('endless online', false)=false) then begin writeln('Endless Online is not running... Script Terminated.') terminatescript; end cleardebug; setclx:=641 setcly:=507 findwindowtitlepart('endless online', false) wait(300) GetClientDimensions(clx, cly) writeln('Your Client size is X: '+inttostr(clx)+' - Y:'+inttostr(cly)) ksosx:=setclx-clx ksosy:=setcly-cly writeln('Your Offset is X: '+inttostr(ksosx)+' - Y:'+inttostr(ksosy)) ksoffsetx:=313-ksosx ksoffsety:=489-ksosy writeln('Your KS Detection is X: '+inttostr(ksoffsetx)+' - Y:'+inttostr(ksoffsety)) wait(1000) activateclient; WAIT(2000) clickmouse(608, 446, true) wait(500) if (findcolorspiral(x, y,13158600,465, 455, 469, 459)=false) then begin if (not(share=1))then begin clickmouse(567, 461, true);wait(200) end end if (findcolorspiral(x, y,13158600,465, 455, 469, 459)) then begin if (share=1)then begin clickmouse(567, 461, true);wait(200) end end if (getcolor(34, 403)=255) then begin clickmouse(80,446,true);wait(100) end
repeaT begin z:=0 if tr=1 then begin t:=(random(2)+1);writeln('Direction: '+inttostr(t));end
check_dc
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin ksl:=0; ksr:=0; ksd:=0; ksu:=0; end repeat z:=z+1
if ( ( findcolorspiral(x, y,9175295,306, 86, 334, 104) ) and( findcolorspiral (x, y, monster1, 275, 154, 303, 174)=false ) and( findcolorspiral (x, y, monster1, 336, 182, 363, 209)=false ) and( findcolorspiral (x, y, monster1, 323, 157, 350, 165)=false ) and( findcolorspiral (x, y, monster1, 288, 184, 300, 194)=false ) ){AMM8 by joeyroyden / EoBots} then begin keydown(123);wait(500);keyup(123) end
writeln(inttostr(z)+'-'+inttostr(w)) if(z=100)then begin z:=0 keydown(123) wait(200) keyup(123) end if (findcolorspiral (x, y, monster1,275, 154, 303, 174)=false)then begin ksl:=0; end if ((findcolorspiral (x, y, monster1, 275, 154, 303, 174))and(ksl=0)) then begin if(FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then begin
clickmouse(78, 364, true) if findcolorspiral(ptx, pty, 32896,114, 364, 476, 468)then begin clickmouse(ptx, pty, true) wait(8) clickmouse(ptx, pty, true) sleep (350) ptts:=ptts+1;writeln('Used '+inttostr(ptts)+' Potions since you started AMM8') end end else begin writeln('No Healing Required') wait(50);keydown(37) wait(50) keyup(37) wait(20) keydown(17) wait(10) keyup(17) wait(100);
check_dc
keydown(17) wait(10) keyup(17) wait(100);
skip:=skip-1 magec:=0 hit:=1 if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksl:=1;RELOGTIME:=RELOGTIME+8 end end end until ((findcolorspiral(x, y, monster1, 275, 154, 303, 174)=false)or(ksl=1)) keyup(17) wait(200) {AMM8 by joeyroyden / EoBots} if ((findcolorspiral(x, y, monsterM, 13, 61, 627, 331)=false) and (hit=1)) then begin wait(randomrange(500, 1000)) hit:=0 sendarrowwait(t, 5) end
repeat z:=z+1 writeln(inttostr(z)+'-'+inttostr(w)) if(z=100)then begin z:=0 keydown(123) wait(200) keyup(123) end if (findcolorspiral (x, y, monster1,329, 176, 358, 196)=false)then begin ksr:=0 end if ((findcolorspiral (x, y, monster1, 329, 176, 358, 196))and(ksr=0)) then begin IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then begin {AMM8 by joeyroyden / EoBots}
clickmouse(78, 364, true) if findcolorspiral(ptx, pty, 32896,114, 364, 476, 468)then begin clickmouse(ptx, pty, true) wait(8) clickmouse(ptx, pty, true) sleep (350) ptts:=ptts+1;writeln('Used '+inttostr(ptts)+' Potions since you started AMM8') end end else begin writeln('No Healing Required') wait(50);keydown(39) wait(50) keyup(39) wait(20) keydown(17) wait(10) keyup(17)
check_dc
keydown(17) wait(10) keyup(17) wait(100);
wait(100);skip:=skip-1 magec:=0 if (t=2) then begin hit:=1 end if (t=1) then begin hit:=0 end if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksr:=1 ;RELOGTIME:=RELOGTIME+8 end end end until ((findcolorspiral(x, y, monster1, 336, 182, 363, 209)=false)or(ksr=1)) keyup(17) wait(200) if ((findcolorspiral(x, y, monsterM, 13, 61, 627, 331)=false) and (hit=1) and (t=2)) then begin wait(randomrange(500, 1000)) hit:=0 sendarrowwait(t, 5) end
if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksm:=1 ksmx:=xx ksmy:=yy ksmw:=1 end repeat z:=z+1 writeln(inttostr(z)+'-'+inttostr(w)) if(z=100)then begin z:=0 keydown(123) wait(200) keyup(123) end {AMM8 by joeyroyden / EoBots} if (findcolorspiral (x, y, monster1,323, 157, 350, 165)=false)then begin ksu:=0 end if ((findcolorspiral (x, y, monster1, 323, 157, 350, 165))and(ksu=0)) then /////////////////////////////// begin IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then begin {AMM8 by joeyroyden / EoBots}
clickmouse(78, 364, true) if findcolorspiral(ptx, pty, 32896,114, 364, 476, 468)then begin clickmouse(ptx, pty, true) wait(8) clickmouse(ptx, pty, true) sleep (350) ptts:=ptts+1;writeln('Used '+inttostr(ptts)+' Potions since you started AMM8') end end else begin writeln('No Healing Required') wait(50);keydown(38) wait(50) keyup(38) wait(20) keydown(17) wait(10) keyup(17) wait(100);skip:=skip-1
check_dc
keydown(17) wait(10) keyup(17) wait(100);
magec:=0 hit:=1 if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksu:=1 ;RELOGTIME:=RELOGTIME+8 end end end until ((findcolorspiral(x, y, monster1, 323, 157, 350, 165)=false)or(ksu=1)) keyup(17) wait(200) if ((findcolorspiral(x, y, monsterM, 13, 61, 627, 331)=false) and (hit=1)) then begin hit:=0 wait(randomrange(500, 1000)) sendarrowwait(t, 5) end repeat z:=z+1 writeln(inttostr(z)+'-'+inttostr(w)) if(z=100)then begin z:=0 keydown(123) wait(200) keyup(123) end if (findcolorspiral (x, y, monster1,288, 184, 300, 194)=false)then begin ksd:=0 end if ((findcolorspiral (x, y, monster1, 288, 184, 300, 194))and(ksd=0)) then begin IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then begin clickmouse(78, 364, true) if findcolorspiral(ptx, pty, 32896,114, 364, 476, 468)then begin clickmouse(ptx, pty, true) wait(8) clickmouse(ptx, pty, true) sleep (350) ptts:=ptts+1;writeln('Used '+inttostr(ptts)+' Potions since you started AMM8') end end else begin writeln('No Healing Required') wait(50);keydown(40) wait(50) keyup(40) wait(20) keydown(17) wait(10) keyup(17) wait(100);skip:=skip-1
check_dc
keydown(17) wait(10) keyup(17) wait(100);
magec:=0 if (t=2) then begin hit:=0 end if (t=1) then begin hit:=1 end if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksd:=1 ;RELOGTIME:=RELOGTIME+8 end end end until ((findcolorspiral(x, y, monster1, 288, 184, 300, 194)=false)or(ksd=1)) keyup(17){AMM8 by joeyroyden / EoBots} if ((findcolorspiral(x, y, monsterM, 13, 61, 627, 331)=false) and (hit=1) and (t=1)) then begin wait(randomrange(500, 1000)) hit:=0 sendarrowwait(t, 5) end end if (findcolorspiral (x, y,monsterm, 13, 61, 627, 331)=false)then begin magec:=0 IF (GETCOLOR(201, 31)=16235924)then begin /////////mage heal repeat wait(100) KEYDOWN(115) WAIT(800) KEYUP(115) WAIT(450) until (((GETCOLOR(201, 31)=16235924)=false) or (findcolorspiral(x, y, monster1, 13, 61, 627, 331))) end wait(750) if(FindColorSpiral(x, y,61373, 13, 61, 627, 331))then begin repeat FindColorSpiral(x, y,61373, 13, 61, 627, 331) movemousesmooth(x, y);wait(200);clickmouse(x, y, true) wait(80) clickmouse(x, y, true) until((FindColorSpiral(x, y,61373, 13, 61, 627, 331)=false) or(findcolorspiral(x, y, monster1, 13, 61, 627, 331))) end cleardebug; if (findcolorspiral(x, y, monsterm, 13, 61, 627, 331)=false) then begin ksm:=0 end if (ksm=0) then begin ksS := IntToBox(0, 0, 5, 5); end writeln('AMM8 Mage - By Joeyroyden - is waitting for a monster. (Direction: '+inttostr(t)+')') writeln('Http://eobots.myteamtoolbar.com for quick links to other scripts')
writeln('Used '+inttostr(ptts)+' Potions since you started AMM8') IF (findcolorspiral(x, y, monster1, 267, 144, 358, 199)=false) THEN BEGIN relogtime:=0 END
if (findcolorspiral(x, y, monster1, 13, 61, 627, 331)=false) then begin clickmouse(489, 33, true);wait(300) end
repeat
if (isfkeydown(1) and isfkeydown(3))then begin getmousepos(buypotsX, buypotsY);wait(200);keydown(52);wait(100) repeat clickmouse(buypotsX, buypotsY, true);wait(50); clickmouse(322, 230, true);wait(50);clickmouse(322, 230, true);wait(50); until ((isfkeydown(2) and isfkeydown(4))or (findcolorspiral(x, y, 10079232, 385, 211, 440, 236))) keyup(52);wait(100); end if findcolorspiral2(x, y, 10079232, 385, 211, 440, 236)then begin clickmouse(x, y, true);wait(1000) end
IF((getcolor(198, 33)=16235924)and(getcolor(239, 34)=16235924)/// and (findcolorspiral(x, y, monsterm, 267, 144, 358, 199)=false))then begin keydown(112);wait(400);clickmouse(318, 137, true);keyup(112);wait(1200) end if ((findcolorspiral (ptx, pty, 3788395, 127, 382, 477, 469)) and (not(getcolor(311, 33)=16235924))) then begin clickmouse(ptx, pty, true);wait(10);clickmouse(ptx, pty, true) end /// check_dc
if ( ( findcolorspiral(ptx, pty,9175295,306, 86, 334, 104) ) and( findcolorspiral (ptx, pty, monster1, 275, 154, 303, 174)=false ) and( findcolorspiral (ptx, pty, monster1, 336, 182, 363, 209)=false ) and( findcolorspiral (ptx, pty, monster1, 323, 157, 350, 165)=false ) and( findcolorspiral (ptx, pty, monster1, 288, 184, 300, 194)=false ) ) {AMM8 by joeyroyden / EoBots} then begin keydown(123);wait(500);keyup(123) end
if(FindColorSpiral(x, y,8716032,244, 149, 398, 224))then begin FindColorSpiral(x, y,8716032, 244, 149, 398, 224) movemousesmooth(x, y);wait(200);clickmouse(x, y, true);wait(500)
end IF (FindColorSpiral(x, y, 16235924, 153, 27, 155, 33))then begin {AMM8 by joeyroyden / EoBots}
clickmouse(78, 364, true) if findcolorspiral(ptx, pty, 32896,114, 364, 476, 468)then
begin clickmouse(ptx, pty, true) wait(8) clickmouse(ptx, pty, true) sleep (350) ptts:=ptts+1;writeln('Used '+inttostr(ptts)+' Potions since you started AMM8') end
end else begin if (x=0) then begin x:=x+1 writeln('Used '+inttostr(ptts)+' Potions since you started AMM8') end end until (findcolorspiral(x, y, monster1, 13, 61, 627, 331)=true) end RELOGTIME:=RELOGTIME+1 writeln('relog timer: '+inttostr(relogtimer - relogtime)) IF ((RELOGTIME>relogtimer)and(not(user='no relog'))) THEN BEGIN relogtime:=0 RELOG END
skip:=skip-1;writeln('skip: '+inttostr(skip)) if FindColorSkipBox(sx, sy, monsterm, 13, 61, 627, 331, selfbox)then begin if (findcolorspiral2(xx, yy, monsterM, 11, 63, 626, 335)=true)then begin if ((findcolorspiral2 (x, y, monsterm, ksmx-75, ksmy-75, ksmx+75, ksmy+75)=false)) then begin ksm:=0 ksmw:=0 magec:=0 end if (ksm=1) then begin ksS := IntToBox((ksmx-90), (ksmy-90), (ksmx+90), (ksmy+90)); end if (ksm=0) then begin ksS := IntToBox(0, 0, 5, 5); end if(FindColorSkipBox(sx, sy, monsterM, 13, 61, 627, 331, ksS))then begin if((findcolorspiral (x, y, monster1,275, 154, 303, 174)=false) and (findcolorspiral (x, y, monster1,336, 182, 363, 209)=false) and (findcolorspiral (x, y, monster1,323, 157, 350, 165)=false) and {AMM8 by joeyroyden / EoBots} (findcolorspiral (x, y, monster1,288, 184, 300, 194)=false))then begin FindColorspiral2(sx, sy, monsterM, 13, 61, 627, 331) wait(50) if magec=0 then begin writeln('Go') keydown(113) wait(25) keyup(113) wait(50) clickmouse(sx, sy, true) wait(randomrange(900, 900)) magec:=0
end end ksmw:=0 skip:=1 if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksm:=1 ksmx:=xx ksmy:=yy ksmw:=1 end end end wait(100) if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksm:=1 ksmx:=xx ksmy:=yy ksmw:=1 end if(getcolor(ksoffsetx, ksoffsety)=0)then begin ksm:=1 ksmx:=xx ksmy:=yy ksmw:=1 end
check_dc
if findcolorspiral(x, y,9175295,306, 103, 332, 126) then begin ksl:=0; ksr:=0; ksd:=0; ksu:=0; end end until(x = 500000000) end. | |
|