Yoko

All sides of Injection
https://yoko.uokit.com/

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

https://yoko.uokit.com/viewtopic.php?t=5512

Page 1 of 1

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

Posted: 2006-02-05 09:36:08
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

Posted: 2006-02-05 12:26:35
by Destruction

Code: Select all

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

Экхм, ну имейте в конце-концов совесть! Чтобы это исправить, знать много не надо...

Posted: 2006-02-05 15:52:12
by _x3ma1_
а я не знаю(((

Posted: 2006-02-05 20:43:36
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

Posted: 2006-02-05 23:09:51
by _x3ma1_
почему то не плавит и не берёт с сундука инги :?:

Posted: 2006-02-06 00:38:52
by Destruction
_x3ma1_ wrote:почему то не плавит и не берёт с сундука инги :?:

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

Posted: 2006-02-06 00:40:50
by GimFlex
Destruction wrote:
_x3ma1_ wrote:почему то не плавит и не берёт с сундука инги :?:

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


надо говорить не типы исправь а вот таких личностей надо в уроки отправлять и только туда чтоб потом не задавали глупых вопросов а то приходят иногда тут такие вот ради одного скрипта и все потом еще раз приходят потом нервы не выдерживают а нервы надо беречь

Posted: 2006-02-06 08:51:58
by Destruction
Каждому своё, я считаю, что всяким надо показать, что они нифига не смыслят, а када они зададут тупой вопрос - в уроки направлять...

Posted: 2006-02-07 23:00:55
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

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

Posted: 2006-02-07 23:08:03
by LordTom
Глава III. Мой выбор. …Кто тогда поспешит на отчаянный зов? Но у края, в кольце занесенных мечей, Если дрогнет душа, я почувствую вновь Побратима ладонь у себя на плече. И такой же мальчонка

Posted: 2006-02-07 23:20:34
by Nefrid
На 1 вмз дешевле, чем Том. :mrgreen:

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

Posted: 2006-02-07 23:24:34
by LordTom
SK А секрет размножения - интересен до колик. Вот, кратко СЕКРЕТ РАЗМНОЖЕНИЯ КИТАЙЦЕВ ПРОВЕРЕННЫЙ ИМПЕРИЧЕСКИМ ПУТЁМ! Если разобраться, Камрады, то секрета и нет, никакого… Всё дело в ги
Секретно Экз.№171 Положение о военнопленных Приложение к Постановлению Совета Народных Комиссаров СССР № 1798-800с от 1июля 1941 г. I. ОБЩЕЕ ПОЛОЖЕНИЕ 1. Военнопленными признаются:

Posted: 2006-02-08 06:46:08
by _x3ma1_
:(

Posted: 2006-02-08 07:02:41
by Destruction
Вызову телепата с канакрских островов, только это будет дорого стоить.

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

В любом случайте, топайте-ка Вы читать уроки, никто учить Вас, как мне кажеться, не собирается.

Posted: 2006-02-08 11:57:32
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

Вот, пробуй. Сам не проверял.

Posted: 2006-02-08 12:52:00
by Savage
Что вы тут парите? Человеку надо включить галочку Track World Items на main вкладке инжекта.

Posted: 2006-02-08 16:07:20
by _x3ma1_
точто переделали скрипт не работает....

и в закладку галку ставил всё рамно нечего :(

Posted: 2006-02-08 16:13:29
by Savage
Ламер спрашивает программер:
Л. Слух я тут прогу накорябал, но че то не работает, посмотри где у меня ошибка?
П. Смерил взглядом Л. и произносит: В ДНК!!!

Posted: 2006-02-08 19:15:18
by _x3ma1_
:lol: но нехера не понял :D

Posted: 2006-02-14 05:30:55
by nikotin
очень полезно и интересно. маст рид
viewtopic.php?t=3597
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited