µ±Ç°Î»Öà : 145zÓÎÏ·Õ¾¡¡|¡¡ÈÈѪ´«Ææ¡¡|¡¡¼¼Êõ½Ì³Ì¡¡|¡¡

176´«Ææ»ÃÆß¹Ò»ú½Å±¾Ïê½â£º×æÂê¸ó¼°ÆäËûµØÍ¼¹Ò»ú½Å±¾±àдÓëÓ¦ÓÃ

Èȶȣº
ÔÚ176´«ÆæÓÎÏ·ÖУ¬¹Ò»ú½Å±¾ÊÇÍæ¼ÒÌáÉýÓÎÏ·ÌåÑé¡¢ÇáËÉË¢¹ÖµÄÖØÒª¹¤¾ß¡£ÌرðÊÇÔڻþ³7µÄ׿Âê¸óµÈÈÈÃŵص㣬һ¸ö¸ßЧµÄ¹Ò»ú½Å±¾¿ÉÒÔÈÃÍæ¼ÒÔÚÀëÏßʱҲÄÜ×Ô¶¯´ò¹Ö¡¢Ê°È¡ÎïÆ·£¬ÌáÉý½ÇÉ«µÄµÈ¼¶ºÍ×°±¸¡£ÒÔϽ«Ïêϸ½éÉÜ176´«Ææ»ÃÆß¹Ò»ú½Å±¾µÄ±àдºÍÓ¦Óã¬ÒÔ¼°ÈçºÎÀ©Õ¹µ½ÆäËûµØÍ¼¡£
Ò»¡¢×æÂê¸ó¹Ò»ú½Å±¾Ïê½â
£¨Ò»£©½Å±¾½á¹¹
Ìõ¼þ¼ì²â²¿·Ö£¨#IF£©
¼ì²âÍæ¼ÒÊÇ·ñÂú×ã¹Ò»úÌõ¼þ£¬ÈçµÈ¼¶¡¢×°±¸¡¢ÎïÆ·µÈ¡£
plaintext¸´ÖÆ
#IF
CHECKLEVEL 50 ; ¼ì²âÍæ¼ÒµÈ¼¶ÊÇ·ñ´óÓÚ50¼¶
CHECKITEM ׿ÂêÁîÅÆ 1 ; ¼ì²âÍæ¼Ò±³°üÄÚÊÇ·ñÓÐ׿ÂêÁîÅÆ
Ö´ÐвÙ×÷²¿·Ö£¨#ACT£©
Ö´ÐоßÌåµÄ¹Ò»ú²Ù×÷£¬Èç×Ô¶¯´ò¹Ö¡¢Ê°È¡ÎïÆ·¡¢»Ø³ÇµÈ¡£
plaintext¸´ÖÆ
#ACT
GOTO @¹Ò»ú¿ªÊ¼
¹Ò»ú¿ªÊ¼²¿·Ö£¨@¹Ò»ú¿ªÊ¼£©
¿ªÊ¼¹Ò»ú²Ù×÷£¬ÉèÖÃÑ­»·´ò¹Ö¡¢Ê°È¡ÎïÆ·µÈ¡£
plaintext¸´ÖÆ
[@¹Ò»ú¿ªÊ¼]
#ACT
MAPMOVE ׿Âê¸ó ; ´«Ë͵½×æÂê¸ó
LOOPGOTO @´ò¹Ö ; Ñ­»·´ò¹Ö
´ò¹Ö²¿·Ö£¨@´ò¹Ö£©
×Ô¶¯´ò¹Ö²¢Ê°È¡ÎïÆ·£¬ÉèÖÃÑ­»·¡£
plaintext¸´ÖÆ
[@´ò¹Ö]
#ACT
ATTACKMONSTER ; ×Ô¶¯¹¥»÷¹ÖÎï
PICKUPITEM ; ʰȡÎïÆ·
WAIT 10 ; µÈ´ý10Ãë
GOTO @´ò¹Ö ; Ñ­»·´ò¹Ö
£¨¶þ£©½Å±¾Ê¾Àý
ÒÔÏÂÊÇÒ»¸öÍêÕûµÄ׿Âê¸ó¹Ò»ú½Å±¾Ê¾Àý£º
plaintext¸´ÖÆ
[@Main]
#IF
CHECKLEVEL 50
CHECKITEM ׿ÂêÁîÅÆ 1
#ACT
GOTO @¹Ò»ú¿ªÊ¼

