Ôª±¦¶Ò»»ÈËÃñ±Ò(RMB)½Å±¾Õ¹Ê¾(2)
ʱ¼ä:2011-05-05 01:05À´Ô´: ×÷Õß: µã»÷:
´Î
[@È·ÈÏÉêÇëJ]#IFCHECKNAMELIST ..QuestDiaryÊý¾ÝÎļþÿÈÕÊý¾ÝÔª±¦¶ÒÏÖ.txt#ACTcloseMESSAGEBOX Äã½ñÈÕÒѾÌá½»¹ýÔª±¦¶ÒÏÖÉêÇë£ ¡Èç¹ûÄ㻹Ïë¼ÌÐø¶ÒÏÖ£¡ÇëÃ÷ÈÕÔÙÀ´£¡break#IF#ACTDEC N74 1DelayGoto 1 @È·ÈÏÉêÇëJ-2br
[@È·ÈÏÉêÇëJ]
#IF
CHECKNAMELIST ..QuestDiaryÊý¾ÝÎļþÿÈÕÊý¾ÝÔª±¦¶ÒÏÖ.txt
#ACT
close
MESSAGEBOX Äã½ñÈÕÒѾÌá½»¹ýÔª±¦¶ÒÏÖÉêÇ룡¡¡Èç¹ûÄ㻹Ïë¼ÌÐø¶ÒÏÖ£¡ÇëÃ÷ÈÕÔÙÀ´£¡
break
#IF
#ACT
DEC N74 1
DelayGoto 1 @È·ÈÏÉêÇëJ-2
break
[@È·ÈÏÉêÇëJ-2]
#IF
CHECKGAMEGOLD > <$STR(N74)>
#ACT
GAMEGOLD - <$STR(N74)>
inc G100 1
inc G101 1
inc N74 1
mov S17 <$DATE>
CreateFile ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
AddTextList ÊÕ¿îÒøÐУº<$STR(S70)> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
AddTextList ÊÕ¿îÕ˺ţº<$STR(S71)> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
AddTextList ÊÕ¿îÈË£º<$STR(S72)> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
AddTextList ¶Ò»»½ð¶î£º<$STR(N73)>Ôª ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
AddTextList ¿Û³ýÔª±¦£º<$STR(N74)>¸ö ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
AddTextList ½ÇÉ«Ãû£º<$USERNAME> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
AddTextList Ìύʱ¼ä£º<$DATETIME> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S72)>-<$STR(N73)>Ôª-<$STR(S17)>.txt
ADDNAMELIST ..QuestDiaryÊý¾ÝÎļþÿÈÕÊý¾ÝÔª±¦¶ÒÏÖ.txt
SENDMSG 6 µ±Ç°Ôª±¦Óà¶îΪ:<$GAMEGOLD>
SENDMSG 4 %sÌá½»ÉêÇ룺½«<$STR(N74)>Ôª±¦¶Ò»»³É<$STR(N73)>ÔªÈËÃñ±Ò£¡
close
MESSAGEBOX Ìá½»ÉêÇë³É¹¦£¡ÎÒÃǽ«ÔÚ48СʱÄÚ´¦ÀíÄãµÄ¶Ò»»ÉêÇ룡
break
#ELSEACT
close
MESSAGEBOX ¶Ô²»Æð£¡ÄãµÄÔª±¦ÊýÁ¿²»×㣡¡¡Çë±£Ö¤ÄãµÄÕʺÅÓÐ<$STR(N74)>¸öÔª±¦£¡
break
;==================================================½¨ÐнáÊø
;==================================================Ö§¸¶±¦¿ªÊ¼
[@Ö§¸¶±¦]
#IF
#ACT
MOV S30 Ö§¸¶±¦
DelayGoto 1 @Ö§¸¶±¦-2
break
[@Ö§¸¶±¦-2]
#IF
SMALL N35 N48
#ACT
MESSAGEBOX Ôª±¦ÊýÁ¿²»×ã¶Ò»»×îµÍ½ð¶î£¡
close
break
#ELSESAY
Ö§¸¶±¦Õ˺ţº<$STR(S31)> <ÊäÈëÕ˺Å/@@InPutString31>
ÊÕ¿îÈË£º<$STR(S32)> <ÊäÈëÊÕ¿îÈË/@@InPutString32>
¶Ò»»½ð¶î£º<$STR(N33)>Ôª <Ñ¡Ôñ¶Ò»»½ð¶î/@¶Ò»»½ð¶îZFB>
ËùÐèÔª±¦£º<$STR(N34)>¸ö Ô¤¼Æ¶Ò»»ºóÓà¶î£º<$STR(N36)>
<Ìá½»¶Ò»»ÉêÇë/@Ìá½»ÉêÇëZFB> <·µ»ØÖØÐÂÑ¡ÔñÒøÐÐ/@¶Ò»»RMB>
[@InPutString31]
#If
CheckStringlength <$STR(S31)> > 4
#ACT
GOTO @Ö§¸¶±¦
break
#ELSEACT
MOV S31 ÇëÖØÐÂÊäÈ룡
MESSAGEBOX Ö§¸¶±¦ÕʺÅÊäÈë´íÎ󣡡¡Ö§¸¶±¦Õ˺Å×îµÍÊäÈë5λÊý
GOTO @Ö§¸¶±¦
break
[@InPutString32]
#If
CheckStringlength <$STR(S32)> < 9
CheckStringlength <$STR(S32)> > 3
#ACT
GOTO @Ö§¸¶±¦
break
#ELSEACT
MOV S32 ÇëÖØÐÂÊäÈ룡
MESSAGEBOX ÊÕ¿îÈËÊäÈë´íÎ󣡡¡ÊÕ¿îÈËÐÕÃû×î¶à4¸öºº×Ö£¡
GOTO @Ö§¸¶±¦
break
[@¶Ò»»½ð¶îZFB]
¶Ò»»½ð¶î£º<$STR(N33)>Ôª <Çå¿Õ/@Çå¿ÕZFB>
ËùÐèÔª±¦£º<$STR(N34)>¸ö Ô¤¼Æ¶Ò»»ºóÓà¶î£º<$STR(N36)>
<Ñ¡ºÃ·µ»Ø/@Ö§¸¶±¦>
=========================================
<1ÔªRMB/@1YZFB> <5ÔªRMB/@5YZFB> <10ÔªRMB/@10YZFB>
<20ÔªRMB/@20YZFB> <50ÔªRMB/@50YZFB> <100ÔªRMB/@100YZFB>
<Ñ¡ºÃ·µ»Ø/@Ö§¸¶±¦>
[@Çå¿ÕZFB]
#IF
#ACT
MOV N33 0
MOV N34 0
MOV N36 N35
goto @¶Ò»»½ð¶îZFB
break
[@1YZFB]
#IF
#ACT
MUL N47 N48 1
DEC N47 1
DelayGoto 1 @1YZFB-2
[@1YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 1
MOV N47 0
GOTO @¶Ò»»½ð¶îZFB
break
#ELSEACT
MESSAGEBOX ûÄÇô¶àÔª±¦¶Ò»»¸ÃÃæÖµ£¡¡¡Çë³¢ÊÔÑ¡ÔñÆäËüÃæ¶î£¡
GOTO @¶Ò»»½ð¶îZFB
break
[@5YZFB]
#IF
#ACT
MUL N47 N48 5
DEC N47 1
DelayGoto 1 @5YZFB-2
[@5YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 5
MOV N47 0
GOTO @¶Ò»»½ð¶îZFB
break
#ELSEACT
MESSAGEBOX ûÄÇô¶àÔª±¦¶Ò»»¸ÃÃæÖµ£¡¡¡Çë³¢ÊÔÑ¡ÔñÆäËüÃæ¶î£¡
GOTO @¶Ò»»½ð¶îZFB
break
[@10YZFB]
#IF
#ACT
MUL N47 N48 10
DEC N47 1
DelayGoto 1 @10YZFB-2
[@10YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 10
MOV N47 0
GOTO @¶Ò»»½ð¶îZFB
break
#ELSEACT
MESSAGEBOX ûÄÇô¶àÔª±¦¶Ò»»¸ÃÃæÖµ£¡¡¡Çë³¢ÊÔÑ¡ÔñÆäËüÃæ¶î£¡
GOTO @¶Ò»»½ð¶îZFB
break
[@20YZFB]
#IF
#ACT
MUL N47 N48 20
DEC N47 1
DelayGoto 1 @20YZFB-2
[@20YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 20
MOV N47 0
GOTO @¶Ò»»½ð¶îZFB
break
#ELSEACT
MESSAGEBOX ûÄÇô¶àÔª±¦¶Ò»»¸ÃÃæÖµ£¡¡¡Çë³¢ÊÔÑ¡ÔñÆäËüÃæ¶î£¡
GOTO @¶Ò»»½ð¶îZFB
break
[@50YZFB]
#IF
#ACT
MUL N47 N48 50
DEC N47 1
DelayGoto 1 @50YZFB-2
[@50YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 50
MOV N47 0
GOTO @¶Ò»»½ð¶îZFB
break
#ELSEACT
MESSAGEBOX ûÄÇô¶àÔª±¦¶Ò»»¸ÃÃæÖµ£¡¡¡Çë³¢ÊÔÑ¡ÔñÆäËüÃæ¶î£¡
GOTO @¶Ò»»½ð¶îZFB
break
[@100YZFB]
#IF
#ACT
MUL N47 N48 100
DEC N47 1
DelayGoto 1 @100YZFB-2
[@100YZFB-2]
#IF
LARGE N36 N47
#ACT
INC N47 1
DEC N36 N47
INC N34 N47
INC N33 100
MOV N47 0
GOTO @¶Ò»»½ð¶îZFB
break
#ELSEACT
MESSAGEBOX ûÄÇô¶àÔª±¦¶Ò»»¸ÃÃæÖµ£¡¡¡Çë³¢ÊÔÑ¡ÔñÆäËüÃæ¶î£¡
GOTO @¶Ò»»½ð¶îZFB
break
[@Ìá½»ÉêÇëZFB]
#IF
CheckStringlength <$STR(S31)> < 5
#ACT
goto @Ö§¸¶±¦
MESSAGEBOX ÊÕ¿îÕ˺Ų»ÕýÈ·£¡¡¡ÇëÖØÐÂÊäÈ룡
break
#IF
CheckStringlength <$STR(S32)> < 4
#ACT
goto @Ö§¸¶±¦
MESSAGEBOX ÊÕ¿îÈËÐÕÃû²»ÕýÈ·£¡¡¡ÇëÖØÐÂÊäÈ룡
break
#IF
SMALL N33 1
#ACT
goto @Ö§¸¶±¦
MESSAGEBOX ¶Ò»»½ð¶î²»ÕýÈ·£¡¡¡ÇëÖØÐÂÑ¡Ôñ£¡¡¡×îµÍ¿É¶Ò»»1Ôª£¡
break
#IF
#SAY
===================¶ÒÏÖÉêÇ뵥ȷÈÏ=================
ÊÕ¿îÒøÐУº<$STR(S30)>
ÊÕ¿îÕ˺ţº<$STR(S31)>
ÊÕ¿îÈË£º<$STR(S32)>
¶Ò»»½ð¶î£º<$STR(N33)>Ôª
¿Û³ýÔª±¦£º<$STR(N34)>¸ö
==================================================
<Çë×ÐϸȷÈÏÉêÇëµ¥£¬Ò»µ©È·ÈÏ£¬ÎÒÃǽ«°´ÕÕÉêÇëµ¥ÐÅÏ¢´ò¿î£¡/fcolor=253>
<È·ÈÏÌá½»¶Ò»»ÉêÇë/@È·ÈÏÉêÇëZFB> <·µ»ØÐÞ¸Ä/@Ö§¸¶±¦>
[@È·ÈÏÉêÇëZFB]
#IF
CHECKNAMELIST ..QuestDiaryÊý¾ÝÎļþÿÈÕÊý¾ÝÔª±¦¶ÒÏÖ.txt
#ACT
close
MESSAGEBOX Äã½ñÈÕÒѾÌá½»¹ýÔª±¦¶ÒÏÖÉêÇ룡¡¡Èç¹ûÄ㻹Ïë¼ÌÐø¶ÒÏÖ£¡ÇëÃ÷ÈÕÔÙÀ´£¡
break
#IF
#ACT
DEC N34 1
DelayGoto 1 @È·ÈÏÉêÇëZFB-2
break
[@È·ÈÏÉêÇëZFB-2]
#IF
CHECKGAMEGOLD > <$STR(N34)>
#ACT
GAMEGOLD - <$STR(N34)>
inc G100 1
inc G101 1
inc N34 1
mov S17 <$DATE>
CreateFile ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
AddTextList ÊÕ¿îÒøÐУº<$STR(S30)> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
AddTextList ÊÕ¿îÕ˺ţº<$STR(S31)> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
AddTextList ÊÕ¿îÈË£º<$STR(S32)> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
AddTextList ¶Ò»»½ð¶î£º<$STR(N33)>Ôª ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
AddTextList ¿Û³ýÔª±¦£º<$STR(N34)>¸ö ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
AddTextList ½ÇÉ«Ãû£º<$USERNAME> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
AddTextList Ìύʱ¼ä£º<$DATETIME> ..QuestDiaryÊý¾ÝÎļþÓÀ¾ÃÊý¾ÝÔª±¦¶ÒÏÖÉêÇë<$STR(S32)>-<$STR(N33)>Ôª-<$STR(S17)>.txt
ADDNAMELIST ..QuestDiaryÊý¾ÝÎļþÿÈÕÊý¾ÝÔª±¦¶ÒÏÖ.txt
SENDMSG 6 µ±Ç°Ôª±¦Óà¶îΪ:<$GAMEGOLD>
SENDMSG 4 %sÌá½»ÉêÇ룺½«<$STR(N34)>Ôª±¦¶Ò»»³É<$STR(N33)>ÔªÈËÃñ±Ò£¡
close
MESSAGEBOX Ìá½»ÉêÇë³É¹¦£¡ÎÒÃǽ«ÔÚ48СʱÄÚ´¦ÀíÄãµÄ¶Ò»»ÉêÇ룡
break
#ELSEACT
close
MESSAGEBOX ¶Ô²»Æð£¡ÄãµÄÔª±¦ÊýÁ¿²»×㣡¡¡Çë±£Ö¤ÄãµÄÕʺÅÓÐ<$STR(N34)>¸öÔª±¦£¡
break
;==================================================Ö§¸¶±¦½áÊø
;==================================================²Æ¸¶Í¨¿ªÊ¼
[@²Æ¸¶Í¨]
#IF
#ACT
MOV S40 ²Æ¸¶Í¨
DelayGoto 1 @²Æ¸¶Í¨-2
break
[@²Æ¸¶Í¨-2]
#IF
SMALL N45 N48
#ACT
MESSAGEBOX Ôª±¦ÊýÁ¿²»×ã¶Ò»»×îµÍ½ð¶î£¡
close
break
#ELSESAY
²Æ¸¶Í¨Õ˺ţº<$STR(S41)> <ÊäÈëÕ˺Å/@@InPutString41>
ÊÕ¿îÈË£º<$STR(S42)> <ÊäÈëÊÕ¿îÈË/@@InPutString42>
¶Ò»»½ð¶î£º<$STR(N43)>Ôª <Ñ¡Ôñ¶Ò»»½ð¶î/@¶Ò»»½ð¶îCFT>
ËùÐèÔª±¦£º<$STR(N44)>¸ö Ô¤¼Æ¶Ò»»ºóÓà¶î£º<$STR(N46)>
<Ìá½»¶Ò»»ÉêÇë/@Ìá½»ÉêÇëCFT> <·µ»ØÖØÐÂÑ¡ÔñÒøÐÐ/@¶Ò»»RMB>
[@InPutString41]
#If
CheckStringlength <$STR(S41)> > 4
#ACT
GOTO @²Æ¸¶Í¨
break
#ELSEACT
MOV S41 ÇëÖØÐÂÊäÈ룡
MESSAGEBOX ²Æ¸¶Í¨ÕʺÅÊäÈë´íÎ󣡡¡²Æ¸¶Í¨Õ˺Å×îµÍÊäÈë5λÊý
GOTO @²Æ¸¶Í¨
break
[@InPutString42]
#If
CheckStringlength <$STR(S42)> < 9
CheckStringlength <$STR(S42)> > 3
#ACT
GOTO @²Æ¸¶Í¨
break
#ELSEACT
MOV S42 ÇëÖØÐÂÊäÈ룡
MESSAGEBOX ÊÕ¿îÈËÊäÈë´íÎ󣡡¡ÊÕ¿îÈËÐÕÃû×î¶à4¸öºº×Ö£¡
GOTO @²Æ¸¶Í¨
break
[@¶Ò»»½ð¶îCFT]
¶Ò»»½ð¶î£º<$STR(N43)>Ôª <Çå¿Õ/@Çå¿ÕCFT>
ËùÐèÔª±¦£º<$STR(N44)>¸ö Ô¤¼Æ¶Ò»»ºóÓà¶î£º<$STR(N46)>
<Ñ¡ºÃ·µ»Ø/@²Æ¸¶Í¨>
=========================================
<1ÔªRMB/@1YCFT> <5ÔªRMB/@5YCFT> <10ÔªRMB/@10YCFT>
(ÔðÈα༣ºadmin) |
Ö¯ÃζþάÂëÉú³ÉÆ÷
------·Ö¸ôÏß----------------------------