Usatenkij

Sell Items
Paralyze neclase 13 wtuk
Poison neclase 12 wtuk
Charms +8+9+10
Blessed 48/50
Terium shield 14/15
Dragon hearts 1218
Dragon bones 1323
Fire Tunic 35,50 dur
Fire helm 19,41,45 dur
Fire shild 27dur
fire wand 48dur 1 ch
Air pants 28 dur
Air Grudak 31,19dur
Air gloves 45dur
Air Amulet 40,50dur
Earth amulet 36,44,45 dur
earth Tunic 50dur
earth helm 20.20,40,45dur
earth pants 29 dur
earth lokti 24,28,39dur
dm boots 37,50dur
dm amulet 38,50,50dur
dm shild 42dur
Mermide bones 159
Reptile bones 209
Gargona bones 55
Midnight bracers 37 dur
Ornate Crown 30,35,32,25 dur
Inquisotors 50 dur
Fallen king 31,40 dur
Holly knigts 18,43dur
Egis shield 43 dur
Arkane shild 30 dur
Helm of insight 44,50,50
Spell robe 28 dur
Plazma ingi 253 wt.
Gods ingi 3 wt.
Inferno ingi 699 wt.
Crystal ingi 1326 wt.
Acid ingi 2137 wt.
Aqua 232 wt.



Ceni piwite v skype , ja davno neigral, ceni izmenilisj, poetamu i nepisal ceni... Prodaju vsjo o4enj djowego
Skype kolobok19901

initevents
set %maxWeight 550 ; Max svars
set %box OGMZJMD ; Kastes ID, kur likt ruudu u.c. itemus
set %xCoord 3451 ; X koordinaata tieshi pie kastes
set %yCoord 474 ; Y koordinaata tieshi pie kastes
set %recall #true ; #true - lidos ar runebook, #false - skries taapat
set %runebookID CLLZKMD ; Runebooka ID
set %amountRecalls 55 ; cik recall panjemt, kad vinji beigushies
set %bot 0
set %bottokill 70
set %itemz DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL_GEJ_
set %repairwep #true ; false = ne budem remontirovat oruzhie
set %weapon GLBCLMD ; weapon (ID)
set %hides RMK
set %ings ZLK
set %studetarmor WLH_IMH_BMH_YLH_CSH ; ingi (Type, objazatelno tolko nuzhnie v sunduke)
set %repairTool LVSELMD
set %repairKit UJSVJMD ; repair tool (ID)
set %mobs BD_OD_DD_ED_UC_UE_QD_V_Q_G_
RecallingSystem:
gosub Recall 260 260
gosub Recall 260 275
gosub Recall 260 290
gosub Recall 260 305
gosub Recall 260 320
gosub Recall 260 335
gosub Recall 260 350
gosub Recall 260 365
gosub Rechargerune
gosub Recall 420 260
gosub Recall 420 275
gosub Recall 420 290
gosub Recall 420 305
gosub Recall 420 320
gosub Recall 420 335
gosub Recall 420 350
gosub RecHome 420 365
goto RecallingSystem


sub Recall
set %oldPosX #charposx
set %oldPosY #charposy
event macro 6 0
event macro 6 0
if #mana < #maxmana
event macro 13 46
wait 10
event macro 13 46
wait 1s
_openRunebook:
if #charposx < 1380 && #charposx > 1340 || #charposy < 1590 && #charposy > 1567
{
gosub mp
}
finditem %runebookID C_ , #backpackid
if #findkind = -1
{
event sysmessage Runebook not found.
pause
}
set #lobjectid #findid
event macro 17 0
wait 20
_click:
click %1 %2
wait 10
msg %bot killed$
wait 5
set %bot %bot + 1
gosub check
gosub scan
return

sub mp
msg JA V MP!$
pause
;wait 220s
;msg .pvp$
;return

sub check
set %teleportOverTime #scnt + 20
king:
if #contname = generic_gump && #contsize = 577_426
return
if ! ( ( #charposx = %oldPosX ) && ( #charposy = %oldPosY ) )
return
if #scnt > %teleportOverTime
{
goto _openRunebook
}
wait 10
goto king
return

sub scan
wait 10
event macro 23 0
wait 20
scan:
if hungry in #sysmsg
{
gosub eat
return
}
gosub element
scanjournal
gosub checkHP
if
(
finished_Corpse in #sysmsg || Can't_get_there in #journal
return
)
if #scnt >= %overtime
return
goto scan
return


sub checkHP
checking:
if #hits < #maxhits
{
msg .arm bow$
gosub element
}
return

sub RecHome
msg %bot killed$
set %oldPosX #charposx
set %oldPosY #charposy
event macro 6 0
event macro 6 0
if #mana < #maxmana
event macro 13 46
wait 10
event macro 13 46
wait 3s
_openRunebook:
finditem %runebookID C_ , #backpackid
if #findkind = -1
{
event sysmessage Runebook not found.
pause
}
set #lobjectid #findid
event macro 17 0
wait 20
_click:
click %1 %2
wait 10
gosub check
gosub moveItems
return


sub port
msg .arm bow$
gosub checkHP
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
goto scan
gosub back
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1s
return

sub eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 15
finditem ZBM C
set #lobjectid #findid
event macro 17 0
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 15
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 1s
return

sub element
msg .arm bow$
set %charX #charposx
set %charY #charposy
set %charz #charposz
finditem %mobs G_6
set %element #findid
msg .arm bow$
set #ltargetid %element
event macro 27 0
repeat
{
if #hits < 85
msg .drink heal$
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 4s
wait 1s
scanjournal 1
if Can't_get_there in #journal || you_put in #journal
goto nextmob
gosub scan
}
until #findcnt = 0
nextmob:
msg DALEKO BOT!$
wait 5
return


sub moveItems
wait 3s
ignoreitem reset 1
move %xCoord %yCoord 1
wait 1s
msg Fuh, dobezhal! Korobka - otvoris! $
event macro 13 21
finditem %box G_2
wait 10
if #findcnt = 0
{
event Sysmessage Box Not Found!
halt
}
repeat
{
finditem %itemz c_ , #backpackid
if #findcnt <> 0
{
exevent Drag #Findid #findstack
exevent Dropc %box
wait 25
}
}
until #findcnt = 0
msg Nu vot, vse vilozhil $
wait 35
if %repairwep
{
msg Tak, nado bi pochinitsa, malo li atakujut... $
gosub repairWeapon
}
if %recall
gosub recalls
msg Osnovnoe sdelano!$
wait 1s
gosub arrows
gosub checkarmor
gosub waittime
return

sub Rechargerune
tryagainz:
finditem %runebookID C_ , #backpackid
if #findkind = -1
{
event sysmessage Runebook not found.
goto tryagainz
}
set #lobjectid #findid
event macro 17 0
wait 20
click 261 217
wait 15
set #lobjectid #findid
event macro 17 0
wait 20
click 261 217
wait 15
return

sub waittime
wait 10s
finditem %runebookID C_ , #backpackid
if #findkind = -1
{
event sysmessage Runebook not found.
pause
}
set #lobjectid #findid
event macro 17 0
wait 20
click 261 217
wait 15
set #lobjectid #findid
event macro 17 0
wait 20
click 261 217
wait 15
goto RecallingSystem:
return

sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 37 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 20
}
return

sub arrows
msg streli$
wait 1s
finditem RWF C_ , #backpackid
if #findstack < 500
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 3
finditem RWF C_ , %box
exevent drag #findid 300
exevent dropc #backpackid
wait 20
}
return

sub checkarmor
msg chinim?$
wait 1s
if %bot > %bottokill
{
msg chinim armor$
wait 5
set #lobjectid %box
event macro 17 0
wait 25
finditem %hides C_ , %box
exevent drag #findid 20
exevent dropc #backpackid
wait 25
gosub take&repair %studetarmor %repairkit
set %bot 0
set #lobjectid %box
event macro 17 0
wait 10
finditem %hides C_ , #backpackid
exevent drag #findid #findstack
exevent dropc %box
wait 15
}
msg ne chinim$
return


