Yoko

All sides of Injection
It is currently 2017-11-23 20:50:18

All times are UTC+02:00




Post new topic  Reply to topic  [ 111 posts ]  Go to page 1 2 3 4 5 6 Next
Author Message
 Post subject: DRW (2009) by Dark Enemy
PostPosted: 2009-09-30 12:35:57 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
\FAQ по прокачке скиллов by Kynep который кстати забанен по ип.
Скрипты - некоторые сам писал, а некоторые где то брал и переделал.
Если где то есть ошибки - сообщите это мне.

Сначала надо скачать инжу 702.11
или 505.18

Image

Alchemy (poison)
Alchemy (gh)
Alchemy (total refresh)
Alchemy (total mana)
Anatomy
Animal Lore
Animal Taming
Archery
Arms Lore
Begging
Blacksmithy
Bowcraft/Fletching
Camping
Carpentry
Cartography
Cooking
Detecting Hidden
Enticement
Evaluating Intelligence
Fencing
Fishing
Forensic Evaluation
Healing
Herding
Hiding
Inscription_poison
Inscription_recall
Inscription_paralyze
Inscription_fs
Item Identification
Lockpicking
Lumberjacking
Mace Fighting
Magery
Meditation
Mining
Musicianship
Parrying
Peacemaking
Poisoning
Provocation
Remove Trap
Resisting Spells
Snooping
Spirit Speak
Stealing
Stealth
Swordsmanship
Tactics
Tailoring
Taste Identification
Tinkering
Tinkering (Stealth)
Tracking
Veterinary
Wrestling
##
Armor Creator
Worn Items
Открывает не пустые сумки
Подсчитать кол-во итемов (скролы, банки и др.)
Eval + spirit
Раскидает ги и ресы в бекпаке
Качает силу на кукле и одевает курсу
Кидает вещи акуратно
Скупка по рунам
Taming_po_runbuke
Отравляет оружие в руках
Атачит обратно врага
Go duels
Go portal
Antifreeze
Надеть или снять аrmor
Чинит одетый армор
Тамит, садится
Healing
Bow
Kalxen
Invis
Летит домой
Делает гп кучи по 50к
Каторга
Кастуем фс
Кастуем парал
Ресс с бинта
Убить драком
Ресурсы для пвп
Выгрузка пвп ресов
Мининг по рунам
Догон
Пылесос с пола
Резать, лутать
Пылесос с трупа
Полиморф
ПвП лошадь
Открываем двери
Фарм мобов
Должен продавать любые айтемы на столб
Кража дракона
Для свитков-можно сделать мешки 1к паралы, 1к фсы, итд

Где то может не хватать чеклаг
Code:
sub checklag() 
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

Рекол по рунбуке на дрв такой
Code:
uo.recall(RuneBook,'21') ; 1-я 
uo.recall(RuneBook,'33') ; 2-я
uo.recall(RuneBook,'46') ; 3-я
uo.recall(RuneBook,'58') ; 4-я
uo.recall(RuneBook,'64') ; 5-я
uo.recall(RuneBook,'73') ; 6-я
uo.recall(RuneBook,'88') ; 7-я
uo.recall(RuneBook,'94') ; 8-я
uo.recall(RuneBook,'1025') ; 9-я

Для работы uo.recall() надо включить эти два параметра:
Code:
,set norbcheck 1 
,set norbcalc 1


Исправил ссылки на скрипты ©Mirage

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2010-01-09 11:06:56, edited 104 times in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 12:56:06 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   while 1
      uo.useskill('Anatomy','self')
      wait(5000)
   wend
end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 13:04:03 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
   var opponent = '0x002F1DBE'
   VAR Chest = '0x400F9F07'
   
