#1 2012-08-18 01:25:57

ReaperDRW

Adept

Registered: 2011-08-08

Posts: 188

Warnings: [+] [+]

Помогите плиз скрипт сделать.

Sub Main()
VAR Weapon  = 0x0F51
VAR PoisonB = 0x0F0E
UO.FindType(Weapon, -1, -1)
  While UO.Life > 0
   UO.WaitTargetObjectType('finditem', PoisonB)
   UO.UseSkill('Poisoning')
   Wait(7000)
  Wend 
End Sub

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

нужно сделать чтобы он брал бутылки из сундука, например 10 штук, и когда их становится 0 чтобы брал ещё 10 штук

кто-нибудь может написать или у кого-нибудь может завалялся гдето готовый скрипт?

Buratino

Journeyman

Registered: 2011-10-29

Posts: 89

Re: Помогите плиз скрипт сделать.

Sub Main()
VAR Weapon  = '0x0F51'
VAR PoisonB = '0x0F0E'
VAR ChestID = '0x12345678'
VAR WeaponID
  UO.FindType(Weapon, -1, -1)
  If UO.FindCount() == 0 Then
      UO.Print('кто-то упёр оружие')
      Return
   Else
      WeaponID = UO.GetSerial('finditem')
   EndIf
  While UO.Life > 0
      If UO.Count(PoisonB) < 2 Then
         UO.FindType(PoisonB, -1, ChestID)
         If UO.FindCount() == 0 Then
            UO.Print('Кто-то упёр всю отраву')
            Return
         EndIf
         UO.Grab('10', 'finditem')
         Wait (1000)
      EndIf   
      UO.WaitTargetObjectType(WeaponID, PoisonB)
      UO.UseSkill('Poisoning')
      Wait(7000)
  Wend 
End Sub

Как-то так, примерно. Писал на коленке без уо, инжи и англо-русского словаряю. могут быть опечатки

ReaperDRW

Adept

Registered: 2011-08-08

Posts: 188

Warnings: [+] [+]

Re: Помогите плиз скрипт сделать.

работает, огромное спасибо )))

aka Mk.

Expert

From: Moscow

Registered: 2012-04-06

Posts: 115

Re: Помогите плиз скрипт сделать.

Берёт 100 бутылок с пола из по себя, и пойзонит даггер.

sub main()
VAR Weapon  = 0x0F51
VAR PoisonB = 0x0F0E
VAR X
start:
    If UO.Count(0x0F0E) < 10 then
        X = UO.Count(0x0F0E)
        UO.Waittargetground(0x0F0E)
        UO.Exec("grab 100")
            While X == UO.Count(0x0F0E)
            Wait(50)
        Wend
    End If
    UO.FindType(Weapon, -1, -1)
        If uo.count(0x0F0E) > 0 then
            UO.WaitTargetObjectType('finditem', PoisonB)
            UO.UseSkill('Poisoning')
            Wait(4500)
        Endif
    goto start
End Sub