Wisps of the deep Forest

��

mybb@mybb.ru (Drizdax) — Tue, 22 Jan 2008 14:14:58 +0300

��

�� ..

mybb@mybb.ru (��) — Tue, 22 Jan 2008 00:33:58 +0300

��:

�� ..

mybb@mybb.ru (��) — Mon, 21 Jan 2008 23:39:11 +0300

initevents

hiding:
wait 1s
event macro 13 33
wait 1s
finditem RWF
set #ltargetid #findid
event macro 22
wait 4s
finditem PDWUALF
set #ltargetid #findid
event macro 22
}
goto hiding

sub connect
connectbegin:
if #ContKind = STOB
{
key enter
connectfaza1:
wait 70s
if #ContKind = STOB
goto connectbegin
if #ContKind <> CTU
goto connectfaza1
msg �� !
key enter
connectfaza2:
wait 5s
if #ContKind = STOB
key enter
if #ContKind = CTU
key enter
if #ContKind <> ACFC
goto connectfaza2
key enter
connectfaza3:
wait 5s
if #ContKind <> QUTB
goto connectfaza3
click 617 455
connectfaza4:
wait 5s
if #ContKind <> SHYB
goto connectfaza4
}
if #ContKind = CTU
goto connectfaza1
connectend:
return

Peggase

mybb@mybb.ru (IlliNoiS) — Mon, 21 Jan 2008 21:04:17 +0300

��! �� wizard's hat +10 �� 484-170-072

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 20:28:13 +0300

�� ,��,��

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 20:25:15 +0300

�� (Ultima online)

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 20:12:09 +0300

��

Guildmaster-��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 20:08:26 +0300

� ��

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 20:00:52 +0300

�� :

�� :D

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 19:34:58 +0300

; Script Name: In Nox
; Author: xCrazy
; Version: 1.0
; Client Tested with: 3.0.0c inj
; EUO version tested with: 1.42 (build 0088, 008A)
; Injection version tested with: Yokoinjection 40?.? (AoP maps2.)
; Shard: Age of Power only
initevents
set %max_mana 120
set %max_hp 125
st:
if #hits < 60
gosub heal
if #mana < 10
gosub med
gosub cast
goto st

sub med
sm1:
event macro 13 46
wait 4s
if #mana < %max_mana
goto sm1
return

sub heal
sh1:
msg 'pc heal self$
wait 8s
if #hits < %max_hp
goto sh1
return

sub cast
event macro 15 19
target
event macro 23 0
wait 2s
return

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 19:33:56 +0300

; Script Name: Reveal
; Author: xCrazy
; Version: 1.0
; Client Tested with: 3.0.0c inj
; EUO version tested with: 1.42 (build 0088, 008A)
; Injection version tested with: Yokoinjection 40?.? (AoP maps2.)
; Shard: Age of Power only
initevents

mag:
event macro 15 47
wait 10
event macro 23 0
wait 100
if #mana > 30
{
goto mag
}
goto med

med:
event macro 13 46
wait 100
if #mana < #int
{
goto med
}
goto mag

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 19:32:45 +0300

; Script Name: Vas Rel Por
; Author: xCrazy
; Version: 1.0
; Client Tested with: 3.0.0c inj
; EUO version tested with: 1.42 (build 0088, 008A)
; Injection version tested with: Yokoinjection 40?.? (AoP maps2.)
; Shard: Age of Power only

initevents

mag:
event macro 15 51
wait 2
event macro 22 0
wait 100
if #mana > 40
{
goto mag
}
goto med

med:
event macro 13 46
wait 100
if #mana < #int
{
goto med
}
goto mag

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 19:29:47 +0300

initevents

s1:
wait 4s
finditem XUF
if #findkind <> 0
{
ignoreitem #FindID
; msg Nema$
goto s1
}
set #LobjectID #FindID
event macro 17 0
wait 4s
goto s1

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 19:29:05 +0300

Initevents
Event Sysmessage Pologite sirie steyki v otdelniy sunduk i otkriyte ego.
Loop:
FindItem IND
Msg ,grab 1 #FINDID $
Wait 1s
FindItem JBG
Msg ,waittargetobject #FINDID $
FindItem IND
Msg ,useobject #FINDID $
Wait 2s
Goto Loop

��

mybb@mybb.ru (Drizdax) — Mon, 21 Jan 2008 19:28:22 +0300

;ID ��
set %box_big ELRMKOG
set %box_mage ELRMKOG
set %box_band ELRMKOG
set %box_item ELRMKOG
set %findband 10
set %maxhits #HITS / 2
;=====================================================================*
Event Macro 8 1
wait 10
contpos 808 2
set %char #ContID
Event macro 8 2
wait 10
contpos 776 290
Event macro 8 7
wait 10
contpos 788 415
set %BACKPACKID #CONTID
GoSub House