sub main()
   uo.set('finddistance','2')
   uo.useobject(Chest)
   wait(2000)
   while not uo.Dead()
      if uo.GetHp(opponent) <> uo.GetMaxHp(opponent) then
         uo.WarMode(false)
         checklag()
         while Not UO.InJournal('does not')
            band()
            uo.WaitTargetObject(opponent)
            uo.UseType('0x0E21')
            wait(3500)
         wend
      end if
      if uo.count('0x0E20')>0 then
         uo.WaitTargettype('0x1008')
         uo.UseType('0x0E20')
         uo.WarMode(true)     
      endif
      wait(1000)
      uo.usetype('0x13B2')
      wait(1000)
      uo.Attack(opponent)
      wait(500)
      while uo.GetHp(opponent) > uo.GetMaxHp(opponent)/3
         wait(500)
         if uo.count('0x0F3F')<5 then
            uo.findtype('0x0F3F',-1,Chest)
            if uo.findcount() then
               uo.moveitem('finditem','100','backpack')
               checklag()
               wait(1000)
               uo.Attack(opponent)
            endif
         endif
         uo.findtype('0x0F3F',-1,'ground')
         if uo.findcount() then
            uo.moveitem('finditem',0,'backpack')
            wait(500)
         endif
      wend
   wend
end sub
Sub band()
   if not uo.count('0x0E21')>0 then
      uo.findtype('0x0E21',-1,Chest)
      if uo.findcount() then
         uo.moveitem('finditem','50','backpack')
         wait(1000)
      endif
   endif
endsub
sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub

sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-11-18 18:22:49, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 13:08:06 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
VAR Chest='0x4033008D' ; ИД сундука где все логи
VAR TDagger='0x0F51' ; Тип даггера
VAR TLogs='0x1BDD' ; Тип логов
VAR TTorch='0x0F64' ; Тип торчей
VAR TShaft='0x1BD4' ; Тип шафтов
VAR CLogs='0x0000' ; Цвет логов
VAR TorchBag='0x400220CF'

; В руке или паке даггер, в сундуке логи и запускаем !!!

sub BowCraft_shaft()
   uo.useobject(Chest)
   wait(200)
   while UO.SkillVal('Bowcraft') < 650
      UO.FindType(TLogs,CLogs,'backpack')
      if not uo.findcount() then
         uo.findtype(TLogs,CLogs,Chest)
         if uo.findcount() then
            uo.moveitem('finditem',2,'backpack',44,121,0)
         endif
      endif
      wait(300)
      uo.findtype(TLogs,CLogs,'backpack')
      if uo.findcount() then
         uo.moveitem('finditem',1,'backpack',44,65,0)
      endif   
      wait(300)
      uo.Waittargettype(TLogs)
      uo.Usetype(TDagger)
      uo.WaitMenu('What do you want to carve the wood into?','shaft')
      wait(3100)
      if uo.Journal(0)=='World is saving now...' then
         wait(70000)
      endif
      uo.findtype(TShaft,-1,'backpack')
      if uo.getquantity('finditem')>25 then
         uo.moveitem('finditem',0,Chest)
         wait(1000)
      endif
   wend
end sub   


sub BowCraft_torch()
   VAR L
   dim ColLog[13]
   ColLog[0]=12         ; count
   ColLog[1]='0x047C'    ; Oak Logs
   ColLog[2]='0x0279'    ; Red Tree Logs
   ColLog[3]='0x096B'    ; Dark Tree Logs
   ColLog[4]='0x0237'    ; Swamp Logs
   ColLog[5]='0x0482'    ; Silver Leaf Logs
   ColLog[6]='0x010F'    ; Keranit Logs
   ColLog[7]='0x0014'    ; Perit Logs
   ColLog[8]='0x03C1'    ; Petrified Logs
   ColLog[9]='0x0085'    ; Dragon Tree Logs
   ColLog[10]='0x04C2' ; Vampire Tree Logs
   ColLog[11]='0x0033' ; Eridan Logs
   ColLog[12]='0x002B' ; Hellios Logs
   
   uo.useobject(Chest)
   wait(2000)
   for L=1 to ColLog[0]
      uo.findtype(TLogs,ColLog[L],Chest)
      while uo.findcount()
         uo.moveitem('finditem',50,'backpack')
         wait(1000)
         uo.findtype(TLogs,ColLog[L],'backpack')
         while uo.findcount()
            uo.waittargetobject('finditem')
            uo.usetype(TDagger)
            uo.waitmenu('What do you want to carve the wood into?','Items','Items','torch')
            uo.deletejournal()
            YouPut()
            uo.findtype(TLogs,ColLog[L],'backpack')
         wend
         DropTorch()
         uo.findtype(TLogs,ColLog[L],Chest)
      wend
   next      
