[@main]
#IF
#act
mov N$页数 1
mov D0 1
mov D1 2
mov D2 3
mov D3 4
mov D4 5
mov D5 6
mov D6 7
mov D7 8
mov D8 9
;此行建议放在QM里启动执行
NEWREADCSV ..\QuestDiary\cfg_shoubao.csv 

goto @绘制

[@绘制]
#if
#say
<Img|height=400|rotate=0|bg=1|show=0|move=0|reset=1|img=public/bg_npc_01.png|loadDelay=1>
<Button|x=546|y=0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>


#if
not equal <$cfg_shoubao(<$STR(D0)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D0)>_0)> 限制数 N$数量
mov N$剩余1 <$cfg_shoubao(<$STR(D0)>_3)>
dec N$剩余1 <$STR(N$数量)>
#say
<Text|x=50.0|y=50.0|color=151|size=16|text=<$STR(D0)>.>
<Text|x=80.0|y=50.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D0)>_0)>>
<Text|x=200.0|y=50.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D0)>_1)><$cfg_shoubao(<$STR(D0)>_2)>>
<Text|x=380.0|y=50.0|color=253|size=16|text=剩余：<$STR(N$剩余1)>名>

#if
not equal <$cfg_shoubao(<$STR(D1)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D1)>_0)> 限制数 N$数量
mov N$剩余2 <$cfg_shoubao(<$STR(D1)>_3)>
dec N$剩余2 <$STR(N$数量)>
#say

<Text|x=50.0|y=80.0|color=151|size=16|text=<$STR(D1)>.>
<Text|x=80.0|y=80.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D1)>_0)>>
<Text|x=200.0|y=80.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D1)>_1)><$cfg_shoubao(<$STR(D1)>_2)>>
<Text|x=380.0|y=80.0|color=253|size=16|text=剩余：<$STR(N$剩余2)>名>

#if
not equal <$cfg_shoubao(<$STR(D2)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D2)>_0)> 限制数 N$数量
mov N$剩余3 <$cfg_shoubao(<$STR(D2)>_3)>
dec N$剩余3 <$STR(N$数量)>
#say

<Text|x=50.0|y=110.0|color=151|size=16|text=<$STR(D2)>.>
<Text|x=80.0|y=110.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D2)>_0)>>
<Text|x=200.0|y=110.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D2)>_1)><$cfg_shoubao(<$STR(D2)>_2)>>
<Text|x=380.0|y=110.0|color=253|size=16|text=剩余：<$STR(N$剩余3)>名>

#if
not equal <$cfg_shoubao(<$STR(D3)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D3)>_0)> 限制数 N$数量
mov N$剩余4 <$cfg_shoubao(<$STR(D3)>_3)>
dec N$剩余4 <$STR(N$数量)>
#say

<Text|x=50.0|y=140.0|color=151|size=16|text=<$STR(D3)>.>
<Text|x=80.0|y=140.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D3)>_0)>>
<Text|x=200.0|y=140.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D3)>_1)><$cfg_shoubao(<$STR(D3)>_2)>>
<Text|x=380.0|y=140.0|color=253|size=16|text=剩余：<$STR(N$剩余4)>名>

#if
not equal <$cfg_shoubao(<$STR(D4)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D4)>_0)> 限制数 N$数量
mov N$剩余5 <$cfg_shoubao(<$STR(D4)>_3)>
dec N$剩余5 <$STR(N$数量)>
#say

<Text|x=50.0|y=170.0|color=151|size=16|text=<$STR(D4)>.>
<Text|x=80.0|y=170.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D4)>_0)>>
<Text|x=200.0|y=170.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D4)>_1)><$cfg_shoubao(<$STR(D4)>_2)>>
<Text|x=380.0|y=170.0|color=253|size=16|text=剩余：<$STR(N$剩余5)>名>

#if
not equal <$cfg_shoubao(<$STR(D5)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D5)>_0)> 限制数 N$数量
mov N$剩余6 <$cfg_shoubao(<$STR(D5)>_3)>
dec N$剩余6 <$STR(N$数量)>
#say

<Text|x=50.0|y=200.0|color=151|size=16|text=<$STR(D5)>.>
<Text|x=80.0|y=200.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D5)>_0)>>
<Text|x=200.0|y=200.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D5)>_1)><$cfg_shoubao(<$STR(D5)>_2)>>
<Text|x=380.0|y=200.0|color=253|size=16|text=剩余：<$STR(N$剩余6)>名>

#if
not equal <$cfg_shoubao(<$STR(D6)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D6)>_0)> 限制数 N$数量
mov N$剩余7 <$cfg_shoubao(<$STR(D6)>_3)>
dec N$剩余7 <$STR(N$数量)>
#say

<Text|x=50.0|y=230.0|color=151|size=16|text=<$STR(D6)>.>
<Text|x=80.0|y=230.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D6)>_0)>>
<Text|x=200.0|y=230.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D6)>_1)><$cfg_shoubao(<$STR(D6)>_2)>>
<Text|x=380.0|y=230.0|color=253|size=16|text=剩余：<$STR(N$剩余7)>名>

#if
not equal <$cfg_shoubao(<$STR(D7)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D7)>_0)> 限制数 N$数量
mov N$剩余8 <$cfg_shoubao(<$STR(D7)>_3)>
dec N$剩余8 <$STR(N$数量)>
#say

<Text|x=50.0|y=260.0|color=151|size=16|text=<$STR(D7)>.>
<Text|x=80.0|y=260.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D7)>_0)>>
<Text|x=200.0|y=260.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D7)>_1)><$cfg_shoubao(<$STR(D7)>_2)>>
<Text|x=380.0|y=260.0|color=253|size=16|text=剩余：<$STR(N$剩余8)>名>

#if
not equal <$cfg_shoubao(<$STR(D8)>_0)> 
#act
ReadConfigFileItem ..\QuestDiary\KEY.txt <$cfg_shoubao(<$STR(D8)>_0)> 限制数 N$数量
mov N$剩余9 <$cfg_shoubao(<$STR(D8)>_3)>
dec N$剩余9 <$STR(N$数量)>
#say
<Text|x=50.0|y=290.0|color=151|size=16|text=<$STR(D8)>.>
<Text|x=80.0|y=290.0|color=146|size=16|text=<$cfg_shoubao(<$STR(D8)>_0)>>
<Text|x=200.0|y=290.0|color=249|size=16|text=奖励：<$cfg_shoubao(<$STR(D8)>_1)><$cfg_shoubao(<$STR(D8)>_2)>>
<Text|x=380.0|y=290.0|color=253|size=16|text=剩余：<$STR(N$剩余9)>名>

#if
#say
<Button|a=0|x=120.0|y=330.0|pimg=public/1900000661.png|nimg=public/1900000660.png|size=18|color=151|text=上一页|link=@上一页>
<Button|a=0|x=300.0|y=330.0|pimg=public/1900000661.png|nimg=public/1900000660.png|size=18|color=151|text=下一页|link=@下一页>

[@上一页]
#IF
small D0 2
#ACT
messagebox 　\　〈失败提示〉：当前已经是第一页 
BREAK
#IF
#act
dec D0 9
dec D1 9
dec D2 9
dec D3 9
dec D4 9
dec D5 9
dec D6 9
dec D7 9
dec D8 9
goto @绘制




[@下一页]
#IF
large D8 53
#ACT
messagebox 　\　〈失败提示〉：当前已经是最后一页 
BREAK

#IF
#act
inc D0 9
inc D1 9
inc D2 9
inc D3 9
inc D4 9
inc D5 9
inc D6 9
inc D7 9
inc D8 9
goto @绘制