lumberstart:
;�� - �� ,infotile
msg 1
GoSub Drees 3293 2108 672 0
msg 2
GoSub Drees 3283 2112 669 0
msg 3
GoSub Drees 3293 2116 669 0
msg 4
GoSub Drees 3299 2116 660 0
msg 5
GoSub Drees 3288 2116 657 0
msg 6
GoSub Drees 3290 2116 654 0
msg 7
GoSub Drees 3283 2112 651 0
msg 8
GoSub Drees 3277 2112 648 0
msg 9
GoSub Drees 3277 2112 645 0
msg 10
GoSub Drees 3296 2116 645 0
msg 11
GoSub Drees 3293 2116 642 0
msg 12
GoSub Drees 3280 2112 639 0
msg 13
GoSub Drees 3296 2116 633 0
msg 14
GoSub Drees 3296 2116 630 0
msg 15
GoSub Drees 3288 2112 627 0
msg 16
GoSub Drees 3280 2112 621 0
msg 17
GoSub Drees 3296 2112 618 0
msg18
GoSub Drees 3299 2116 615 0
msg 19
GoSub Drees 3286 2120 618 0
msg 20
GoSub Drees 3283 2120 621 0
msg 21
GoSub Drees 3288 2124 618 0
msg 22
GoSub Drees 3286 2124 624 0
msg 23
GoSub Drees 3293 2128 624 0
msg 24
GoSub Drees 3283 2128 630 0
msg 25
GoSub Drees 3293 2128 636 0
msg 26
GoSub Drees 3293 2132 636 0
msg 27
GoSub Drees 3299 2128 645 0
msg 28
GoSub Drees 3286 2132 645 0
msg 29
GoSub Drees 3286 2132 648 0
msg 30
GoSub Drees 3277 2132 651 0
msg 31
GoSub Drees 3277 2128 654 0
msg 32
GoSub Drees 3302 2128 657 0
msg 33
GoSub Drees 3277 2120 660 0
msg 34
GoSub Drees 3299 2116 660 0
msg 35
GoSub Drees 3293 2116 666 0
msg 36
GoSub Drees 3293 2116 669 0
msg 37
GoSub Drees 3293 2116 672 0
msg 38
GoSub Drees 3286 2116 675 0
msg 39
GoSub Drees 3283 2112 675 0
msg 40
GoSub Drees 3299 2112 678 0
msg 41
GoSub Drees 3296 2112 681 0
msg 42
GoSub Drees 3296 2112 684 0
msg 43
GoSub Drees 3280 2116 684 0
msg 44
GoSub Drees 3290 2116 687 0
msg 45
GoSub Drees 3283 2116 690 0
msg 46
GoSub Drees 3288 2112 687 0
msg 47
GoSub Drees 3288 2112 690 0
msg 48
GoSub Drees 3283 2108 690 0
msg 49
GoSub Drees 3290 2104 690 0
msg 50
GoSub Drees 3277 2104 684 0
msg 51
GoSub Drees 3280 2104 681 0
msg 52
GoSub Drees 3288 2108 681 0
msg 53
GoSub Drees 3286 2108 678 0
msg 54
GoSub Drees 3293 2108 675 0

wait 65
Msg 'resend $
wait 60
goto lumberstart

Sub House
;=====================================================================*
; ��
set %max #str * 3
;=====================================================================*
;� ��
set %max_str #STR * 3 + 30
;=====================================================================*
House:
if #WEIGHT > %max_str
{
finditem MMK C_ , %backpackid
wait 5s
msg ,drop 5 0 0 -1 #FINDID $
Goto House
}
wait 10
;=========================================================================*
;�� - �� , �� ;�� .
move 2104 675 0
move 2104 675 0
;=========================================================================*
set #LOBJECTID %box_big
Event Macro 17 0
wait 10
contpos 0 0
Event macro 8 7
wait 10
contpos 788 415
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
contpos 190 25
Moveitem:
finditem ZLF C_ , %backpackid
if #FINDSTACK < 10
{
set %band %findband - #FINDSTACK
finditem ZLF C_ , %box_band
if #FINDID = X
{
Event SysMessage �� , ��
��
wait 30
GoTo Moveitem
}
wait 10
finditem ZLF C_ , %box_band
if #FINDID <> X
{
wait 10
msg ,grab %band #FINDID $
GoTo Moveitem
}
}
;====================================================================*
finditem HND C_ , %BACKPACKID
if #FINDID = X
{
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
finditem HND C_ , %box_band
if #FINDID = X
{
Display ok � ��
GoTo Moveitem
}
msg ,grab 1 #FINDID $
wait 10
GoTo Moveitem
}
;=================================================================*
finditem FSF C_ , %BACKPACKID
if #FINDID = X
{
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
finditem FSF C_ , %box_band
if #FINDID = X
{
Display ok � ��
GoTo Moveitem
}
msg ,grab 0 #FINDID $
wait 10
GoTo Moveitem
}
;================================================================*
finditem MMK_MZF_WZF C_ , %BACKPACKID
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %box_item $
wait 10
GoTo Moveitem
}
finditem KUF_JUF_KZF_JZF_MZF_WZF_SZF_RZF_DUF_OZF_POF_OZF_LZF_DUF C_ , %backpackid
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %box_mage $
wait 10
GoTo Moveitem
}
FINDITEM WUF C_ , %backpackid
if #FINDID <> X
{
wait 10
msg ,moveitem #FINDID 0 %box_band $
GoTo Moveitem
}

FINDITEM UUF C_ , %backpackid
if #FINDID = X
{
finditem UUF C_ , %box_band
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 10
}
finditem UUF C_ , %backpackid
if #FINDID <> X
{
Event SysMessage �� HITS
}
finditem UUF C_ , %backpackid
if #FINDID = X
{
Event SysMessage �� HITS
}
}
hitshouse:
if %lefttime > #TIME
GoTo hitshouse
if #HITS <> #MAXHITS
{
if #HITS < 50
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
wait 8s
GoTo moveitem
}
}
msg $'pc heal self $
set %lefttime #TIME + 9
wait 10
GoTo moveitem
}
move %2 %3 1
Return

Sub Drees
msg $
Drees:
move %2 %3 1
finditem BSF_FSF C_ , %BACKPACKID
if #FINDID = X
{
wait 10
GoSub House
GoTo Drees
}
set #LOBJECTID #FINDID
Event Macro 17 0
set #LTARGETKIND 3
wait 10
set #LTARGETX %2
set #LTARGETY %3
set #LTARGETTILE %1
Event Macro 22 0

Journal:
for %i 1 45
{
wait 1s
finditem BSF_FSF C_ , %BACKPACKID
if #FINDID = X
{
wait 10
GoSub House
GoTo Drees
}
for %scanj 1 10
{
ScanJournal %scanj
if [202]_45AL_=5B_1> in #Journal
{
deleteJournal
wait 3s
Return
}
}
if #WEIGHT > %max
{
GoSub House
GoSub Move
GoTo Drees
}
if #HITS <> #MAXHITS
{
GoSub Healing
GoTo Drees
}
if #HITS <> #MAXHITS
{
GoSub Healing
GoTo Drees
}
}
GoTo Drees

Sub Healing
HEALING:
FINDITEM ZLF C_ , %BACKPACKID
if #FINDID = X
{
GoSub House
}
if %lefttime > #TIME
GoTo HEALING
if #HITS <> #MAXHITS
{
if #HITS < %maxhits
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
wait 8s
GoTo HEALING
}
}
msg $'pc heal self $
set %lefttime #TIME + 9
finditem JE_GD_HS_WE_YD_WD
if #FINDID <> X
{
msg $,waittargetobject #FindID self $
wait 1s
msg $,useskill Enticement $
wait 1s
ignoreitem #FINDID
GoTo HEALING
}
if #HITS < 60
GoSub House
GoTo HEALING
}
CORPSE:
FINDITEM YFM
if #FINDID <> X
{
if #FINDDIST < 8
{
set %corpse #FindID
set %Corpsex #FindX
set %CorpseY #FindY
move %Corpsex %CorpseY 1
FINDITEM WRH_SOH_NMH_ATF_KPH C_ , %char
if #FINDID <> X
{
set #LOBJECTID #FINDID
set #LTargetKind 1
set #LTARGETID %corpse
Event macro 17 0
target 1s
Event macro 22 0
wait 3s
set #LOBJECTID %corpse
Event Macro 17 0
wait 1s
REGI:
FINDITEM KUF_JUF_KZF_JZF_MZF_WZF_SZF_RZF_DUF_OZF_POF_OZF_LZF_DUF C_ , %corpse
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 1s
GoTo REGI
}
ignoreitem %corpse 3
GoTo CORPSE
}
}
}
wait 3s
return

Wisps of the deep Forest

�����

����� ���..

������� �� ���� �������..

Peggase

��� ������ ����

������� ����� �������

������� ����� �������

Guildmaster-��

�������

������� �����

������� ��� ����

������� ���� ������

�������

������

������

��

�� ..

�� ..

��

��

��

��

��

��

��

��

��

��