[@MAIN]
#act
OPENMERCHANTBIGDLG 38 2780  0 4 20 50 1 476 20
#say
\  \    \  \   \  \   \   \  \     
<                              ϳ:4ͬװкϳ ֽ:ֽ/FCOLOR=243> \ 
<                              :װ/FCOLOR=22>  <̿:װ /FCOLOR=250> <: /FCOLOR=146>\ 
<                              ӦƷ๦ܽʹ/FCOLOR=242> \ 
<  /FCOLOR=103><[ ϳ ]|20/@ϳ>                  <ϳ:Ʒʧ,̿ϻʧ/FCOLOR=251> \ 
<                              ϳ:ǿ,мʳ¼ /FCOLOR=250> \
<  /FCOLOR=103><[ ֽ ]|Ʒֽ^꼰װͿɷֽʯƬ{FCOLOR=250}/@ֽ>                  <ֽ:׼ֽƷֻҪɫ򼴿/FCOLOR=22> \  \
  
<ITEMBOX:1:39:464:169:54:83:10:*:װ,Ҫ>
<ITEMBOX:2:39:465:228:54:83:10:*:װ,Ҫ>
<ITEMBOX:3:39:465:288:54:83:10:*:װ,Ҫ>
<ITEMBOX:4:39:465:346:54:83:10:*:װ,Ҫ>
<ITEMBOX:5:39:463:404:54:83:10:*:ˮɹʴ,ǱҪ>


[@ItemIntoBox1]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ɺϳװ.txt <$BOXITEM[1].NAME>
#act
goto @ֽ
goto @ֽɫ
#ELSEACT
ReturnBoxItem 1
updateitem boxitem1
MessageBox ʾװܽв
goto @main

[@ItemIntoBox2]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ɺϳװ.txt <$BOXITEM[2].NAME>
EQUAL <$BOXITEM[2].NAME> <$BOXITEM[1].NAME>
#act
#ELSEACT
ReturnBoxItem 2
updateitem boxitem2
MessageBox ʾװܽкϳɣ
goto @main

[@ItemIntoBox3]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ɺϳװ.txt <$BOXITEM[3].NAME>
EQUAL <$BOXITEM[3].NAME> <$BOXITEM[1].NAME>
#act
#ELSEACT
ReturnBoxItem 3
updateitem boxitem3
MessageBox ʾװܽкϳɣ
goto @main

[@ItemIntoBox4]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ɺϳװ.txt <$BOXITEM[4].NAME>
EQUAL <$BOXITEM[4].NAME> <$BOXITEM[1].NAME>
#act
#ELSEACT
ReturnBoxItem 4
updateitem boxitem4
MessageBox ʾװܽкϳɣ
goto @main


[@ItemIntoBox5]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ϳɲ.txt <$BOXITEM[5].NAME>
#act
#ELSEACT
ReturnBoxItem 5
updateitem boxitem5
MessageBox ʾǿõĺϳɸϡ
goto @main


[@ϳ]
#act
SetUpgradeItem 1
SetUpgradeItem 2
SetUpgradeItem 3
SetUpgradeItem 4


#if
Equal <$BOXITEM[2].NAME> <$BOXITEM[1].NAME>
Equal <$BOXITEM[3].NAME> <$BOXITEM[1].NAME>
Equal <$BOXITEM[4].NAME> <$BOXITEM[1].NAME>
#ACT
MOVR G11 1 150

goto @ϳִ
#ELSEACT
ReturnBoxItem 2
ReturnBoxItem 3
ReturnBoxItem 4
ReturnBoxItem 5
updateitem boxitem2
updateitem boxitem3
updateitem boxitem4
updateitem boxitem5
MessageBox ʾҪ3ͬĲϲܺϳɣ
break





[@ϳִ]
#if
CheckGold 200000
#act
TAKE  200000
DelBoxItem 2
DelBoxItem 3
DelBoxItem 4 
goto @
#ELSEACT
MessageBox ʾȱٺϳɷ,飡
break

[@]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\սʿ.txt <$BOXITEM[1].NAME>
#act
goto @սʿ
break

#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ʦ.txt <$BOXITEM[1].NAME>
#act
goto @ʦ
break

#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ʿ.txt <$BOXITEM[1].NAME>
#act
goto @ʿ
break


#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ϳɲ.txt <$BOXITEM[5].NAME>
#act
MOVR P1 120 150 
INC G11 <$STR(P1)>
DelBoxItem 5


