Yoko

All sides of Injection
It is currently 2025-11-05 06:54:07

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 20 posts ] 
  Print view Previous topic | Next topic 
Author Message
_x3ma1_
 Post subject: Ну помогите...
PostPosted: 2006-02-05 09:36:08 
Offline
User avatar

Joined: 2006-02-04 19:06:54
Posts: 12
Хотяб дайте скрипт просто на даггеры из айрона делать...


Или хотяб кто умеет как переделать этот скрипт на даггерв? :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
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-02-05 12:26:35 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Code:
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','katana')

Экхм, ну имейте в конце-концов совесть! Чтобы это исправить, знать много не надо...
Top
   
Reply with quote  
_x3ma1_
 Post subject:
PostPosted: 2006-02-05 15:52:12 
Offline
User avatar

Joined: 2006-02-04 19:06:54
Posts: 12
а я не знаю(((
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-02-05 20:43:36 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
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
Top
   
Reply with quote  
_x3ma1_
 Post subject:
PostPosted: 2006-02-05 23:09:51 
Offline
User avatar

Joined: 2006-02-04 19:06:54
Posts: 12
почему то не плавит и не берёт с сундука инги :?:
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-02-06 00:38:52 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
_x3ma1_ wrote:
почему то не плавит и не берёт с сундука инги :?:

Типы исправь.
Top
   
Reply with quote  
GimFlex
 Post subject:
PostPosted: 2006-02-06 00:40:50 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
Destruction wrote:
_x3ma1_ wrote:
почему то не плавит и не берёт с сундука инги :?:

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


надо говорить не типы исправь а вот таких личностей надо в уроки отправлять и только туда чтоб потом не задавали глупых вопросов а то приходят иногда тут такие вот ради одного скрипта и все потом еще раз приходят потом нервы не выдерживают а нервы надо беречь
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-02-06 08:51:58 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Каждому своё, я считаю, что всяким надо показать, что они нифига не смыслят, а када они зададут тупой вопрос - в уроки направлять...
Top
   
Reply with quote  
_x3ma1_
 Post subject:
PostPosted: 2006-02-07 23:00:55 
Offline
User avatar

Joined: 2006-02-04 19:06:54
Posts: 12
Вот скрипт на смит хаммеры и по идеи он должен их плавить но не плавит с права токо флуд идёи если кто знает в чём дело скажите :?:


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
Top
   
Reply with quote  
LordTom
PostPosted: 2006-02-07 23:08:03 
Offline

Joined: 2006-02-03 11:32:16
Posts: 256
Location: ND
Глава III. Мой выбор. …Кто тогда поспешит на отчаянный зов? Но у края, в кольце занесенных мечей, Если дрогнет душа, я почувствую вновь Побратима ладонь у себя на плече. И такой же мальчонка


Last edited by LordTom on 2009-12-23 11:56:12, edited 2 times in total.

Top
   
Reply with quote  
Nefrid
 Post subject:
PostPosted: 2006-02-07 23:20:34 
Offline
User avatar

Joined: 2005-02-23 20:04:55
Posts: 42
Location: Kiev
На 1 вмз дешевле, чем Том. :mrgreen:
Top
   
Reply with quote  
LordTom
PostPosted: 2006-02-07 23:24:34 
Offline

Joined: 2006-02-03 11:32:16
Posts: 256
Location: ND
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
   
Reply with quote  
_x3ma1_
 Post subject:
PostPosted: 2006-02-08 06:46:08 
Offline
User avatar

Joined: 2006-02-04 19:06:54
Posts: 12
:(
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2006-02-08 07:02:41 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Вызову телепата с канакрских островов, только это будет дорого стоить.

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

В любом случайте, топайте-ка Вы читать уроки, никто учить Вас, как мне кажеться, не собирается.
Top
   
Reply with quote  
Arsuri
 Post subject:
PostPosted: 2006-02-08 11:57:32 
Offline
User avatar

Joined: 2005-02-25 13:31:26
Posts: 62
Location: DRW, [Hussars]
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

Вот, пробуй. Сам не проверял.
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-02-08 12:52:00 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Что вы тут парите? Человеку надо включить галочку Track World Items на main вкладке инжекта.
Top
   
Reply with quote  
_x3ma1_
 Post subject:
PostPosted: 2006-02-08 16:07:20 
Offline
User avatar

Joined: 2006-02-04 19:06:54
Posts: 12
точто переделали скрипт не работает....

и в закладку галку ставил всё рамно нечего :(
Top
   
Reply with quote  
Savage
 Post subject:
PostPosted: 2006-02-08 16:13:29 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Ламер спрашивает программер:
Л. Слух я тут прогу накорябал, но че то не работает, посмотри где у меня ошибка?
П. Смерил взглядом Л. и произносит: В ДНК!!!
Top
   
Reply with quote  
_x3ma1_
 Post subject:
PostPosted: 2006-02-08 19:15:18 
Offline
User avatar

Joined: 2006-02-04 19:06:54
Posts: 12
:lol: но нехера не понял :D
Top
   
Reply with quote  
nikotin
 Post subject:
PostPosted: 2006-02-14 05:30:55 
Offline

Joined: 2006-02-13 19:46:11
Posts: 19
очень полезно и интересно. маст рид
viewtopic.php?t=3597
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 20 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 17 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