sub repairWeapon
repeat {
put1:
repeat
{
finditem %weapon C_ , #charid
exevent drag #findid
exevent dropc #backpackid
wait 25
finditem %weapon C_ , #charid
}
until #findcnt = 0
finditem %weapon C_ , #backpackid
if #findcnt = 0
goto put1
take1:
set #lobjectid %box
event macro 17 0
wait 25
finditem %ings C_ , %box
exevent drag #findid 10
exevent dropc #backpackid
wait 25
finditem %ings C_ , #backpackid
if #findcnt = 0
goto take1

_repair:
set #lobjectid %repairTool
set #ltargetid %weapon
set #ltargetkind 1
set %lag #scnt + 10
event macro 17 0
wait 20
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
wait 20
finditem %ings C_, #backpackid

until You_fully_repaired || Your in #sysmsg
msg repaired sucessfully! $

take2:
set #lobjectid %box
event macro 17 0
wait 10
finditem %ings C_ , #backpackid
exevent drag #findid #findstack
exevent dropc %box
wait 25
finditem %ings C_ , #backpackid
if #findcnt > 0
{ goto take2 }
msg resursi polozhil teper zajuzaju rekali i v put $
return

sub take&repair
repeat
{
finditem %1 C_ , #charid
exevent drag #findid #findstack
exevent dropc #backpackid
wait 25
finditem %1 C_ , #charid
}
until #findcnt = 0
repeat
{
finditem %1 C_ , #backpackid
_repairing:
set #lobjectid %2
set #ltargetid #findid
set #ltargetkind 1
set %lag #scnt + 10
event macro 17 0
target
while #targcurs <> 1 && #scnt < %lag
wait 1
event macro 22 0
if #scnt > %lag
goto _repairing
wait 10
set #lobjectid #findid
event macro 17 0
wait 20
finditem %1 C_ , #backpackid
}
until #findcnt = 0
return

вот скрипт на арчера, который написал ( imja1 ) я удалил со скрипта хилинг бинтами. но у меня такая проблема, иногда просто закрывается клиент. вместе с етим скриптом запускаю есчо 2 скрипта их тоже скидывал imja1 , это лоот с пола и лоот с трупа. я думаю это из-за лоота с пола. Подскажите што можно с етим зделать. Магу даже заплотить.


http://forum.egames....showtopic=51044 вот топик от куда все скрипты

13.10.2010


17:28:34 » Event: Destroy Old Paradise added to list. Start Time: 16:00 every day.
http://uo.######.lv/?q=events

17:15:57 » Event: Destroy Old Paradise successfully passed the test! Shanahan dead.

11.10.2010
22:38:33 » New event created: Destroy Old Paradise
(Event is in beta test)
First test: Oldp destroyed in 3min's. World record!

ulibnulo admin wosa shanu mstit iz za tavo wto uvjol narod s wosa na xl

mne s wosa perenesli acc na archera armor dali bow toze dali 500k dali no u archera bil prof 1 denj i neskolko hours, a kagda perenesli , prof na 7 dnej nedali, dumaju iz za tavo wto u nevo bil uze prof v to vremja kagda perenosili. ident 0ef162

sell full elfian
tunic 50dur
leggins 49dur
sleevs 50dur
gloves 50 dur
cloak 50dur
sandals 50dur
hunters headdress 23dur

elfian elik +5 150k
elfian elik +10 300k
elfian bow 50dur

sell full Barbarian
tunic 27dur
legins 50dur
gloves 50dur
gorget 50dur
helm 50dur
sleeves 18dur

barbarian rage +10fs 6/12 dur
barbarian shield 43dur

barbarian lucki po 70k




Vendor v 2-uh rjadah nik Usatiy
Ochenj nizkie ceni
sorry za moj albanskij


skype kolobok19901
ili v uo Nik Machete