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

Bowcrat
http://forum.yoko.com.ua/viewtopic.php?f=20&t=10553		 Page 1 of 1
Author:  No***Name [ 2006-12-15 22:09:11 ]
Post subject:  Bowcrat
вот этот скрипт чар берет лог из сундука , но дальше болт. Я ненаю может тут че вбить еше нуно? Если у каво есть дайте похожий скрипт )

Code:
; Скрипт берёт по 1ому логу из контейнера и крафтит shaft'ы (заготовки стрел). 
sub Bowcraft() 
   var q 
   uo.set("finddistance","1") 
   uo.addObject("Container with logs") 
   while uo.targeting() 
      wait(100) 
   wend 
   repeat 
      uo.findtype("0x1BDD","0x0000","Container with logs") 
      uo.moveitem("finditem","2","backpack") 
      while uo.count("0x1BDD","0x0000") < 1 
         wait(200) 
      wend 
      q = uo.getQuantity("finditem") 
      while uo.getQuantity("finditem") == q 
         uo.moveitem("finditem","1","Container with logs") 
         wait(100) 
      wend 
      repeat 
         uo.deletejournal() 
         uo.waittargettype("0x1BDD") 
         uo.waitmenu('What do you want to carve the', 'Shaft') 
         uo.usetype("0x0F51") 
         repeat 
            wait(100) 
         until uo.injournal("pack|fail") 
      until uo.count("0x1BDD","0x0000") == 0 
      if uo.weight > 200 then 
         uo.findtype("0x1BD4","-1","backpack") 
         uo.moveitem("finditem","0","Container with logs") 
         while uo.count("0x1BD4") > 0 
            wait(700) 
         wend 
      endif 
   until false 
endsub


Code:
У нас есть спец тег [code]...[/code] юзайте его. I'm
Author:  No***Name [ 2006-12-16 10:50:17 ]
Post subject: 
Народ ну дайте плиз скрипт боукрафт на шафтах
Author:  DerMeister =) [ 2006-12-16 10:58:33 ]
Post subject: 
ПОИСК!
Author:  No***Name [ 2006-12-16 11:09:24 ]
Post subject: 
DerMeister =) wrote:
ПОИСК!


Да нет таких скриптов больше на шафты. А скрипт МАСТДАЯ на луки не цекличен
Author:  I'm [ 2006-12-16 15:10:04 ]
Post subject: 
No***Name wrote:
DerMeister =) wrote:
ПОИСК!

Да нет таких скриптов больше на шафты.

Хочеш сказать ты первый придумал крафтить шафты?
Наивный.
Такое уже было и не 1 раз. Так что => "Поиск"
Ну или попробуй написать сам, это простейший скрипт + мы поможем.
Author:  No***Name [ 2006-12-17 09:26:14 ]
Post subject: 
Помогите вот в этом скрипте пишет ошибка в 39-линии


sub bowcraft()
VAR Sunduk = '0x404D8F5E' ; Сериал сундука
VAR Logi = '0x1BDD' ; Тип логов
VAR Shafts = '0x1BD4' ; Тип шафтов
VAR Kolvo = 10 ; Брать логов для одного крафта
VAR k = 0, j, dagger
dagger = UO.ObjAtLayer( 'Rhand' )
UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) )
While TRUE
UO.FindType( Logi, -1, Sunduk ) ; Ищем логи в сундуке
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
else
j = UO.GetQuantity( 'finditem' )
If j > Kolvo Then
UO.Print( 'I can use ' + str( j ) + ' logs' )
else
UO.Print( "I can't use " + str( j ) + " logs" )
return
Endif
Endif
If Kolvo == 1 Then
; v. 1.03
UO.Grab( '3', 'finditem' )
wait(500)
UO.FindType( Logi )
UO.MoveItem( 'finditem', '2', Sunduk )
wait(500)
Else
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
Endif
; А это - динамическая пауза на мув
while UO.Count( Logi ) < Kolvo
wait(100)
wend
; проверка на то, что в руках по-прежнему даггер
If CheckInstr() == 0 Then
UO.Print("You don't have daggers!" )
return
Endif
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('What do you want to carve', 'shaft' )
UO.WaitTargetType( Logi )
UO.UseObject( dagger )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 )
k = k + 1
wait(300)
wend
If UO.Count( Shafts ) > 0 then
UO.FindType( Shafts, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait(500)
while UO.Count( Shafts ) > 0
wait(100)
wend
UO.Print( 'Shafts moved' )
Endif
Wend
end sub
Author:  DerMeister =) [ 2006-12-17 10:11:17 ]
Post subject: 
CheckInstr() это нестандартная процедура, ищи её там, где брал это скрипт.
ЗЫ: Тег CODE для тебя не существует?
Author:  Destruction [ 2006-12-17 15:37:22 ]
Post subject: 
I'm wrote:
No***Name wrote:
DerMeister =) wrote:
ПОИСК!

Да нет таких скриптов больше на шафты.

Хочеш сказать ты первый придумал крафтить шафты?
Наивный.
Такое уже было и не 1 раз. Так что => "Поиск"
Ну или попробуй написать сам, это простейший скрипт + мы поможем.

Ну почему он ? Это похоже на мой скрипт столетней давности 8)
Author:  No***Name [ 2006-12-17 16:53:38 ]
Post subject: 
Destruction wrote:
I'm wrote:
No***Name wrote:
DerMeister =) wrote:
ПОИСК!

Да нет таких скриптов больше на шафты.

Хочеш сказать ты первый придумал крафтить шафты?
Наивный.
Такое уже было и не 1 раз. Так что => "Поиск"
Ну или попробуй написать сам, это простейший скрипт + мы поможем.

Ну почему он ? Это похоже на мой скрипт столетней давности 8)


ага мож ты удареся в настолигию и подправиш его :)
Author:  666||TORCHKI [ 2006-12-17 17:44:04 ]
Post subject: 
а других скриптов нету ?
Author:  666||TORCHKI [ 2006-12-17 17:55:42 ]
Post subject: 
на шафты

Code:
VAR Sunduk='0x404135CE' ; ИД сундука где все логи 
VAR TDagger='0x0F51' ; Тип даггера 
VAR TLogs='0x1BDD' ; Тип логов 
VAR TTorch='0x1BD4' ; Тип торчей 
VAR TShaft='0x1BD4' ; Тип шафтов 

; В руке или паке даггер, в сундуке логи и запускаем !!! 

sub BowCraft_shaft() 
uo.useobject(Sunduk) 
wait(200) 
while 1==1 
UO.FindType(TLogs,'0x0000','backpack') 
While UO.GetQuantity('finditem')==0 
UO.FindType(TLogs,'0x0000',Sunduk) 
wait(200) 
UO.Grab('1','finditem') 
Wend 
wait(200) 
cheklag() 

uo.WaittargetType(TLogs) 
uo.Usetype(TDagger) 
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)') 
wait (1000) 
uo.DeleteJournal() 
while not (uo.InJournal("You put") or uo.InJournal("You fail")) 
wait(10) 
wend 

if uo.weight > 200 then 
UO.SetReceivingContainer(Sunduk) 
wait(200) 
UO.FindType(TShaft) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200) 
end if 
UO.UnSetReceivingContainer() 
end if 
wend 
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/