npc_town_kafra.txt

传奇3源程序, 用vc开发的

//----------------------------------------------------------------------
// 僗僋儕僾僩 : Town_Kafra v2.0
//----------------------------------------------------------------------

//----------------------------------
// < 僾儘儞僥儔 - 愄偺寱巑僊儖僪 >
//----------------------------------

prontera.gat,248,42,0	script	僇僾儔怑堳	116,{
	cutin "kafra_02",2;
	if (FIRST_JOB_QUEST == 1) goto L_START_1;
   		mes "[僇僾儔怑堳]";
		mes "偄傜偭偟傖偄傑偣丄乮姅乯僇僾儔偱偡丅";
		mes "偛棗偺偲偍傝寱巑僊儖僪偼";
		mes "庱搒僾儘儞僥儔偐傜";
		mes "塹惎搒巗乽僀僘儖乕僪乿偵";
		mes "堏揮偟傑偟偨丅";
   		next;
   		mes "[僇僾儔怑堳]";
		mes "変乆乮姅乯僇僾儔偱偼";
		mes "偙偙僾儘儞僥儔偐傜僀僘儖乕僪傑偱";
		mes "棙梡椏 900 Zeny偱堏摦僒乕價僗傪";
		mes "峴偭偰偄傑偡丅";
   		next;
   		menu "棙梡偡傞",-,"僇僾儔億僀儞僩妋擣",L1,"廔椆",L2;
			if (Zeny < 900) goto Lerror1;
			set Zeny,Zeny-900;
			set KF_PIT,KF_PIT+90;
			warp "izlude",94,103;
			end;
		Lerror1:
	   		mes "[僇僾儔怑堳]";
			mes "偍媞條丄偍嬥偑懌傝側偄傛偆偱偡偑丅";
			goto L_EXIT;
L1:
	mes "[僇僾儔怑堳]";
	mes strcharinfo(0) + " 條偺妉摼億僀儞僩偼丄";
	mes "" + KF_PIT + " 揰偱偡丅";
	next;
	mes "[僇僾儔怑堳]";
	mes "僇僾儔億僀儞僩偼摉僇僾儔僒乕價僗偺";
	mes "杮幮偱徿昳偲堷偒姺偊偑壜擻偱偡丅";
	mes "崱屻偲傕僇僾儔僒乕價僗傪傛傠偟偔";
	mes "偍婅偄抳偟傑偡丅";
	goto L_EXIT;
L2:
	mes "[僇僾儔怑堳]";
	mes "偁傝偑偲偆偛偞偄傑偟偨丅";
	goto L_EXIT;
//===========Marchant Jobchange Event=============
	L_START_1:
		if (JOB_MERCHANT_Q > 8) goto L_SUB_2;
		if (JOB_MERCHANT_Q < 7) goto L_SUB_2;
			if (NOV_3_MERCHANT != 0) goto L_EXIT;
			mes "[僇僾儔怑堳]";
	   		mes "偙傫偵偪偼";
	   		mes "偙偙偵壗偐偛梡偱偡偐丠";
			goto L_EXIT;
	L_SUB_2:
		if (JOB_MERCHANT_Q > 6) goto L_SUB_2;
		if (JOB_MERCHANT_Q < 5) goto L_SUB_2;
		mes "[僇僾儔怑堳]";
		mes "彜恖僊儖僪偐傜壸暔傪撏偗偵丠";
		mes "偁丄偼偄両偱偼壸暔偼偙偙偵乧";
			if (countitem(1081)>=1) goto L_SUB_3;
			if (countitem(1082)>=1) goto L_SUB_3;
			if (countitem(1091)>=1) goto L_SUB_3;
			goto L_SUB_4;
	L_SUB_3:
			mes "偙傫側偵廳偄傕偺傪乧";
			mes "偙偙傑偱偛嬯楯條偱偟偨丅";
			goto L_SUB_5;
	L_SUB_4:
			mes "偁偺乧昳暔偼偳偙偱偡偐乧丠";
			goto L_EXIT;
	L_SUB_5:
		next;
		mes "[僇僾儔怑堳]";
		mes "昳暔偺揱昜斣崋傪妋擣偟偰傒傑偡丅";
		mes "偊偭偲乧";
		if (JOB_MERCHANT_Q2 != 1) goto L_SUB_7;
			if (countitem(1081)<1) goto L_START_2;
			mes "2485741乧 偼偄丅";
			mes "妋偐偵拲暥偟偨昳暔偱偡丅";
			mes "攝払椞廂彂偑昁梫偱偡偹丠";
			mes "偡偖敪峴抳偟傑偡丅";
			delitem 1081,1;
			getitem 1073,1;
			goto L_START_3;
	L_SUB_7:
		if (JOB_MERCHANT_Q2 != 2) goto L_START_2;
			if (countitem(1082)<1) goto L_START_2;
			mes "2328137乧 偼偄丅";
			mes "妋偐偵拲暥偟偨昳暔偱偡丅";
			mes "攝払椞廂彂偑昁梫偱偡偹丠";
			mes "偡偖敪峴抳偟傑偡丅";
			delitem 1082,1;
			getitem 1074,1;
			goto L_START_3;
	L_START_2:
		mes "乧乧偊丠";
		mes "偙偺斣崋偼乧乧丠";
		next;
		mes "[僇僾儔怑堳]";
		mes "偁偺丄偙偺昳暔偼";
		mes "偙偪傜偺傕偺偱偼偛偞偄傑偣傫丅";
		mes "彜恖僊儖僪偐傜偙偙偵棃傞昳暔偺";
		mes "揱昜斣崋偼2485741枖偼2328137偱偡丅";
		mes "壗偐偺娫堘偄偱偼側偄偱偟傚偆偐丠";
		goto L_EXIT;
	L_START_3:
		if (JOB_MERCHANT_Q != 6) goto L_SUB_3_1;
		set JOB_MERCHANT_Q,8;
		goto L_SUB_3_2;
	L_SUB_3_1:
		set JOB_MERCHANT_Q,7;
	L_SUB_3_2:
		set FIRST_JOB_QUEST,5;
   		next;
		mes "[僇僾儔怑堳]";
		mes "偙傫側偵墦偔傑偱偛嬯楯偝傑偱偟偨丅";
	L_EXIT:
		cutin "kafra_02",255;
		close;
}

