
代码:
[@run]
#if
#act
NEWREADCSV ..\QuestDiary\cfg_传送列表.csv
sendmsg 0 <$cfg_传送列表(1_1)>
mov s$随机按钮 <Img|x=-30|y=80|width=120|height=350|scale9t=10|scale9r=10|esc=0|scale9l=10|img=public/1900000677.png|scale9b=10>
inc s$随机按钮 <Button|x=-10|y=370.0|color=255|mimg=public/00000363.png|nimg=public/1900000676.png|size=18|text=随机|link=@随机>
inc s$随机按钮 <Button|x=-10|y=320.0|color=255|mimg=public/00000363.png|nimg=public/1900000676.png|size=18|text=回城|link=@回城>
inc s$随机按钮 <Button|x=-10|y=270.0|color=255|mimg=public/00000363.png|nimg=public/1900000676.png|size=18|text=NPC列表|link=@列表>
addbutton 8 1 <$str(s$随机按钮)>
[@随机]
#if
checkitem 随机传送石 1
#act
eatitem 随机传送石 1
#elseact
sendmsg 9 背包没有随机传送石
[@回城]
#if
checkitem 回城卷 1
#act
eatitem 回城卷 1
#elseact
sendmsg 9 背包没有回城卷
[@列表]
#if
equal s$NPC列表展开 1
#act
mov s$NPC列表展开 2
DELBUTTON 8 5
#elseact
mov s$NPC列表 <Img|x=90|y=80|width=140|height=350|scale9t=10|scale9r=10|esc=0|scale9l=10|img=public/1900000677.png|scale9b=10>
inc s$NPC列表 <ListView|children={<$str(s1)>}||x=112|y=100|width=95|height=310|color=x>
MOV N1 0
MOV s1
While N1 < 10
SendMsg 6 <$STR(N1)>
Inc N1 1
Inc s1 <$str(n1)>,
MOV <$cfg_传送列表(<$STR(N1)>_1)>
MOV <$cfg_传送列表(<$STR(N1)>_2)>
inc s$NPC列表 <Button|id=<$str(N1)>|color=255|mimg=public/00000363.png|nimg=public/1900000676.png|size=18|width=94|height=40|text=<$cfg_传送列表(<$STR(N1)>_1)>|link=@NPC传送#NPCID=<$cfg_传送列表(<$STR(N1)>_2)>>
EndWhile
sendmsg 0 <$cfg_传送列表(<$STR(N1)>_2)>
addbutton 8 5 <$str(s$NPC列表)>
mov s$NPC列表展开 1
[@NPC传送]
#ACT
OPENNPCSHOWEX <$str(s$NPCID)> 10