Ну помогите...

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
_x3ma1_
Posts: 12
Joined: 2006-02-04 19:06:54
Contact:
Contact _x3ma1_

Ну помогите...

Post by _x3ma1_ »

Хотяб дайте скрипт просто на даггеры из айрона делать...


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



Code: Select all

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
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Code: Select all

UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','katana')

Экхм, ну имейте в конце-концов совесть! Чтобы это исправить, знать много не надо...
Top
_x3ma1_
Posts: 12
Joined: 2006-02-04 19:06:54
Contact:
Contact _x3ma1_

Post by _x3ma1_ »

а я не знаю(((
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Code: Select all

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
Top
_x3ma1_
Posts: 12
Joined: 2006-02-04 19:06:54
Contact:
Contact _x3ma1_

Post by _x3ma1_ »

почему то не плавит и не берёт с сундука инги :?:
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

_x3ma1_ wrote:почему то не плавит и не берёт с сундука инги :?:

Типы исправь.
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

Destruction wrote:
_x3ma1_ wrote:почему то не плавит и не берёт с сундука инги :?:

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


надо говорить не типы исправь а вот таких личностей надо в уроки отправлять и только туда чтоб потом не задавали глупых вопросов а то приходят иногда тут такие вот ради одного скрипта и все потом еще раз приходят потом нервы не выдерживают а нервы надо беречь
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Каждому своё, я считаю, что всяким надо показать, что они нифига не смыслят, а када они зададут тупой вопрос - в уроки направлять...
Top
_x3ma1_
Posts: 12
Joined: 2006-02-04 19:06:54
Contact:
Contact _x3ma1_

Post by _x3ma1_ »

Вот скрипт на смит хаммеры и по идеи он должен их плавить но не плавит с права токо флуд идёи если кто знает в чём дело скажите :?:


Code: Select all

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
Top
LordTom
Posts: 256
Joined: 2006-02-03 11:32:16
Location: ND
Contact:
Contact LordTom

давайте создадим свою фотогаллерею

Post by LordTom »

Глава III. Мой выбор. …Кто тогда поспешит на отчаянный зов? Но у края, в кольце занесенных мечей, Если дрогнет душа, я почувствую вновь Побратима ладонь у себя на плече. И такой же мальчонка
Last edited by LordTom on 2009-12-23 11:56:12, edited 2 times in total.
Top
Nefrid
Posts: 42
Joined: 2005-02-23 20:04:55
Location: Kiev
Contact:
Contact Nefrid

Post by Nefrid »

На 1 вмз дешевле, чем Том. :mrgreen:
Top
LordTom
Posts: 256
Joined: 2006-02-03 11:32:16
Location: ND
Contact:
Contact LordTom

и снова странные откаты

Post by LordTom »

SK А секрет размножения - интересен до колик. Вот, кратко СЕКРЕТ РАЗМНОЖЕНИЯ КИТАЙЦЕВ ПРОВЕРЕННЫЙ ИМПЕРИЧЕСКИМ ПУТЁМ! Если разобраться, Камрады, то секрета и нет, никакого… Всё дело в ги
Секретно Экз.№171 Положение о военнопленных Приложение к Постановлению Совета Народных Комиссаров СССР № 1798-800с от 1июля 1941 г. I. ОБЩЕЕ ПОЛОЖЕНИЕ 1. Военнопленными признаются:
Last edited by LordTom on 2009-12-23 20:37:01, edited 2 times in total.
Top
_x3ma1_
Posts: 12
Joined: 2006-02-04 19:06:54
Contact:
Contact _x3ma1_

Post by _x3ma1_ »

:(
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Вызову телепата с канакрских островов, только это будет дорого стоить.

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

В любом случайте, топайте-ка Вы читать уроки, никто учить Вас, как мне кажеться, не собирается.
Top
Arsuri
Posts: 62
Joined: 2005-02-25 13:31:26
Location: DRW, [Hussars]
Contact:
Contact Arsuri

Post by Arsuri »

Code: Select all

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

Вот, пробуй. Сам не проверял.
Top
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:
Contact Savage

Post by Savage »

Что вы тут парите? Человеку надо включить галочку Track World Items на main вкладке инжекта.
Top
_x3ma1_
Posts: 12
Joined: 2006-02-04 19:06:54
Contact:
Contact _x3ma1_

Post by _x3ma1_ »

точто переделали скрипт не работает....

и в закладку галку ставил всё рамно нечего :(
Top
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:
Contact Savage

Post by Savage »

Ламер спрашивает программер:
Л. Слух я тут прогу накорябал, но че то не работает, посмотри где у меня ошибка?
П. Смерил взглядом Л. и произносит: В ДНК!!!
Top
_x3ma1_
Posts: 12
Joined: 2006-02-04 19:06:54
Contact:
Contact _x3ma1_

Post by _x3ma1_ »

:lol: но нехера не понял :D
Top
nikotin
Posts: 19
Joined: 2006-02-13 19:46:11
Contact:
Contact nikotin

Post by nikotin »

очень полезно и интересно. маст рид
viewtopic.php?t=3597
Top
Post Reply

Return to “Scripting Ore”