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

Киньте скрипт на сворд плиз и на раздел руды
http://forum.yoko.com.ua/viewtopic.php?f=20&t=186		 Page 1 of 1
Author:  Smoke [ 2004-04-25 12:01:00 ]
Post subject:  Киньте скрипт на сворд плиз и на раздел руды
Киньте скрипт на сворд плиз и на раздел руды






ЗАРАНИЕ СПАСИБО :D
Author:  Sergiusis [ 2004-04-25 14:08:11 ]
Post subject: 
Code:
Dim A[4]
A[1]='0x19B9'
A[2]='0x19B8'
A[3]='0x19BA'
A[4]='0x19B7'
UO.IgnoreReset()
Var K,T,I,X,Y,AX,AY,OX,OY,P,J,B
If MiningUp Then
 Var Ap=UO.Timer()
 Var Ka=UO.Count(A[1])+UO.Count(A[2])+UO.Count(A[3])-1
 If K<0 Then
  Ka=0
 EndIf 
 For I=1 to 3
  UO.FindType(A[I],'-1','backpack')
  AX=UO.GetX('finditem')
  AY=UO.GetY('finditem')
  OX=UO.GetX('finditem')
  OY=UO.GetY('finditem')
  X=UO.GetX('finditem')
  Y=UO.GetY('finditem')
  While UO.FindCount()>0
   T=UO.GetQuantity('finditem')
   Wait(500)
   UO.MoveItem('finditem','1','backpack',Str(X),Str(Y),'0')
   While T==UO.GetQuantity('finditem') 
    Wait(240)
   Wend 
   P=UO.Count(A[1])+UO.Count(A[2])+UO.Count(A[3])-1
   If P<0 Then
    P=0
   EndIf 
   UO.Print('Rebringing... '+Str(P))
   If AX>X Then
    X=X+1
   Else 
    If OY<Y Then
     Y=Y-1
    Else 
     AX=AX+1
     AY=AY+1
     X=OX
     Y=AY
    EndIf
   EndIf
  UO.FindType(A[I],'-1','backpack')
  Wend  
 Next
EndIf #
Author:  Bawak [ 2004-05-06 01:58:33 ]
Post subject: 
кстати на сворд было бы не дурно)) на примере сумона и атаки мишек.
Author:  Biga [ 2004-05-06 16:19:42 ]
Post subject: 
Bawak wrote:
кстати на сворд было бы не дурно)) на примере сумона и атаки мишек.
Не знаю на каком шарде как, но я проверил на практике, что на монстрах качается на порядок быстрей, чем на мишках.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/