pomagite objedenit'

Ask for help

Moderators: Murderator+, Murderator

Post Reply
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

pomagite objedenit'

Post by Bangbuss »

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

Code: Select all

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
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

А что собственно должен делать скрипт ?
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

Post by Bangbuss »

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.
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

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
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

Post by Bangbuss »

oho. klass. thx
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

Post by Bangbuss »

aa stop.

esli tak to on vso reme otkrivaet backpack i juzaet kirku. a nado 6tob toka 1 raz.
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

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


Пробуй
Last edited by Scripts Writer on 2007-09-28 18:05:42, edited 1 time in total.
Bangbuss
Posts: 228
Joined: 2005-07-06 18:17:24

Post by Bangbuss »

net, k sozhelenie nerabotaet, shas backpack neotkrivaet i kirku juzaet vso reme. esli 6to ja skript zapuskaju kogda ja zhivoj.
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

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