end sub

Sub YouPut()
   var n
   for n=0 to 100
      if uo.injournal('You put the torch in your pack.|You fail to create the item') then
         return
      else
         if uo.injournal('World is saving now...') then
            wait(70000)
         endif
         wait(100)
      endif
   next
endsub

Sub DropTorch()
   uo.findtype(TTorch,-1,'backpack')
   while uo.findcount()
      uo.moveitem('finditem',0,TorchBag)
      wait(1000)
      uo.findtype(TTorch,-1,'backpack')
   wend
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 13:10:10 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   while 1
      checklag()
      UO.WaitTargetObject('self')
      UO.UseSkill('Evaluating Intelligence')
      wait(5000)
   wend
endsub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-11-18 15:31:33, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 13:17:24 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
VAR weap = '0x0EC3'         #Тип оружия
VAR shit = '0x1B76'         #Тип щита(если качаем Парринг)
var opponent = '0x0055C05A'
var chest = '0x400F9F07'
var othodimX=1508
var othodimY=209
var oponentX=1508
var oponentY=208
sub main()
   uo.useobject(chest)
   wait(1000)
   while not uo.Dead()
      if uo.GetHp(opponent) <> uo.GetMaxHp(opponent) then
         uo.WarMode(false)
         Walk(othodimX,othodimY)
         checklag()
         while Not UO.InJournal('does not')
            band()
            uo.WaitTargetObject(opponent)
            uo.UseType('0x0E21')
            wait(3500)
         wend
      end if
      if uo.GetHp('self') <> uo.GetMaxHp('self') then
         uo.WarMode(false)
         Walk(othodimX,othodimY)
         while uo.life < uo.str
            band()
            uo.WaitTargetObject('self')
            uo.UseType('0x0E21')
            wait(3500)
         wend
      end if
      if uo.count('0x0E20')>0 then
         uo.WaitTargettype('0x1008')
         uo.UseType('0x0E20')
         uo.WarMode(true)     
      endif
      wait(1000)
      uo.findtype(weap,-1,'my')
      if not uo.findcount() then
         uo.useobject(chest)
         wait(2000)
         uo.findtype(weap,-1,chest)
         uo.moveitem('finditem')
         wait(1000)
      endif
      uo.usetype(weap)
      wait(100)
      uo.usetype(shit)
      wait(100)
      uo.Attack(opponent)
      wait(100)
      Walk(oponentX,oponentY)
      while (uo.GetHp(opponent) > uo.GetMaxHp(opponent)/3) && (uo.Life > 80)
         wait(500)
      wend
   wend
end sub
sub band()
   if uo.count('0x0E21')<5 then
      uo.findtype('0x0E21',-1,chest)
      if uo.findcount() then
         uo.moveitem('finditem','50','backpack')
         checklag()
         wait(1000)
      endif
   endif
endsub
sub Walk(x,y)
   go:
   while not uo.getX() == x || not uo.getY() == y
      if not uo.getX() == x then
         if uo.getX() > x then
            uo.press(36)
         else
            uo.press(34)
         endif
      endif
      if not uo.getY() == y && uo.getX() == x then
         if uo.getY() > y then
            uo.press(33)
         else
            uo.press(35)
         endif
      endif
      checklag()
   wend
   checklag()
   if not uo.getX() == x || not uo.getY() == y then
      goto go
   endif
endsub 
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub
sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
sub main2()
uo.findtype('0x1DB8',-1,'my')
uo.moveitem('finditem')
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-11-18 18:24:00, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 13:22:12 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Прилепи чтоб не затерялась

закрепим когда будет все готово


Top
   
 Post subject:
PostPosted: 2009-09-30 13:22:28 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Бинты, мойка, курса в бекпаке и запускаешь скрипт.
Курса должна быть молоток или кирка.

