Переработка хлопка

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
Kileron
Posts: 10
Joined: 2006-04-29 18:20:43
Contact:
Contact Kileron

Переработка хлопка

Post by Kileron »

Весь форум облазил так и не нашел , вот у меня имееться скрипт только вот не пойму почему он не работает (( даже не знаю от куда он у меня... работает только функция что бы собирать хлопок с поля и всё остальное не рабочее выдаёт ошибку при запуске :

Line 19: Function not Found - UO.GETGLOBAL

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

Заранее СПБ!


а вот собственно и скрипт :

Code: Select all

#################
### Настройки ###
###################################################################################################
###
var Chest='0x405929F5' ## - (ID) сундука.
###
var Bolts='0x0F95', Spools='0x0FA0', Cotton='0x0DF9', Cloth='0x175D' ## - (Type) Болтов, ниток, хлопка, ткани.
###
var CountBolts=20 ## - По скока брать болтов ткани для резки.
###
var CountSpools=400 ## - По скока брать ниток для крутки в болты.
###
var GrabDelay=1000 ## - Задержка при перетаскивании (Работает в последних версиях).
###
###################################################################################################
### Включалка ###
#################
sub GetSpools()
  If UO.GetGlobal('GetSpoolsCheck')=='on' Then
    UO.SetGlobal('GetSpoolsCheck','off')
    UO.Exec('Exec Terminate')
  Else
    UO.Exec('Exec Spools')
    UO.SetGlobal('GetSpoolsCheck','on')
  EndIf
end sub
sub GetBolts()
  If UO.GetGlobal('GetBoltsCheck')=='on' Then
    UO.SetGlobal('GetBoltsCheck','off')
    UO.Exec('Exec Terminate')
  Else
    UO.Exec('Exec Bolts')
    UO.SetGlobal('GetBoltsCheck','on')
  EndIf
end sub
sub GetCloth()
  If UO.GetGlobal('GetClothCheck')=='on' Then
    UO.SetGlobal('GetClothCheck','off')
    UO.Exec('Exec Terminate')
  Else
    UO.Exec('Exec Cloth')
    UO.SetGlobal('GetClothCheck','on')
  EndIf
end sub
####################
### Делаем Нитки ###
####################
Sub Spools()
  Var n, CheckTime
  Dim Object[4]
  Object[1] = 'SpinningWheel_1'
  Object[2] = 'SpinningWheel_2'
  Object[3] = 'SpinningWheel_3'
  Object[4] = 'SpinningWheel_4'
  UO.Print('SELECT YOU 1')
  UO.Exec('addobject SpinningWheel_1')
  While UO.Targeting()
    Wait(300)
  Wend
  Wait(1000)
  UO.Print('SELECT YOU 2')
  UO.Exec('addobject SpinningWheel_2')
  While UO.Targeting()
    Wait(300)
  Wend
  Wait(1000)
  UO.Print('SELECT YOU 3')
  UO.Exec('addobject SpinningWheel_3')
  While UO.Targeting()
    Wait(300)
  Wend
  Wait(1000)
  UO.Print('SELECT YOU 4')
  UO.Exec('addobject SpinningWheel_4')
  While UO.Targeting()
    Wait(300)
  Wend
  UO.Set('grabdelay',STR(GrabDelay))
  UO.UseObject(Chest)
  Wait(5000)
  REPEAT
    While UO.Count(Cotton)<>0 and NOT UO.Dead()
      For n = 1 TO 4
        If UO.Waiting() Then
          UO.CancelTarget()
        EndIf
        UO.WaitTargetObject(Object[n])
        UO.UseType(Cotton)
        UO.DeleteJournal()
        CheckTime = UO.Timer()
        REPEAT
          Wait(300)
        Until UO.InJournal('You put') or UO.InJournal("You can't") or UO.Count(Cotton)==0 or (CheckTime+250)<UO.Timer() or UO.Dead()
      Next
    Wend
    ; Скидываем нитки в сэйф
    If UO.Count(Spools) Then
      UO.FindType(Spools,'-1','-1')
      UO.Print("Move Spools to Chest")
      UO.MoveItem('finditem','all',Chest)
      Wait(4000)
    EndIf
    ; Берём хлопок из сэйфа
    UO.FindType(Cotton,'-1',Chest)
    While UO.GetQuantity('finditem')==0
      UO.Print("ERROR: Low quantity of the Cotton!!!")
      Wait(5000)
      UO.FindType(Cotton,'-1',Chest)
    Wend
    UO.Print("Get Cotton")
    UO.MoveItem('finditem','80','-1')
    Wait(4000)
  Until UO.Dead()
end sub
###################################################################################################
### Делаем болты ###
###################################################################################################
Sub Bolts()
  Var CheckTime
  UO.Print('SELECT YOU UPRIGHT LOOM')
  UO.Exec('addobject Upright_Loom')
  While UO.Targeting()
    Wait(300)
  Wend
  UO.Set('grabdelay',STR(GrabDelay))
  UO.UseObject(Chest)
  Wait(5000)
  REPEAT
    While UO.Count(Spools)<>0 and NOT UO.Dead()
      If UO.Waiting() Then
        UO.CancelTarget()
      EndIf
      UO.WaitTargetObject('Upright_Loom')
      UO.UseType(Spools)
      UO.DeleteJournal()
      CheckTime = UO.Timer()
      REPEAT
        Wait(300)
      Until UO.InJournal('You put') or UO.InJournal("You added") or UO.InJournal("Bolt of") or UO.InJournal("You have") or UO.Count(Spools)==0 or (CheckTime+250)<UO.Timer() or UO.Dead()
    Wend
    ; Скидываем болты в сэйф
    If UO.Count(Bolts) Then
      UO.FindType(Bolts,'-1','-1')
      UO.Print("Move Bolts to Chest")
      UO.MoveItem('finditem','all',Chest)
      Wait(4000)
      REPEAT
        UO.FindType(Bolts,'-1','1')
        If UO.FindCount() Then
          UO.MoveItem('finditem','all',Chest)
          Wait(4000)
        EndIf
      Until UO.FindCount()==0 or UO.Dead()
    EndIf
    ; Берём хлопок из сэйфа
    UO.FindType(Spools,'-1',Chest)
    While UO.GetQuantity('finditem')==0
      UO.Print("ERROR: Low quantity of the Spools!!!")
      Wait(5000)
      UO.FindType(Spools,'-1',Chest)
    Wend
    UO.Print("Get Spools")
    UO.MoveItem('finditem',CountSpools,'-1')
    Wait(4000)
  Until UO.Dead()
end sub
###################################################################################################
### Собираем Хлопок ###
###################################################################################################
sub GrabCotton()
  UO.Set('finddistance','3')
  REPEAT
    UO.FindType('0x0C4F','-1','1')
    If UO.FindCount() Then
      UO.UseObject('finditem')
      UO.DeleteJournal()
      REPEAT
        Wait(300)
      Until UO.InJournal("You put") or UO.InJournal("You can't")
    EndIf
  Until UO.FindCount()==0 or UO.Dead()
end sub
###################################################################################################
### Режим болты ткани ###
###################################################################################################
Sub Cloth()
  UO.Print("SELECT YOU CHEST")
  UO.Exec('addobject Chest')
  While UO.Targeting()
    Wait(300)
  Wend
  UO.Set('grabdelay',STR(GrabDelay))
  UO.UseObject('Chest')
  REPEAT
    If UO.Count(Bolts) Then
      UO.WaitTargetType(Bolts,'-1')
      UO.UseType('0x0F9E')
      UO.DeleteJournal()
      REPEAT
        Wait(300)
      Until UO.InJournal("You put") or UO.Dead()
    EndIf
    UO.FindType(Cloth,'-1','1')
    If UO.FindCount() Then
      UO.MoveItem('finditem','all','Chest')
      Wait(1000)
    EndIf
    UO.FindType(Bolts,'-1','Chest')
    While UO.GetQuantity('finditem')==0
      UO.Print("ERROR: Low quantity of the Bolts of cloth!!!")
      Wait(5000)
      UO.FindType(Bolts,'-1','Chest')
    Wend
    UO.MoveItem('finditem',CountBolts,'-1')
    Wait(1000)
  Until UO.Dead()
end sub
#############################
### Выключаем все скрипты ###
#############################
Sub Terminate()
  UO.Print("Spools and Bolts and Cloth script: Off!")
  UO.DeleteJournal()
  UO.Exec('terminate all')
  Wait(200)
  UO.Exec('terminate all')
  Wait(200)
  UO.Exec('terminate all')
  Wait(200)
end sub


Мне кажеться хороший должен быть скрипт , только вот не розбираюсь особо и прошу у знатоков о помощи , может повезёт и кто то выложит полутше скрипт..
Top
Makarov
Posts: 62
Joined: 2010-04-07 14:43:26

Re: Переработка хлопка

Post by Makarov »

http://yoko.com.ua/help/help.php?lang=r ... m=findtype
http://yoko.com.ua/help/help.php?lang=r ... &item=grab
http://yoko.com.ua/help/help.php?lang=r ... =craftmenu
Top
Post Reply

Return to “I need script!”