Yoko
http://forum.yoko.com.ua/

Ну помогите...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5512		 Page 1 of 1
Author:  _x3ma1_ [ 2006-02-05 09:36:08 ]
Post subject:  Ну помогите...
Хотяб дайте скрипт просто на даггеры из айрона делать...


Или хотяб кто умеет как переделать этот скрипт на даггерв? :cry:



Code:
sub Katana()  
#uo.setcatchbag('0x402e4240') 
repeat  
wait(1000) 
UO.Usetype('0x1bef')  
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','katana') 
wait (1000)  
UO.DeleteJournal()  
while not (UO.InJournal("You put") or UO.InJournal("failed"))  
wait(300)  
wend 
uo.waittargettype(0x13fe) 
wait(1000) 
uo.usefromground(0x0fb1) 
wait(1000) 
UO.UnSetReceivingContainer()  
wait(500)  
UO.WaitTargetGround('0x1bef') 
wait(500) 
uo.grab('3') 
wait(500) 
until UO.Dead()  
end sub  
 
sub Cant()  
repeat  
while not UO.InJournal("t see the target") 
wait(300)  
wend  
uo.msg("You put") 
wait(30000) 
until UO.Dead()  
end sub




sub Blacksmithing() 
var Exit=0, LastTimer 
while Exit<>1 
uo.DeleteJournal() 
LastTimer=uo.Timer() 
uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','katana') 
uo.UseType('0x1BEF') 
 
while not uo.InJournal('You put') and not uo.InJournal('You have failed') 
wait(500) 
wend 

if uo.InJournal('You have failed') then 
repeat 
wait(100) 
until uo.Timer()>=LastTimer+100 
end if 

uo.FindType('0x13FE',-1,'backpack') 
wait(500) 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject('0x4015FDD9') ; Форж 
end if 

uo.FindType('0x1BEF',-1,'backpack') 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF','0x0000','0x400C6EE6') ;Cундук с ингами 
wait(1000) 
uo.Grab('900','finditem') 
Endif 
wait(900) 
wend    
end sub
Author:  Destruction [ 2006-02-05 12:26:35 ]
Post subject: 
Code:
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','katana')

