Yoko

Code: Select all

#####################################################################
; BUYREGS
; Скупка регов по байлисту
; v.1.01b (с) Edred
sub buyregs()
   VAR i
   DIM vendors[29]
   vendors[0] = 'Kaspar'
   vendors[1] = 'Austin'
   vendors[2] = 'Reese'
   vendors[3] = 'Alessa'
   vendors[4] = 'Akina'
   vendors[5] = 'Aileen'
   vendors[6] = 'Alula'
   vendors[7] = 'Kevin'
   vendors[8] = 'Ainhoa'
   vendors[9] = 'Aderes'
   vendors[10] = 'Cassidy'
   vendors[11] = 'Gideon'
   vendors[12] = 'Canton'
   vendors[13] = 'Alaqua'
   vendors[14] = 'Doyle'
   vendors[15] = 'Ali'
   vendors[16] = 'Alake'
   vendors[17] = 'Jabir'
   vendors[18] = 'Beau'
   vendors[19] = 'Morris'
   vendors[20] = 'Aleka'
   vendors[21] = 'Akili'
   vendors[22] = 'Tremain'
   vendors[23] = 'Terence'
   vendors[24] = 'Brock'
   vendors[25] = 'Alumit'
   vendors[26] = 'Redmond'
   vendors[27] = 'Adoncia'
   vendors[28] = 'Rudyard'
   ;
   UO.UseSkill( 'Meditation' )
   wait(100)
   UO.DeleteJournal()
   For i = 0 To 28
      UO.Buy( 'magic', vendors[i] )
      wait(1000)
      If UO.InJournal( 'I thank thee for thy' ) Then
         UO.SayU( 'bye' )
         return
      Endif
   Next
endsub

Code: Select all

sub CheckVendor(vn)
Var a
Dim VName[100]
VName[1]='Bruce'
VName[2]='Charlotte'
VName[3]='Jarman'
VName[4]='Marc'
VName[5]='Rufus'
VName[6]='Edlyn'
VName[7]='Frida'
VName[8]='Dacio'
VName[9]='Avella'
VName[10]='Gunnar'
VName[11]='Neron'
VName[12]='Nathaniel'
For a=1 To 12
if VName[a]==vn then
return 1
end if
next
return 0
end sub