господа поделитесь скриптам., Ребята выложите скрипты любые что у вас есть Опции

[KaPeIkA]

[/code]Уважаемые игроки-админы, загружайте любые скрипты для любого сервера.
Просто поделитесь, это горячая тема для хард-серверов и для истории

Dear admin players, upload any scripts for any server.
Just share it's a hot topic for hard servers and for history



Hello World eg. using InjectЄ

Код

sub wos_example()
   UO.Say("Hello")
   wait(3000)
   UO.Say("World")
endsub

Same as EasyUO script, it say's hello, then waits 3s, and says World.tjomi4` 0 І  Bind "Fire Horn" on button F4я
1. Select "Macros" tab.
2. Press "New..."
3. Enter: Firehorn, and press Okey.
4. Press "Record"
5. Double click on Firehorn in your backpack.
6. Press "Stop"
7. Right click on Actions -> "Double Click (0x123456EF)"
8. Select "Convert to DClick by Type"
9. Select tab "Hot Keys"
10. Press on [+] Macros
11. Press on "Play: Firehorn (not assigned)"
12. Now press in input of "Key:", and press F4 button.
13. Now press "Set" button.

Thats all, now if you press F4 in game, Firehorn will be launched!tjomi4`
 °
Hello World eg. using EasyUOЦ This is easy script, it's says: Hello, then wait 3 sec, and say World, after that stop the script.

Код

msg Hello $
wait 3s
msg World $
halt

Download EasyUO software here: http://www.easyuo.comtjomi4` ` µ
easyuo fishing?

Код

set %copene XHF_KDF
set %zive LGW_RIL_CMW_ZVI_GCI_FMW_TLW_GMW_VLW_
set %box QYROKMD
fisings:
gosub copesana
goto fisings

sub copesana
cope:
GOSUB metara
set %x 3
set %xx #CHARPOSX - %x
set %yy #CHARPOSY
finditem %copene
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 5s
set #LTARGETX %xx
set #LTARGETY %yy
set #LTARGETKIND 3
event macro 22 0
wait 2s
set %overtime #scnt + 10
gosub pludins
gosub scan
  goto cope
return

sub pludins
parb:
savepix 345 224 1; ðóÐâÐé ð║ð¥ð¥ÐÇð┤ð©ð¢ð│ð░ÐéÐï ð┐ð¥ð┐ð╗ð░ð▓ð║ð░
if #pixcol > 300;15663104__4335872;255;429497295
{
CLICK1:
wait 1
 event macro 17 0
wait 2
  goto fisings
}

scanjournal 1
if you_fail_to_ in #journal
return
goto parb

if %overtime > #scnt
goto parb
return

sub scan
scan:
if YOU_PUT_THE_ in #sysmsg
return
if YOU_FAIL_ in #sysmsg
return
if #contkind = GJZ;CTRB
{
  execute cmd.exe
  return
}
if %overtime > #scnt
goto scan
return

sub metara
drop:
finditem %zive C_ , #Backpackid
if #findkind = -1
return
exEvent Drag #FindID #Findstack
wait 10
exEvent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
wait 10
goto drop

ðûð╝ðÁð╝ Play ð© ÐüÐÇð░ðÀÐâ Stop, ð║ð░ð║ Ðéð¥ð╗ð║ð¥ ðÀð░ð║ð©ð¢ðÁÐéÐîÐüÐÅ Ðâð┤ð¥Ðçð║ð░. ðƒðÁÐÇðÁð┐ð©ÐüÐïð▓ð░ðÁð╝ ð║ð¥ð¥ÐÇð┤ð©ð¢ð░ÐéÐâ ð┐ð¥ð┐ð╗ð┐ð▓ð║ð░ ð▓ Ðüð║ÐÇð©ð┐Ðé ð© ð▓ÐüðÁ.

© piceofcaka eveone
EasyUO mining

Код

set %ljtool NPF_QPF; set your ljtool here x y title
set %Roba FWL; Skill Roba
set %Roba2 dwl; Zhenskaja takaja roba dolzhna byt' v backpacke.
set %Cloack svovjmd; Skill Cloack
set %Cloack2 dci; Prostoj cloack
set %Mask NZH; Skill Mask
set %Mask2 OSH; Ljuboj drugoj helm ( TYPE )
set %runebookid irzzkmd; ID Runebooka

start:


 GOSUB LJING 6569 122 3286





goto start

sub ljing
move %1 %2 1
finditem %ljtool
set #lobjectid #findid
event macro 17 0
target
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait
set %overtime #scnt + 8
gosub bp10
return

gosub bp10
sub bp10
if #weight > 700; ves
gosub telehouse

//------------------------------------------------------------------------------------------
sub telehouse
telehouse:
move
move
move
wait 2s

finditem %runebookid
set #lobjectid #findid


//--------------------------------------------------------
sub back1
back1:
finditem %runebookid
set #lobjectid #findid
event macro 17 0
wait 0
event macro 17 0
wait 0
click 261 290;Mine Ruune
wait 2
click 261 290;Mine Rune
wait 3

finditem %runebookid
set #lobjectid #findid
event macro 17 0
wait
click 260 220;perezorjadka
event macro 17 0
wait 1s
click 260 220;perezorjadka
wait 1s
GOSUB MINING
//------------------------------------------------------------------------------------------

sub scan
scan:
scanjournal %cnt
if #hits < #str; STR -1 ( na odin hp menshe stav' )
{


event macro 17 0
msg ,arm blade $
msg .camp $
; Wepons :bow ,sw >?<


finditem #enemyid
if #findcnt >= 1
{
gosub follow
}
wait 2
goto unpause

wait 0

Finditem %Roba c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Roba c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Cloack c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Mask c_ , #backpackid
set #lobjectID #findid
event macro 17 0

}

if Try_mining_elsewhere in #sysmsg
return
if You_stop_mining in #sysmsg
{
wait 1s
gosub ljing
}
if There_is_nothing_here_to_mine_for in #sysmsg
return
if It_appears_immune_to_your_blow in #sysmsg
return
if YOu_can't_reach_this in #sysmsg
return
if You_have_no_line_of_sight_to_that_location in #sysmsg
return
if #scnt >= %overtime
return
goto scan

sub hz450

Move 3445 299
Move 3445 299

gosub moveItems
sub moveItems
{
  set !dragTimeout 7  s
  set !dragTimer #scnt2
  set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
  if %0 < 10
    set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
  set !from phdakmd #backpackID
  set !to ufximmd; Kudaa rudu skidavatj
  finditem !items C_ , !from
  for #findindex 1 #findcnt
  {
    if #findkind = 0
    {
      set !amt 1
      if #findstack > 1
        set !amt #findstack
      while #scnt2 < !dragTimer
        wait 0
      exevent drag #findid !amt
      exevent dropc !to
      set !dragTimer #scnt2 + !dragTimeout
    }
  }
  namespace clear

}
Gosub back1
back2:

}
return

#####################################
sub follow
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
}
until #findcnt = 0
wait 2
return

Код

initevents
set %Tile 0
start:
finditem NPF
set #lobjectid #findid
event macro 17 0
targloop:
if #targcurs = 1
goto targloop
set #lobjectid #ltargetid
if %ltargetx = #ltargetx && %ltargety = #ltargety
{
event sysmessage error. try again
goto start
}
execute cmd.exe /c echo >>mineroute.txt GOSUB LJING #ltargetx #ltargety #ltargettile
set %ltargetx #ltargetx
set %ltargety #ltargety
set %tile %tile + 1
event sysmessage Done with Tile Nr. %tile
wait 10
goto start

piceofcake.eveoneН·Autotrapped

Код

AutoTraped:
scanjournal 1
If Frozen in #journal : notin #journal
{
msg $.usetraped$
deletejournal
wait 5
}
Goto AutoTraped

Easy and simple

(C) piceofcakeeveone
ў ё   
   
Lockpixing„
[code]
set %box SPF_AUD_CUD;
mainloop:; 
finditem NWH C_ , #backpackid;
if #findkind = -1; 
halt; .
set #lobjectid #findid;
Finditem %box C_ , #backpackid; 
if #findkind = -1;
halt;u
set #ltargetid #findid; 
event macro 17; 
target; sagaida, 
event macro 22; 
wait 1s; 
set #lobjectid #ltargetid; 
event macro 17;
goto mainloop; 

© piceofcakeeveone2

- є

Cashpot drop 
Jabut brivai pogai Z
Jabut soma cashpot
Ja gribi izmest cashpot spied burtu Z


set %kid JRD

loop:
onhotkey z
gosub kid
wait 1
goto loop

sub kid
finditem %kid C_ , #backpackid
exevent drag #findid
wait 1
exevent dropg #charposx #charposy
return
gotikaa

»
Pick Upр Jabut brivai Pogai F5

ignoreitem IS_HS
hotkeyloop:
onhotkey f5
{
finditem * G_2
if #findcnt > 0
{
exevent drag #findid #findstack
wait 2
exevent dropc #backpackid
}
}
wait 1
goto hotkeyloopgotikaa
M Ѕ

Autohealer/ if #hits < #maxhits
key 1
$
wait 21
returngotikaa
_
ѕ
Animal teiming=
; Script Name: Auto Animal Tamer
; Author: EnFlame
; Version: 1.0
; Client tested with: 2.0.3
; EUO version tested with: EasyUO 1.5 Version 137
; Shard OSI/FS: FS
; Public Release: 12/08/08
; Revision Date: 12/08/08
; Global Variables Used: -
; Purpose: Fast to train Animal Taming skill.
; Description: Script searches for animals, tames them, if
; no animals found, it moves 18-23 steps to random direction.

set %animals HG_WC_RF_YF_BG_AH_NF_TC_PG_RD_TG_IG_ZF_TF_XG_CO_FG_YG_AG_PF

chooseskill animal taming
scanjournal
set %distance 0
set %try 0
repeat
{
repeat
{
gosub ghost
set %distance %distance + 2
finditem %animals G_ , %distance
if #findcnt <> 0
{
gosub moveToAnimal
gosub tameAnimal
set %distance 0
}
}
until %distance > 14
gosub moveRandom
set %distance 0
}
until #false

sub ghost
if #charghost = yes
{
terminate uo
halt
}
return

sub moveToAnimal
event exmsg #findid 3 23 Taming..
set %fail #scnt + 20
repeat
{
finditem #findid
event pathfind #findx #findy #findz 1
wait 20
if #scnt > %fail
{
ignoreitem #findid 1
set %noLocation #true
return
}
}
until #finddist < 2
set %noLocation #false
return

sub tameAnimal
if %noLocation
return
if #findrep = 6
{
gosub kill
return
}
tame:
if G in #charstatus
event macro 6 0
set #targcurs 0
set %lag #scnt + 15
set #ltargetid #findid
set #ltargetkind 1
event macro 13 35
target
while #targcurs <> 1 && #finddist < 4 && #scnt < %lag
wait 1
event macro 22 0
if #finddist >= 4 || #scnt > %lag
{
gosub moveToAnimal
goto tame
}
gosub checkForResult
return

sub checkForResult
deletejournal
set %skill #skill
set %overtime #scnt + 35
scan:
for %i 1 10
{
if #hits < #maxhits 2
msg .usebandage$
event macro 23 0
scanjournal %i
if already_tame in #journal || already_tame in #sysmsg
{
ignoreitem #ltargetid 1
return
}
if seems_to_accept in #journal || seems_to_accept in #sysmsg
+ || %skill <> #skill
{
ignoreitem #ltargetid 1
msg $All Stop$
return
}
if too_far_away in #journal || too_far_away in #sysmsg
+ || can_not_see in #journal || can_not_see in #sysmsg
{
set %try %try + 1
if %try >= 5
{
ignoreitem #ltargetid 1
set %try 0
return
}
gosub moveToAnimal
gosub tameAnimal
}
if %overtime < #scnt
return
finditem #findid
event pathfind #findx #findy #findz 1
wait 20
}
goto scan
return


event pathfind %x %y
wait 20
}
until ( #scnt > %time ) || ( #charposx = %x && #charposy = %y )
return

sub kill
set #ltargetid #findid
event macro 27 0
repeat
{
finditem #findid
wait 20
gosub ghost
}
until #findcnt = 0
return
quattro «
А
Fishingђset %copene XHF_KDF
set %zive LGW_RIL_CMW_ZVI_GCI_FMW_TLW_GMW_VLW_
set %box QYROKMD
fisings:
gosub copesana
goto fisings

sub copesana
cope:
GOSUB metara
set %x 3
set %xx #CHARPOSX - %x
set %yy #CHARPOSY
finditem %copene
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 5s
set #LTARGETX %xx
set #LTARGETY %yy
set #LTARGETKIND 3
event macro 22 0
wait 2s
set %overtime #scnt + 10
gosub pludins
gosub scan
goto cope
return

sub pludins
parb:
savepix 351 224 1 ;te uzbraucot uz pludinja norakstit vajag koordinates un ievietot!
if #pixcol > 300 ;15663104__4335872 ;255 ;429497295
{
CLICK1:
wait 1
event macro 17 0
wait 2
goto fisings
}

scanjournal 1
if you_fail_to_ in #journal
return
goto parb

if %overtime > #scnt
goto parb
return

sub scan
scan:
if YOU_PUT_THE_ in #sysmsg
return
if YOU_FAIL_ in #sysmsg
return
if #contkind = GJZ ;CTRB
{
execute cmd.exe
return
}
if %overtime > #scnt
goto scan
return

sub metara
drop:
finditem %zive C_ , #Backpackid
if #findkind = -1
return
exEvent Drag #FindID #Findstack
wait 10
exEvent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
wait 10
goto drop
icegold  D Б
Camp,

Код

msg .camp$
wait 30
return

degress
Б Д
Lumber Lajer !›Sis ir Lumber lajer , ieslegot scp jus ierakstat kadus kokus certisiet un taa pie katra koka pieejat un uzklikojat virsu ! tad isledzat SCP un iemetats Layerus Lumber SCP ,ko es ieliksu ! arii !

Код

initevents
set %tree 0
start:
event macro 13 3
wait 2
targloop:
if #targcurs = 1
goto targloop
set #lobjectid #ltargetid
if %ltargetx = #ltargetx && %ltargety = #ltargety
{
event sysmessage error. try again
goto start
}
execute cmd.exe /c echo >>LAYERLUMBER2.txt GOSUB LJING #ltargetx #ltargety #ltargettile
set %ltargetx #ltargetx
set %ltargety #ltargety
set %tree %tree + 1
event sysmessage Done with Tree Nr. %tree
wait 2
goto start

bombamaster
Й Е

Lumber wos§ Kodu nez kadel nevareju ievietot
Vienkarsi ieliekam savus layerus un spiezam play !

Linka donlowd SCP pasu !

http://rapidshare.lv/wos/33414/wos+lumber.txt.htmlbombamasterЮ Ж
auto loot no monstriem !®

Код

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH
set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

sub kill
set %k %k + 1
gosub fallow&kill
gosub loot
move %1 %2 1
gosub scan
return

sub scan
scan:
scanjournal
gosub checkHP
if Body in #sysmsg
{
gosub loot
return
goto scan
return

sub follow&kill
msg .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
return

sub loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait 40
}
until #false
}
return

bombamaster 
 З

BlackSmithingЭ Tatad uztaisam vienu itemu ! un tad easy uo uzliekat Kordinates ! click 496 451
un spiezam play ,protams arii laiku nomainam ! wait 7s cik apmeram vinjs taisas !

Код

key z 
click 496 451
wait 7s
return

bombamaster к Й  Cast spellsК#####################################################
####################Cast Spell Self##################
#####################################################
sub Zer()
UO.Exec("cast 'Magic Reflection'self")
end sub

Sub RArm()
UO.Exec("cast 'Reactive Armor'self")
end sub

sub Arm()
UO.Exec("cast 'Protection'self")
end sub

sub ArrowS()
UO.Exec("cast 'Magic Arrow'self")
end sub

sub CureS()
UO.Exec("cast 'Cure'self")
end sub

sub invS()
UO.Exec("cast 'Invisibility'self")
end sub

sub healS()
UO.Exec("cast 'Poison'self")
end sub

sub healGS()
UO.Exec("cast 'Greater Heal'self")
end sub

sub antistrS()
UO.Exec("cast 'Feeblemind'self")
end sub

sub MassDispelS()
UO.Exec("cast 'Mass Dispel'self")
end sub

######################################
#####Cast spell LastS#################
######################################
sub lightL()
UO.Cast('Lightning','laststatus')
end sub

sub fsL()
UO.Cast('Flame Strike','laststatus')
end sub

sub arrowL()
UO.Cast('Magic Arrow','laststatus')
end sub

sub freezL()
UO.Cast('Paralyze','laststatus')
end sub

sub desL()
UO.Cast('Weaken','laststatus')
end sub

sub poiL()
UO.Cast('Poison','laststatus')
end sub

sub manaL()
UO.Cast('Mana Drain','laststatus')
end sub

sub DispelL()
UO.Cast('Dispel','laststatus')
end sub

###############################################
#######Cast no Target##########################
###############################################

sub teleport()
UO.Cast('Teleport')
end sub

sub DF()
UO.Cast('Dispel Field')
end sub

sub DetM()
UO.Cast('Reveal')
end sub

sub Wall()
UO.Cast('Wall of Stone')
end sub

sub PF()
UO.Cast('Paralyze Field')
end sub

sub nxt()
Designed 
л
К  SkillsР
#####################################################
##############Skills#################################
#####################################################

sub detect()
uo.warmode(0)
uo.useskill('Detect Hidden')
end sub

sub hide()
uo.warmode(0)
uo.useskill('Hiding')
end sub

sub TrackP()
UO.WaitMenu('Tracking','Players')
UO.UseSkill('Tracking')
; UO.CancelMenu()
end sub

sub med()
uo.warmode(0)
uo.useskill('Meditation')
end sub
Designed  Л  Nadpisi nad golovojо
sub say_life()
var p
var q
var k
p=uo.life
k=uo.armor
repeat
if uo.life <> p then
q=p
p=uo.life
if p<q then
uo.fontcolor('0x0021')
UO.msg("hP = " +str(p) +" dMg = " +str(q-p))
uo.fontcolor('0x002d')
else
uo.fontcolor('0x0045')
UO.msg("hP = "+str(p) +" (+"+str(p-q)+")")
uo.fontcolor('0x002d')
end if
end if
IF UO.armor <> k then
k=uo.armor
uo.fontcolor('0x0065')
UO.msg("Armor = "+str(k))
uo.fontcolor('0x002d')
end if
wait(30)
until false
# until uo.dead()
end subDesigned    М
Pudeles‡ event macro 17
wait 10
click 425 249
wait 8s



Ieslв”ЂГґgt uztaisi savu pudeli kuru gribi taisit ieraksti "MACRO" un iet!! (IMG:style_emoticons/default/smile.gif)
osars ї
Н  BintiҐ sub healing()
If UO.STR==UO.Life Then
UO.Print("Life is full")
Else
UO.SetArm("1")
UO.BandageSelf()
wait(1000)
Endif
end subDesigned 
d П 
Alchemy Razor?
Buy ''Mortal and pastle''
Then go to razor
go macros/New/Recorde
Clik on the Mortal and pastle and create an bottle
When you done Clik Stop
Clik in loop
and whit right mouse Clik ->>Special Constructs->> Insert pause/wait..
Clik in Pause four: and whrite ther 10000 it will be 10s
if you done !
Clik play !bombamasterА Ф
Autoloot PvM 

Код

set %loot AUD_XVH_AZF_OZF_POF_HJG_SJG_IJG_UJG_
set %hotkeyLoot space

while #true
{
onhotkey %hotkeyLoot
{
gosub loot
wait 5
}
}

sub loot
set %oB #scnt + 5
set %lootOverTime #scnt + 15
finditem YFM G_3
if #findcnt >= 1
{
set %body #findid
set #lobjectid %body
event macro 17 0
event exmsg %body 3 0 opening
if for_looting in #sysmsg
{
  ignoreitem %body 1
  return
}
while #contkind <> ASEB && #contsize <> 144_212 && %ob > #scnt
wait 1
wait 10
  if %ob <= #scnt
  {
   ignoreitem %body 1
   event sysmessage Body not opened
   return
  }
repeat
  {
   finditem %loot C_ , %body
   if #findcnt >= 1
   {
    exevent drag #findid #findstack
    exevent dropc #backpackid
    wait 35
   }
   finditem %loot C_ , %body
  }
until #findcnt = 0 || %lootOverTime < #scnt
ignoreitem %body 1
event exmsg %body 3 0 looted
}
else
event sysmessage No body found.
return

degress
с д
Fishing scp.С

Код

set %copene XHF_KDF
set %zive LGW_RIL_CMW_ZVI_GCI_FMW_TLW_GMW_NGW_
set %box QYROKMD
fisings:
gosub copesana
goto fisings

sub copesana
cope:
GOSUB metara
set %x 3
set %xx #CHARPOSX - %x
set %yy #CHARPOSY
finditem %copene
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 5s
set #LTARGETX %xx
set #LTARGETY %yy
set #LTARGETKIND 3
event macro 22 0
wait 2s
set %overtime #scnt + 10
gosub pludins
gosub scan
  goto cope
return

sub pludins
parb:
savepix 346 236 1;te uzbraucot uz pludinja norakstit vajag koordinates un ievietot!
if #pixcol > 300;15663104__4335872;255;429497295
{
CLICK1:
wait 1
 event macro 17 0
wait 2
  goto fisings
}

scanjournal 1
if you_fail_to_ in #journal
return
goto parb

if %overtime > #scnt
goto parb
return

sub scan
scan:
if YOU_PUT_THE_ in #sysmsg
return
if YOU_FAIL_ in #sysmsg
return
if #contkind = GJZ;CTRB
{
  execute cmd.exe
  return
}
if %overtime > #scnt
goto scan
return

sub metara
drop:
finditem %zive C_ , #Backpackid
if #findkind = -1
return
exEvent Drag #FindID #Findstack
wait 10
exEvent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
wait 10
goto drop

Apraxts --> http://uo.wos.lv/?q=forum&unID=227degress Ж о 
AutoTrapedЄ Sub autotraped()
xenofex:
If UO.InJournal('frozen') Then
wait(50)
uo.msg('.usetraped')
wait(50)
UO.DeleteJournal()
Endif
wait (50)
goto xenofex
endsubvipv2  R п  FireHorn8 sub Firehorn()
uo.usetype ('0x0FC7', '0x08FC')
end subvipv2


р  Use Booksж sub book1()
uo.usetype ('0x0EFA', '0x087D') FS
end sub

sub book2()
uo.usetype ('0x0EFA', '0x0A22') Laita
end sub

sub book3()
uo.usetype ('0x0EFA', '0x0446') EarthQuake
end subvipv2 W
с  Use Invis Cloak6 sub Cloak()
uo.usetype ('0x2B04', '0x0001')
end subvipv2 O
э 
Auto Heal 3Auto Heal 3 veidi skatieties pashi kursh jums labak der!

sub AutoHeal1()
VAR Success = 'You put the bloody bandage'
VAR Fizzle = 'failed.'
VAR bandag = '0x0E21'
VAR k
repeat
If UO.GetHP() < UO.GetMaxHP() - 15 Then
If UO.Count( Bandag ) > 0 Then
uo.DeleteJournal( Success )
uo.DeleteJournal( Fizzle )
k = 0
UO.Bandageself()
repeat
wait(50)
k = k + 1
until UO.InJournal( Success ) or UO.InJournal( Fizzle ) or k > 100
Else
return
Endif
Else
wait(500)
Endif
until UO.Life == 0
endsub



sub Heal()
var k
var ghtype='0x2384'
var ghcolor='0x7843'
while true
while UO.GetHP()==UO.GetMaxHP()
wait(100)
wend
repeat
UO.BandageSelf()
k=0
uo.DeleteJournal()
repeat
k=k+1
wait(100)
until UO.InJournal("You put the bloody|You apply the") or k==50
until UO.GetHP()==UO.GetMaxHP()
if UO.GetHP()<=1 then
UO.UseType(ghtype,ghcolor)
wait(200)
endif
wait(10)
wend
endsub

sub autoheal()
repeat
If UO.STR>UO.Life Then
UO.BandageSelf()
wait(3000)
endif
until uo.dead()
end sub


vipv2 
"
 Fast Recall / Auto RecallЮ
1. Press "Macros" tab
2. Press "New..."
3. Enter text: Fast Recall , and press Okey.
4. Press "Record"
5. Double click on Runebook
6. Click on green recall button in runebook.
7. Click "Stop" in razor.
8. Press "Hot Keys" tab
9. Press on [+] Macros
10. Press on "Play: Fast Recall (not assigned)"
11. Click in "Key:" input.
12. Press: "F5" on keyboard.
13. Press "Set" button in razor.

All done! Now just press F5 on keyboard, and auto recall macros will start!
tjomi4` 

