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

pomagite objedenit'
http://forum.yoko.com.ua/viewtopic.php?f=3&t=12534
Page 1 of 1

Author:  Bangbuss [ 2007-09-28 17:08:03 ]
Post subject:  pomagite objedenit'

pomagite objedenit' dva skripta v odin kompaktnij. kstate esli dolga rabotaet, vikidavaet unhandled parser.

Code:
sub warmode()
while true
   if uo.Life<1 then
   UO.Warmode(1)
   uo.deletejournal()
   endif
wait(10000)
wend
   end sub
   
sub warmode1()
while true
   if UO.InJournal('Your spirit') then
   UO.Warmode(0)
   wait(1000)
   uo.usetype('0x0E75')  #backpack uo.waittargettile("400",str(uo.getx("self")),str(uo.gety("self")),str(uo.getz("self")))
   uo.usetype('0x0E85') #kirka
   uo.deletejournal()
   endif
wait(10000)
wend
   end sub

Author:  Scripts Writer [ 2007-09-28 17:15:30 ]
Post subject: 

А что собственно должен делать скрипт ?

Author:  Bangbuss [ 2007-09-28 17:22:02 ]
Post subject: 

esli ja umer to warmode(1) 6tob menja mozhno bilo resnut', esli menja resnuli to warmode(0) 6tob mog dalshe kapat',+ 6tob mog dalshe kapat' na skripte nado mne otkrit' sumku i kirku ispolzavat' pod sebja, nu eto toka posle ressurecta.

Author:  Scripts Writer [ 2007-09-28 17:28:59 ]
Post subject: 

Code:
sub Ress_Equipt_Pick()
var pickaxe='input type of pickaxe'
  while 1
    if uo.Dead() then
      uo.WarMode(1)
      wait(5000)
    else
      uo.UseObject('backpack')
      wait(1000)
      uo.UseType(pickaxe)
      wait(500)
    end if
    wait(500)
  wend
end sub

Author:  Bangbuss [ 2007-09-28 17:30:43 ]
Post subject: 

oho. klass. thx

Author:  Bangbuss [ 2007-09-28 17:37:23 ]
Post subject: 

aa stop.

esli tak to on vso reme otkrivaet backpack i juzaet kirku. a nado 6tob toka 1 raz.

Author:  Scripts Writer [ 2007-09-28 17:46:44 ]
Post subject: 

Code:
sub Ress_Equipt_Pick() 
var k=0
var pickaxe='input type of pickaxe'
  while 1

    if uo.Dead() then
      uo.WarMode(1)
      wait(5000)
      k=1
    else
      if k==1 then
        uo.UseObject('backpack')
        wait(1000)
        k=0
        uo.UseType(pickaxe)
        wait(500)
      end if
    end if
    wait(500)
  wend
end sub


Пробуй

Author:  Bangbuss [ 2007-09-28 17:59:19 ]
Post subject: 

net, k sozhelenie nerabotaet, shas backpack neotkrivaet i kirku juzaet vso reme. esli 6to ja skript zapuskaju kogda ja zhivoj.

Author:  Scripts Writer [ 2007-09-28 18:05:51 ]
Post subject: 

Исправил, пробуй

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/