[@显示界面]
#act
sendmsg 6 ------<$str(n$读取行数)>---
GOTO @读取数据
OPENMERCHANTBIGDLG 26 3 1 4 0 -60 0
#SAY
<ImgEx:0:2432:2433:2434:510:-19/@exit>\ \ \
<><ImgEx:26:30:31:32:5:-15/@形象><ImgEx:26:20:21:22:20:-15/@侠客><ImgEx:26:26:27:28:35:-15/@内功心法><ImgEx:26:16:17:18:50:-15/@武学招式><ImgEx:26:13:14:15:65:-15/@副装><ImgEx:26:23:24:25:80:-15/@侠器><ImgEx:26:10:11:12:95:-15/@武器衣服>\ \
<><$str(S$第1行显示字符串)>\ \
<><$str(S$第2行显示字符串)>\ \
<><$str(S$第3行显示字符串)>\ \
<><$str(S$第4行显示字符串)>\ \
<><$str(S$第5行显示字符串)>\ \
<><$str(S$第6行显示字符串)>\ \
<><$str(S$第7行显示字符串)>\ \
<><$str(S$第8行显示字符串)>\ \
<><$str(S$第9行显示字符串)>\ \
<><$str(S$第10行显示字符串)>\ \

<>                  <上一页/@上一页>               <下一页/@下一页>

 


[@上一页]
#if
equal n$读取行数 0
#act
messagebox 已经是第一页 
break

#if
#act
dec n$读取行数 10
goto @显示界面
break


[@下一页]
#or
equal   S$第1行显示字符串  
equal   S$第2行显示字符串  
equal   S$第3行显示字符串  
equal   S$第4行显示字符串  
equal   S$第5行显示字符串  
equal   S$第6行显示字符串  
equal   S$第7行显示字符串  
equal   S$第8行显示字符串  
equal   S$第9行显示字符串  
equal   S$第10行显示字符串  
#act
messagebox 没有下页了  
break


#if
#act
inc n$读取行数 10
goto @显示界面

[@读取数据]
#if
#act
mov n$读取物品清单行数 0
inc n$读取物品清单行数 <$str(n$读取行数)>
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字1
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字2
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字3
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字4
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字5
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字6
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字7
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字8
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字9
inc n$读取物品清单行数 1
getliststring ..\QuestDiary\首爆奖励\<$str(s$显示的装备类别)>.txt <$str(n$读取物品清单行数)> S$首爆物品名字10


#if 
not equal S$首爆物品名字1
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字1)> 价格   S$首爆物品价格1
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字1)> 玩家   S$首爆物品玩家1


#if 
not equal S$首爆物品名字2
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字2)> 价格   S$首爆物品价格2
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字2)> 玩家   S$首爆物品玩家2

#if 
not equal S$首爆物品名字3
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字3)> 价格   S$首爆物品价格3
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字3)> 玩家   S$首爆物品玩家3


#if 
not equal S$首爆物品名字4
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字4)> 价格   S$首爆物品价格4
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字4)> 玩家   S$首爆物品玩家4

#if 
not equal S$首爆物品名字5
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字5)> 价格   S$首爆物品价格5
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字5)> 玩家   S$首爆物品玩家5
;sendmsg 6 -------价格--<$str(S$首爆物品价格5)>
;sendmsg 6 -------玩家--<$str(S$首爆物品玩家5)>

#if 
not equal S$首爆物品名字6
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字6)> 价格   S$首爆物品价格6
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字6)> 玩家   S$首爆物品玩家6


#if 
not equal S$首爆物品名字7
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字7)> 价格   S$首爆物品价格7
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字7)> 玩家   S$首爆物品玩家7

#if 
not equal S$首爆物品名字8
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字8)> 价格   S$首爆物品价格8
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字8)> 玩家   S$首爆物品玩家8

#if 
not equal S$首爆物品名字9
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字9)> 价格   S$首爆物品价格9
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字9)> 玩家   S$首爆物品玩家9


#if 
not equal S$首爆物品名字10
#act
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字10)> 价格   S$首爆物品价格10
readconfigfileitem ..\QuestDiary\首爆奖励\首爆奖励数量配置和数据保存.ini <$str(S$首爆物品名字10)> 玩家   S$首爆物品玩家10