Code:
var str
sub main()
   uo.disarm()
   uo.addobject('cursa')
   while uo.targeting()
      wait(500)
   wend
   while 1
      CheckLag()
      str=uo.str
      uo.useobject('cursa')
      life()
      uo.bandageself()
      wait(3500)
      if uo.count('0x0E20')>20 then
         uo.waittargetobject('^0x1008')
         uo.useobject('^0x0E20')
         wait(500)
      endif
   wend
end sub
sub life()
   var n
   for n=0 to 20
      if uo.life<str then
         return
      endif
      wait(500)
   next
endsub
sub CheckLag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-12-15 20:13:49, edited 4 times in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 13:24:43 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   var n
   while 1
      checklag()
      uo.waittargetobject('backpack')
      uo.useskill('Item')
      wait(5000)
   wend
end sub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-11-18 15:34:00, edited 2 times in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 13:40:35 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Над этим скриптом еще надо поработать. Не знаю когда это совершится.

Code:
var f=file("C:\Program Files\Dragon World\Data\trees.dat") ## - Путь к файлу в котором будут хранится координаты деревьев.
var GetFromFile=1 ## 1 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента
var Chest='0x4033008D' ## - ID сундука куда будут выгружаться логи.
var ContX=3336 ## Координаты X у сундука
var ContY=653 ## Координаты Y у сундука
var Axe = '0x40032A50'
var Pickaxe = '0x402826DD'
var music="C:\Program Files\Dragon World\Ultima Online\music\FlyinOff.wav" # сигнализация
###
###########
### Код ###
###########
sub main()
   uo.exec('exec Lumberjacking')
   uo.exec('exec alert')
endsub
Sub Lumberjacking()
   var i=0,j=0,k=0,r=0,q=0,ii,jj
   var TopX=324,TopY=65
   dim TreeX[5000], TreeY[5000],TreeT[5000]
   dim TreeTile[29]
   var flag=0,treeCount=0,clicks=0,flag2=0
   ########################
   ### Графика деревьев ###
   ########################
   TreeTile[0]=3277
   TreeTile[1]=3280
   TreeTile[2]=3283
   TreeTile[3]=3286
   TreeTile[4]=3289
   TreeTile[5]=3291
   TreeTile[6]=3294
   TreeTile[7]=3296
   TreeTile[8]=3299
   TreeTile[9]=3302
   TreeTile[10]=3393
   TreeTile[11]=3394
   TreeTile[12]=3395
   TreeTile[13]=3396
   TreeTile[14]=3415
   TreeTile[15]=3416
   TreeTile[16]=3417
   TreeTile[17]=3418
   TreeTile[18]=3419
   TreeTile[19]=3438
   TreeTile[20]=3439
   TreeTile[21]=3440
   TreeTile[22]=3441
   TreeTile[23]=3442
   TreeTile[24]=3460
   TreeTile[25]=3461
   TreeTile[26]=3462
   TreeTile[27]=3290
   TreeTile[28]=3288
   
   uo.Exec("filterspeech on")
   uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'")
   
   #####################################
   ### Загружаем координаты из файла ###
   #####################################
   if GetFromFile==1 then
      uo.Print('Загружаем координаты из файла...')
      f.open()
      treeCount=safe call f.ReadNumber()
      for i=1 to treeCount
         TreeT[i]=safe call f.ReadNumber()
         TreeX[i]=safe call f.ReadNumber()
         TreeY[i]=safe call f.ReadNumber()
      next
      f.close()
   else
      ######################################
      ### Собираем координаты из клиента ###
      ######################################
      #uo.Print('Выбери Кирку: ')
      #uo.Exec('addobject Pickaxe')
      #while uo.Targeting()
      #wait(100)
      #wend
      uo.Print('Собираем координаты деревьев в округе...')
      repeat
         clicks=0
         flag=0
         uo.DeleteJournal()
         #######################
         ### Кликаем на тайл ###
         #######################
         uo.UseObject(Pickaxe)
         waitForTarget()
         uo.DeleteJournal()
         WaitForTryRock()
         ###############################
         ### Проверяем дерево ли это ###
         ###############################
         flag=0
         for k=0 to 28
            if uo.LastTile(0)==TreeTile[k]+1 then
               flag=2
            endif
         next
         if flag==0 then
            for k=0 to 28
               if uo.LastTile(0)==TreeTile[k] then
                  flag=1
               endif
            next
         endif
         if uo.Lasttile(1)==uo.getX() and uo.Lasttile(2)==uo.gety() then
            flag=3
         endif
         #########################
         ### Кликнули на ствол ###
         #########################
         if flag==1 then
            flag2=0
            if treeCount>0 then
               for ii=1 to treeCount
                  if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
                     flag2=1
                  endif
               next
            endif
            if flag2==0 then
               treeCount=treeCount+1
               TreeX[treeCount]=uo.LastTile(1)
               TreeY[treeCount]=uo.LastTile(2)
               TreeT[treeCount]=uo.LastTile(0)
               uo.Print('Найдено дерево '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount))
            endif
         endif
         ##########################
         ### Кликнули по листве ###
         ##########################
         if flag==2 then
            flag2=0
            if treeCount>0 then
               for ii=1 to treeCount
                  if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then
                     flag2=1
                  endif
               next
            endif
            if flag2==0 then
               treeCount=treeCount+1
               TreeX[treeCount]=uo.LastTile(1)
               TreeY[treeCount]=uo.LastTile(2)
               TreeT[treeCount]=uo.LastTile(0)-1
               uo.print('Найдено дерево '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2)))
            endif
         endif
      until (Flag==3) or (treeCount==500)
      uo.Exec("filterspeech off")
      uo.Print('Анализ закончен, координаты деревьев записаны в файл')
      SaveToFile(treeCount,TreeX,TreeY,TreeT)
   endif
   uo.Print('Деревьев найдено: '+str(treeCount))
   wait(1000)
   ######################################
   ### Ходим по собранным координатам ###
   ######################################
   while 1==1
      if treeCount>0 then
         for i=1 to treeCount
            uo.Print('Идем к дереву '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i]))
            InfoLogs()
            flag=WalkN(TreeX[i],TreeY[i],'')
            if flag==1 then
               if uo.getglobal('hiding')=='On' then
                  wait(3000)
               endif
               if not uo.hidden() then
                  tohide()
               endif
               GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ()))
            endif
         next
         DropLogs()
      endif
   wend
