�� !!!!

mybb@mybb.ru (LIHACH) — Fri, 07 Mar 2014 03:02:50 +0400

�� !

�� ! :)

mybb@mybb.ru (LIHACH) — Fri, 07 Mar 2014 00:25:18 +0400

initevents
set #SYSMSGCOL 500
Event SySMEssage �� < #SHARD >
Event SySMEssage �� < #CHARNAME >
Event SySMEssage �� < #MAXHITS >
Event SySMEssage �� < STR #STR >
Event SySMEssage �� < DEX #DEX >
Event SySMEssage �� < INT #INT >
Event SySMEssage [ Script Mining 1.0 ]
Event SySMEssage [ LIHACH ICQ 262489116 ]
Event SySMEssage [ Skype LIHACH2003 ]
Event SySMEssage �� .
Event SySMEssage �� .
Event SySMEssage �� .
Event SySMEssage �� .
msg $
msg 'PC REPEAT ON $
Event SySMEssage �� 'PC REPEAT ON �� !!!
;ID ��
set %garbige VTHFKDE ;�� >> (�� )
set %box_big BKFFKDE ;��
set %box_item IQHFKDE ;�� >> (�� )
set %box_mage NUHFKDE ;�� >> (�� )
set %box_band SVHFKDE ;�� (a fish steak) >> (�� )
set %findband 10
set %fishtime #TIME
set %lefttime1 #TIME
;=====================================================================
set %move_char_newx XXXX ;��
set %move_char_newy XXXX ;��
set %move_char_endx XXXX ;��
set %move_char_endy XXXX ;��
;=====================================================================
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
Display ok ��
GoSub Move_House
Event SySMessage �� !!!
Start:
for %move_charx %move_char_newx %move_char_endx
{
for %move_chary %move_char_newy %move_char_endy
{
GoSub Journal
}
}
GoTo Start
Sub Journal
Event Macro 8 1
wait 10
contpos 808 2
set %char #ContID
Event macro 8 2
wait 10
contpos 776 290
Journal:
Event macro 8 7
wait 10
msg $
contpos 788 415
finditem NPF C_ , %backpackid
if #FINDID = X
{
GoSub Move_House
GoTo Journal
}
find:
finditem ZVF_DWF_MWF_BWF_XVF_EWF_RVF_VVF_GWF_CWF_FWF_YVF_AWF_TVF_SVF_DWJ G_2
if #FINDID <> X
{
wait 50
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc #BACKPACKID
GoTo find
}
Tile init

Tile cnt %move_charx %move_chary #cursKind
tile Get %move_charx %move_chary #tileCnt #cursKind
set %TILETYPE #TILETYPE
if #TILENAME <> cave_floor
Return
move %move_charx %move_chary 1
FINDITEM YFM G_8
if #FINDID <> X
{
GoSub Healing
GoTo Journal
}
finditem JE_GD_HS_WE_YD_WD_BF_XLJVRE G_8
if #FINDID <> X
{
set %lefttime #TIME + 3
GoSub Healing
GoTo Journal
}
if %fishtime < #TIME
{
FINDITEM HND C_ , #BACKPACKID
if #FINDID <> X
{
set #LOBJECTID #FINDID
Event Macro 17 0
wait 90
}
set %fishtime #TIME + 60
}
if #HITS <> #MAXHITS
{
set %lefttime #TIME + 3
GoSub Healing
GoTo Journal
}
if #WEIGHT > %max
{
GoSub Move_House
GoTo Journal
}
FINDITEM NPF C_ , #BACKPACKID
if #FINDID <> X
{
set #LOBJECTID #FINDID
Event Macro 17 0
wait 10
set #LTARGETKIND 3
set #LTARGETTILE %TILETYPE
set #LTARGETX %move_charx
set #LTARGETY %move_chary
Event Macro 22
Event SySMessage �� #CHARPOSX #CHARPOSY #CHARPOSZ
}
for %i 1 90
{
wait 10
Event SySMessage �� %i < 90
for %scanj 20 1
{
ScanJournal %scanj
if 45AL_=5B_1> in #Journal
{
deleteJournal
wait 60
Return
}
finditem NPF C_ , %backpackid
if #FINDID = X
{
GoSub Move_House
GoTo Journal
}
}
if #WEIGHT > %max
{
GoSub Move_House
GoTo Journal
}
if #HITS <> #MAXHITS
{
set %lefttime #TIME + 3
GoSub Healing
GoTo Journal
}
}
GoTo Journal
;======================================================
Sub Dress
wait 90
Event Macro 8 1
wait 10
contpos 808 2
set %char #ContID
Event macro 8 2
wait 10
contpos 776 290
set #LOBJECTID %box_big
Event Macro 17 0
wait 10
contpos 0 0
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
contpos 190 25
UnDress:
Event macro 8 7
wait 10
contpos 788 415
finditem ZVF_DWF_MWF_BWF_XVF_EWF_RVF_VVF_GWF_CWF_FWF_YVF_AWF_TVF_SVF C_ , %backpackid
if #FINDID <> X
{
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc %garbige
Event SysMessage �� !!!
GoTo UnDress
}
finditem DWJ C_ , %backpackid
if #FINDID <> X
{
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc %box_item
Event SysMessage �� !!!
GoTo UnDress
}
finditem SZF_POF_KUF_JUF_MZF_KZF_WZF_RZF_JZF_BFF C_ , %backpackid
if #FINDID <> X
{
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc %box_mage
Event SysMessage �� !!!
GoTo UnDress
}
;========================================================
finditem ZLF C_ , %backpackid
if #FINDSTACK < 10
{
set %band %findband - #FINDSTACK
finditem ZLF C_ , %box_band
if #FINDID = X
{
Event SysMessage �� .
wait 30
GoTo UnDress
}
wait 10
finditem ZLF C_ , %box_band
if #FINDID <> X
{
wait 10
Exevent Drag #FINDID %band
wait 10
Exevent Dropc #BACKPACKID
Event SysMessage �� %band ��-�-��.
GoTo UnDress
}
finditem ZLF C_ , %backpackid
if #FINDID = X
{
wait 10
GoTo UnDress
}
}
;=======================================================
finditem NPF C_ , %backpackid
if #FINDID = X
{
finditem NPF C_ , %box_band
if #FINDID = X
{
Event SysMessage �� .
GoTo UnDress
}
wait 10
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc #BACKPACKID
Event SysMessage ��
Goto UnDress
}
;=======================================================
wait 10
finditem HND C_ , %backpackid
if #FINDID = X
{
finditem HND C_ , %box_band
if #FINDID = X
{
Event SysMessage �� .
wait 30
GoTo UnDress
}
Exevent Drag #FINDID 1
wait 10
Exevent Dropc #BACKPACKID
Event SysMessage �� .
Goto UnDress
}
FINDITEM WUF C_ , %backpackid
if #FINDID <> X
{
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc %box_band
GoTo UnDress
}
FINDITEM UUF C_ , %backpackid
if #FINDID = X
{
finditem UUF C_ , %box_band
if #FINDID <> X
{
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc #BACKPACKID
}
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 < %maxhits
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
set %lefttime #TIME + 9
wait 270
GoTo UnDress
}
}
msg $'pc heal self $
set %lefttime #TIME + 9
wait 270
GoTo UnDress
}
if #STAMINA < 100
{
Event SysMessage �� STAMINA #STAMINA < 100
GoTo UnDress
}
Return