Њ

Avto drink restл Set %minimalHP 150
set %HpotionTime 10

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Set %H 0

AutoGH:
if #hits =< %minimalHP && %H < #scnt
{
msg $.drink rest$
wait 10
set %h #scnt + %HpotionTime
}
goto AutoGHncux ! {
Mining for EUOXе set %ljtool NPF_QPF ; set your ljtool here x y title
set %Roba FWL ; Skill Roba
set %Roba2 dwl ; Zhenskaja takaja roba dolzhna byt' v backpacke.
set %Cloack svovjmd ; Skill Cloack
set %Cloack2 dci ; Prostoj cloack
set %Mask NZH ; Skill Mask
set %Mask2 OSH ; Ljuboj drugoj helm ( TYPE )
set %runebookid irzzkmd ; ID Runebooka

start:

GOSUB LJING 2563 483 0 1339
GOSUB LJING 2563 483 0 1339
GOSUB LJING 2564 484 0 1339
GOSUB LJING 2564 484 0 1339
GOSUB LJING 2564 485 0 1339
GOSUB LJING 2564 485 0 1339
GOSUB LJING 2565 485 0 1340
GOSUB LJING 2565 485 0 1340
GOSUB LJING 2565 486 0 1339
GOSUB LJING 2565 486 0 1339
GOSUB LJING 2566 487 0 1339
GOSUB LJING 2566 487 0 1339
GOSUB LJING 2567 487 0 1342
GOSUB LJING 2567 487 0 1342
GOSUB LJING 2567 488 0 1339
GOSUB LJING 2567 488 0 1339
GOSUB LJING 2568 488 0 1339
GOSUB LJING 2568 488 0 1339
GOSUB LJING 2568 489 0 1345
GOSUB LJING 2568 489 0 1345
GOSUB LJING 2567 489 0 1346
GOSUB LJING 2567 489 0 1346
GOSUB LJING 2566 488 0 1339
GOSUB LJING 2566 488 0 1339
GOSUB LJING 2565 488 0 1339
GOSUB LJING 2565 488 0 1339
GOSUB LJING 2564 487 0 1342
GOSUB LJING 2564 487 0 1342
GOSUB LJING 2564 486 0 1339
GOSUB LJING 2564 486 0 1339
GOSUB LJING 2563 486 0 1339
GOSUB LJING 2563 486 0 1339
GOSUB LJING 2562 486 0 1339
GOSUB LJING 2562 486 0 1339
GOSUB LJING 2562 485 0 1339
GOSUB LJING 2562 485 0 1339
GOSUB LJING 2561 485 0 1353
GOSUB LJING 2560 486 0 1353
GOSUB LJING 2561 485 0 1353
GOSUB LJING 2561 486 0 1339
GOSUB LJING 2561 486 0 1339
GOSUB LJING 2562 487 0 1339
GOSUB LJING 2562 487 0 1339
GOSUB LJING 2562 488 0 1342
GOSUB LJING 2562 488 0 1342
GOSUB LJING 2563 488 0 1339
GOSUB LJING 2563 488 0 1339
GOSUB LJING 2564 489 0 1339
GOSUB LJING 2564 489 0 1339
GOSUB LJING 2564 490 0 1339
GOSUB LJING 2564 490 0 1339
GOSUB LJING 2565 490 0 1339
GOSUB LJING 2565 490 0 1339
GOSUB LJING 2565 492 0 1344
GOSUB LJING 2565 492 0 1344
GOSUB LJING 2563 490 0 1340
GOSUB LJING 2563 490 0 1340
GOSUB LJING 2562 490 0 1342
GOSUB LJING 2562 490 0 1342
GOSUB LJING 2562 489 0 1339
GOSUB LJING 2562 489 0 1339
GOSUB LJING 2561 488 0 1339
GOSUB LJING 2561 488 0 1339
GOSUB LJING 2560 487 0 1339
GOSUB LJING 2560 487 0 1339
GOSUB LJING 2559 487 0 1353
GOSUB LJING 2559 487 0 1353
GOSUB LJING 2560 489 0 1339
GOSUB LJING 2560 489 0 1339
GOSUB LJING 2561 490 0 1339
GOSUB LJING 2561 490 0 1339
GOSUB LJING 2562 490 0 1342
GOSUB LJING 2562 490 0 1342
GOSUB LJING 2562 491 0 1339
GOSUB LJING 2562 491 0 1339
GOSUB LJING 2563 491 0 1339
GOSUB LJING 2563 491 0 1339
GOSUB LJING 2564 492 0 1342
GOSUB LJING 2564 492 0 1342
GOSUB LJING 2564 493 0 1344
GOSUB LJING 2564 493 0 1344
GOSUB LJING 2563 493 0 1339
GOSUB LJING 2563 493 0 1339
GOSUB LJING 2562 492 0 1340
GOSUB LJING 2562 492 0 1340
GOSUB LJING 2561 491 0 1340
GOSUB LJING 2561 491 0 1340
GOSUB LJING 2561 490 0 1339
GOSUB LJING 2561 490 0 1339
GOSUB LJING 2560 490 0 1339
GOSUB LJING 2560 490 0 1339
GOSUB LJING 2559 489 0 1340
GOSUB LJING 2559 489 0 1340
GOSUB LJING 2558 488 0 1353
GOSUB LJING 2558 488 0 1353
GOSUB LJING 2558 489 0 1354
GOSUB LJING 2558 489 0 1354
GOSUB LJING 2559 490 0 1342
GOSUB LJING 2559 490 0 1342
GOSUB LJING 2560 491 0 1339
GOSUB LJING 2560 491 0 1339
GOSUB LJING 2560 492 0 1342
GOSUB LJING 2560 492 0 1342
GOSUB LJING 2561 493 0 1339
GOSUB LJING 2561 493 0 1339
GOSUB LJING 2562 494 0 1339
GOSUB LJING 2562 494 0 1339
GOSUB LJING 2558 492 0 1355
GOSUB LJING 2558 492 0 1355
GOSUB LJING 2559 494 0 1342
GOSUB LJING 2559 494 0 1342
GOSUB LJING 2560 494 0 1339
GOSUB LJING 2560 494 0 1339
GOSUB LJING 2561 495 0 1339
GOSUB LJING 2561 495 0 1339
GOSUB LJING 2562 496 0 1344
GOSUB LJING 2562 496 0 1344
GOSUB LJING 2562 496 0 1344
GOSUB LJING 2561 497 0 1349
GOSUB LJING 2561 497 0 1349
GOSUB LJING 2560 497 0 1342
GOSUB LJING 2560 497 0 1342
GOSUB LJING 2559 496 0 1340
GOSUB LJING 2559 496 0 1340
GOSUB LJING 2558 495 0 1340
GOSUB LJING 2558 495 0 1340
GOSUB LJING 2557 494 0 1339
GOSUB LJING 2557 494 0 1339
GOSUB LJING 2557 495 0 1339
GOSUB LJING 2557 495 0 1339
GOSUB LJING 2558 496 0 1339
GOSUB LJING 2558 496 0 1339
GOSUB LJING 2559 497 0 1339
GOSUB LJING 2559 497 0 1339
GOSUB LJING 2560 498 0 1339
GOSUB LJING 2560 498 0 1339
GOSUB LJING 2556 495 0 1339
GOSUB LJING 2556 495 0 1339
GOSUB LJING 2556 496 0 1340
GOSUB LJING 2556 496 0 1340
GOSUB LJING 2557 496 0 1339
GOSUB LJING 2557 496 0 1339
GOSUB LJING 2558 497 0 1342
GOSUB LJING 2558 497 0 1342
GOSUB LJING 2559 497 0 1339
GOSUB LJING 2559 497 0 1339
GOSUB LJING 2559 498 0 1339
GOSUB LJING 2559 498 0 1339
GOSUB LJING 2560 498 0 1339
GOSUB LJING 2560 498 0 1339
GOSUB LJING 2555 495 0 1353
GOSUB LJING 2555 495 0 1353
GOSUB LJING 2556 496 0 1340
GOSUB LJING 2556 496 0 1340
GOSUB LJING 2557 497 0 1339
GOSUB LJING 2557 497 0 1339
GOSUB LJING 2555 497 0 1354
GOSUB LJING 2555 497 0 1354
GOSUB LJING 2556 498 0 1339
GOSUB LJING 2556 498 0 1339
GOSUB LJING 2556 499 0 1339
GOSUB LJING 2556 499 0 1339





goto start

sub ljing
move %1 %2 1
finditem %ljtool
set #lobjectid #findid
event macro 17 0
target
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait
set %overtime #scnt + 8
gosub bp10
return

gosub bp10
sub bp10
if #weight > 700 ; ves
gosub telehouse

//------------------------------------------------------------------------------------------
sub telehouse
telehouse:
move
move
move
wait 2s

finditem %runebookid
set #lobjectid #findid


//--------------------------------------------------------
sub back1
back1:
finditem %runebookid
set #lobjectid #findid
event macro 17 0
wait 0
event macro 17 0
wait 0
click 261 290 ;Mine Ruune
wait 2
click 261 290 ;Mine Rune
wait 3

finditem %runebookid
set #lobjectid #findid
event macro 17 0
wait
click 260 220 ;perezorjadka
event macro 17 0
wait 1s
click 260 220 ;perezorjadka
wait 1s
GOSUB MINING
//------------------------------------------------------------------------------------------

sub scan
scan:
scanjournal %cnt
if #hits < #str ; STR -1 ( na odin hp menshe stav' )
{

Finditem %Roba2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Cloack2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Mask2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Roba2 c_ , #backpackid
set #lobjectID #findid
event macro 17 0
msg .arm $ ; Wepons :bow ,sw >?<

finditem ED g_10
finditem #enemyid
if #findcnt >= 1
{
gosub follow
}
wait 2
goto unpause

wait 0

Finditem %Roba c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Roba c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Cloack c_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 1
Finditem %Mask c_ , #backpackid
set #lobjectID #findid
event macro 17 0

}

if Try_mining_elsewhere in #sysmsg
return
if You_stop_mining in #sysmsg
{
wait 1s
gosub ljing
}
if There_is_nothing_here_to_mine_for in #sysmsg
return
if It_appears_immune_to_your_blow in #sysmsg
return
if YOu_can't_reach_this in #sysmsg
return
if You_have_no_line_of_sight_to_that_location in #sysmsg
return
if #scnt >= %overtime
return
goto scan

sub hz450

Move 3445 299
Move 3445 299

gosub moveItems
sub moveItems
{
set !dragTimeout 7 s
set !dragTimer #scnt2
set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
if %0 < 10
set !items DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF
set !from phdakmd #backpackID
set !to ufximmd ; Kudaa rudu skidavatj
finditem !items C_ , !from
for #findindex 1 #findcnt
{
if #findkind = 0
{
set !amt 1
if #findstack > 1
set !amt #findstack
while #scnt2 < !dragTimer
wait 0
exevent drag #findid !amt
exevent dropc !to
set !dragTimer #scnt2 + !dragTimeout
}
}
namespace clear

}
Gosub back1
back2:

}
return

#####################################
sub follow
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
}
until #findcnt = 0
wait 2
returnBadBoys
Ё ј

ResendЋ
ðÑÐâð╣ ÐéðÁð▒ðÁ ð░ ð¢ðÁ ÐÇðÁÐüðÁð¢ð┤ [END]
ðÑÐâð╣ ÐéðÁð▒ðÁ ð░ ð¢ðÁ ÐÇðÁÐüðÁð¢ð┤ [END]
ðÑÐâð╣ ÐéðÁð▒ðÁ ð░ ð¢ðÁ ÐÇðÁÐüðÁð¢ð┤ [END]
ðÑÐâð╣ ÐéðÁð▒ðÁ ð░ ð¢ðÁ ÐÇðÁÐüðÁð¢ð┤ [END]
ðÑÐâð╣ ÐéðÁð▒ðÁ ð░ ð¢ðÁ ÐÇðÁÐüðÁð¢ð┤ [END]element
Ф Я
Hiding TrainerІ
set %x1 #charposx
set %x2 #charposx + 1
set %y #charposy
set %skilltimer #scnt

loop:
gosub CheckHide
move %x1 #charposy 0 5s
wait 5
gosub CheckHide
move %x2 #charposy 0 5s
wait 5
goto loop

sub CheckHide
if H notin #charstatus
{
repeat
{
while #scnt < %skilltimer
{
wait 0
}
event macro 13 21 ;Use Hiding Skill
set %skilltimer #scnt + 12
wait 5
}
until H in #charstatus
}
return
Team123
™ а
Alchemy~ Uzmanв”ЂГјs ar laiku, jo в”јГ­is ir vairв”ЂГјk uz major bottlem



click
event macro 17
wait 20
click 411 248
wait 8sTeam123
1 
Full pvp (+autoloot)sub Loot()
var t,l
t=200
uo.UseObject('lastcorpse')
wait(t)
dim Loot[35]
uo.Print('Nu kas?...')
### Magic Looting Items ###
Loot[1]=0x27A5; Anshuar shield
Loot[2]=0x26C2; Shroud
Loot[3]=0x2B04; Cloak of huj (IMG:style_emoticons/default/biggrin.gif)
Loot[4]=0x0EFA; Book
Loot[5]=0x140E; RINGMEILS
Loot[6]=0x13EC; $
Loot[7]=0x13F0; $
Loot[8]=0x13EE; $
Loot[9]=0x13EB; $
Loot[10]=0x1412; Platmeils
Loot[11]=0x1413; #
Loot[12]=0x1415; #
Loot[13]=0x1411; #
Loot[14]=0x1414; #
Loot[15]=0x1410; #
Loot[16]=0x317A; Elven boots
Loot[17]=0x1DB9; STUDENTS
Loot[18]=0x13DB; @
Loot[19]=0x13D4; @
Loot[20]=0x13C6; @
Loot[21]=0x13CB; @
Loot[22]=0x2b01; PARALIZE BOW
Loot[23]=0x1BC4; INVUL ShIELD
Loot[24]=0x27A8; DO katana
Loot[25]=0x2FB9; KRUSTS 0x26C2
Loot[26]=0x26C2; Noble elven bow
Loot[27]=0x2D2F; Paralize sword
Loot[28]=0x1B77; Shield
Loot[29]=0x2F5B; Cinture
Loot[30]=0x2647; JAUNAIS ARMORS
Loot[31]=0x2641; #
Loot[32]=0x2645; #
Loot[33]=0x2657; #
Loot[34]=0x2643; #
Loot[35]=0x2B01; #


uo.Print('lootojam (IMG:style_emoticons/default/smile.gif).')
for l=1 to 35
uo.FindType(Loot[l],"-1","lastcorpse")
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=3 then
uo.Grab(1,"finditem")
uo.Print(':): '+str(uo.findcount()))
wait(t)
end if
next
end sub


sub PickUp()
uo.set('finddistance','3')
UO.FindType( -1 , -1 ,'ground')
If UO.FindCount() then
uo.moveitem('finditem')
uo.ignore('finditem')
Wait(200)
Endif
Wait(250)
end sub

sub Paralyze()
Uo.DeleteJournal()
REPEAT
If Uo.InJournal('You are frozen and can not move') Then
uo.msg('.Usetraped')
Uo.DeleteJournal()
Else
Wait(100)
EndIf
Until Uo.Dead()
END SUB

sub LooterNew()
VAR i, n
VAR w = 500 ; the delay after a move
VAR razmer = 9 ; the size of the DIM

DIM Loot[9]
Loot[1] = '0x0EED'
Loot[2] = '0x1BD1'
Loot[3] = '0x0F87'
Loot[4] = '0x14ED'
Loot[5] = '0x0EED'
Loot[6] = '0x1031'
Loot[7] = '0x0F51'
Loot[8] = '0x0F51'
Loot[9] = '0x0F06'

if uo.getdistance( 'lastcorpse' ) < 3 then
uo.deletejournal()
repeat
uo.findtype( '-1', '-1', 'lastcorpse' )
n = 0
for i = 1 to razmer
if uo.getgraphic( 'finditem' ) == Loot[i] then
uo.moveitem( 'finditem', 'all', 'my' )
wait(w)
if uo.injournal( 'UNSP' ) then
wait(w*2)
uo.deletejournal()
endif
n = 1
goto nextitem
endif
next
if n == 0 then
uo.ignore( 'finditem' )
endif
nextitem:
until uo.findcount() == 0
else
uo.print( 'The Corpse is too far' )
endif
endsub

sub healing()
while not uo.dead()
rehil:
if uo.str > uo.life then
uo.bandageself()
if uo.injournal("failed") == 1 then
wait(100)
goto rehil
endif
wait(2000)
endif
wait(100)
wend
end sub

sub seno()
uo.findtype('0x0e7d','-1',"my")
if uo.findcount()>0 then
uo.drophere('finditem')
endif
end sub

sub Recal()
var RuneBook='0x4006b724'
UO.WarMode(0)
uo.recall(runebook,1)
wait (100)
end sub

sub Recal1()
var RuneBook='0x40086aae'
UO.WarMode(0)
uo.recall(runebook,1)
wait (100)
end sub

sub antizivis()
uo.usetype('0x3b0d')
uo.usetype('0x3b02')
end sub

sub Stamina()
Uo.DeleteJournal()
REPEAT
If Uo.InJournal('You are too fatigued to move') Then
uo.msg('.drink refresh')
Uo.DeleteJournal()
Else
Wait(100)
EndIf
Until Uo.Dead()
END SUB

sub Walk(x,y)
go:
if uo.getY() > uo.gety("laststatus") then
uo.press(33)
else
uo.press(35)
endif
while not uo.getX() == uo.getx("laststatus") || not uo.getY() == uo.gety("laststatus")
if not uo.getX() == uo.getx("laststatus") then
if uo.getX() > uo.getx("laststatus") then
if uo.getY() > uo.gety("laststatus") then
uo.press(38)
endif
if uo.getY() < uo.gety("laststatus") then
uo.press(37)
endif
if uo.getY() == uo.gety("laststatus") then
uo.press(36)
endif
endif
if uo.getX() < uo.getx("laststatus") then
if uo.gety() > uo.gety("laststatus") then
uo.press(39)
endif
if uo.gety() < uo.gety("laststatus") then
uo.press(40)
endif
if uo.gety() == uo.gety("laststatus") then
uo.press(34)
endif
endif
endif
if uo.getX() == uo.getx("laststatus") then
if uo.gety() > uo.gety("laststatus") then
uo.press(33)
endif
if uo.gety() < uo.gety("laststatus") then
uo.press(35)
endif
if uo.gety() == uo.gety("laststatus") then
wait(10)
endif
endif
wend
if uo.getx() == uo.getx("laststatus") then
if uo.gety() == uo.gety("laststatus") then
wait(10)
endif
endif
end sub

sub fock()
var x = uo.getx("lastattack")
var y = uo.gety("lastattack")
while true
walk(x,y)
wend
end sub

sub obklad()
var musor = 0x09aa # i?iieoe caanu oei, ?ai iaeeaauaaaou
var x=uo.getserial('lasttarget')
var delay=1500
uo.set('lasttarget','laststatus')
uo.findtype(musor,'-1','2')
if uo.findcount() then
uo.drop("1",str(uo.getx(x)-1),str(uo.gety(x)),0,"finditem")
endif
wait(delay)
uo.findtype(musor,'-1','2')
if uo.findcount() then
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)-1),0,"finditem")
endif
wait(delay)
uo.findtype(musor,'-1','2')
if uo.findcount() then
uo.drop("1",str( uo.getx(x)+1),str(uo.gety(x)),0,"finditem")
endif
wait(delay)
uo.findtype(musor,'-1','2')
if uo.findcount() then
uo.drop("1",str(uo.getx(x)),str(uo.gety(x)+1),0,"finditem")
endif
end sub


sub fish()
UO.FindType('0x3b05')
If UO.GetQuantity('finditem')>0 then
UO.WaitTargetObject('laststatus')
UO.UseObject('finditem')
else
UO.Print('nav zivju')
endif
end sub


sub poisonweap()
uo.waittargetobject('0x40036f4b'); id pushki
uo.usetype('0x0f0e'); poison
end sub


sub drop_box()
var i, len = 2
DIM items[ val( str( len ) ) ]
items[0] = "0x09AA"
items[1] = "0x0E7D"

for i = 0 to len-1
uo.findtype( items[i] )
if uo.findcount() then
uo.moveitem( "finditem", "-1", "ground" )
endif
next
endsub