end sub
Sub GetTree(Type,X,Y,Z)
   var i
   for i=0 to 9
      wait(200)
      uo.DeleteJournal()
      uo.WaitTargetTile(Type,X,Y,Z)
      uo.UseObject(Axe)
      if WaitForChange()==1 then
         return
      endif
   next
   return
end sub
Sub ToHide()
   while not uo.Hidden()
      if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then
         uo.warmode(0)
      endif
      uo.Print('Пытаемся уйти в хайд...')
      uo.DeleteJournal()
      uo.UseSkill('Stealth')
      WaitForHide()
   wend
   wait(100)
   uo.setglobal('hiding',0)
end sub
Sub WaitForHide()
   var Text1=uo.GetName()+": You have hidden yourself well"
   var Text2=uo.GetName()+": You can't seem to hide here."
   for var i=0 to 100
      if uo.Journal(0)==Text1 then
         uo.setglobal('hiding',0)
         return
      endif
      if uo.Journal(0)==Text2 or uo.Journal(0)=='You are preoccupied with thoughts of battle.' then
         return
      endif
      wait(100)
   next
end sub
Sub WaitForChange()
   var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.'
   var Text2='There are no logs here to chop.'
   var Text3="You can't reach this."
   var Text4="That is too far away."
   var Text5="You can't do much in your current state."
   var Text6='There is no wood left to harvest.'
   var Text7='World is saving now...'
   var mess
   for var i=0 to 200
      mess=uo.Journal(0)
      if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 OR uo.Journal(0)==Text6 then
         return 1
      endif
      if uo.Journal(0)==Text1 then
         return 0
      endif
      if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then
         return 0
      endif
      if uo.Journal(0)==Text7 then
         wait(70000)
      endif
      wait(50)
   next
   return 0