[@¹Ò»ú¿ªÊ¼]
#ACT
MAPMOVE ׿Âê¸ó
LOOPGOTO @´ò¹Ö

[@´ò¹Ö]
#ACT
ATTACKMONSTER
PICKUPITEM
WAIT 10
GOTO @´ò¹Ö
¶þ¡¢À©Õ¹µ½ÆäËûµØÍ¼
£¨Ò»£©¶àµØÍ¼´«ËÍNPC½Å±¾
ΪÁË·½±ãÍæ¼ÒÔÚ²»Í¬µØÍ¼Ö®¼äÇл»£¬¿ÉÒÔ±àдһ¸ö¶àµØÍ¼´«ËÍNPC½Å±¾¡£ÒÔÏÂÊÇÒ»¸ö¶àµØÍ¼´«ËÍNPC½Å±¾Ê¾Àý£º
plaintext¸´ÖÆ
program mir2;
{$I MSG.pas}
function getbh(id :integer):string;
begin
case id of
6 :result := 'tian175';
7 :result := 'tian176';
8 :result := 'tian177';
9 :result := 'tian178';
10 :result := 'tian179';
end;
end;

function getchy(id :integer):string;
begin
This_NPC.NpcDialog(This_Player,
'Bg:chenghao2:'+inttostr(id)+'|'+
'Exit:sxsl:0:0:780:30|'+
'1:RBtn:jn:18:600:410:@jr~'+inttostr(id)+':18:70|'+
'1:RBtn:chenghao2:'+inttostr(1)+':150:90:@jr1~6:18:70|'+
'1:RBtn:chenghao2:'+inttostr(2)+':150:180:@jr1~7:18:70|'+
'1:RBtn:chenghao2:'+inttostr(3)+':150:270:@jr1~8:18:70|'+
'1:RBtn:chenghao2:'+inttostr(4)+':150:360:@jr1~9:18:70|'+
'1:RBtn:chenghao2:'+inttostr(5)+':150:450:@jr1~10:18:70|'+
'|{cmd}</@main></@jr~6></@jr~7></@jr~8></@jr~9></@jr~10></@jr1~6></@jr1~7></@jr1~8></@jr1~9></@jr1~10}'
);
end;

procedure domain;
var
xx :string;
begin
xx := getchy(6);
This_Player.PlayerNotice('CNPC=' + xx, 5);
end;

procedure _jr1(id :integer);
var
xx :string;
begin
xx := getchy(id);
This_Player.PlayerNotice('CNPC=' + xx, 5);
end;

procedure _jr(id :integer);
begin
if This_Player.GetV(117,1) >= id then
begin
This_Player.RandomFlyTo(getbh(id));
end else
begin
OKKK('ʧ°Ü','¸Ã³ÆºÅûÓм¤»î£¬ÎÞ·¨½øÈë');
end;
end;

begin
domain;
end.
£¨¶þ£©ÆäËûµØÍ¼¹Ò»ú½Å±¾
׿Âê¸ó¹Ò»ú½Å±¾
plaintext¸´ÖÆ
[@Main]
#IF
CHECKLEVEL 50
CHECKITEM ׿ÂêÁîÅÆ 1
#ACT
GOTO @¹Ò»ú¿ªÊ¼

[@¹Ò»ú¿ªÊ¼]
#ACT
MAPMOVE ׿Âê¸ó
LOOPGOTO @´ò¹Ö

[@´ò¹Ö]
#ACT
ATTACKMONSTER
PICKUPITEM
WAIT 10
GOTO @´ò¹Ö
³àÔµî¹Ò»ú½Å±¾
plaintext¸´ÖÆ
[@Main]
#IF
CHECKLEVEL 60
CHECKITEM ³àÔÂÁîÅÆ 1
#ACT
GOTO @¹Ò»ú¿ªÊ¼

[@¹Ò»ú¿ªÊ¼]
#ACT
MAPMOVE ³àÔµî
LOOPGOTO @´ò¹Ö

[@´ò¹Ö]
#ACT
ATTACKMONSTER
PICKUPITEM
WAIT 10
GOTO @´ò¹Ö
±ùÑ©¶´¹Ò»ú½Å±¾
plaintext¸´ÖÆ
[@Main]
#IF
CHECKLEVEL 70
CHECKITEM ±ùÑ©ÁîÅÆ 1
#ACT
GOTO @¹Ò»ú¿ªÊ¼

[@¹Ò»ú¿ªÊ¼]
#ACT
MAPMOVE ±ùÑ©¶´
LOOPGOTO @´ò¹Ö

[@´ò¹Ö]
#ACT
ATTACKMONSTER
PICKUPITEM
WAIT 10
GOTO @´ò¹Ö
Èý¡¢×¢ÒâÊÂÏî
£¨Ò»£©½Å±¾±à¼­Æ÷µÄ°²È«ÐÔ
È·±£ÔÚ°²È«µÄ»·¾³ÖÐʹÓýű¾±à¼­Æ÷£¬±ÜÃâʹÓöñÒâ½Å±¾¡£½Å±¾ÎļþµÄËùÓÐÓ¦ÓóÌÐò±à³Ì½Ó¿Ú¶¼¾ßÓÐÓë²å¼þͬµÈ¼¶±ðµÄ°²È«ÐÔ¡£
£¨¶þ£©½Å±¾µÄ²âÊÔ
Ôڽű¾±àдÍê³Éºó£¬ÐèÒª½øÐгä·ÖµÄ²âÊÔ£¬È·±£½Å±¾Äܹ»Õý³£Ö´ÐУ¬Ã»ÓÐÂß¼­´íÎó»ò©¶´¡£
£¨Èý£©ºÏÀíʹÓùһú½Å±¾
ÓÅ»¯½Å±¾ÉèÖ㺸ù¾Ý×Ô¼ºµÄ½ÇÉ«µÈ¼¶ºÍ×°±¸Çé¿ö£¬µ÷Õû¹Ò»úÂß¼­£¬ÒÔ×î´ó»¯¹Ò»úЧ¹û¡£
°²È«¹Ò»ú£ºÇÐÎðÁ¬Ðø³¤Ê±¼ä¹Ò»ú£¬ÈÝÒ×ÒýÆðϵͳµÄ×¢Ò⣬µ¼ÖÂÕ˺ű»·â½û¡£ºÏÀí°²ÅŹһúʱ¼ä£¬ÉèÖÃÊʵ±µÄÑ­»·¼ä¸ô£¬²¢±£³ÖÓëÕæÊµÍæ¼ÒµÄ»¥¶¯£¬Äܹ»ÓÐЧ½µµÍ±»·â½ûµÄ·çÏÕ¡£
¶¨ÆÚ¼ì²éÐÅÏ¢£º¹Ò»úµÄ¹ý³ÌÖУ¬¶¨ÆÚ¼ì²é×Ô¼ºµÄ½Çɫ״̬£¬È·±£½ÇɫûÓб»¹ÖÎïΧס»òÕß¿¨ÔÚµØÐÎÖС£¶¨ÆÚÊÖ¶¯ÉÏÏßÇåÀí±³°ü£¬ÒÔ±ÜÃâÒòΪ±³°üÂú¶øÓ°Ïì¹Ò»úЧÂÊ¡£
ËÄ¡¢×ܽá
ͨ¹ýÒÔÉϲ½ÖèºÍʾÀý£¬¿ÉÒÔÓÐЧµØ±àдºÍʹÓÃ176´«Ææ»ÃÆß¹Ò»ú½Å±¾£¬ÌáÉýÓÎÏ·ÌåÑ顣ϣÍûÕâÆª½Ì³Ì¶Ô176´«ÆæµÄÍæ¼ÒºÍ¿ª·¢ÕßÓÐËù°ïÖú¡£