;=======================================================
Sub Move_House
set %maxhits #MAXHITS / 2
set %time_speak #TIME
;=====================================================================
Move_House:
; ��
set %max #str * 3 - 20
set %sms #str * 3 + 30 + 3
Event SySMEssage WGHT %sms �� !!!
;=====================================================================
;� ��
set %max_str #STR * 3 + 10
Event SySMEssage WGHT %max_str �� !!!
;=====================================================================
if #WEIGHT > %max_str
{
finditem DWJ C_ , %backpackid
Exevent Drag #findid 1
wait 10
Exevent Dropg #charposx #charposy #charposz
wait 30
Event SySMEssage �� !!! �� !!! #WEIGHT > %max_str
Event SySMEssage �� !!!
Goto Move_House
}
Event SySMessage ��
move XXXX XXXX 0
move XXXX XXXX 0
move XXXX XXXX 1
GoSub Dress
GoSub Move_Mining
Return

Sub Move_Mining
Event SySMessage ��
move XXXX XXXX 0
move XXXX XXXX 1
Return

Sub Healing
HEALING:
if #HITS < 60 || #STAMINA < 40
GoSub Move_House
set %max_str #STR * 3 + 10
if #WEIGHT > %max_str
{
finditem DWJ C_ , %backpackid
Exevent Drag #findid 5
wait 10
Exevent Dropg #charposx #charposy #charposz
wait 30
Event SySMEssage �� !!! �� !!! #WEIGHT > %max_str
Event SySMEssage �� !!!
}

if #WEIGHT < %max_str
{
finditem JE_GD_HS_WE_YD_WD_BF_XLJVRE G_8
if #FINDID <> X
{
set #LTARGETID #FINDID
Event Macro 27 0
event PathFind #FINDX #FINDY #FINDZ
}
}
FINDITEM ZLF C_ , %BACKPACKID
if #FINDID = X
{
GoSub Move_House
}
if %lefttime < #TIME
{
if #HITS <> #MAXHITS
{
if #HITS < %maxhits
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
set %lefttime #TIME + 9
GoTo HEALING
}
}
Event SysMessage �� !!!!
msg $
msg $'pc heal self $
set %lefttime #TIME + 9
if #HITS < 60 || #STAMINA < 40
GoSub Move_House
}
}
finditem JE_GD_HS_WE_YD_WD_BF G_8
if #FINDID = X
{
if #HITS = #MAXHITS
{
set %lefttime1 #TIME + 9
timeaut:
if %lefttime1 > #TIME
{
if #HITS <> #MAXHITS
GoTo HEALING
GoTo timeaut
}
}
}
finditem JE_GD_HS_WE_YD_WD_BF G_8
if #FINDID <> X
GoTo HEALING
CORPSE:
if #HITS <> #MAXHITS
GoTo HEALING
FINDITEM YFM G_8
if #FINDID <> X
{
set %cowCorpse #FindID
set %Corpsex #FindX
set %CorpseY #FindY
move %Corpsex %CorpseY 1
FINDITEM WRH_SOH_NMH_ATF_KPH C_ , %char
if #FINDID <> X
{
set %dagger #FINDID
set #LOBJECTID %dagger
Event macro 17 0
target 5s
set #LTARGETID %cowCorpse
set #LTargetKind 1
Event macro 22 0
wait 90
set #LOBJECTID %cowCorpse
Event Macro 17 0
wait 30
REGI:
if #HITS <> #MAXHITS
GoTo HEALING
FINDITEM KUF_JUF_KZF_JZF_MZF_WZF_SZF_RZF_DUF_OZF_POF_OZF_LZF_DUF C_ , %cowCorpse
if #FINDID <> X
{
Exevent Drag #FINDID #FINDSTACK
wait 10
Exevent Dropc #BACKPACKID
wait 30
GoTo REGI
}
ignoreitem %cowCorpse 3
GoTo CORPSE
}

}
wait 90
return

Thieves of a Shadow

���� ��������� !!!!

������ ! :)

�� !!!!

�� ! :)