end sub
Sub WaitForTryRock()
   var Text1="That is too far away."
   var Text2="Try mining in rock."
   var Text3="There is no ore here to mine."
   var Text4="You have no line of sight to that location"
   var Text5="You can't see the target"
   for var i=0 to 50
      if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then
         return 1
      endif
      wait(200)
   next
   return 0
end sub
Sub WaitForTarget()
   for var i=0 to 50
      if uo.Targeting()==1 then
         return 1
      endif
      wait(200)
   next
   return 0
end sub
Sub WaitForChangeXY(myX,myY,lastX,lastY)
   for var i=1 to 50
      if lastX<>myX or lastY<>myY then
         return 1
      endif
      wait(200)
   next
   return 0
end sub
Sub WaitForWorldSave()
   if uo.Journal(0)=='World is saving now...' then
      wait(70000)
   endif
endsub
Sub Numb(num)
   if num>=0 then
      return num
   else
      return num*(-1)
   endif
end sub
Sub SaveToFile(treeCount,TreeX,TreeY,TreeT)
   var s=0,i=0
   f.open()
   f.create()
   s=safe call f.writeln(treeCount)
   for i=1 to treeCount
      s=safe call f.writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i]))
   next
   f.close()
end sub
sub DropLogs()
   if uo.Waiting() then
      uo.CancelTarget()
   endif   
   var a,Exit,Logs='0x1BDD'
   uo.Print('Выкладываем Логи.')
   WalkN(0,0,chest)
   UO.FindType( Logs , -1 ,'backpack')
   while UO.GetQuantity('finditem') > 0
      UO.moveitem('finditem','0',Chest)
      wait(1000)
      UO.FindType( Logs , -1 ,'backpack')
   wend
   uo.Print('Логи Выложены.')