sub fish()
UO.FindType('0x3B05')
If UO.GetQuantity('finditem')>0 then
UO.WaitTargetObject('laststatus')
UO.UseObject('finditem')
else
UO.Print('nav zivju')
endif
end sub

sub recalll()
var runebook='0x4003F8CD'
uo.warmode(0)
wait(10)
uo.recall(runebook, 2)
wait(50)
uo.useskill('Hiding')
end sub

sub Cloak()
uo.usetype('0x2b04')
end sub


sub Cure()
Uo.DeleteJournal()
REPEAT
If Uo.InJournal('You have been poisoned!') Then
uo.msg('.drink cure')
Uo.DeleteJournal()
Else
Wait(100)
EndIf
Until Uo.Dead()
END SUBMaita
µ 
Fishing sc.—
set %copene XHF_KDF
set %zive LGW_RIL_CMW_ZVI_GCI_FMW_TLW_GMW_NGW_
set %box QYROKMD
fisings:
gosub copesana
goto fisings

sub copesana
cope:
GOSUB metara
set %x 3
set %xx #CHARPOSX - %x
set %yy #CHARPOSY
finditem %copene
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 5s
set #LTARGETX %xx
set #LTARGETY %yy
set #LTARGETKIND 3
event macro 22 0
wait 2s
set %overtime #scnt + 10
gosub pludins
gosub scan
goto cope
return

sub pludins
parb:
savepix 346 236 1 ;te uzbraucot uz pludinja norakstit vajag koordinates un ievietot!
if #pixcol > 300 ;15663104__4335872 ;255 ;429497295
{
CLICK1:
wait 1
event macro 17 0
wait 2
goto fisings
}

scanjournal 1
if you_fail_to_ in #journal
return
goto parb

if %overtime > #scnt
goto parb
return

sub scan
scan:
if YOU_PUT_THE_ in #sysmsg
return
if YOU_FAIL_ in #sysmsg
return
if #contkind = GJZ ;CTRB
{
execute cmd.exe
return
}
if %overtime > #scnt
goto scan
return

sub metara
drop:
finditem %zive C_ , #Backpackid
if #findkind = -1
return
exEvent Drag #FindID #Findstack
wait 10
exEvent dropg #CHARPOSX #CHARPOSY #CHARPOSZ
wait 10
goto drop

sodins
™ :
Info About Easy UOnKas tad ir tas EasyUO??

EasyUO ir programma ar kuras palв”ЂВЅdzв”ЂВЅbu Jв”јВЅs spв”ЂГґlв”ЂГґ Ultima Online varat likt rakties, cirsties, kaв”ЂГ¬в”ЂГјties magery u.t.t. pats nesв”ЂГґв”јВҐot pie datora...

Kв”ЂГј es varu uzzinв”ЂГјt mantas ID??

Lai uzzinв”ЂГјtu kв”ЂГјdas mantas ID, Jums ir jauzvelk ar dubulktklikв”јГ­в”ЂГЂi tв”ЂГј lieta un tad jв”ЂГјskatв”ЂГјs EasyUO programmв”ЂГј labajв”ЂГј pusв”ЂГґ tajв”ЂГјs tabulв”ЂГјs ir rakstв”ЂВЅts #LOBJECTID un nokopв”ЂГґjat VALUE!!!

Kв”ЂГј es varu uzzinв”ЂГјt somas ID??

Lai uzzinв”ЂГјtu somas ID, Jums ir jв”ЂГјatver soma kurв”ЂГј jв”јВЅs gribat likt kko iekв”јГ­в”ЂГј un tad jв”ЂГјauzpieв”јВҐ EasyUO programma un jв”ЂГјapskatв”ЂГјs labajв”ЂГј pusв”ЂГґ ir tabula tur sameklв”ЂГґjat #CONTID un nokopв”ЂГґjat VALUE!

Es gribu uzzinв”ЂГјt vairв”ЂГјk par maniem statiem, kur man iet?

Lai uzzinв”ЂГјtu vairв”ЂГјk par saviem statiem ejat atkal EasyUO programmв”ЂГј un ejiet tabula un sameklв”ЂГґjat - Status Bar... Status Bar nodaв”Ђв•ќв”ЂГј bв”јВЅs daudz kas rakstв”ЂВЅts par jв”јВЅsu statiem - max hitpoint, max weight, max mana u.t.t.
Kapв”ЂГґc man nestrв”ЂГјdв”ЂГј skripts, viв”јГҐв”јГ­ neiet uz spriekв”јГ­u, necв”ЂГґrt kokus u.t.t.

Ja jums skripts neiet uz priekв”јГ­u un necв”ЂГґrt kokus tad vaina ir sekojoв”јГ­a - Atbrв”ЂВЅvojat Num Pad komandas, jo EasyUo programma ar tв”ЂГјm kustв”ЂГјs uz priekв”јГ­u un, ja Jums uz tв”ЂГјm ir kkas uzlikts tad viв”јГҐв”јГ­ vienkв”ЂГјrв”јГ­i taisa tв”ЂГјs komandas kas ir uzliktas un nekustas...

Es esmu redzв”ЂГґjis, kad citi cilvв”ЂГґkiem skripti iet pakaв”Ђв•ќ monstriem un sit viв”јГҐus, kв”ЂГј es tв”ЂГјdu varu dabв”јВЅt?

Tas ir в”Ђв•ќoti vienkв”ЂГјrв”јГ­i lai jums tas bв”јВЅtu, tad jums ir jв”ЂГјdara sekojoв”јГ­i -

Tajв”ЂГј vietв”ЂГј kur iznв”ЂГјk monstrs un skripts jums в”ЂГєв”ЂГґrbj mantas - parasti zem .arm ir jв”ЂГјievada -

Код

{
gosub follow&kill

Un tв”ЂГјlв”ЂГјk Paв”јГ­в”ЂГј apakв”јГ­в”ЂГј ievadiet -

sub follow&kill
repeat
{
finditem #enemyid
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
}
until #findcnt = 0
wait 2
msg .camp Heal $
return

Un viss viв”јГҐв”јГ­ tagad sekos monstram un sitв”ЂВЅs to.
Kв”ЂГј es varu uzzinв”ЂГјt kastes koordinв”ЂГјtes, kur liks logus, vai ores?

Lai uzzinв”ЂГјtu kastes koordinв”ЂГјtes jums jв”ЂГјauziet virsв”јВЅ vietв”ЂГј kur uzlikta kaste un jaauzraksta .where ...

Jums parв”ЂГјdв”ЂВЅsies koordinв”ЂГјtes un tв”ЂГјs iekopв”ЂГґjiet skripta pareizajв”ЂГј vietв”ЂГј...

Ar ko es varu uzzinв”ЂГјt koku un alas koordinв”ЂГјtes?

Lai uzzinв”ЂГјtu koordinв”ЂГјtes jums jв”ЂГјlieto Lailers...
Koku lailers -

Код

set %tree 0
start:
event macro 13 3
wait 10
targloop:
if #targcurs = 1
goto targloop
set #lobjectid #ltargetid
if %ltargetx = #ltargetx && %ltargety = #ltargety
{
event sysmessage error. try again
goto start
}
execute cmd.exe /c echo >>ljroute2.txt GOSUB LJING #ltargetx #ltargety #ltargetz #ltargettile
set %ltargetx #ltargetx
set %ltargety #ltargety
set %tree %tree + 1
event sysmessage Done with Tree Nr. %tree
wait 10
goto start

alas lailers -

Код

set %Tile 0
start:
finditem NPF_qpf
set #lobjectid #findid
event macro 17 0
targloop:
if #targcurs = 1
goto targloop
set #lobjectid #ltargetid
if %ltargetx = #ltargetx && %ltargety = #ltargety
{
event sysmessage error. try again
goto start
}
execute cmd.exe /c echo >>mineroute.txt GOSUB MINING #ltargetx #ltargety #ltargettile
set %ltargetx #ltargetx
set %ltargety #ltargety
set %tile %tile + 1
event sysmessage Done with Tile Nr. %tile
wait 10
goto start

Ceru kad в”јГ­в”ЂВЅ informв”ЂГјcija par в”јГ­o programmu jums nedaudz palв”ЂВЅdzв”ЂГґja
Lahamudra112W
G
Mining(Only minoc)0gosub window
while 1 = 1
{
Enable Event Sysmessage
set #sysmsgcol 1359
event SysMessage ###Script Crafted by Gign###
move 2556 498 0
gosub wait
move 2559 498 0
gosub wait
move 2559 495 0
gosub wait
move 2559 492 0
gosub wait
move 2559 489 0
gosub wait
move 2562 485 0
gosub wait
move 2562 488 0
gosub wait
move 2562 491 0
gosub wait
move 2562 494 0
gosub wait
move 2565 490 0
gosub wait
move 2565 487 0
gosub wait
move 2565 484 0
gosub wait
move 2565 481 0
gosub wait
move 2567 485 0
gosub wait
move 2567 488 0
gosub wait
move 2570 488 0
gosub wait
move 2570 485 0
gosub wait
move 2573 485 0
gosub wait
move 2573 475 0

gosub smeltall

move 2568 476 0
gosub wait
move 2570 477 0
gosub wait
move 2576 477 0
gosub wait
move 2579 480 0
gosub wait
move 2576 480 0
gosub wait
move 2573 480 0
gosub wait
move 2570 480 0
gosub wait
move 2567 480 0
gosub wait
move 2573 475 0

gosub smeltall

move 2564 484 0
}

sub smeltall
{
wait 1s
finditem DWJ C
wait 1s
while #FINDCNT > 0
{
set #LOBJECTID #FINDID
event macro 17
finditem DWJ C
wait 1s
}
return
}

sub wait
{
set #LTargetKind 2
for %x -1 1
{
if #MAXWEIGHT < #WEIGHT + 101
{
return
}
for %y -1 1
{
repeat
{
set #lTargetX #CHARPOSX + %x
set #lTargetY #CHARPOSY + %y
set #lTargetZ #CHARPOSZ
gosub usepick
target
event Macro 22 0
set %weigh #WEIGHT
set %timer2 #SCNT
repeat
{
wait 1
}
until %weigh < #WEIGHT || nothing in #sysMsg || Try in #sysMsg || put in #sysMsg || close in #sysMsg || see in #sysMsg || destroyed in #sysMsg || line in #sysMsg || loosen in #sysMsg || %timer2 < #SCNT - 12
}
until nothing in #sysMsg || line in #sysMsg || decide in #sysMsg || Try in #sysMsg || close in #sysMsg || see in #sysMsg || line in #sysMsg
}
}
gosub dropore
return
}

sub usepick
{
finditem NPF C
while #FINDCNT < 1
{
event SysMessage No Pickaxes
wait 2s
finditem NPF C
}
set #lObjectID #FINDID
event macro 17
return
}

sub dropore
{
finditem DWJ C
for %i 1 #findcnt
{
set #findindex %i
if _ , #findcol , _ in %dropcolor
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 10
}
}
return
}

sub window
}
set %charInfo #charName
set %checksizex 100
set %checksizey 20
set %checkposx 55
set %checkposy 10
set %checkname1 Iron
set %checkname2 Copper
set %checkname3 Bronze
set %checkname4 Steel
set %checkname5 Black_Steel
set %checkname6 Meteor
set %checkname7 Dark_Crystal
set %checkname8 Fire
set %checkname9 Elemental
set %checknamec1 0
set %checknamec2 2738
set %checknamec3 1160
set %checknamec4 1068
set %checknamec5 2723
set %checknamec6 2720
set %checknamec7 2735
set %checknamec8 1094
set %checknamec9 2734
menu window size 240 330
menu window title #spc , Crafted , #spc , by , #spc , Gign
menu Text text_1 10 10 ????? ???? ?????????? ?? ??????
for %i 1 9
{
set %name %checkname . %i
set %posy %checkposy + ( 25 * %i )
menu check %name %checkposx %posy %checksizex %checksizey #false %name
}
menu Button button_1 50 260 100 50 ?????? ??????!
menu show
set #menubutton nothing
while #menubutton <> button_1
{
wait 1
}
menu Hide
for %i 1 9
{
set %name %checkname . %i
menu get %name
if #menures = #true
{
set %mycolor %checknamec . %i
set %dropcolor %dropcolor , _ , %mycolor
}
}
set %dropcolor %dropcolor , _
return
}


________________________________________________________________________________
__
man stradaja ja kadam nestrada tad pats vainigs (linija virs shita teikuma nau ieglauta scripta)
-------------------------------------------------------------------------------------------------------------------
INSTRUKCIJA
1.palaidiet easyuo
2.nokopejiet shito scriptu
3.piespiediet play
4.izleks tabula vienkarshi spiezam zem tabulas
5.vso varat mierigi sedet un kauko darit (vins nau dal shita uo vajag biki pamainit kordinates tad bus vis labi
________________________________________________________________________________
___________
19980414 ’ ±
fishing scriptmset %copene XHF_KDF
set %zive LGW_RIL_CMW_ZVI_GCI_FMW_TLW_GMW_VLW_
set %box QYROKMD
fisings:
gosub copesana
goto fisings

sub copesana
cope:
GOSUB metara
set %x 3
set %xx #CHARPOSX - %x
set %yy #CHARPOSY
finditem %copene
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 5s
set #LTARGETX %xx
set #LTARGETY %yy
set #LTARGETKIND 3
event macro 22 0
wait 10s
set %overtime #scnt + 10
gosub pludins
gosub scan
goto cope
return

sub pludins
parb:
savepix 345 212 1 ;te uzbraucot uz pludinja norakstit vajag koordinates un ievietot!
if #pixcol > 300 ;15663104__4335872 ;255 ;429497295
{
CLICK1:
wait 5
event macro 17 0
wait 5
goto fisings
}

scanjournal 1
if you_fail_to_ in #journal
return
goto parb

if %overtime > #scnt
goto parb
return

sub scan
scan:
if YOU_PUT_THE_ in #sysmsg
return
if YOU_FAIL_ in #sysmsg
return
smurfs2012 Я
Ш
Mining!!Гset %ljtool NPF_QPF ; set your ljtool here x y title
set %Roba FWL ; Skill Roba
set %Roba2 dwl ; Zhenskaja takaja roba dolzhna byt' v backpacke.
set %Cloack svovjmd ; Skill Cloack
set %Cloack2 dci ; Prostoj cloack
set %Mask NZH ; Skill Mask
set %Mask2 OSH ; Ljuboj drugoj helm ( TYPE )
set %runebookid irzzkmd ; ID Runebooka

start:


GOSUB LJING 2124 996 1339
GOSUB LJING 2120 1025 1339
GOSUB LJING 2121 1026 1339
GOSUB LJING 2121 1027 1339
GOSUB LJING 2121 1028 1339
GOSUB LJING 2121 1030 1339
GOSUB LJING 2121 1032 1339
GOSUB LJING 2119 1033 1339
GOSUB LJING 2119 1030 1339
GOSUB LJING 2119 1029 1339
GOSUB LJING 2119 1028 1339
GOSUB LJING 2119 1027 1339
GOSUB LJING 2120 1026 6922
GOSUB LJI