#if
#act
mov S$首爆物品显示名字1     <$str(S$首爆物品名字1)>
mov S$首爆物品显示名字2 <$str(S$首爆物品名字2)>
mov S$首爆物品显示名字3 <$str(S$首爆物品名字3)>
mov S$首爆物品显示名字4 <$str(S$首爆物品名字4)>
mov S$首爆物品显示名字5 <$str(S$首爆物品名字5)>
mov S$首爆物品显示名字6 <$str(S$首爆物品名字6)>
mov S$首爆物品显示名字7 <$str(S$首爆物品名字7)>
mov S$首爆物品显示名字8 <$str(S$首爆物品名字8)>
mov S$首爆物品显示名字9 <$str(S$首爆物品名字9)>
mov S$首爆物品显示名字10 <$str(S$首爆物品名字10)>

#if
#act
setstringblank S$首爆物品显示名字1  25 1
setstringblank S$首爆物品显示名字2  25 1
setstringblank S$首爆物品显示名字3  25 1
setstringblank S$首爆物品显示名字4  25 1
setstringblank S$首爆物品显示名字5  25 1
setstringblank S$首爆物品显示名字6  25 1
setstringblank S$首爆物品显示名字7  25 1
setstringblank S$首爆物品显示名字8  25 1
setstringblank S$首爆物品显示名字9  25 1
setstringblank S$首爆物品显示名字10  25 1

;messagebox -----<$str(S$首爆物品名字1)>-----<$str(S$首爆物品显示名字1)>---------


#if
#act
setstringblank S$首爆物品价格1  8 1
setstringblank S$首爆物品价格2  8 1
setstringblank S$首爆物品价格3  8 1
setstringblank S$首爆物品价格4  8 1
setstringblank S$首爆物品价格5  8 1
setstringblank S$首爆物品价格6  8 1
setstringblank S$首爆物品价格7  8 1
setstringblank S$首爆物品价格8  8 1
setstringblank S$首爆物品价格9  8 1
setstringblank S$首爆物品价格10  8 1

setstringblank s$货币 15 1

#if
equal S$首爆物品名字1 
#act
mov S$第1行显示字符串 
#elseact
mov S$第1行显示字符串  {<$str(S$首爆物品显示名字1)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格1)><$str(s$货币)>获得者:<$str(S$首爆物品玩家1)>

#if
equal S$首爆物品名字2 
#act
mov S$第2行显示字符串 
#elseact
mov S$第2行显示字符串  {<$str(S$首爆物品显示名字2)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格2)><$str(s$货币)>获得者:<$str(S$首爆物品玩家2)>

#if
equal S$首爆物品名字3 
#act
mov S$第3行显示字符串 
#elseact
mov S$第3行显示字符串  {<$str(S$首爆物品显示名字3)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格3)><$str(s$货币)>玩家:<$str(S$首爆物品玩家3)>

#if
equal S$首爆物品名字4 
#act
mov S$第4行显示字符串 
#elseact
mov S$第4行显示字符串  {<$str(S$首爆物品显示名字4)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格4)><$str(s$货币)>玩家:<$str(S$首爆物品玩家4)>


#if
equal S$首爆物品名字5 
#act
mov S$第5行显示字符串 
#elseact
mov S$第5行显示字符串  {<$str(S$首爆物品显示名字5)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格5)><$str(s$货币)>玩家:<$str(S$首爆物品玩家5)>


#if
equal S$首爆物品名字6 
#act
mov S$第6行显示字符串 
#elseact
mov S$第6行显示字符串  {<$str(S$首爆物品显示名字6)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格6)><$str(s$货币)>获得者:<$str(S$首爆物品玩家6)>

#if
equal S$首爆物品名字7 
#act
mov S$第7行显示字符串 
#elseact
mov S$第7行显示字符串  {<$str(S$首爆物品显示名字7)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格7)><$str(s$货币)>获得者:<$str(S$首爆物品玩家7)>

#if
equal S$首爆物品名字8 
#act
mov S$第8行显示字符串 
#elseact
mov S$第8行显示字符串  {<$str(S$首爆物品显示名字8)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格8)><$str(s$货币)>玩家:<$str(S$首爆物品玩家8)>

#if
equal S$首爆物品名字9 
#act
mov S$第9行显示字符串 
#elseact
mov S$第9行显示字符串  {<$str(S$首爆物品显示名字9)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格9)><$str(s$货币)>玩家:<$str(S$首爆物品玩家9)>


#if
equal S$首爆物品名字10 
#act
mov S$第10行显示字符串 
#elseact
mov S$第10行显示字符串  {<$str(S$首爆物品显示名字10)>/FCOLOR=250}<奖励/fcolor=251>:<$str(S$首爆物品价格10)><$str(s$货币)>玩家:<$str(S$首爆物品玩家10)>

 

评论提问