end sub
Sub InfoLogs()
   uo.Print('У вас всего '+str(uo.Count('0x1BDD'))+' логов в сумке')
   uo.Print('Из них '+str(uo.Count('0x1BDD','0x0000'))+' простых и ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' цветных')
end sub
Sub Open(Container)
   uo.DeleteJournal()
   uo.UseObject(Container)
   repeat
      wait(500)
   until uo.InJournal('Contains')
end sub
Sub alert()
   while 1
      wait(500)
      if uo.dead() then
         uo.playwav(music)
         wait(10000)
      endif
   wend
end sub
Sub CheckLag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
end sub
Sub backpack()
   var n
   for n=0 to 60
      if uo.injournal('a backpack') then
         return 1
      else
         wait(100)
      endif
      if uo.injournal('World is saving now...') then
         wait(70000)
      endif
   next
   return 0
endsub
Sub Numb(num)
   if num>=0 then
      return num
   else
      return num*(-1)
   endif
end sub
Sub WalkN(x,y,Target) ########################################## Ходилка
   VAR LastTimer
   LastTimer=UO.Timer()
   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"
   uo.say('')   
   While Exit<>1
      WaitForWorldSave()
      if not uo.hidden() then
         if not uo.getglobal('hiding')=='On' then
            uo.setglobal('hiding','On')
            uo.exec('exec tohide')
         Endif
      endif   
      If Target<>"" Then
         dx=UO.GetX(Target)-UO.GetX()
         dy=UO.GetY(Target)-UO.GetY()         
         If UO.GetDistance(Target)<2 OR LastTimer+100<UO.Timer() Then
            return
         Endif
      Else
         dx=x-UO.GetX()
         dy=y-UO.GetY()
         If Numb(dx)<=1 AND Numb(dy)<=2 OR LastTimer+100<UO.Timer() Then
            return 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
   Wend
end sub


Sub 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 ErrLevel
end sub


Sub 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 ErrLevel
end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 13:47:23 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Если у вас в бекпаке блек перлы, он кастует стрелку. Это для кача, пока пойзон не доступен..
Code:
sub main()
   VAR Eval=0 ; Use Evaluating Intelligence on self 1:yes/0:no
   VAR NS='0x0F88'
   VAR w
   uo.addobject('Chest')
   while uo.targeting()
      wait(400)
   wend
   uo.useobject('Chest')
   wait(2000)
   While NOT UO.Dead()
      If Eval==1 then
         uo.useskill('Evaluating','self')
         wait(1000)
      endif
      if uo.bp>0 and uo.ns>0 then
         UO.Cast('Magic Arrow', 'self')
      else
         if uo.ns==0 then
            uo.findtype(NS,-1,'Chest')
            if uo.findcount() then
               uo.moveitem('finditem','50','backpack')
               checklag()
               wait(700)
            endif
         endif
         if uo.ns>0 then
            UO.Cast('Poison', 'self')
         endif
      endif
      WaitForMana()
      if uo.mana<14 then
         meditation()
      endif
   Wend
end sub
Sub WaitForMana()
   VAR w,m=uo.mana
   for w=0 to 100
      if uo.mana<m then
         return
      endif
      wait(500)
   next
endsub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub
sub meditation()
   uo.findtype('0x0F0E','0x09DF','backpack')
   if uo.findcount() then
      uo.useobject('finditem')
      wait(700)
   else
      while uo.mana < uo.int
         if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then
            uo.warmode(0)
         endif
         checklag()
         Uo.Useskill('Meditation')
         waitformed()
      wend
   endif
endsub
sub waitformed()
   var n
   for n=0 to 100
      if uo.injournal('You lose|at peace') then
         return
      endif
      wait(500)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-10-02 10:55:55, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 14:00:08 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
говорят с одного ип не качается скил
Code:
Mudvayne ‎(19:29):
1го айпи растет резист
Mudvayne ‎(19:30):
у левака надо чтоб было более 85 маны

Code:
sub main()
   var target='0x001A34CD'
   var chest='0x40328B45'
   uo.useobject(chest)
   wait(1000)
   while 1
      while uo.mana > 10
         if uo.bp<5 then
            uo.findtype('0x0F7A',-1,chest)
            if uo.findcount() then
               uo.moveitem('finditem','50','backpack')
               checklag()
               wait(600)
            endif
         endif
         if uo.ns<5 then
            uo.findtype('0x0F88',-1,chest)
            if uo.findcount() then
               uo.moveitem('finditem','50','backpack')
               checklag()
               wait(600)
            endif
         endif
         checklag()
         uo.cast('Magic Arrow',target)
         WaitForMana()
      wend
      if uo.mana < 10 then
         meditation()
      endif
   wend
endsub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub
sub meditation()
   uo.findtype('0x0F0E','0x09DF','backpack')
   if uo.findcount() then
      uo.useobject('finditem')
      wait(700)
   else
      while uo.mana < uo.int
         if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then
            uo.warmode(0)
         endif
         checklag()
         Uo.Useskill('Meditation')
         waitformed()
      wend
   endif
endsub
sub waitformed()
   var n
   for n=0 to 100
      if uo.injournal('You lose|at peace') then
         return
      endif
      wait(500)
   next
endsub
Sub WaitForMana()
   VAR w,m=uo.mana
   for w=0 to 100
      if uo.mana<m then
         return
      endif
      wait(200)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-10-24 18:44:09, edited 4 times in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 14:01:50 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   while 1
      checklag()
      UO.UseSkill('Spirit Speak')
      wait(3000)
   wend
end sub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-11-18 15:48:06, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 14:03:15 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   var n
   while 1
      for n=0 to 4
         if uo.hidden() then
            uo.press(36)
            wait(300)
         else
            uo.useskill('Hiding')
            waitforchange()
         endif
      next
      for n=0 to 4
         if uo.hidden() then
            uo.press(34)
            wait(300)
         else
            uo.useskill('Hiding')
            waitforchange()
         endif
      next   
   wend
end sub
sub waitforchange()
   var n
   checklag()
   for n=1 to 100
      if uo.injournal('seem to hide|You have hidden') then
         return
      endif
      wait(150)
   next
endsub
sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Last edited by Nmy on 2009-11-07 20:23:37, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2009-09-30 14:18:11 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   uo.msg('Где вещи?')
   uo.addobject('gde')
   while uo.targeting()
      wait(500)
   wend
   uo.msg('Куда кидать битых?')
   uo.addobject('kuda')
   while uo.targeting()
      wait(500)
   wend
   uo.findtype(-1,-1,'gde')
   while uo.findcount()
      uo.ignore('finditem')
      uo.deletejournal()
      wait(2100)
      uo.waittargetobject('finditem')
      uo.useskill('Arms Lore')
      repeat
         wait(100)
      until uo.injournal('Attack|You must wait')
      if uo.injournal('worn') then
         uo.moveitem('finditem',0,'kuda')
         wait(300)
      endif
      uo.findtype(-1,-1,'gde')
   wend
end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 14:19:46 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Открывает не пустые сумки

Code:
sub checkbag()
   var flag
   var TypeBag='0x0E76' ; Тип сумок
   uo.addobject('chest')
   while uo.targeting()
      wait(500)
   wend
   
   uo.useobject('chest')
   wait(1000)
   uo.findtype(TypeBag,-1,'chest')
   while uo.findcount()
      uo.deletejournal()
      uo.click('finditem')
      flag=bag()
      if flag==1 and not uo.injournal('(0 items)') then
         uo.useobject('finditem')
      else
         if flag==1 then
            uo.ignore('finditem')
         endif
      endif
      uo.findtype(TypeBag,-1,'chest')
   wend
endsub

sub bag()
   var b
   for b=0 to 100
      if uo.injournal(' items') then
         return 1
      endif
      wait(200)
   next
   return 0
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 14:20:35 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Подсчитывает кол-во всех вещей

Code:
sub main()
   var q=0
   uo.ignorereset()
   uo.findtype(-1,-1,'lastcontainer')
   while uo.findcount()
      q=q+uo.getquantity('finditem')
      uo.ignore('finditem')
      uo.findtype(-1,-1,'lastcontainer')
   wend
   uo.print(str(q))
end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 14:22:23 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   while NOT UO.Dead()
      if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then
         uo.warmode(0)
      endif
      UO.WaitTargetObject('self')
      UO.UseSkill('Evaluating Intelligence')
      wait(2000)
      UO.UseSkill('Spirit Speak')
      wait(3000)
   wend
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 14:23:05 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub raskidon()
   var n
   Dim item[4]
   item[1]='0x0F85' ; ginseng
   item[2]='0x0F0E' ; gh
   item[3]='0x0F0E' ; mana
   item[4]='0x0E21' ; bandages
   
   Dim color[4]
   color[1]='0x0000'
   color[2]='0x09BB' 
   color[3]='0x09DF'
   color[4]='0x0000'
   
   for n=1 to 4
      uo.findtype(item[n],color[n],'backpack')
      while uo.findcount()
         while uo.getquantity('finditem')<3 and uo.findcount()
            uo.ignore('finditem')
            uo.findtype(item[n],color[n],'backpack')
         wend
         uo.moveitem('finditem','2','backpack',95,10,0)
         checklag()
         wait(600)
         uo.findtype(item[n],color[n],'backpack')
      wend
   next
   uo.print(' !!! -= done =- !!! ')
endsub
sub raskidongp()
var n
   for n=0 to 100
      uo.findtype('0x0EED',0,'backpack')
      while uo.getquantity('finditem')<7 and uo.findcount()
         uo.ignore('finditem')
         uo.findtype('0x0EED',0,'backpack')
      wend
      uo.moveitem('finditem','6','backpack',95,10,0)
      checklag()
      wait(600)
   next
   uo.print(' !!! -= done =- !!! ')
endsub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-09-30 14:23:56 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2143
Location: Latvia
Code:
sub main()
   uo.addobject('doll')
   while uo.targeting()
      wait(500)
   wend
   while 1
      uo.useobject('doll')
      wait(5000)
      if uo.str>99 then
         uo.findtype( -1 , -1 ,'backpack')
         uo.deletejournal()
         uo.click('finditem')
         wait(1500)
         if uo.injournal('of Curse') then
            uo.useobject('finditem')
         else
            if uo.journal(0)<>"" then
               uo.ignore('finditem')
            endif
         endif
      endif
      if uo.dead() then
         uo.playwav("C:\Program Files\Dragon World\Ultima Online\music\FlyinOff.wav")
      endif
   wend
end sub

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 111 posts ]  Go to page 1 2 3 4 5 6 Next

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited