Lovci Draků
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Lovci Draků

Guildovní fórum Lovců Draků
 
PříjemPříjem  PortálPortál  GalleryGallery  HledatHledat  Latest imagesLatest images  RegistraceRegistrace  Přihlášení  

 

 mining na mieste + hid

Goto down 
3 posters
AutorZpráva
Esge
Dvorni Blazen/zastupca GildMastra
Esge


Počet príspěvku : 388
Věk : 37
Bydlište : vsade kde je net, uo, chlast a baby
Povolání : Ranger
Zájmy : struhanie sipov :P
Datum registrace : 17. 11. 05

mining na mieste + hid Empty
PříspěvekPředmět: mining na mieste + hid   mining na mieste + hid Icon_minitimeTue 18 Dec - 16:49

obkope dokola okolo vas a pod vami, cize 3x3 kde vy ste v strede, hiduje
do var s si napiste rudy ktore nechcete
ak vam nepojde, tak si prikopirujte este ten maly skritpik uplne dole

kód:

sub mining()
var i,x,y
var s='|iron|Shadow|Copper|Silver|Rose'
uo.deletejournal()

 x=uo.getx("self")
 y=uo.gety("self")

for i=-1 to 1 
uo.print("x "+str(0+i)+" y 1")
 repeat
  if not uo.hidden() then
    uo.print('hidujem')
    uo.useskill('Hiding')
   waitforjournal('hidden yourself') 
  end if
  uo.deletejournal()
  uo.usetype("0x0e85")
  UO.WaitTargetTile(0, UO.GetX("self") + i, UO.GetY("self") + 1, 0);
  waitforjournal("no ore|Try minig|loosen|put"+s)
  wait(2000)
 until uo.injournal("no ore|Try mining"+s)
  wait(1500)
next
wait(1000)
for i=-1 to 1 
uo.print("x "+str(0+i)+" y 0")
 repeat
  if not uo.hidden() then
      uo.print('hidujem')
    uo.useskill('Hiding')
   waitforjournal('hidden yourself') 
  end if
  uo.deletejournal()
  UO.WaitTargetTile(0, UO.GetX("self") + i, UO.GetY("self"), 0);
  uo.usetype("0x0e85")
  waitforjournal("no ore|Try minig|loosen|put"+s)
  wait(2000)
 until uo.injournal("no ore|Try mining"+s)
 wait(1500)
next
wait(1000)
for i=-1 to 1 
uo.print("x 1 y "+str(0+i))
 repeat
  if not uo.hidden() then
      uo.print('hidujem')
    uo.useskill('Hiding')
   waitforjournal('hidden yourself') 
  end if
  uo.deletejournal()
  UO.WaitTargetTile(0, UO.GetX("self") +1, UO.GetY("self")+i, 0);
  uo.usetype("0x0e85")
  waitforjournal("no ore|Try minig|loosen|put"+s)
  wait(2000)
 until uo.injournal("no ore|Try mining|"+s)
 wait(1500)
next
uo.print("tak toto je koniec....kopania")
end sub


kód:

Sub waitForJournal(text)
  repeat
    wait(200)
  until uo.inJournal(text)
end sub
Návrat nahoru Goto down
http://esge1.szm.sk
Lunov

Lunov


Počet príspěvku : 202
Věk : 35
Povolání : Forum Inquisitor
Datum registrace : 15. 11. 05

mining na mieste + hid Empty
PříspěvekPředmět: Re: mining na mieste + hid   mining na mieste + hid Icon_minitimeWed 11 Feb - 22:00

Dovolil sem si to lehce vylepsit:

Ted uz se nepokousi o hid jen jednou, ale opakuje dokud se neschova.

kód:
sub mining()
var i,x,y
var s=''
uo.deletejournal()

 x=uo.getx("self")
 y=uo.gety("self")

for i=-1 to 1 
uo.print("x "+str(0+i)+" y 1")
 repeat
  while not UO.Hidden() and not UO.Dead()
        Wait(500)
        UO.Print("Schovavam se...")
        UO.DeleteJournal()
        UO.UseSkill("Hiding")
        repeat
                wait(300)
        until UO.InJournal('You have hidden') OR UO.InJournal("You can't seem to hide") OR UO.InJournal('preoccupied')
        Wait(500)
    wend
  uo.deletejournal()
  uo.usetype("0x0e85")
  UO.WaitTargetTile(0, UO.GetX("self") + i, UO.GetY("self") + 1, 0);
  waitforjournal("no ore|Try minig|loosen|put"+s)
  wait(2000)
 until uo.injournal("no ore|Try mining"+s)
  wait(1500)
next
wait(1000)
for i=-1 to 1 
uo.print("x "+str(0+i)+" y 0")
 repeat
  if not uo.hidden() then
      uo.print('hidujem')
    uo.useskill('Hiding')
  waitforjournal('hidden yourself') 
  end if
  uo.deletejournal()
  UO.WaitTargetTile(0, UO.GetX("self") + i, UO.GetY("self"), 0);
  uo.usetype("0x0e85")
  waitforjournal("no ore|Try minig|loosen|put"+s)
  wait(2000)
 until uo.injournal("no ore|Try mining"+s)
 wait(1500)
next
wait(1000)
for i=-1 to 1 
uo.print("x 1 y "+str(0+i))
 repeat
  if not uo.hidden() then
      uo.print('hidujem')
    uo.useskill('Hiding')
  waitforjournal('hidden yourself') 
  end if
  uo.deletejournal()
  UO.WaitTargetTile(0, UO.GetX("self") +1, UO.GetY("self")+i, 0);
  uo.usetype("0x0e85")
  waitforjournal("no ore|Try minig|loosen|put"+s)
  wait(2000)
 until uo.injournal("no ore|Try mining|"+s)
 wait(1500)
next
uo.print("tak toto je koniec....kopania")
end sub
Návrat nahoru Goto down
Ardent

Ardent


Počet príspěvku : 670
Datum registrace : 08. 03. 06

mining na mieste + hid Empty
PříspěvekPředmět: Re: mining na mieste + hid   mining na mieste + hid Icon_minitimeWed 11 Feb - 22:54

Mě by se hodil ming na stěnách, šutrech a na všechny čtyři strany Smile a kdyby vyhazoval co nechci tak by to bylo ideal Smile
Návrat nahoru Goto down
Sponsored content





mining na mieste + hid Empty
PříspěvekPředmět: Re: mining na mieste + hid   mining na mieste + hid Icon_minitime

Návrat nahoru Goto down
 
mining na mieste + hid
Návrat nahoru 
Strana 1 z 1
 Similar topics
-
» Mining

Povolení tohoto fóra:Nemůžete odpovídat na témata v tomto fóru
Lovci Draků :: Skripty-
Přejdi na: