[@ʰȡͨ]
{
#if
CHECKTEXTLIST ..\QuestDiary\\װ.txt  <$PICKDROPITEMNAME>
#ACT
LINKPICKUPITEM
;GetDBItemFieldValue <$PICKDROPITEMNAME> needlevel <$STR(n300)> 
GetDBItemFieldValue <$PICKDROPITEMNAME> ac2 <$STR(N199)> 
GetDBItemFieldValue <$PICKDROPITEMNAME> mac2 <$STR(N198)> 
GetDBItemFieldValue <$PICKDROPITEMNAME> dc2 <$STR(N197)> 
GetRandomText ..\QuestDiary\\Ǽ.txt s302

#IF
NOT EQUAL N199
#ACT
DIV N199 5

#IF
NOT EQUAL N198
#ACT
DIV N198 5

#IF
NOT EQUAL N197
#ACT
DIV N197 5

;Ƿ
#if
#act
GetCustomItemTextColor -1 <$STR(N196)>
#or
equal n196  151
equal n196  215
equal n196  180
equal n196  253
equal n196  22
#act
break


#IF
equal s302 ߼
#ACT 
mov n301 151
MOVR S21 1 5
MOVR S22 1 5
GetRandomText ..\QuestDiary\\Ԫ.txt S30
GetRandomText ..\QuestDiary\\Ԫ.txt S31
SetNewItemValue -1 <$STR(S30)> = <$STR(S21)>
SetNewItemValue -1 <$STR(S31)> = <$STR(S22)>


#IF
equal s302 ϡ
#ACT 
MUL n199 2 
MUL n198 2 
MUL n197 2 
movr n303 0 <$str(n199)>
movr n304 0 <$str(n198)>
movr n305 0 <$str(n197)>
movr n306 0 2
movr n307 0 2
mov n301 215

MOVR S21 1 5
MOVR S22 1 5
MOVR S23 1 5
GetRandomText ..\QuestDiary\\Ԫ.txt S30
GetRandomText ..\QuestDiary\\Ԫ.txt S31
GetRandomText ..\QuestDiary\\Ԫ.txt S32
SetNewItemValue -1 <$STR(S30)> = <$STR(S21)>
SetNewItemValue -1 <$STR(S31)> = <$STR(S22)>
SetNewItemValue -1 <$STR(S32)> = <$STR(S23)>

#IF
equal s302 
#ACT 
MUL n199 2 
MUL n198 2 
MUL n197 2 
movr n303 0 <$str(n199)>
movr n304 0 <$str(n198)>
movr n305 0 <$str(n197)>
movr n306 0 3
movr n307 0 3
mov n301 180
MOVR S21 1 5
MOVR S22 1 5
MOVR S23 1 5
MOVR S24 1 5
MOVR S25 1 5
GetRandomText ..\QuestDiary\\Ԫ.txt S30
GetRandomText ..\QuestDiary\\Ԫ.txt S31
GetRandomText ..\QuestDiary\\Ԫ.txt S32
GetRandomText ..\QuestDiary\\Ԫ.txt S33
GetRandomText ..\QuestDiary\\Ԫ.txt S34
SetNewItemValue -1 <$STR(S30)> = <$STR(S21)>
SetNewItemValue -1 <$STR(S31)> = <$STR(S22)>
SetNewItemValue -1 <$STR(S32)> = <$STR(S23)>
SetNewItemValue -1 <$STR(S33)> = <$STR(S24)>
SetNewItemValue -1 <$STR(S34)> = <$STR(S25)>

#IF
equal s302 ʷʫ
#ACT 
MUL n199 3 
MUL n198 3 
MUL n197 3 
movr n303 0 <$str(n199)>
movr n304 0 <$str(n198)>
movr n305 0 <$str(n197)>
movr n306 0 5
movr n307 0 5
mov n301 253
MOVR S21 1 5
MOVR S22 1 5
MOVR S23 1 5
MOVR S24 1 5
MOVR S25 1 5
MOVR S26 1 5
GetRandomText ..\QuestDiary\\Ԫ.txt S30
GetRandomText ..\QuestDiary\\Ԫ.txt S31
GetRandomText ..\QuestDiary\\Ԫ.txt S32
GetRandomText ..\QuestDiary\\Ԫ.txt S33
GetRandomText ..\QuestDiary\\Ԫ.txt S34
GetRandomText ..\QuestDiary\\Ԫ.txt S35
SetNewItemValue -1 <$STR(S30)> = <$STR(S21)>
SetNewItemValue -1 <$STR(S31)> = <$STR(S22)>
SetNewItemValue -1 <$STR(S32)> = <$STR(S23)>
SetNewItemValue -1 <$STR(S33)> = <$STR(S24)>
SetNewItemValue -1 <$STR(S34)> = <$STR(S25)>
SetNewItemValue -1 <$STR(S35)> = <$STR(S26)>

#IF
equal s302 ˵
#ACT 
MUL n199 4 
MUL n198 4 
MUL n197 4 
movr n303 0 <$str(n199)>
movr n304 0 <$str(n198)>
movr n305 0 <$str(n197)>
movr n306 5 10
movr n307 5 10
mov n301 22
MOVR S21 1 5
MOVR S22 1 5
MOVR S23 1 5
MOVR S24 1 5
MOVR S25 1 5
MOVR S26 1 5
MOVR S27 1 5
GetRandomText ..\QuestDiary\\Ԫ.txt S30
GetRandomText ..\QuestDiary\\Ԫ.txt S31
GetRandomText ..\QuestDiary\\Ԫ.txt S32
GetRandomText ..\QuestDiary\\Ԫ.txt S33
GetRandomText ..\QuestDiary\\Ԫ.txt S34
GetRandomText ..\QuestDiary\\Ԫ.txt S35
GetRandomText ..\QuestDiary\\Ԫ.txt S36
SetNewItemValue -1 <$STR(S30)> = <$STR(S21)>
SetNewItemValue -1 <$STR(S31)> = <$STR(S22)>
SetNewItemValue -1 <$STR(S32)> = <$STR(S23)>
SetNewItemValue -1 <$STR(S33)> = <$STR(S24)>
SetNewItemValue -1 <$STR(S34)> = <$STR(S25)>
SetNewItemValue -1 <$STR(S35)> = <$STR(S26)>
SetNewItemValue -1 <$STR(S36)> = <$STR(S27)>


#if

#act
CHANGEITEMNAMECOLOR -1 <$str(n301)>
CHANGECUSTOMITEMTEXT -1 []
CHANGECUSTOMITEMTEXTCOLOR -1 <$str(n301)>
changeitemname -1 <$PICKDROPITEMNAME><$str(s302)>
CHANGECUSTOMITEMABIL -1 0 0 244
CHANGECUSTOMITEMABIL -1 1 0 229
CHANGECUSTOMITEMABIL -1 2 0 222
CHANGECUSTOMITEMABIL -1 3 0 244
CHANGECUSTOMITEMABIL -1 4 0 245

CHANGECUSTOMITEMABIL -1 0 2 254
CHANGECUSTOMITEMABIL -1 1 2 254
CHANGECUSTOMITEMABIL -1 2 2 254
CHANGECUSTOMITEMABIL -1 3 2 253
CHANGECUSTOMITEMABIL -1 4 2 253

;
CHANGECUSTOMITEMABIL -1 0 1 3
CHANGECUSTOMITEMVALUE -1  0 + <$str(n306)>
;ħ
CHANGECUSTOMITEMABIL -1 1 1 4
CHANGECUSTOMITEMVALUE -1 1 + <$str(n307)>
;
CHANGECUSTOMITEMABIL -1 2 1 5
CHANGECUSTOMITEMVALUE -1  2 + <$str(n307)>
;
;CHANGECUSTOMITEMABIL -1 3 3 1
;CHANGECUSTOMITEMABIL -1 3 1 6
;CHANGECUSTOMITEMVALUE -1  3 + <$str(n306)>
;ħֵ
;CHANGECUSTOMITEMABIL -1 4 3 1
;CHANGECUSTOMITEMABIL -1 4 1 7
;CHANGECUSTOMITEMVALUE -1  4 + <$str(n307)>

;CHANGEITEMADDVALUE -1 0 = 1

#if
RANDOM 2
#act
DRILLHOLE -1 1


#if
RANDOM 2
#act
DRILLHOLE -1 2

#if
RANDOM 2
#act
DRILLHOLE -1 3

UpDateBoxItem -1


#if
RANDOM 5
#act
goto @л꼤

[@л꼤]
#if
CHECKCUSTOMITEMPROGRESSBAR -1 0
#ACT
#ELSEACT
CHANGECUSTOMITEMPROGRESSBAR -1 0 0 1
CHANGECUSTOMITEMPROGRESSBAR -1 0 2 243
CHANGECUSTOMITEMPROGRESSBAR -1 0 3 0
CHANGECUSTOMITEMPROGRESSBAR -1 0 4 0
CHANGECUSTOMITEMPROGRESSBARVALUE -1 0 3 = 0
CHANGECUSTOMITEMPROGRESSBAR -1 0 1 [л]:%i
CHANGECUSTOMITEMPROGRESSBAR -1 1 0 1
CHANGECUSTOMITEMPROGRESSBAR -1 1 2 243
CHANGECUSTOMITEMPROGRESSBAR -1 1 3 2
CHANGECUSTOMITEMPROGRESSBAR -1 1 4 1
CHANGECUSTOMITEMPROGRESSBARVALUE -1 1 0 = 100
CHANGECUSTOMITEMPROGRESSBAR -1 1 1 л꾭:
goto @
break


[@]
#if
CheckCustomItemProgressbarValue  -1 0 = 0
;random 10
#ACT
;MOVR M71 5000 20000
;MOVR M72 5000 30000
;MOVR M73 5000 40000
;MOVR M74 5000 50000
;MOVR M75 5000 60000
;MOVR M76 1 5
;MOVR M77 1 5
;MOVR M78 1 5
;MOVR M79 1 5
;MOVR M80 1 5

LockUpdateAbil
LockUpDateBoxItem -1

;CHANGECUSTOMITEMTEXT װλ 

CHANGECUSTOMITEMTEXT -1 [л]԰ٷֱ

;GetCustomItemTextColor װλ (0~255)

CHANGECUSTOMITEMTEXTCOLOR -1 243

;CHANGECUSTOMITEMABILװλ λ(0~9) (0~4) ֵ

CHANGECUSTOMITEMABIL -1 0 0 106
CHANGECUSTOMITEMABIL -1 1 0 156
CHANGECUSTOMITEMABIL -1 2 0 133

CHANGECUSTOMITEMABIL -1 0 1 3
CHANGECUSTOMITEMABIL -1 1 1 4
CHANGECUSTOMITEMABIL -1 2 1 5


CHANGECUSTOMITEMABIL -1 0 2 0
CHANGECUSTOMITEMABIL -1 1 2 1
CHANGECUSTOMITEMABIL -1 2 2 2


CHANGECUSTOMITEMABIL -1 0 3 1
CHANGECUSTOMITEMABIL -1 1 3 1
CHANGECUSTOMITEMABIL -1 2 3 1


CHANGECUSTOMITEMVALUE -1 0 = 5
CHANGECUSTOMITEMVALUE -1 1 = 10
CHANGECUSTOMITEMVALUE -1 2 = 10


UpDateBoxItem -1
UpdateAbil





}