#if
SMALL G11 131 
#act
updateitem boxitem1
mov P1 0
MessageBox ʾϳʧܣ



#if
LARGE G11 130
#act
GetRandomText ..\QuestDiary\\ǿ\ǿб3.txt S4
SetCustomItemTextColor boxitem1 250
SetCustomItemText boxitem1 <$STR(S4)>
updateitem boxitem1
mov P1 0

MessageBox ʾϳɳɹװá<$STR(S4)>ܡ
break


[@սʿ]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ϳɲ.txt <$BOXITEM[5].NAME>
#act
MOVR P1 120 150 
INC G11 <$STR(P1)>
DelBoxItem 5


#if
SMALL G11 131 
#act
updateitem boxitem1
mov P1 0
MessageBox ʾϳʧܣ


#if
LARGE G11 130
#act
GetRandomText ..\QuestDiary\\ǿ\սʿǿб.txt S36
SetCustomItemTextColor boxitem1 250
SetCustomItemText boxitem1 <$STR(S36)>
updateitem boxitem1
mov P1 0


MessageBox ʾϳɳɹװá<$STR(S36)>ܡ
break


[@ʿ]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ϳɲ.txt <$BOXITEM[5].NAME>
#act
MOVR P1 120 150 
INC G11 <$STR(P1)>
DelBoxItem 5


#if
SMALL G11 131 
#act
updateitem boxitem1
mov P1 0
MessageBox ʾϳʧܣ


#if
LARGE G11 130
#act
GetRandomText ..\QuestDiary\\ǿ\ʿǿб.txt S37
SetCustomItemTextColor boxitem1 250
SetCustomItemText boxitem1 <$STR(S37)>
updateitem boxitem1
mov P1 0


MessageBox ʾϳɳɹװá<$STR(S37)>ܡ
break

[@ʦ]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ϳɲ.txt <$BOXITEM[5].NAME>
#act
MOVR P1 120 150 
INC G11 <$STR(P1)>
DelBoxItem 5


#if
SMALL G11 131 
#act
updateitem boxitem1
mov P1 0
MessageBox ʾϳʧܣ


#if
LARGE G11 130
#act
GetRandomText ..\QuestDiary\\ǿ\ʦǿб.txt S38
SetCustomItemTextColor boxitem1 250
SetCustomItemText boxitem1 <$STR(S38)>
updateitem boxitem1
mov P1 0


MessageBox ʾϳɳɹװá<$STR(S38)>ܡ
break






[@ֽ]
#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ֽб1.txt <$BOXITEM[1].NAME>
#act
movr M6 1 3
MOV S2 <$BOXITEM[1].NAME>

#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ֽб2.txt <$BOXITEM[1].NAME>
#act
movr M6 2 6

#if
CHECKTEXTLIST ..\QuestDiary\\ϳǿ\ֽб3.txt <$BOXITEM[1].NAME>
#act
movr M6 3 10

[@ֽɫ]
#if
Equal <$BOXITEM[1].COLOR> 250
#act
movr M7 1 2

#if
Equal <$BOXITEM[1].COLOR> 252
#act
movr M7 1 3

#if
Equal <$BOXITEM[1].COLOR> 253
#act
movr M7 2 4

#if
Equal <$BOXITEM[1].COLOR> 249
#act
movr M7 3 6

#if
Equal <$BOXITEM[1].COLOR> 241
#act
movr M7 4 8

#if
Equal <$BOXITEM[1].COLOR> 243
#act
movr M7 5 10




[@ֽ]
#if
NOT Equal <$BOXITEM[1].NAME>
#act
SetUpgradeItem 1
DelBoxItem 1
INC M7 <$STR(M6)>
MOV M8 <$STR(M7)>
DIV M8 2
#ELSEACT
ReturnBoxItem 1
updateitem boxitem1
MessageBox ʾɷֽƷ

#if
not EQUAL M8 0
#act
GIVE ʯƬ <$STR(M8)>
updateitem boxitem1
MessageBox ʾѾ<$STR(S2)>ֽ<$STR(M8)>龧ʯƬ
mov M6 0
mov M7 0
mov M8 0
#ELSEACT
MessageBox ʾѾ<$STR(S2)>ֽ0龧ʯƬ
mov M6 0
mov M7 0
mov M8 0
