Yoko :: Помогите со скриптом

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

Помогите со скриптом http://forum.yoko.com.ua/viewtopic.php?f=20&t=4942	Page 1 of 1

Author:	ilove_skazi [ 2005-08-25 20:22:54 ]
Post subject:	Помогите со скриптом
Вот у нас на шарде есть рассовый армор-оркишь,мне надо чтоб чар кувал фулл оркишь(при физле повторял)! Я пересмотрел кучу скриптов и намаялся пипец,НИЧЕГО не получается,люди помогите В чем отличается крафт Рассового армора(железо и нс) и обычного железного ?

Author:	flake [ 2005-08-26 02:53:51 ]
Post subject:
Так это вот ты нам расскажи, как отличается изготовление обычного армора от нужного тебе? выложи выборы меню и т.п.

Author:	ilove_skazi [ 2005-08-26 03:31:33 ]
Post subject:
UO.WaitMenu("Blacksmithing","Race armor","Orcish armor","Orcish helmet(20") ну вот так это выглядит ну нихрена не куется

Author:

valerka [ 2005-08-26 15:18:51 ]

Post subject:

Разбирайся. У меня норма работает. ТОка айди сундуков перепиши

Code:

sub OrcHelm() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish helmet') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub OrcLegs() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail legs') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub OrcHands() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail arms') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub OrcGloves() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail gloves') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub OrcGorget() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail gorget') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub OrcShield() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish shield') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub OrcPlate() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race armor','Orcish armor','Orcish platemail chest') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub OrcHammer() 
VAR LastTimer 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
UO.WaitMenu('Blacksmithing','Race weapons','Orcish Weapons','Orcish hammerpick') ;×òî êóåì 
UO.UseType(0x1BF2) ;Èíãè àéðîíà 
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 ;Âðåìÿ ñîçäàíèÿ äàãåðà 
EndIf 
end sub

Code:

sub LootFullOrc()     
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x408787C2'   
DIM Arm[7] 
Arm[0]=0x1F0B ;helm
Arm[1]=0x1413 ;gorg
Arm[2]=0x1410 ;arms
Arm[3]=0x1415 ;chest
Arm[4]=0x1414 ;gloves
Arm[5]=0x1B7B ;shield
Arm[6]=0x143C ;hammer
Arm[7]=0x1411 ;legs
UO.SetReceivingContainer(UnloadCont) 
wait(500) 
For a=0 to 7 
Exit=0 
repeat 
UO.FindType(Arm[a]) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(1500) 
Else 
Exit=1 
endif 
until Exit==1 
Next 
UO.UnSetReceivingContainer() 
end sub

Code:

Sub Full_Orcish()
var Exit=0 
while Exit<>1 
UO.unsetreceivingcontainer()
UO.FindType('0x1BF2',-1,'backpack') ; Ingi
If UO.GetQuantity('finditem')<200 then 
UO.FindType('0x1BF2',-1,'0x40CCD8AF') ; IngConteiner 
wait(1000) 
UO.Grab('200','finditem') 
wait(100) 
Endif 
UO.FindType('0x0F88',-1,'backpack') ; Ns
If UO.GetQuantity('finditem')<200 then 
UO.FindType('0x0F88',-1,'0x40CCD8AF') ; IngConteiner 
wait(1000) 
UO.Grab('200','finditem') 
wait(100) 
Endif 
Uo.Exec('exec OrcHelm')
wait(10000)
Uo.Exec('exec OrcPlate')
wait(10000)
Uo.Exec('exec OrcHands')
wait(10000)
Uo.Exec('exec OrcGloves')
wait(10000)
Uo.Exec('exec OrcLegs')
wait(10000)
Uo.Exec('exec OrcShield')
wait(10000)
Uo.Exec('exec OrcHammer')
wait(10000)
Uo.Exec('exec LootFullOrc')
wait(15000)
wend
end sub

Author:	valerka [ 2005-08-26 15:19:56 ]
Post subject:
можете даже довести его до ума, ато мне лениво так тчо пипец

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/