//----------------------------------
// < 僾儘儞僥儔 - 拞墰 >
//----------------------------------

prontera.gat,146,89,6	script	僇僾儔怑堳	117,{
	cutin "kafra_01",2;
	mes "[僇僾儔怑堳]";
	mes "偄傜偭偟傖偄傑偣";
	mes "僇僾儔僒乕價僗偼";
	mes "偄偮傕奆條偺偦偽偵偄傑偡丅";
	mes "壗傪偍庤揱偄偄偨偟傑偟傚偆丠";
	next;
	menu "埵抲僙乕僽僒乕價僗",L1,"憅屔僒乕價僗",L2,"嬻娫堏摦僒乕價僗",L3,"僇乕僩僒乕價僗",L4,"僇僾儔億僀儞僩妋擣",L5,"僇僾儔怑堳攝抲埬撪",L6,"廔椆",L7;
L1:
		savepoint "prontera.gat",116,72;
		mes "[僇僾儔怑堳]";
		mes "僙乕僽偟傑偟偨丅";
		mes "偛棙梡偁傝偑偲偆偛偞偄傑偡丅";
		goto L_EXIT;
L2:
	if(basicskillcheck(0) > 0 && getskilllv(1) < 6) goto Lerror2_1;
	if (Zeny < 40) goto Lerror2_2;
		set Zeny,Zeny-40;
		openstorage;
		goto L_EXIT;
	Lerror2_1:
		mes "[僇僾儔怑堳]";
		mes "憅屔偼婎杮僗僉儖儗儀儖6傪";
		mes "廗摼偟偰偐傜棙梡壜擻偲側傝傑偡丅";
		goto L_EXIT;
	Lerror2_2:
		mes "[僇僾儔怑堳]";
		mes "偍媞條丄偍嬥偑懌傝傑偣傫丅";
		mes "憅屔棙梡椏嬥偼 40 Zeny偱偡丅";
		goto L_EXIT;
L3:
	mes "[僇僾儔怑堳]";
	mes "栚揑抧傪偍慖傃壓偝偄丅";
	next;
	menu "僀僘儖乕僪 -> 900 z",L3_1,"僎僼僃儞 -> 1400 z",L3_2,"僼僃僀儓儞 -> 1700 z",L3_3,"儌儘僋 -> 1800 z",L3_4,"僐儌僪 -> 2000 z",L3_5,"僆乕僋僟儞僕儑儞 -> 1700 z",L3_6,"庢傝徚偟",L3_7;
		L3_1:
			if (Zeny < 900) goto Lerror3;
			set Zeny,Zeny-900;set KF_PIT,KF_PIT+90;warp "izlude",91,105;end;
		L3_2:
			if (Zeny < 1400) goto Lerror3;
			set Zeny,Zeny-1400;set KF_PIT,KF_PIT+140;warp "geffen",120,39;end;
		L3_3:
			if (Zeny < 1700) goto Lerror3;
			set Zeny,Zeny-1700;set KF_PIT,KF_PIT+170;warp "payon",69,100;end;
		L3_4:
			if (Zeny < 1800) goto Lerror3;
			set Zeny,Zeny-1800;set KF_PIT,KF_PIT+180;warp "morocc",156,46;end;
		L3_5:
			if (Zeny < 2000) goto Lerror3;
			set Zeny,Zeny-2000;set KF_PIT,KF_PIT+200;warp "comodo",209,143;end;
		L3_6:
			if (Zeny < 1700) goto Lerror3;
			set Zeny,Zeny-1700;set KF_PIT,KF_PIT+170;warp "gef_fild10",52,326;end;
		L3_7:
				mes "[僇僾儔怑堳]";
				mes "偁傝偑偲偆偛偞偄傑偟偨丅";
				mes "傑偨偛棙梡偔偩偝偄傑偣丅";
				goto L_EXIT;
		Lerror3:
				mes "[僇僾儔怑堳]";
  				mes "偍媞條丄偍嬥偑懌傝傑偣傫丅";
   				mes "強帩嬥傪偍妋偐傔偔偩偝偄丅";
				goto L_EXIT;
L4:
	if (!((Class == 5) || (Class == 10) || (Class == 18))) goto Lerror4_1;
	mes "[僇僾儔怑堳]";
	mes "僇乕僩棙梡椏嬥偼 800 Zeny偱偡丅";
	mes "傑偨丄僇乕僩傪棙梡偡傞偵偼";
	mes "