Скрипт на Тинкеринг... Помогите с настройкой

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Martens
Posts: 3
Joined: 2007-09-28 20:55:06
Contact:

Скрипт на Тинкеринг... Помогите с настройкой

Post by Martens »

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

Code: Select all

sub ChIn()
var Ings = '0x1BF2' ;Èíãîòû
 uo.set ('finddistance', '1')
   if uo.count(Ings) == 0 then
    uo.findtype('0x1BF2', '1')
     if uo.findcount() > 0 then
      uo.moveitem('finditem', '2000')
      wait(1000)
      else
      uo.print('Çàêîí÷èëèñü Èíãîòû')
      wait(50)
     endif
   endif
end sub

sub ChTS()
 uo.set ('finddistance', '1')
 var Tools = '0x1EBC' ;Òèíêåð Òóëñû
   if uo.count(Tools) == 0 then
    uo.print('Äàéòå Òóëñû')
    wait(1000)
   else
    wait(50)
   endif
end sub

sub main()
var Ings = '0x1BF2' ; Èíãîòû
var Dag = '0x0F51'  ; Äàãåð
 while uo.count('0x100E') >= 140
 ChTS()
 ChIn()
  uo.findtype('0x0F51','2')
  if uo.findcount('finditem') >= 0 then
   uo.waittargettype(Ings)
   wait(1000)
   uo.useobject('finditem')
   wait(1000)
   uo.waitmenu('What would you like to make?','Miscellaneous','What would you like to make?','Key')
   wait(1000)
   uo.say('100')
   wait(500)
   wait(300000)
  else
   uo.useskill('Arms Lore')
   wait(1000)
   uo.waittargetobject('Dag')
   wait(1000)
  endif
 wend
drop()
end sub
   
sub drop()
 DIM Bags[6]
 Bags[0] = '0x40EF6DED'
 Bags[1] = '0x40EF6DE8'
 Bags[2] = '0x40EF6DEB'
 Bags[3] = '0x40EF6DE5'
 Bags[4] = '0x40B388EA'
 Bags[5] = '0x40B9B2C6'
 var i
 For i = 0 to 5
  while uo.count('0x100E') == 0
   if uo.count('0x100E') >= 140 then
    uo.findtype('0x100E')
    uo.moveitem('finditem', Bags[i])
     if uo.injournal('The item is too haevy') then
      i = i + 1
      else
      wait(50)
     endif
    endif
   wend
    if uo.count('0x100E') == 0 then
     i = 5
    else
     wait(50)
    endif
 repeat
end sub
Post Reply