[@MAIN]
#if
#act
MOV S1
MOV S2
MOV S2 HUMAN Éñ±ø»ý·Ö
MOV S1 <
INC S1 S2
INC S1 /FColor=58>
OPENMERCHANTDLG 19|130|1|542|274|0|0|0|1|393|25
#SAY
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
¡¡Âê·¨ÓÂÊ¿£¡ÄãÓжàÓàµÄ¸ß¼¶Éñ±øÂð£¿Ö»ÒªÄãÄܸøÎÒÕâЩÎäÆ÷ÎÒ½«\
¡¡ËÍÄã´óÁ¿Éñ±ø»ý·Ö.ÅÕ¶ ÁúÑÀ=5µãÉñ±ø»ý·Ö£¬åÐÒ£ÉÈ£¬°ÔÕßÖ®ÈÐ\
¡¡=20µãÉñ±ø»ý·Ö¡£ÍÀÁú ÊȻ귨ÕÈ=30µãÉñ±ø»ý·Ö£¬ÌìÖ®ÍÀÁú ÌìÖ®\
¡¡ÊȻ귨ÕÈ ÌìÖ®åÐÒ£ÉÈ=50µãÉñ±ø»ý·Ö.Èç¹ûÄãÓµÓÐ1000µã»ý·Ö¿ÉÒÔ\
¡¡È¥ÎÔÁúºóÔºÕÒÎÒʦµÜ(ÎÔÁúÀÏׯÖ÷)»»È¡»Æ½ðÎäÆ÷Ò»°Ñ£¡\
¡¡<ÎÒÏëÉϽ»ÎäÆ÷»»È¡»ý·Ö/@ÎÒÏëÉϽ»ÎäÆ÷»»È¡»ý·Ö><(Çë±£¹ÜºÃ¹óÖØÎïÆ·£¬Èç»ØÊÕÒ»ÂÉ×Ô¸º)/FColor=58>\
¡¡<ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö/@ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö>\
¡¡<300Áé·û¶ÍÔì»Æ½ðÔÉÌú/@@InPutInteger2|Title=ÇëÊäÈë¶ÍÔìµÄ»Æ½ðÔÉÌúÊýÁ¿£¨1-99£©>Ä㵱ǰµÄÉñ±ø»ý·ÖÊýÁ¿ÊÇ¡Ã<$STR(S1)>\ \ \
[@InPutInteger2]
#IF
LARGE N2 0
SMALL N2 100
#act
MOV N3 0
MUL N3 N2 300
#ELSEACT
MESSAGEBOX ÄãÊäÈëµÄÊýÁ¿ÓÐÎó£¬ÇëÖØÐÂÊäÈë1-99Ö®¼äÊÇÊýÁ¿
GOTO @MAIN
BREAK
#if
CHECKGAMEGIRD > <$STR(N3)>
#act
GIVE »Æ½ðÔÉÌú <$STR(N2)>
GAMEGIRD - <$STR(N3)>
SENDMSG 7 ¹§Ï²£ºÄã³É¹¦Ê¹ÓÃ<$STR(N3)>¸öÁé·û¶ÍÔìÁË£»<$STR(N2)>¿Å»Æ½ðÔÉÌú£¡
SENDMSG 0 <$USERNAME>ʹÓÃ<$STR(N3)>¸öÁé·û¶ÍÔìÁË£»<$STR(N2)>¿Å»Æ½ðÔÉÌú£¡
GOTO @MAIN
#ELSEACT
MESSAGEBOX ¶Ô²»Æð£¬ÄúûÓÐ×ã¹»µÄÁé·ûÀ´¶Ò»»»Æ½ðÔÉÌú£¡
GOTO @MAIN
[@ÎÒÏëÉϽ»ÎäÆ÷»»È¡»ý·Ö]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
¡¡<(Çë±£¹ÜºÃ¹óÖØÎïÆ·£¬Èç»ØÊÕÒ»ÂÉ×Ô¸º)/FColor=58>\
¡¡ÄãÈ·¶¨Òª»ØÊÕ±³°ü¿É»ØÊÕÎäÆ÷Â𣿣¿£¿\
¡¡ÅÕ¶ ÁúÑÀ=5µãÉñ±ø»ý·Ö£¬ÌìÖ®ÅÕ¶ ÌìÖ®ÁúÑÀ=8µãÉñ±ø»ý·Ö£¬\
¡¡åÐÒ£ÉÈ£¬°ÔÕßÖ®ÈÐ=20µãÉñ±ø»ý·Ö£¬ÍÀÁú ÊȻ귨ÕÈ=30µãÉñ±ø»ý·Ö£¬\
¡¡ÌìÖ®ÍÀÁú ÌìÖ®ÊȻ귨ÕÈ ÌìÖ®åÐÒ£ÉÈ=50µãÉñ±ø»ý·Ö£¡\¡¡\
¡¡<Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É/@Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É>¡¡¡¡¡¡¡¡<ËãÁË!ÎÒ²»»ØÊÕÁË/@EXIT>\\
[@Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É]
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÅÕ¶ÁúÑÀ.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 5
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º5µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÌìÖ®ÅÕ¶ÁúÑÀ.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 8
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º8µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\åÐÒ£°ÔÕß.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 20
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º20µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÍÀÁúÊÈ»ê.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 30
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º30µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÌìÖ®Îä1Æ÷.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 50
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º50µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
BREAK
#ELSEACT
SENDMSG 6 ÒÑÍê³É¿É»ØÊÕµÄÎäÆ÷£¬Ä㵱ǰÉñ±ø»ý·ÖΪ£»<$HUMAN(Éñ±ø»ý·Ö)>£¡
[@ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
¡¡ÄãÒªÌáÈ¡¶àÉÙ»ý·ÖÄØ£¿\
¡¡<10µãÉñ±ø»ý·Ö/@10µãÉñ±ø»ý·Ö>\
¡¡<100µãÉñ±ø»ý·Ö/@100µãÉñ±ø»ý·Ö>\
[@100µãÉñ±ø»ý·Ö]
#IF
CHECKVAR HUMAN Éñ±ø»ý·Ö > 99
#act
CALCVAR HUMAN Éñ±ø»ý·Ö - 100
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
give 100µãÉñ±ø»ý·Ö
DELAYGOTO 1 @ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö
SENDMSG 6 ¹§Ï²ÄãÌáÈ¡£º100µãÉñ±ø»ý·Ö
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
¡¡ÄãûÓÐ×ã¹»µÄÉñ±ø»ý·Ö¿ÉÌáÈ¡!
#ELSEACT
break
[@10µãÉñ±ø»ý·Ö]
#IF
CHECKVAR HUMAN Éñ±ø»ý·Ö > 9
#act
CALCVAR HUMAN Éñ±ø»ý·Ö - 10
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
give 10µãÉñ±ø»ý·Ö
DELAYGOTO 1 @ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö
SENDMSG 6 ¹§Ï²ÄãÌáÈ¡£º10µãÉñ±ø»ý·Ö
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
¡¡ÄãûÓÐ×ã¹»µÄÉñ±ø»ý·Ö¿ÉÌáÈ¡!
#ELSEACT
break
#if
#act
MOV S1
MOV S2
MOV S2 HUMAN Éñ±ø»ý·Ö
MOV S1 <
INC S1 S2
INC S1 /FColor=58>
OPENMERCHANTDLG 19|130|1|542|274|0|0|0|1|393|25
#SAY
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
¡¡Âê·¨ÓÂÊ¿£¡ÄãÓжàÓàµÄ¸ß¼¶Éñ±øÂð£¿Ö»ÒªÄãÄܸøÎÒÕâЩÎäÆ÷ÎÒ½«\
¡¡ËÍÄã´óÁ¿Éñ±ø»ý·Ö.ÅÕ¶ ÁúÑÀ=5µãÉñ±ø»ý·Ö£¬åÐÒ£ÉÈ£¬°ÔÕßÖ®ÈÐ\
¡¡=20µãÉñ±ø»ý·Ö¡£ÍÀÁú ÊȻ귨ÕÈ=30µãÉñ±ø»ý·Ö£¬ÌìÖ®ÍÀÁú ÌìÖ®\
¡¡ÊȻ귨ÕÈ ÌìÖ®åÐÒ£ÉÈ=50µãÉñ±ø»ý·Ö.Èç¹ûÄãÓµÓÐ1000µã»ý·Ö¿ÉÒÔ\
¡¡È¥ÎÔÁúºóÔºÕÒÎÒʦµÜ(ÎÔÁúÀÏׯÖ÷)»»È¡»Æ½ðÎäÆ÷Ò»°Ñ£¡\
¡¡<ÎÒÏëÉϽ»ÎäÆ÷»»È¡»ý·Ö/@ÎÒÏëÉϽ»ÎäÆ÷»»È¡»ý·Ö><(Çë±£¹ÜºÃ¹óÖØÎïÆ·£¬Èç»ØÊÕÒ»ÂÉ×Ô¸º)/FColor=58>\
¡¡<ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö/@ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö>\
¡¡<300Áé·û¶ÍÔì»Æ½ðÔÉÌú/@@InPutInteger2|Title=ÇëÊäÈë¶ÍÔìµÄ»Æ½ðÔÉÌúÊýÁ¿£¨1-99£©>Ä㵱ǰµÄÉñ±ø»ý·ÖÊýÁ¿ÊÇ¡Ã<$STR(S1)>\ \ \
[@InPutInteger2]
#IF
LARGE N2 0
SMALL N2 100
#act
MOV N3 0
MUL N3 N2 300
#ELSEACT
MESSAGEBOX ÄãÊäÈëµÄÊýÁ¿ÓÐÎó£¬ÇëÖØÐÂÊäÈë1-99Ö®¼äÊÇÊýÁ¿
GOTO @MAIN
BREAK
#if
CHECKGAMEGIRD > <$STR(N3)>
#act
GIVE »Æ½ðÔÉÌú <$STR(N2)>
GAMEGIRD - <$STR(N3)>
SENDMSG 7 ¹§Ï²£ºÄã³É¹¦Ê¹ÓÃ<$STR(N3)>¸öÁé·û¶ÍÔìÁË£»<$STR(N2)>¿Å»Æ½ðÔÉÌú£¡
SENDMSG 0 <$USERNAME>ʹÓÃ<$STR(N3)>¸öÁé·û¶ÍÔìÁË£»<$STR(N2)>¿Å»Æ½ðÔÉÌú£¡
GOTO @MAIN
#ELSEACT
MESSAGEBOX ¶Ô²»Æð£¬ÄúûÓÐ×ã¹»µÄÁé·ûÀ´¶Ò»»»Æ½ðÔÉÌú£¡
GOTO @MAIN
[@ÎÒÏëÉϽ»ÎäÆ÷»»È¡»ý·Ö]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
¡¡<(Çë±£¹ÜºÃ¹óÖØÎïÆ·£¬Èç»ØÊÕÒ»ÂÉ×Ô¸º)/FColor=58>\
¡¡ÄãÈ·¶¨Òª»ØÊÕ±³°ü¿É»ØÊÕÎäÆ÷Â𣿣¿£¿\
¡¡ÅÕ¶ ÁúÑÀ=5µãÉñ±ø»ý·Ö£¬ÌìÖ®ÅÕ¶ ÌìÖ®ÁúÑÀ=8µãÉñ±ø»ý·Ö£¬\
¡¡åÐÒ£ÉÈ£¬°ÔÕßÖ®ÈÐ=20µãÉñ±ø»ý·Ö£¬ÍÀÁú ÊȻ귨ÕÈ=30µãÉñ±ø»ý·Ö£¬\
¡¡ÌìÖ®ÍÀÁú ÌìÖ®ÊȻ귨ÕÈ ÌìÖ®åÐÒ£ÉÈ=50µãÉñ±ø»ý·Ö£¡\¡¡\
¡¡<Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É/@Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É>¡¡¡¡¡¡¡¡<ËãÁË!ÎÒ²»»ØÊÕÁË/@EXIT>\\
[@Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É]
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÅÕ¶ÁúÑÀ.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 5
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º5µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÌìÖ®ÅÕ¶ÁúÑÀ.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 8
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º8µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\åÐÒ£°ÔÕß.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 20
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º20µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÍÀÁúÊÈ»ê.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 30
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º30µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
#IF
CheckBagItems \QuestDiary\×°±¸»ØÊÕ\ÌìÖ®Îä1Æ÷.txt 0 S0
#ACT
TAKE <$STR(S0)> 1
CALCVAR HUMAN Éñ±ø»ý·Ö + 50
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
SENDMSG 6 Ìáʾ£º»ØÊÕ<$STR(S0)>»ñµÃÁË£º50µãÉñ±ø»ý·Ö¡£
DELAYGOTO 300 @Çë°ïÎÒ»ØÊÕ»»È¡Éñ±ø»ý·Ö°É
BREAK
#ELSEACT
SENDMSG 6 ÒÑÍê³É¿É»ØÊÕµÄÎäÆ÷£¬Ä㵱ǰÉñ±ø»ý·ÖΪ£»<$HUMAN(Éñ±ø»ý·Ö)>£¡
[@ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö]
<{i=3;li=20;ih=4;id=5;x=390;y=20}/@exit>\
¡¡ÄãÒªÌáÈ¡¶àÉÙ»ý·ÖÄØ£¿\
¡¡<10µãÉñ±ø»ý·Ö/@10µãÉñ±ø»ý·Ö>\
¡¡<100µãÉñ±ø»ý·Ö/@100µãÉñ±ø»ý·Ö>\
[@100µãÉñ±ø»ý·Ö]
#IF
CHECKVAR HUMAN Éñ±ø»ý·Ö > 99
#act
CALCVAR HUMAN Éñ±ø»ý·Ö - 100
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
give 100µãÉñ±ø»ý·Ö
DELAYGOTO 1 @ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö
SENDMSG 6 ¹§Ï²ÄãÌáÈ¡£º100µãÉñ±ø»ý·Ö
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
¡¡ÄãûÓÐ×ã¹»µÄÉñ±ø»ý·Ö¿ÉÌáÈ¡!
#ELSEACT
break
[@10µãÉñ±ø»ý·Ö]
#IF
CHECKVAR HUMAN Éñ±ø»ý·Ö > 9
#act
CALCVAR HUMAN Éñ±ø»ý·Ö - 10
SAVEVAR HUMAN Éñ±ø»ý·Ö ..\QuestDiary\³äÃ×»ý·Ö\Éñ±ø»ý·ÖSºÇºÇe.txt
give 10µãÉñ±ø»ý·Ö
DELAYGOTO 1 @ÎÒÏëÌáÈ¡Éñ±ø»ý·Ö
SENDMSG 6 ¹§Ï²ÄãÌáÈ¡£º10µãÉñ±ø»ý·Ö
#ELSESAY
<{i=3;li=20;ih=4;id=5;x=390;y=22}/@exit>\
¡¡ÄãûÓÐ×ã¹»µÄÉñ±ø»ý·Ö¿ÉÌáÈ¡!
#ELSEACT
break

