14 replies to this topic

[Nosound]

sub ident()uo.ignorereset()repeatuo.findtype(-1,-1,'my')if uo.findcount() thenuo.deletejournal()uo.click('finditem')wait(100)if uo.injournal('Not Identified') then repeatuo.deletejournal()uo.useskill('Item','finditem')wait(7000)until uo.injournal('already identified')uo.ignore('finditem')elseuo.ignore('finditem')end ifend ifuntil uo.findcount()==0end subsub traped() uo.findtype('0x09b0') if uo.findcount() then uo.click('finditem') endif end subsub main() uo.msg(date(uo.date(),'.')) uo.msg(time(uo.time(),':')) end subsub hell()uo.usetype('0x1005,0x043C') #LHealuo.usetype('0x0F0C','0x0000') #Healend subsub kacha()repeatUO.LDblClick(430,261)wait(400)uo.useskill('Hiding')wait(100)until uo.dead()end subsub date(jor,n) #Mihail var ser=str(jor), t='' if len(ser)==5 then ser='0'+ser end if t=right(ser,2)+n+mid(ser,2,2)+n+left(ser,2) return t end subsub time(jor,n) #Mihail var i, t='' var ser=str(jor) for i=0 to len(ser)-2 step 2 t=t+mid(ser,i,2)+n next t=left(t,len(ser)+2) return t end subsub afk()repeatuo.msg("Ушёл курить")wait(500)uo.msg(time(uo.time(),':')) wait(1500)uo.lastmessage()until uo.injournal("Lenusjka: Lenusjka [*nCuXu*]")end subsub autostart()uo.exec('exec autoheal')uo.exec('exec life')end subsub x2() repeat if uo.injournal('You put') then   uo.msg('.arm_bow')   uo.attack('laststatus')    uo.attack('laststatus')  uo.deletejournal() else   wait(500) end if until uo.dead()end subsub x3() repeat if uo.injournal('You put') then   uo.msg('.arm_mace')   uo.attack('laststatus')    uo.attack('laststatus')  uo.deletejournal() else   wait(500) end if until uo.dead()end subsub x() repeat if uo.injournal('You put') then   uo.msg('.arm')   uo.attack('laststatus')    uo.attack('laststatus')  uo.deletejournal() else   wait(500) end if until uo.dead()end subsub w_s()uo.usetype('0x1BC4')wait(10)uo.usetype('0x13B9')end subsub hp() uo.waittargetself() uo.usetype ('0x0E21')     wait (50)       if uo.life < 140 Then       uo.msg ('.drink_heal_great')     end if end subsub AutoHeal() ; © Edred    VAR Success = 'You put the bloody bandage'      VAR Fizzle = 'failed.'    VAR bandag = '0x0E21'    VAR k    repeat       If UO.GetHP() < UO.GetMaxHP() - 15 Then          If UO.Count( Bandag ) > 0 Then             uo.DeleteJournal( Success )             uo.DeleteJournal( Fizzle )             k = 0             UO.Bandageself()                       repeat                wait(50)                k = k + 1             until UO.InJournal( Success ) or UO.InJournal( Fizzle ) or k > 100          Else             return          Endif       Else          wait(500)       Endif    until UO.Life == 0 endsub ################################################################ #############################SKILLS############################# Sub Hiding() ; Прятоться UO.WarMode(0) UO.UseSkill('Hiding') Endsub Sub Meditation() ; Медетировать UO.WarMode(0) UO.UseSkill('Meditation') Endsub ################################################################ ############################SPELLS############################## Sub Arrow() ; кидание стрелки по последнему статусу. If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then    UO.Cast('Magic Arrow','laststatus') Else    UO.Print("No mana") Endif Endsub Sub Paralyze() ; кидание парализа по последнему статусу If UO.Mana>=12 AND UO.GA>0 And UO.MR>0 AND UO.SS>0 Then    UO.Cast('Paralyze','laststatus') Else    UO.Print("No mana") Endif Endsub Sub tele() ; кидание пойзона по последнему статусу If UO.Mana>=9 Then   UO.Cast('Teleport','laststatus') Else    UO.Print("No mana") Endif Endsub Sub Poison() ; кидание пойзона по последнему статусу If UO.Mana>=9 AND UO.NS>0 Then    UO.Cast('Poison','laststatus') Else    UO.Print("No mana") Endif Endsub Sub ManaDrain() ; кидание манадрейн по последнему статусу If UO.Mana>=11 AND UO.BP>0 AND UO.MR>0 AND UO.SS>0 Then    UO.Cast('Mana Drain','laststatus') Else    UO.Print("No mana") Endif Endsub Sub FlameStrike() ; кидание флеймстрайка по последнему статусу If UO.Mana>=40 AND UO.SS>0 AND UO.SA>0 Then    UO.Cast('Flame Strike','laststatus') Else    UO.Print("No mana") Endif Endsub Sub Cure() ; кидание куре на себя If UO.Mana>=6 AND UO.GA>0 Then    UO.Cast('Cure','self') Else    UO.Print("No mana") Endif Endsub Sub Wes() ; If UO.Mana>=11 Then    UO.Cast('Weaken','lasttarget') Else    UO.Print("No mana") Endif Endsub Sub Lightning() ; If UO.Mana>=11 Then    UO.Cast('Lightning','lasttarget') Else    UO.Print("No mana") Endif EndsubSub Jux() ; If UO.Mana>=5 Then    UO.Cast('Clumsy','lasttarget') Else    UO.Print("No mana") Endif Endsub Sub inv() ; If UO.Mana>=5 Then    UO.Cast('Invisibility','self') Else    UO.Print("No mana") Endif Endsub  Sub Heal() ; If UO.Mana>=5 Then    UO.Cast('Heal','self') Else    UO.Print("No mana") Endif Endsub Sub GHeal() ; кидание Грейт Хила на себя If UO.Mana>=11 Then    UO.Cast('Greater Heal','self') Else    UO.Print("No mana") Endif Endsub Sub UnParalyze() ; Кидание стрелки в себя, для выхода из парализа If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then    UO.Cast('Magic Arrow','self') Else    UO.Print("No mana") Endif Endsub Sub Reflect() ; кидание зеркала на себя If UO.Mana>=12 AND UO.GA>0 AND UO.MR>0 AND UO.SS>0  Then    UO.Cast('Magic Reflect','self') Else    UO.Print("No mana") Endif Endsubsub attack() uo.attack ('laststatus') uo.attack ('laststatus') end sub sub say_life()var p var qvar k var sp=uo.lifek=uo.armors=uo.strrepeatif uo.life <> p then q=pp=uo.life if p<q then   uo.fontcolor('0x002d') UO.print ("Life is "+str(p) +"  Damage= - " +str(q-p)) else   uo.fontcolor('170') UO.print("Life is "+str(p) +" (+"+str(p-q)+")") end ifend if  IF UO.armor <> k thenk=uo.armoruo.fontcolor('0x028f')UO.print("Armor = "+str(k))end if    IF UO.str <> s thens=uo.struo.fontcolor('0x028f')UO.print("Strange = "+str(s))end if    wait(30)until false#   until uo.dead()end subsub Walk(x,y) go: if uo.getY() > uo.gety("laststatus") then  uo.press(33) else  uo.press(35) endif while not uo.getX() == uo.getx("laststatus") || not uo.getY() == uo.gety("laststatus")  if not uo.getX() == uo.getx("laststatus") then   if uo.getX() > uo.getx("laststatus") then    if uo.getY() > uo.gety("laststatus") then     uo.press(38)    endif    if uo.getY() < uo.gety("laststatus") then     uo.press(37)    endif    if uo.getY() == uo.gety("laststatus") then     uo.press(36)    endif   endif   if uo.getX() < uo.getx("laststatus") then       if uo.gety() > uo.gety("laststatus") then     uo.press(39)    endif    if uo.gety() < uo.gety("laststatus") then     uo.press(40)    endif    if uo.gety() == uo.gety("laststatus") then     uo.press(34)    endif   endif  endif  if uo.getX() == uo.getx("laststatus") then   if uo.gety() > uo.gety("laststatus") then    uo.press(33)   endif   if uo.gety() < uo.gety("laststatus") then    uo.press(35)   endif   if uo.gety() == uo.gety("laststatus") then    wait(10)   endif  endif wend if uo.getx() == uo.getx("laststatus") then  if uo.gety() == uo.gety("laststatus") then   wait(10)  endif endif end subsub dog() var x = uo.getx("lastattack") var y = uo.gety("lastattack") while true  walk(x,y) wend end subsub kach() uo.morph("0x03db") end sub sub hzz()uo.say(',terminate dog')end subsub Anti()	If uo.getglobal('Anti')=='On' then	return	else	uo.setglobal('Anti','On')	end if	while 1	wait(250)	if uo.injournal('You are frozen') then	    UO.Cast('Magic Arrow','self')	    wait(1000)	   uo.deletejournal()	end if		if uo.poisoned() then	    uo.msg('.drink_cure')	    checklag()	    wait(100)	endif;  if uo.InJournal("You can't drink another") then;      uo.cast('Cure','self');      wait(2100);      checklag();    uo.deletejournal();  endif	wend	uo.setglobal('Anti',0)end subSub checklag()	del('backpack')	uo.click('backpack')	repeat	wait(50)	until uo.injournal('backpack')	del('backpack')endsubSub del(msg)	while uo.injournal(msg)	uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!")	wendendsubsub ######() 	uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget"))) 	uo.cast("Wall of Stone") 	uo.fontcolor('0x000') 	uo.msg(' ') 	uo.fontcolor('0x000') 	uo.msg(' ') 	uo.fontcolor('0x000') 	uo.msg(' ') end sub sub PF() 	uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget"))) 	uo.cast("Paralyze Field") 	uo.fontcolor('0x000') 	uo.msg(' ') 	uo.fontcolor('0x000') 	uo.msg(' ') 	uo.fontcolor('0x000') 	uo.msg(' ') end sub sub md()	If uo.getglobal('sc3')=='On' then	return	else	uo.setglobal('sc3','On')	while not uo.dead()	If UO.Mana>=5 Then 	UO.Cast('Mana Drain','laststatus') 	Else 	UO.Print("!!! -=No mana=- !!!") 	Endif 	wait(2200)	wend	end if	uo.setglobal('sc3',0)end sub sub AFKLoot2()	If uo.getglobal('AFKLoot')=='On' then	uo.setglobal('AFKLoot',0)	uo.print(' !!! -= AFKLoot Terminated =- !!! ')	uo.exec('terminate AFKLoot')	else	uo.setglobal('AFKLoot','On')	uo.print(' !!! -= AFKLooting =- !!! ') uo.set('finddistance','3') uo.exec('addobject bag')  while uo.targeting()  wait(100) wendwhile uo.weight < uo.str*4  uo.warmode(0)  UO.FindType( -1 , -1 ,'ground') while UO.FindCount()  uo.moveitem('finditem', 0 ,'bag')  uo.ignore('finditem')  Wait(500)  CheckLag()  UO.FindType( -1 , -1 ,'ground') wend wait(100)wenduo.setglobal('AFKLoot',0)end subSub CastWait() var LastMana=UO.Mana var LastHP = uo.life UO.DeleteJournal() REPEAT If LastMana > UO.Mana or LastHP > uo.life Then return Else If LastMana < UO.Mana Then LastMana = UO.Mana End If if LastHP < uo.life Then LastHP = uo.life End If End If Wait(5) Until UO.InJournal("You have been poizoned!") end sub sub MassDrop()VAR n	Dim Drop[13]	Drop[1] = '0x1412'	Drop[2] = '0x1413'	Drop[3] = '0x1410'	Drop[4] = '0x1414'	Drop[5] = '0x1415'	Drop[6] = '0x1411'	Drop[7] = '0x09B0'	Drop[8] = '0x0E29'	Drop[9] = '0x0E76'	Drop[10]= '0x0E21'	Drop[11]= '0x0F02'	Drop[12]= '0x0F3F'	Drop[13]= '0x1B76' For n=1 to 13      UO.FindType( Drop[n] , -1 ,'my')    while uo.findcount()	  uo.moveitem('finditem', -1 ,'ground')	  wait(50)	  UO.FindType( Drop[n] , -1 ,'my')    wend nextuo.print('!!! -=Done=- !!!')end sub;-----------------------------------------------------------------sub Life()	If uo.getglobal('Life')=='On' then    return	else	uo.setglobal('Life','On')	uo.print(' !!! -= Blow This Bitch UP! =- !!! ')	endifvar pvar qp=uo.lifewhile truewait(100)if uo.life <> p thenq=pp=uo.lifeif p<q thenuo.fontcolor('0x0021')UO.msg(""+str(p) +" (-"+str(q-p)+")")elseuo.fontcolor('0x0044')UO.msg(""+str(p) +" (+"+str(p-q)+")")end ifend ifwendend ifuo.setglobal('Life',0)end subSub LOOT()	If uo.getglobal('Loot')=='On' then	uo.setglobal('Loot',0)	uo.print(' !!! -= Loot Terminated =- !!! ')	uo.exec('terminate Loot')	else	uo.setglobal('Loot','On')	uo.print(' !!! -= Looting =- !!! ')VAR n  Dim Loot[80] Loot[1] = '0x1B7A';terrium etc  Loot[2] = '0x13B9';weps Loot[3] = '0x0F60' Loot[4] = '0x1440' Loot[5] = '0x13B5' Loot[6] = '0x13FE' Loot[7] = '0x1400' Loot[8] = '0x1442' Loot[9] = '0x0F4B' Loot[10]= '0x13FA' Loot[11]= '0x0F49' Loot[12]= '0x13AF' Loot[13]= '0x0F47' Loot[14]= '0x0F45' Loot[15]= '0x1438' Loot[16]= '0x143C' Loot[17]= '0x0F5C' Loot[18]= '0x1406' Loot[19]= '0x143A' Loot[20]= '0x1404' Loot[21]= '0x0F62' Loot[22]= '0x1402' Loot[23]= '0x143E' Loot[24]= '0x0F4D';weps Loot[25]= '0x13B1';longbow Loot[26]= '0x35B6';bow Loot[27]= '0x13FC';heavy crossbow Loot[28]= '0x35B4';gladiator Loot[29]= '0x0DF0';staff Loot[30]= '0x0DF2';wand Loot[31]= '0x0EFA';book Loot[32]= '0x1541';sash Loot[33]= '0x1BC3';shield Loot[34]= '0x35B5';knuckle Loot[35]= '0x1B78';shield Loot[36]= '0x1718';hat Loot[37]= '0x171A';hat Loot[38]= '0x1549';mask Loot[39]= '0x1547';headdress Loot[40]= '0x1C08';skirt Loot[41]= '0x1DB9';leather Loot[42]= '0x13C7';l Loot[43]= '0x13CC';l Loot[44]= '0x13C6';l Loot[45]= '0x13CB';l Loot[46]= '0x1DB9';studded Loot[47]= '0x13D6';s Loot[48]= '0x13DB';s Loot[49]= '0x13D4';s Loot[50]= '0x13D5';s Loot[51]= '0x13DA';s Loot[52]= '0x13BB';chainmail Loot[53]= '0x13BF';c Loot[54]= '0x13BE';c Loot[55]= '0x13EC';ringmail Loot[56]= '0x13F0';r Loot[57]= '0x13EE';r Loot[58]= '0x13EB';r Loot[59]= '0x1413';platemail Loot[60]= '0x1415';p Loot[61]= '0x1410';p Loot[62]= '0x1414';p Loot[63]= '0x1411';p Loot[64]= '0x1B76';shields Loot[65]= '0x1B7B';s Loot[66]= '0x1B74';s Loot[67]= '0x1B73';s Loot[68]= '0x140E';helms Loot[69]= '0x1412';h Loot[70]= '0x1408';h Loot[71]= '0x140A';h Loot[72]= '0x140C';h Loot[73]= '0x182D';potions Loot[74]= '0x183D';p Loot[75]= '0x183A';p Loot[76]= '0x1088';jewelery Loot[77]= '0x1087';j Loot[78]= '0x1086';j Loot[79]= '0x108A';j Loot[80]= '0x1451';bone helmUO.UseObject('lastcorpse')  if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then	UO.WarMode(0)	UO.UseSkill('Hiding')  For n = 1 To 80  UO.FindType( Loot[n] , -1 ,'lastcontainer') while UO.GetQuantity('finditem') > 0  UO.Print(' !!! Looting Items: '+str(UO.findcount()))  uo.moveitem("finditem", 0 ,'backpack',96,129,0)  CheckLag()  Wait(100)  UO.FindType( Loot[n] , -1 ,'lastcontainer') wend NextEndif uo.setglobal('Loot',0)uo.print(' !!! -= Done =- !!! ')end subsub BC_Attack()VAR kUO.Ignore('self')UO.DeleteJournal()UO.Set('finddistance', 2 )While trueUO.FindType( -1 , -1 ,'ground')If UO.FindCount() AND UO.IsNPC() thenUO.Attack('finditem')k = 0Repeatk = k + 1wait(500)until UO.InJournal('You gained') or k >= 30Del('You gained')uo.warmode(0)uo.emptycontainer(STR(500),'lastcorpse')Endifwait(250)wendend subsub Bird()   VAR i,dist, Exit, GrowType   UO.Print('Kogo budem bit`?')   UO.AddObject('Grow')   While UO.Targeting()      wait(500)   Wend   GrowType=UO.GetGraphic('Grow')   dist=0   While dist<50      Exit=0      While Exit<>1         UO.Set('finddistance',dist)         UO.Findtype(GrowType,-1,'ground')         If UO.FindCount() Then            UO.Exec('warmode 1')            wait(500);            UO.Attack('finditem')            CheckLag()            Repeat               If UO.GetDistance('finditem')>1 Then                  SuperWalk(0,0,'finditem')                  UO.Attack('finditem')                  wait(1000)               Endif            Until UO.InJournal("Body|corpse")            UO.WaitTargetObject('lastcorpse')            UO.UseType('0x0F51')            wait(500)            UO.FindType('0x1BD1',-1,'lastcorpse')            wait(500)             UO.Exec('warmode 0')            UO.exec('exec autoloot')         Else            Exit=1            dist=dist+1         Endif      Wend   Wend   UO.Exec('warmode 0')   UO.Print('Vse sobral!')end subsub CheckLag()   UO.DeleteJournal()   UO.Click('backpack')   repeat      wait(500)   until UO.InJournal('backpack')end sub#==============================================================#  SuperWalk(X,Y,Serial) - char is walking by dX and dY step#                sub using Home, End, PgUp, PgDown keys#                d'not rebind this key from default action!#     walkwait - delay after keypress#--------------------------------------------------------------sub SuperWalk(x,y,Target)   VAR i   VAR dir,ldir,rdir,key,olddir   VAR dx,dy,Exit=0   VAR CacheLimit=9,CacheIndex="Text"   DIM CacheX[10], CacheY[10]      CacheX[0]="Test"   While Exit<>1         If Target<>"" Then         dx=UO.GetX(Target)-UO.GetX()         dy=UO.GetY(Target)-UO.GetY();         UO.Print("Target locked!")         If UO.GetDistance(Target)<2 Then            Exit=1         Endif      Else         dx=x-UO.GetX()         dy=y-UO.GetY()         If dx==0 AND dy==0 Then            Exit=1         Endif      Endif         If dx<>0 AND dy<>0 Then         If dx>0 AND dy>0 Then ; GoSE            dir=3            ldir=2            rdir=4            key=40 ; DownArrow            olddir=UO.GetDir()            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then               If olddir==2 Then ; GoNE                  dir=1                  ldir=0                  rdir=1                  key=39 ; RightArrow                  While UO.GetDir()<>1                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoSW                  dir=5                  ldir=5                  rdir=6                  key=37 ; LeftArrow                  While UO.GetDir()<>5                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif         If dx>0 AND dy<0 Then ; GoNE            dir=1            ldir=0            rdir=2            key=39 ; RightArrow            olddir=UO.GetDir()            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then               If olddir==0 Then ; GoWN                  dir=7                  ldir=6                  rdir=7                  key=38 ; UpArrow                  While UO.GetDir()<>7                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoSE                  dir=3                  ldir=3                  rdir=4                  key=40 ; DownArrow                  While UO.GetDir()<>3                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif         If dx<0 AND dy>0 Then ; GoSW            dir=5            ldir=4            rdir=6            key=37 ; LeftArrow            olddir=UO.GetDir()            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then               If olddir==6 Then ; GoWN                  dir=7                  ldir=7                  rdir=0                  key=38 ; UpArrow                  While UO.GetDir()<>7                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoSE                  dir=3                  ldir=2                  rdir=3                  key=40 ; DownArrow                  While UO.GetDir()<>3                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif         If dx<0 AND dy<0 Then ; GoWN            dir=7            ldir=6            rdir=0            key=38 ; UpArrow            olddir=UO.GetDir()            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then               If olddir==0 Then ; GoNE                  dir=1                  ldir=1                  rdir=2                  key=39 ; RightArrow                  While UO.GetDir()<>1                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoSW                  dir=5                  ldir=4                  rdir=5                  key=37 ; LeftArrow                  While UO.GetDir()<>5                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif      Endif         If dx<>0 AND dy==0 Then         If dx>0 Then ; GoE            dir=2            key=34 ; PgDown            olddir=UO.GetDir()            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then               If olddir==2 Then ; GoSE                  dir=3                  ldir=3                  rdir=4                  key=40 ; DownArrow                  While UO.GetDir()<>3                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoNE                  dir=1                  ldir=1                  rdir=0                  key=39 ; RightArrow                  While UO.GetDir()<>1                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif                  If dx<0 Then ; GoW            dir=6            key=36 ; Home key            olddir=UO.GetDir()            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then               If olddir==0 Then ; GoWN                  dir=7                  ldir=7                  rdir=0                  key=38 ; UpArrow                  While UO.GetDir()<>7                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoSW                  dir=5                  ldir=4                  rdir=5                  key=37 ; LeftArrow                  While UO.GetDir()<>5                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif      Endif      If dx==0 AND dy<>0 Then         If dy>0 Then ; GoS            dir=4            key=35 ; End            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then               If olddir==2 Then ; GoSE                  dir=3                  ldir=2                  rdir=3                  key=40 ; DownArrow                  While UO.GetDir()<>3                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoSW                  dir=5                  ldir=6                  rdir=5                  key=37 ; LeftArrow                  While UO.GetDir()<>5                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif                  If dy<0 Then ;GoN            dir=0            key=33 ; PgUp            olddir=UO.GetDir()            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then               If olddir==2 Then ; GoNE                  dir=1                  ldir=1                  rdir=2                  key=39 ; RightArrow                  While UO.GetDir()<>1                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Else ; GoWN                  dir=7                  ldir=7                  rdir=6                  key=38 ; UpArrow                  While UO.GetDir()<>7                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)                  Wend               Endif            Endif         Endif      Endif   Wendend subsub StepEdit(x,y,dir,key)   VAR walkwait=300   VAR ErrLevel=0   If UO.GetDir()<>dir Then      UO.Press(key)      wait(walkwait)      If UO.GetDir()<>dir Then         CheckLag()      Endif   Endif   UO.Press(key)   wait(walkwait)   If x==UO.GetX() AND y==UO.GetY() Then      CheckLag()      If x==UO.GetX() AND y==UO.GetY() Then;zatik         ErrLevel=1      Endif   Endif   Return ErrLevelend subsub StepArrow(x,y,dir,ldir,rdir,key)   VAR walkwait=300   VAR ErrLevel=0   If UO.GetDir()<>dir Then      UO.Press(key)      wait(walkwait)      If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then         CheckLag()      Endif   Endif   If UO.GetX()==x AND UO.GetY()==y Then      UO.Press(key)      wait(walkwait)      If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then         CheckLag()         If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then; zatik                     ErrLevel=1         Endif      Endif   Endif   Return ErrLevelend sub ############################################################# ### AutoLoot by BSAFH version 1.0 ############################################################# ### Изменения и дополнения: ### 1.0 Чар не будет резать, если находится в хайде ### 0.9 Если в паке есть мешок из Ice кожи, ### он считается контейнером для сбора лута ### 0.9 Добавлены реги в список лута ### 0.8 Чар лутает список по типу, игнорируя цвет ### 0.7 Добавлен список вещей на лут ### 0.6 Чар лутает кожу, бутылки и стрелы ### 0.5 Чар режет трупп перед лутом ############################################################# sub autoloot() uo.addobject('Corpse'); var numitems = 37 dim items[37]; var n; items[1]='0x0EED'; Gold Coins items[2]='0x1BD1'; feathers items[3]='0x1078'; items[4]='0x0F09'; a Potions items[5]='0x0F15'; items[6]='0x1BFB'; crossbow bolts items[7]='0x0F3F'; arrows items[8]='0x0F13'; a rubies items[9]='0x0F16'; items[10]='0x0F0F'; a star sapphires items[11]='0x0F18'; items[12]='0x0F30'; a diamonds items[13]='0x0F10'; a emeralds items[14]='0x1EA7'; a magic gems items[15]='0x0F7F'; Brimstones items[16]='0x1BDD'; a logs items[17]='0x0F83'; Executioner's Cap items[18]='0x1085'; necklace items[19]='0x1086'; bracelet items[20]='0x1087'; earrings items[21]='0x1088'; necklace items[22]='0x1089'; necklace items[23]='0x108A'; ring items[24]='0x0F7A'; Black Pearls items[25]='0x0F85'; Ginsengs items[26]='0x0F8D'; Spider's Silks items[27]='0x0F84'; Garlics items[28]='0x0F88'; Nightshades items[29]='0x0F7B'; Blood Mosss items[30]='0x0F8C'; Sulfurous Ashs items[31]='0x0F86'; Mandrake Roots items[32]='0x0F7D'; Vials of Blood items[33]='0x0F8F'; Volcanic Ashs items[34]='0x0F7E'; Bones items[35]='0x0F80'; Daemon Bones items[36]='0x0F11'; a sapphires items[37]='0x0F91'; Wyrm's Hearts while uo.targeting() wait(500) wend # Ищем мешок из айс кожи, если есть, ставим его контейнером для выгрузки uo.findtype('0x0E76', '0x0482'); if uo.findcount() then uo.setcatchbag('finditem'); endif if not uo.hidden() then uo.waittargetobject('Corpse'); uo.usetype('0x0F51'); wait(1000) endif uo.useobject('Corpse'); wait(500) for n=1 to numitems uo.findtype(items[n], -1, 'Corpse'); while uo.findcount() uo.findtype(items[n], -1, 'Corpse'); uo.moveitem('finditem', 0); wait(250) wend next uo.findtype('0x0E76', '0x0482'); if uo.findcount() then uo.unsetcatchbag(); endif end sub   sub smelting()  repeat         UO.Findtype('0x19B9', '-1','backpack')              If UO.Findcount() == 0 Then         return          endif      UO.moveitem('finditem','1','backpack',44,121,0 )      Wait(500)      CheckLag()     UO.Useobject( 'finditem' )                 Wait(300)  until uo.findcount()== 0end sub sub antimacro()    while not uo.Dead()       if not uo.LastGump("replyed") and uo.LastGump("command", 5) == "heckertrans 9 9 304 16" then          uo.lclick(uo.LastGump('x')+180, uo.LastGump('y')+100)          wait(300)          uo.say(chr(8)+str(Calc()))          wait(300)          uo.lclick(uo.LastGump('x')+60, uo.LastGump('y')+140)       endif       wait(1500)    wend     endsub sub GetInfo(A)    var s = ""    var TextIndex = 0        for var i = 6 to 15       s = uo.LastGump("command", i)       if Left(s, 4) == "ext " then          A[(val(mid(s, 4, 3))-20)/10] = uo.LastGump("text", TextIndex)          TextIndex = TextIndex+1       end if    next end sub sub Calc()        Dim Operands[16]            GetInfo(Operands)    Operands[2] = val(Operands[2])    Operands[10] = val(Operands[10])        if Operands[8] == "+" then       return Operands[10]+Operands[2]    else       if Operands[8] == "-" then          return Operands[2]-Operands[10]       else          if Operands[8] == "*" then             return Operands[2]*Operands[10]          else             return Operands[2]/Operands[10]          end if       endif    endif        return 0 end sub

Просьба не пишите бред,с постом желательно ваш Autoload.sc.

[Arsenikum]

Crazy

[Петрозаводский слесарь]

Ne dam svoj autoload

[Nosound]

Ne dam svoj autoload

Очень надо бомж.

[Xanth]

Я свой удалил к сожалению после того как забил на уо.

Сейчас вот восстанавливаю потихоньку (= Но поделиться было чем (=

ЗЫ - Nosound, каст стенок нормально работает ? У меня иногда что-то глючил.

[Nosound]

Я свой удалил к сожалению после того как забил на уо.

Сейчас вот восстанавливаю потихоньку (= Но поделиться было чем (=

ЗЫ - Nosound, каст стенок нормально работает ? У меня иногда что-то глючил.

я больше не играю в уо. Да идеально.
Просто можешь убрать там всякие msg(" ")

[teror]

нету такого, загружаю в ручную. смысл выкладывать такие скрипты, только попантоваться...

[Nosound]

ты думаешь что у меня там все скрипты %) Терор дряк %)
Autoload.sc очень Удобная штучка !
Давайте выкладывайте очень хочеться запалить у кого
sub $()
uo.exec ("resend")
wait(100)
uo.exec ("resend")
endsub

[AdmirkA]

ты думаешь что у меня там все скрипты %) Терор дряк %)
Autoload.sc очень Удобная штучка !
Давайте выкладывайте очень хочеться запалить у кого
sub $()
uo.exec ("resend")
wait(100)
uo.exec ("resend")
endsub