Экхм, ну имейте в конце-концов совесть! Чтобы это исправить, знать много не надо...
Author:  _x3ma1_ [ 2006-02-05 15:52:12 ]
Post subject: 
а я не знаю(((
Author:  Destruction [ 2006-02-05 20:43:36 ]
Post subject: 
Code:
sub Dagger()  
#uo.setcatchbag('0x402e4240') 
repeat  
wait(1000) 
UO.Usetype('0x1bef')  
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 
wait (1000)  
UO.DeleteJournal()  
while not (UO.InJournal("You put") or UO.InJournal("failed"))  
wait(300)  
wend 
uo.waittargettype(0x13fe) 
wait(1000) 
uo.usefromground(0x0fb1) 
wait(1000) 
UO.UnSetReceivingContainer()  
wait(500)  
UO.WaitTargetGround('0x1bef') 
wait(500) 
uo.grab('3') 
wait(500) 
until UO.Dead()  
end sub  
  
sub Cant()  
repeat  
while not UO.InJournal("t see the target") 
wait(300)  
wend  
uo.msg("You put") 
wait(30000) 
until UO.Dead()  
end sub 




sub Blacksmithing() 
var Exit=0, LastTimer 
while Exit<>1 
uo.DeleteJournal() 
LastTimer=uo.Timer() 
uo.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') 
uo.UseType('0x1BEF') 
  
while not uo.InJournal('You put') and not uo.InJournal('You have failed') 
wait(500) 
wend 

if uo.InJournal('You have failed') then 
repeat 
wait(100) 
until uo.Timer()>=LastTimer+100 
end if 

uo.FindType('0x13FE',-1,'backpack') 
wait(500) 

if uo.GetQuantity('finditem') then 
uo.WaitTargetObject('finditem') 
uo.UseObject('0x4015FDD9') ; Форж 
end if 

uo.FindType('0x1BEF',-1,'backpack') 
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BEF','0x0000','0x400C6EE6') ;Cундук с ингами 
wait(1000) 
uo.Grab('900','finditem') 
Endif 
wait(900) 
wend    
end sub
Author:  _x3ma1_ [ 2006-02-05 23:09:51 ]
Post subject: 
почему то не плавит и не берёт с сундука инги :?:
Author:  Destruction [ 2006-02-06 00:38:52 ]
Post subject: 
_x3ma1_ wrote:
почему то не плавит и не берёт с сундука инги :?:

Типы исправь.
Author:  GimFlex [ 2006-02-06 00:40:50 ]
Post subject: 
Destruction wrote:
_x3ma1_ wrote:
почему то не плавит и не берёт с сундука инги :?:

Типы исправь.


надо говорить не типы исправь а вот таких личностей надо в уроки отправлять и только туда чтоб потом не задавали глупых вопросов а то приходят иногда тут такие вот ради одного скрипта и все потом еще раз приходят потом нервы не выдерживают а нервы надо беречь
Author:  Destruction [ 2006-02-06 08:51:58 ]
Post subject: 
Каждому своё, я считаю, что всяким надо показать, что они нифига не смыслят, а када они зададут тупой вопрос - в уроки направлять...
Author:  _x3ma1_ [ 2006-02-07 23:00:55 ]
Post subject: 
Вот скрипт на смит хаммеры и по идеи он должен их плавить но не плавит с права токо флуд идёи если кто знает в чём дело скажите :?:


Code:
sub BS() 
var Forge = '0x4015FDD9' ;Forza(id) 
var Cont = '0x400C6EE6' ;Sunduk s ingami(id) 
var ingot = '0x1BEF' ;ingot(type)
;var ingot = '0x1BE3' ;ingot(type) ; type Copper
;var ingot = '0x1BE9' ;ingot(type) ; type Gold
var color = '0x0000' ;cvet inga(Iron, Copper, Silver, Gold)
;var color = '0x0750' ;cvet inga(Rusty) 
;var color = '0x0590' ;cvet inga(Old Copper) 
;var color = '0x060A' ;cvet inga(Dull Copper)
;var color = '0x0488' ;cvet inga(Bronze)
;var color = '0x096B' ;cvet inga(Shadow)
var Food = '0x097B' ;eda (FishSteiks) 
;var item = '0x0F51' ;dagger (type) 
;var item = '0x13FE' ;Katana (type) 
var item = '0x13E3' ;Smith hammmer (type) 
var time, i=0, fizl=0, control=5, hammer, hamType 
UO.CancelMenu() 
UO.SetReceivingContainer('backpack') 

UO.Automenu("Blacksmithing","Weapons") 
UO.Automenu("Weapons","Maces & Hammers") 
UO.Automenu("Maces & Hammers","hammer") 


;UO.Automenu("Blacksmithing","Weapons") 
;UO.Automenu("Weapons","Swords & Blades") 
;UO.Automenu("Swords & Blades","dagger") 

;UO.Automenu("Blacksmithing","Colored") 
;UO.Automenu("Colored","Weapons") 
;UO.Automenu("Weapons","Swords & Blades") 
;UO.Automenu("Swords & Blades","Dagger") 
;UO.Automenu("Swords & Blades","Katana") 

hammer=UO.ObjAtLayer('Rhand') 
hamType=UO.GetGraphic(hammer) 
while True 
if UO.Count(ingot,color)<=20 then 
UO.FindType(ingot,color,Cont) 
UO.Grab('200','finditem') 
wait(1000) 
else 
UO.DeleteJournal() 
UO.UseType(ingot,color) 
time=UO.Timer() 
Repeat 
wait(500) 
Until UO.InJournal("You put") OR UO.InJournal("fail") OR UO.InJournal("You must") OR time+200<UO.Timer() 

if UO.InJournal("You put") then 
fizl=0 
else 
fizl=fizl+1 
endif 
if fizl==control then 
wait(8000) 
endif 

if UO.Count(item)>10 then 
While UO.Count(item)>0 
UO.DeleteJournal() 
UO.WaitTargetType(item) 
UO.UseObject(Forge) 
time=UO.Timer() 
Repeat 
wait(500) 
Until UO.InJournal("You smelt") OR UO.InJournal("consumed") OR UO.InJournal("You must") OR time+200<UO.Timer() 
Wend 
UO.Equipt('Rhand',hamType) 
wait(1000) 
Endif 
endif 
endif 
if i==60 then 
UO.DeleteJournal() 
Repeat 
UO.UseType(Food) 
Wait(500) 
Until UO.InJournal("simply too full") 
i=0 
else 
i=i+1 
endif 
Wend 
end sub
Author:  LordTom [ 2006-02-07 23:08:03 ]
Post subject:  давайте создадим свою фотогаллерею
Глава III. Мой выбор. …Кто тогда поспешит на отчаянный зов? Но у края, в кольце занесенных мечей, Если дрогнет душа, я почувствую вновь Побратима ладонь у себя на плече. И такой же мальчонка
Author:  Nefrid [ 2006-02-07 23:20:34 ]
Post subject: 
На 1 вмз дешевле, чем Том. :mrgreen:
Author:  LordTom [ 2006-02-07 23:24:34 ]
Post subject:  и снова странные откаты
SK А секрет размножения - интересен до колик. Вот, кратко СЕКРЕТ РАЗМНОЖЕНИЯ КИТАЙЦЕВ ПРОВЕРЕННЫЙ ИМПЕРИЧЕСКИМ ПУТЁМ! Если разобраться, Камрады, то секрета и нет, никакого… Всё дело в ги
Секретно Экз.№171 Положение о военнопленных Приложение к Постановлению Совета Народных Комиссаров СССР № 1798-800с от 1июля 1941 г. I. ОБЩЕЕ ПОЛОЖЕНИЕ 1. Военнопленными признаются:
Author:  _x3ma1_ [ 2006-02-08 06:46:08 ]
Post subject: 
:(
Author:  Destruction [ 2006-02-08 07:02:41 ]
Post subject: 
Вызову телепата с канакрских островов, только это будет дорого стоить.

Что Вам батенька флуд, то нам важная инфа.

В любом случайте, топайте-ка Вы читать уроки, никто учить Вас, как мне кажеться, не собирается.
Author:  Arsuri [ 2006-02-08 11:57:32 ]
Post subject: 
Code:
sub BS() 
var Forge = '0x4015FDD9' ;Forza(id) 
var Cont = '0x400C6EE6' ;Sunduk s ingami(id) 
var ingot = '0x1BEF' ;ingot(type) 
;var ingot = '0x1BE3' ;ingot(type) ; type Copper 
;var ingot = '0x1BE9' ;ingot(type) ; type Gold 
var color = '0x0000' ;cvet inga(Iron, Copper, Silver, Gold) 
;var color = '0x0750' ;cvet inga(Rusty) 
;var color = '0x0590' ;cvet inga(Old Copper) 
;var color = '0x060A' ;cvet inga(Dull Copper) 
;var color = '0x0488' ;cvet inga(Bronze) 
;var color = '0x096B' ;cvet inga(Shadow) 
var Food = '0x097B' ;eda (FishSteiks) 
;var item = '0x0F51' ;dagger (type) 
;var item = '0x13FE' ;Katana (type) 
var item = '0x13E3' ;Smith hammmer (type) 
var time, i=0, hammer, hamType 
UO.CancelMenu() 
 

UO.Automenu("Blacksmithing","Weapons") 
UO.Automenu("Weapons","Maces & Hammers") 
UO.Automenu("Maces & Hammers","hammer") 


;UO.Automenu("Blacksmithing","Weapons") 
;UO.Automenu("Weapons","Swords & Blades") 
;UO.Automenu("Swords & Blades","dagger") 

;UO.Automenu("Blacksmithing","Colored") 
;UO.Automenu("Colored","Weapons") 
;UO.Automenu("Weapons","Swords & Blades") 
;UO.Automenu("Swords & Blades","Dagger") 
;UO.Automenu("Swords & Blades","Katana") 

hammer=UO.ObjAtLayer('Rhand') 
hamType=UO.GetGraphic(hammer) 
while True 
   if UO.Count(ingot,color)<=20 then 
      UO.FindType(ingot,color,Cont)
      wait(100) 
      UO.Moveitem('finditem','200','backpack') 
      wait(200) 
   else 
      UO.DeleteJournal() 
      UO.UseType(ingot,color) 
      time=UO.Timer() 
      Repeat 
         wait(500) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") OR UO.InJournal("You must") OR time+200<UO.Timer() 

      if UO.InJournal("You put") then
         While UO.Count(item)>0 
            UO.DeleteJournal() 
            UO.WaitTargetType(item) 
            UO.UseObject(Forge) 
            time=UO.Timer() 
            Repeat 
               wait(500) 
            Until UO.InJournal("You smelt") OR UO.InJournal("consumed") OR UO.InJournal("You must") OR time+200<UO.Timer() 
         Wend 
         UO.Equipt('Rhand',hamType) 
         wait(1000)
      endif 
      if UO.InJournal("fail") then 
         wait(8000) 
      endif       
   endif  
   if i==60 then 
      UO.DeleteJournal() 
      Repeat 
         UO.UseType(Food) 
         Wait(500) 
      Until UO.InJournal("simply too full") 
      i=0 
   endif 
   i=i+1  
Wend 
end sub

Вот, пробуй. Сам не проверял.
Author:  Savage [ 2006-02-08 12:52:00 ]
Post subject: 
Что вы тут парите? Человеку надо включить галочку Track World Items на main вкладке инжекта.
Author:  _x3ma1_ [ 2006-02-08 16:07:20 ]
Post subject: 
точто переделали скрипт не работает....

и в закладку галку ставил всё рамно нечего :(
Author:  Savage [ 2006-02-08 16:13:29 ]
Post subject: 
Ламер спрашивает программер:
Л. Слух я тут прогу накорябал, но че то не работает, посмотри где у меня ошибка?
П. Смерил взглядом Л. и произносит: В ДНК!!!
Author:  _x3ma1_ [ 2006-02-08 19:15:18 ]
Post subject: 
:lol: но нехера не понял :D
Author:  nikotin [ 2006-02-14 05:30:55 ]
Post subject: 
очень полезно и интересно. маст рид
viewtopic.php?t=3597
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/