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

script connection
http://forum.yoko.com.ua/viewtopic.php?f=3&t=12933		 Page 1 of 1
Author:  Mazer [ 2007-12-19 22:36:47 ]
Post subject:  script connection
I wanted to connect these scripts OR
if one of them ends finish another too.

Code:
sub minround()
VAR Kirka = '0x0E85'  ; pickaxe
VAR MaxVes = 430  ; weight +- 15
VAR TileNum = '-1'  ; DONT KNOW
VAR x, y, t, k
VAR MaxTime = 100   
VAR ms1 = "There is no ore"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
VAR ms8 = "No item"
for y=-2 to 2
for x=-2 to 2
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding")
UO.UseSkill("Hiding")
wait(4000)
wend
 k = 0
     repeat
        UO.DeleteJournal()
        t = UO.Timer()
        k = k + 1
        wait(300)
        UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
            uo.findtype( Kirka )
            if uo.findcount('finditem') or uo.objAtLayer( "Lhand" , Kirka ) or uo.objAtLayer( "Rhand" , Kirka ) then 
               uo.usetype( Kirka )
            else
               uo.print( "No pickaxe in backpack." )
               return false 
            end if
        repeat
           wait(100)
        until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t +MaxTime) < UO.Timer())
        If UO.Weight > MaxVes Then
           UO.Print(" owerweight" )
           return
        Endif
     until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
  next
next
 uo.Print('End')
endsub


Code:
sub CheckingPlayers()
VAR a, b
uo.ignorereset()
uo.ignore('self') 
DIM Chars[3]
Chars[0] = '0x0190' #boba
Chars[1] = '0x0191' #ciuvas
Chars[2] = '0x000E' #elements
while not uo.dead()
  for a = 0 to 2
    while val(uo.getglobal('find')) == 1 
      wait(50)
    wend
    uo.set('finddistance', '20')
    uo.findtype(Chars[a], '-1', 'ground') 
    if uo.findcount('finditem')>0 then
      uo.exec('exec recnamo')
      return
    else
      wait(400) 
    endif
  next
wend
end sub
Author:  Mihail [ 2007-12-20 00:42:28 ]
Post subject: 
to stop one of scripts U can use

Code:
uo.exec('terminate minround') or uo.exec('terminate CheckingPlayers')


or U can terminate all

Code:
uo.exec('terminate all')
Author:  CuHTpoH [ 2007-12-20 03:23:18 ]
Post subject: 
in order to make good get-away system y have to launch parrallel scripts, one is mining, another always searching for intruders.
If there are some - terminate mining script and do not forget to save needed variables in global (as current point of mining, or current cave), make some operations by another script (like teleporting to another cave) and continue mining.. there SO MUCH same scripts and themes about so i see no meaning to repeat them
Author:  Mazer [ 2007-12-20 07:55:09 ]
Post subject: 
CuHTpoH > my script works like this : i have about ~40 runes in bank.. and one to house
1. i start at house :) take regents ~3 BM BP MR
2. i take pickaxe
3. script recals to 1 mine
4. mine`s around and sercher for peaople..
5. if it found people or element it recalls home and finish mining script there :) then it recals again home :) (thats bad :) ) and drops all mined ores to box then takes regent takes pickaxe if my is broken.. and recalls to mine 2 never backs to last mine until script finished..


SO one thing what is bad that script dont finish mining if it detects player.. it mines ant my house until Titles around reached max 10 .. thats all..

By the way i maked skript like

sub afk()
recalmine1()
mining()
home()
dropores()
takepickaxeandregents()
end sub

then i run ,exec afk and i cant terminate only mining() or Home()
i can terminate only afk() but that wont help me..
so terminate is not desission. Thank you :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/