идиотизм делать ресенд через скрипт )
да вобще может кто не знает - команды на хоткеях например msg .drink... и тд работают быстрее и без лагов если зажать кнопочку чем скриптовые sub 123
uo.msg(.drink..)
end sub

причем заметно на глаз

[teror]

идиотизм делать ресенд через скрипт )
да вобще может кто не знает - команды на хоткеях например msg .drink... и тд работают быстрее и без лагов если зажать кнопочку чем скриптовые sub 123
uo.msg(.drink..)
end sub

причем заметно на глаз

гхм... я не знал

[Петрозаводский слесарь]

Гы,я тоже

[Hakuno]

Мой autoload.sc (обклад предметами на lasttarget, recall + инвиз банка, auto-trapped, autoloot, auto-poison on wep, autoheal и ещё кое-какие мелочи)

sub pvp_horse()

if uo.objatlayer('Horse') then

uo.useobject('self')

wait(100)

uo.waitTargetObject('laststatus')

uo.msg('all kill')

else

wait(100)

uo.useobject('Horse')

end if

end sub



sub add()

uo.useobject('self')

uo.addobject('Horse')

end sub



sub Tele3()

UO.WaitTargetTile("400",str(uo.getx("self")+1),str(uo.gety("self")+1),str(uo.getz("self")-9))

UO.Cast("Teleport")

end sub



sub obklad()

var musor = 0x09AA # i?iieoe caanu oei, ?ai iaeeaauaaaou

var x=uo.getserial('lasttarget')

var delay=700

uo.set('lasttarget','laststatus')

   uo.findtype(musor,'-1','2')

   if uo.findcount() then

	  uo.drop("1",str(uo.getx(x)-1),str(uo.gety(x)),0,"finditem")

   endif

wait(delay)

   uo.findtype(musor,'-1','2')

   if uo.findcount() then

	  uo.drop("1",str(uo.getx(x)),str(uo.gety(x)-1),0,"finditem")

   endif

wait(delay)

   uo.findtype(musor,'-1','2')

   if uo.findcount() then

	  uo.drop("1",str( uo.getx(x)+1),str(uo.gety(x)),0,"finditem")

   endif

wait(delay)

   uo.findtype(musor,'-1','2')

   if uo.findcount() then

	  uo.drop("1",str(uo.getx(x)),str(uo.gety(x)+1),0,"finditem")

   endif

end sub



sub Recal()

var RuneBook='0x400840EC'

uo.msg('.drink invis')

  wait(100)

uo.recall(runebook,15)

   wait (100)

end sub



sub Paralyze()

Uo.DeleteJournal()

  REPEAT

	  If Uo.InJournal('You are frozen and can not move') Then

		uo.msg('.Usetraped')

		 Uo.DeleteJournal()

	  Else

		 Wait(100)

	  EndIf

  Until Uo.Dead()

END SUB



Sub Looting()

var i,n

Dim Loot[84]

   Loot[0]=0x0DF2; fire wand

   Loot[1]=0x1B7A; terium

   Loot[2]=0x35B6; elfian bow

   Loot[3]=0x204E; death shroud

   Loot[4]=0x13AF; oldp pu6ka

   Loot[5]=0x1515; pla6

   Loot[6]=0x13B1; luk

   Loot[7]=0x35B7; savage child

   Loot[8]=0x140E; air helm

   Loot[9]=0x170B; air boots

   Loot[10]=0x35AB; air amulet

   Loot[11]=0x1515; air pla6

   Loot[12]=0x144F; air grudj

   Loot[13]=0x1539; air pants

   Loot[14]=0x13E5; earth pants

   Loot[15]=0x1515; earth cloak

   Loot[16]=0x35AA; earth amulet

   Loot[17]=0x1714; earth 6apka

   Loot[18]=0x1C06; earth grudj

   Loot[19]=0x170D; earth sondali

   Loot[20]=0x13F0; dragon grudj

   Loot[21]=0x13EC; dragon nogi

   Loot[22]=0x13EB; dragon ruki

   Loot[23]=0x13EE; dragon sleeves 

   Loot[24]=0x1452; necro

   Loot[25]=0x144E; necro

   Loot[26]=0x1451; necro

   Loot[27]=0x1BC4; necro

   Loot[28]=0x1450; necro

   Loot[29]=0x144F; necro

   Loot[30]=0x170D; elfian sondali

   Loot[31]=0x1515; elfian cloak

   Loot[32]=0x13EE; elf plechi

   Loot[33]=0x1547; roga

   Loot[34]=0x1B78; fire shield

   Loot[35]=0x1711; fire nogi

   Loot[36]=0x171A; fire kepka

   Loot[37]=0x35B8; fire amulet

   Loot[38]=0x13BD; fire tunic

   Loot[39]=0x1C08; fire jubka

   Loot[40]=0x170F; dm boots

   Loot[41]=0x1BC3; dm shield

   Loot[42]=0x13BC; dm

   Loot[43]=0x1713; dm

   Loot[44]=0x35A9; dm

   Loot[45]=0x13EB; dm

   Loot[46]=0x1451; ornante crow

   Loot[47]=0x13D5; gloves of nobility

   Loot[48]=0x13D6; gorget fallen

   Loot[49]=0x1549; dvine

   Loot[50]=0x1F03; robe

   Loot[51]=0x0F4B; pu6ka

   Loot[52]=0x0F4D; pu6ka

   Loot[53]=0x35B5; knuckle

   Loot[54]=0x13FE; katana

   Loot[55]=0x0F51; dagger

   Loot[56]=0x13BE; black rock chanmail

   Loot[57]=0x13BF; black rock chanmail

   Loot[58]=0x13BB; black rock chanmail

   Loot[59]=0x1B78; arcane shield

   Loot[60]=0x1541; sash

   Loot[61]=0x0DF0; holy staff

   Loot[62]=0x1412; helm nishight

   Loot[63]=0x13F0; black rock ringmail nogi

   Loot[64]=0x13EC; black rock ringmail grudj

   Loot[65]=0x13EE; black rock ringmail plechi

   Loot[66]=0x13EB; black rock ringmail perchatki

   Loot[67]=0x140E; black rock nose helm ringmail

   Loot[68]=0x1B76; black rock platemail shield

   Loot[69]=0x1411; black rock platemail nogi

   Loot[70]=0x1415; black rock platemail grudj

   Loot[71]=0x1414; black rock ruki platemail

   Loot[72]=0x1413; black rock platemail goeget

   Loot[73]=0x1412; black rock platemail helm

   Loot[74]=0x1087; serezhki hp

   Loot[75]=0x0F36; amul hp

   Loot[76]=0x1086; braslet hp

   Loot[77]=0x3608; bladed bow

   Loot[78]=0x13DA; terethan nogi

   Loot[79]=0x13DB; terethan grud

   Loot[80]=0x1DB9; terethan shlem

   Loot[81]=0x13D5; terethan perchatki

   Loot[82]=0x1714; earth shlapa

   Loot[83]=0x143A; berserker moul

   Loot[84]=0x0EFA; book

  

  

  

 

 

i = 1000

FOR n=1 TO 84

uo.findtype(Loot[n],"-1","lastcontainer")

if uo.findcount() > 0 then

UO.grab(0, "finditem")

uo.print("Found "+str(uo.findcount()))

Wait(i)

END if

next

end sub



sub Loot1()

   VAR i,Exit

   DIM LootingItem[78]

  

 

LootingItem[1] = 0x204E ## - shroud

LootingItem[2] = 0x13B1 ## - bow

LootingItem[3] = 0x1B7A ## - 6it s dereva

LootingItem[4] = 0x13BD ## - full fire

LootingItem[5] = 0x1C08 ##

LootingItem[6] = 0x1B78 ##

LootingItem[7] = 0x171A ##

LootingItem[8] = 0x0DF2 ##

LootingItem[9] = 0x35B8 ##

LootingItem[10] = 0x1515 ## - full air

LootingItem[11] = 0x144F ##

LootingItem[12] = 0x1414 ##

LootingItem[13] = 0x1539 ##

LootingItem[14] = 0x170B ##

LootingItem[15] = 0x140E ##

LootingItem[16] = 0x35AB ##

LootingItem[17] = 0x1541  ## - sash	 WEAPONS

LootingItem[18] = 0x0F60 ## - sword

LootingItem[19] = 0x13AF ## - war akse

LootingItem[20] = 0x13FE ## - katana

LootingItem[21] = 0x0DF0 ## - staf

LootingItem[22] = 0x0F4B ## - duble axe

LootingItem[23] = 0x1404 ## - taksametr

LootingItem[24] = 0x0F51 ## - dager

LootingItem[25] = 0x3609 ## - pike

LootingItem[26] = 0x35B7 ## - savage

LootingItem[27] = 0x0F45 ## - zironik

LootingItem[28] = 0x1400 ## - cryss

LootingItem[29] = 0x1406 ## - bone crusher

LootingItem[30] = 0x1415  ## - plate grut'	 ARMOR plate

LootingItem[31] = 0x1411 ## - platenogi

LootingItem[32] = 0x1410 ## - ple4i

LootingItem[33] = 0x1414  ## - ruki

LootingItem[34] = 0x1413  ## - 6eja

LootingItem[35] = 0x1412  ## - 6lem

LootingItem[36] = 0x1B76 ## - 6it heater

LootingItem[37] = 0x1C04 ## - siski

LootingItem[38] = 0x13DB  ## - student grut'   kozha studded

LootingItem[39] = 0x13DA  ## - student nogi

LootingItem[40] = 0x13D4 ## - student ple4i

LootingItem[41] = 0x13D5 ## - student gloves

LootingItem[42] = 0x1DB9 ## - student 6lem

LootingItem[43] = 0x13D6 ## - student 6eja

LootingItem[44] = 0x13BB ## - chanmail 6lem  chain

LootingItem[45] = 0x13BF ## - chanmail grud'

LootingItem[46] = 0x13BE ## - chanmail nogi

LootingItem[47] = 0x1B7B ## - kruglij 6it

LootingItem[48] = 0x13EC ## -  grut'	   ringmail

LootingItem[49] = 0x13F0 ## -  nogi

LootingItem[50] = 0x13EE ## -  ple4i

LootingItem[51] = 0x13EB ## -  gloves

LootingItem[52] = 0x140E ## -  6lem

LootingItem[53] = 0x1B74 ## - kite 6eld	   

LootingItem[54] = 0x13BC ## - poison nogi	 OTHER ITEMS

LootingItem[55] = 0x1451 ## - bone helm

LootingItem[56] = 0x170D ## - sandali

LootingItem[57] = 0x152E ## - pants

LootingItem[58] = 0x1515 ## - clock

LootingItem[59] = 0x1451 ## - darkmagic, fire t. bone hel,m

LootingItem[60] = 0x144E ## -

LootingItem[61] = 0x1515 ## -

LootingItem[62] = 0x13BC ## -

LootingItem[63] = 0x1EFD ## -

LootingItem[64] = 0x1713 ## -

LootingItem[65] = 0x13EB ## -

LootingItem[66] = 0x1BC3 ## -

LootingItem[67] = 0x170F ## -

LootingItem[68] = 0x35A9 ## -

LootingItem[69] = 0x13BD ## -

LootingItem[70] = 0x183D ## -

LootingItem[71] = 0x1832 ## -

LootingItem[72] = 0x1F4C ## -

LootingItem[73] = 0x183E ## -

LootingItem[74] = 0x183D ## -

LootingItem[75] = 0x13B1 ## -

LootingItem[76] = 0x1B78 ## -

LootingItem[77] = 0x1F03 ## -

LootingItem[78] = 0x1832 ## -





UO.SetReceivingContainer('0x401121B0');ID backpacka

 

   For i=1 to 78

	  Exit=0

	  repeat

	   UO.FindType(LootingItem[i],-1,'lastcontainer')		  

		if UO.GetQuantity ('finditem') then

		 UO.Grab('0','finditem')

		  wait(100)

		  Else

		 Exit=1

		endif

	  until Exit==1 OR uo.injournal("loot")

   Next

UO.UnSetReceivingContainer()

end sub



sub poison() 

uo.useobject('poison')

uo.waittargetobject('weap') 

end sub



sub AutoHeal()	  

repeat

   If UO.STR>UO.Life Then

	  UO.BandageSelf()

	  wait(1000)

   endif

until uo.dead()

end sub

[Nosound]

"obklad" - was ist das? %)

[t1m3]

NoSound ты же умный по скриптам, подумай че он делает )

[TwiXeR]

Ямайкан респект . Очень хороший лоад )