ÔÚ´«ÆæÊÖÓÎÖУ¬¼ÙÈ˹¥»÷ÊÇÒ»ÖÖ³£¼ûÎÊÌ⡣ΪÁ˽â¾öÕâ¸öÎÊÌ⣬¿ÉÒÔͨ¹ýÓÅ»¯½Å±¾²¢ÒýÈëÒ¡÷»×Ó»úÖÆÀ´·ÀÖ¹¼ÙÈ˹¥»÷¡£±¾ÎĽ«½éÉÜÈçºÎʹÓýű¾ÖеÄÒ¡÷»×Ó»úÖÆÀ´ÌáÉýÓÎÏ·µÄ¹«Æ½ÐÔºÍÍæ¼ÒÌåÑé¡£
´«ÆæÊÖÓÎÖеļÙÈ˹¥»÷Ò»Ö±ÊÇÍæ¼ÒÃǹØ×¢µÄÎÊÌâÖ®Ò»¡£ÎªÁ˱ÜÃâ²»¹«Æ½µÄÓÎÏ·»·¾³£¬¿ª·¢Õß¿ÉÒÔͨ¹ýÓÅ»¯½Å±¾À´ÒýÈëÒ¡÷»×Ó»úÖÆ£¬´Ó¶øÌáÉýÓÎÏ·µÄ¹«Æ½ÐÔºÍÍæ¼ÒµÄÌåÑé¡£ÏÂÃæÎÒÃǽ«Ïêϸ½éÉÜÕâÒ»ÓÅ»¯·½°¸¡£
ÔÚ´«ÆæÊÖÓÎÖУ¬¼ÙÈ˹¥»÷ͨ³£Ö¸µÄÊÇÓɳÌÐò»ò½Å±¾¿ØÖƵĽÇÉ«¶ÔÆäËûÍæ¼Ò½øÐй¥»÷£¬¶ø·ÇÕæÊµÍæ¼ÒµÄ²Ù×÷¡£ÕâÖÖÐÐΪÑÏÖØÆÆ»µÁËÓÎÏ·µÄ¹«Æ½ÐÔºÍÀÖȤ¡£ÎªÁ˽â¾öÕâ¸öÎÊÌ⣬¿ÉÒÔͨ¹ýÓÅ»¯½Å±¾²¢ÒýÈëÒ¡÷»×Ó»úÖÆÀ´·ÀÖ¹¼ÙÈ˹¥»÷¡£
ÒÔÏÂÊÇÒ»¸öʾÀýµÄ½Å±¾ÓÅ»¯·½°¸£¬Ê¹ÓÃÒ¡÷»×Ó»úÖÆÀ´ÅжÏÊÇ·ñ·¢¶¯¹¥»÷£º
[@main]
¨T¨T¨T¨T¨T¨T¨T¨T¨T<´«ÆæÊÖÓνű¾>¨T¨T¨T¨T¨T¨T¨T¨T¨T¨T¨T
Ò¡÷»×ÓÅж¨¹¥»÷½á¹û£º
#SET $dice = RANDOM 1 100
#IF $dice > 50
ATTACK 1
#ELSE
ATTACK 0
#ENDIF
...
[@attack]
#IF $ATTACK_RESULT == 1
<½øÐй¥»÷µÄ½Å±¾Âß¼>
#ELSE
WAIT 500
#ENDIF
...
ÒÔÉÏʾÀýÖУ¬Í¨¹ýʹÓÃÒ¡÷»×Ó£¨$dice£©À´Éú³ÉÒ»¸öËæ»úÊý£¬·¶Î§Îª1µ½100¡£µ±Ëæ»úÊý´óÓÚ50ʱ£¬±íʾ¹¥»÷ÉúЧ£»µ±Ëæ»úÊýСÓÚµÈÓÚ50ʱ£¬±íʾ¹¥»÷ʧ°Ü¡£¸ù¾Ý¹¥»÷½á¹û£¬ÓÎÏ·¿ÉÒÔÖ´ÐÐÏàÓ¦µÄ½Å±¾Âß¼¡£
ÓÅ»¯ºóµÄ½Å±¾·½°¸¿ÉÒÔÓÐЧ·ÀÖ¹¼ÙÈ˹¥»÷£¬ÒòΪÎÞ·¨Ô¤²âÒ¡÷»×ӵĽá¹û¡£ÕâÑùÒ»À´£¬¼´Ê¹¼ÙÈ˹¥»÷´æÔÚ£¬Æä¹¥»÷ÐÐΪҲ»áÓÐÒ»¶¨µÄËæ»úÐÔ£¬²»ÔÙ³ÊÏָ߶ȹæÂÉ»¯µÄ¹¥»÷ģʽ£¬´Ó¶øÌáÉýÁËÓÎÏ·µÄ¹«Æ½ÐԺͿÉÍæÐÔ¡£
ÔڵǽִÐнű¾¿ªÍ·¾ÍÌí¼Ó£º
#IF
ISADMIN
#ACT
GOTO @µÇ½ִÐÐ
#ELSEACT
DelayCall 59 @Ö±½ÓÌßÈË
GOTO @Ò¡÷»×Ó
[@Ò¡÷»×Ó]
#IF
checkcastlewar 0
#ACT
CLEARDELAYGOTO
SENDMSG 7 ÕýÔÚ½øÐй¥³ÇÕ½£¬¹¥³ÇÕ½ÆÚ¼äÔÝÍ£µÇ½ÑéÖ¤¡£
goto @µÇ½ִÐÐ
#ELSEACT
movr d0 1 7
movr d1 1 7
movr d2 1 7
MOV N30 0
MOV D70 0
playdice 3 @÷»×ÓÑéÖ¤
#ELSESAY
µ±÷»×ÓÍ£ÏÂʱ£¬Äã¼ÇÏÂÈý¸ö÷»×ӵĵãÊýÈ»ºóµã»÷ÊäÈë÷»×ÓµãÊý£¬
²¢½«ÆäÊäÈ룬60ÃëÄÚδÄܰ´Ê±ÊäÈë÷»×ÓµãÊý£¬Äú½«µôÏß¡£
ÊäÈëÄÚÈÝ£ºÈçÈý¸ö÷»×ÓÒÀ´Î·Ö±ðΪ3 1 5
ÄÇôÊäÈëÄÚÈݾÍÊÇ315
[@÷»×ÓÑéÖ¤]
µ±÷»×ÓÍ£ÏÂʱ£¬Äã¼ÇÏÂÈý¸ö÷»×ӵĵãÊýÈ»ºóµã»÷ÊäÈë÷»×ÓµãÊý£¬
²¢½«ÆäÊäÈ룬60ÃëÄÚδÄܰ´Ê±ÊäÈë÷»×ÓµãÊý£¬Äú½«µôÏß¡£
ÊäÈëÄÚÈÝ£ºÈçÈý¸ö÷»×ÓÒÀ´Î·Ö±ðΪ3 1 5
ÄÇôÊäÈëÄÚÈݾÍÊÇ315
<ÔÙÒ¡Ò»´Î/@Ò¡÷»×Ó>
<ÊäÈëµãÊý/@@InPutInteger30>
[@CallInPutInteger30]
#IF
#ACT
INC D70 <$STR(D0)>
MUL D70 <$STR(D70)> 10
GOTO @¼ÓÒ»
break
[@¼ÓÒ»]
#IF
#ACT
INC D70 <$STR(D1)>
MUL D70 <$STR(D70)> 10
GOTO @¼Ó¶þ
break
[@¼Ó¶þ]
#IF
#ACT
INC D70 <$STR(D2)>
GOTO @¼ÌÐøÖ´ÐÐ
break
[@¼ÌÐøÖ´ÐÐ]
#IF
EQUAL D70 <$STR(N30)>
#ACT
CLEARDELAYGOTO
SENDMSG 7 Ñé֤ͨ¹ý£¬×£ÄãÓÎÏ·Óä¿ì£¡
goto @µÇ½ִÐÐ
close
#ELSEACT
SENDMSG 7 Ñé֤ʧ°Ü£¬ÇëÔÙÊÔÒ»´Î¡£
GOTO @Ò¡÷»×Ó
[@Ö±½ÓÌßÈË]
#IF
#ACT
SENDMSG 7 ʱ¼äµ½ÁË£¬ÄãûÄÜÕýÈ·ÊäÈëÑéÖ¤Â룬ÇëÖØÐµÇ½ÔÙ³¢ÊÔ¡£
kick
[@µÇ½ִÐÐ]
È»ºóÔÚ“[@µÇ½ִÐÐ]”Ö®ºó¼ÓÉÏÔÀ´ÒªÖ´ÐеĽű¾¡£
´«ÆæÊÖÓÎÖеļÙÈ˹¥»÷Ò»Ö±ÊÇÍæ¼ÒÃǹØ×¢µÄÎÊÌâÖ®Ò»¡£ÎªÁ˱ÜÃâ²»¹«Æ½µÄÓÎÏ·»·¾³£¬¿ª·¢Õß¿ÉÒÔͨ¹ýÓÅ»¯½Å±¾À´ÒýÈëÒ¡÷»×Ó»úÖÆ£¬´Ó¶øÌáÉýÓÎÏ·µÄ¹«Æ½ÐÔºÍÍæ¼ÒµÄÌåÑé¡£ÏÂÃæÎÒÃǽ«Ïêϸ½éÉÜÕâÒ»ÓÅ»¯·½°¸¡£
ÔÚ´«ÆæÊÖÓÎÖУ¬¼ÙÈ˹¥»÷ͨ³£Ö¸µÄÊÇÓɳÌÐò»ò½Å±¾¿ØÖƵĽÇÉ«¶ÔÆäËûÍæ¼Ò½øÐй¥»÷£¬¶ø·ÇÕæÊµÍæ¼ÒµÄ²Ù×÷¡£ÕâÖÖÐÐΪÑÏÖØÆÆ»µÁËÓÎÏ·µÄ¹«Æ½ÐÔºÍÀÖȤ¡£ÎªÁ˽â¾öÕâ¸öÎÊÌ⣬¿ÉÒÔͨ¹ýÓÅ»¯½Å±¾²¢ÒýÈëÒ¡÷»×Ó»úÖÆÀ´·ÀÖ¹¼ÙÈ˹¥»÷¡£
ÒÔÏÂÊÇÒ»¸öʾÀýµÄ½Å±¾ÓÅ»¯·½°¸£¬Ê¹ÓÃÒ¡÷»×Ó»úÖÆÀ´ÅжÏÊÇ·ñ·¢¶¯¹¥»÷£º
[@main]
¨T¨T¨T¨T¨T¨T¨T¨T¨T<´«ÆæÊÖÓνű¾>¨T¨T¨T¨T¨T¨T¨T¨T¨T¨T¨T
Ò¡÷»×ÓÅж¨¹¥»÷½á¹û£º
#SET $dice = RANDOM 1 100
#IF $dice > 50
ATTACK 1
#ELSE
ATTACK 0
#ENDIF
...
[@attack]
#IF $ATTACK_RESULT == 1
<½øÐй¥»÷µÄ½Å±¾Âß¼>
#ELSE
WAIT 500
#ENDIF
...
ÒÔÉÏʾÀýÖУ¬Í¨¹ýʹÓÃÒ¡÷»×Ó£¨$dice£©À´Éú³ÉÒ»¸öËæ»úÊý£¬·¶Î§Îª1µ½100¡£µ±Ëæ»úÊý´óÓÚ50ʱ£¬±íʾ¹¥»÷ÉúЧ£»µ±Ëæ»úÊýСÓÚµÈÓÚ50ʱ£¬±íʾ¹¥»÷ʧ°Ü¡£¸ù¾Ý¹¥»÷½á¹û£¬ÓÎÏ·¿ÉÒÔÖ´ÐÐÏàÓ¦µÄ½Å±¾Âß¼¡£
ÓÅ»¯ºóµÄ½Å±¾·½°¸¿ÉÒÔÓÐЧ·ÀÖ¹¼ÙÈ˹¥»÷£¬ÒòΪÎÞ·¨Ô¤²âÒ¡÷»×ӵĽá¹û¡£ÕâÑùÒ»À´£¬¼´Ê¹¼ÙÈ˹¥»÷´æÔÚ£¬Æä¹¥»÷ÐÐΪҲ»áÓÐÒ»¶¨µÄËæ»úÐÔ£¬²»ÔÙ³ÊÏָ߶ȹæÂÉ»¯µÄ¹¥»÷ģʽ£¬´Ó¶øÌáÉýÁËÓÎÏ·µÄ¹«Æ½ÐԺͿÉÍæÐÔ¡£
ÔڵǽִÐнű¾¿ªÍ·¾ÍÌí¼Ó£º
#IF
ISADMIN
#ACT
GOTO @µÇ½ִÐÐ
#ELSEACT
DelayCall 59 @Ö±½ÓÌßÈË
GOTO @Ò¡÷»×Ó
[@Ò¡÷»×Ó]
#IF
checkcastlewar 0
#ACT
CLEARDELAYGOTO
SENDMSG 7 ÕýÔÚ½øÐй¥³ÇÕ½£¬¹¥³ÇÕ½ÆÚ¼äÔÝÍ£µÇ½ÑéÖ¤¡£
goto @µÇ½ִÐÐ
#ELSEACT
movr d0 1 7
movr d1 1 7
movr d2 1 7
MOV N30 0
MOV D70 0
playdice 3 @÷»×ÓÑéÖ¤
#ELSESAY
µ±÷»×ÓÍ£ÏÂʱ£¬Äã¼ÇÏÂÈý¸ö÷»×ӵĵãÊýÈ»ºóµã»÷ÊäÈë÷»×ÓµãÊý£¬
²¢½«ÆäÊäÈ룬60ÃëÄÚδÄܰ´Ê±ÊäÈë÷»×ÓµãÊý£¬Äú½«µôÏß¡£
ÊäÈëÄÚÈÝ£ºÈçÈý¸ö÷»×ÓÒÀ´Î·Ö±ðΪ3 1 5
ÄÇôÊäÈëÄÚÈݾÍÊÇ315
[@÷»×ÓÑéÖ¤]
µ±÷»×ÓÍ£ÏÂʱ£¬Äã¼ÇÏÂÈý¸ö÷»×ӵĵãÊýÈ»ºóµã»÷ÊäÈë÷»×ÓµãÊý£¬
²¢½«ÆäÊäÈ룬60ÃëÄÚδÄܰ´Ê±ÊäÈë÷»×ÓµãÊý£¬Äú½«µôÏß¡£
ÊäÈëÄÚÈÝ£ºÈçÈý¸ö÷»×ÓÒÀ´Î·Ö±ðΪ3 1 5
ÄÇôÊäÈëÄÚÈݾÍÊÇ315
<ÔÙÒ¡Ò»´Î/@Ò¡÷»×Ó>
<ÊäÈëµãÊý/@@InPutInteger30>
[@CallInPutInteger30]
#IF
#ACT
INC D70 <$STR(D0)>
MUL D70 <$STR(D70)> 10
GOTO @¼ÓÒ»
break
[@¼ÓÒ»]
#IF
#ACT
INC D70 <$STR(D1)>
MUL D70 <$STR(D70)> 10
GOTO @¼Ó¶þ
break
[@¼Ó¶þ]
#IF
#ACT
INC D70 <$STR(D2)>
GOTO @¼ÌÐøÖ´ÐÐ
break
[@¼ÌÐøÖ´ÐÐ]
#IF
EQUAL D70 <$STR(N30)>
#ACT
CLEARDELAYGOTO
SENDMSG 7 Ñé֤ͨ¹ý£¬×£ÄãÓÎÏ·Óä¿ì£¡
goto @µÇ½ִÐÐ
close
#ELSEACT
SENDMSG 7 Ñé֤ʧ°Ü£¬ÇëÔÙÊÔÒ»´Î¡£
GOTO @Ò¡÷»×Ó
[@Ö±½ÓÌßÈË]
#IF
#ACT
SENDMSG 7 ʱ¼äµ½ÁË£¬ÄãûÄÜÕýÈ·ÊäÈëÑéÖ¤Â룬ÇëÖØÐµÇ½ÔÙ³¢ÊÔ¡£
kick
[@µÇ½ִÐÐ]
È»ºóÔÚ“[@µÇ½ִÐÐ]”Ö®ºó¼ÓÉÏÔÀ´ÒªÖ´ÐеĽű¾¡£

