npc_job_archer.txt

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

payon_in02.gat,64,71,4	script	僊儖僪娭學幰	85,{
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "偙傫偵偪偼丄";
	mes "壗傪偍庤揱偄偟傑偟傚偆偐丠";
	next;
	menu "傾乕僠儍乕偵揮怑",L1,"傾乕僠儍乕偺揮怑忦審偼丠",L2,"側傫偱傕偁傝傑偣傫丅",Lend;
L1:
	if (Class == 3) goto Ltwice;
	if (Class != 0) goto LError;
	if (change_archer == 1) goto Lcheck;
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "傾乕僠儍乕傊偺揮怑傪偍媮傔偱偡偐丠";
	mes "偦偆偱偟偨傜丄偙偙偱傾乕僠儍乕揮怑偺";
	mes "怽偟崬傒傪偟偰壓偝偄丅";
	next;
	menu "傾乕僠儍乕揮怑怽偟崬傒傪偡傞丅",-,"傗傔傞",Lend2;
		set change_archer,1;
		mes "[傾乕僠儍乕僊儖僪娭學幰]";
		mes "怽惪彂偵僒僀儞傪偟偰乧";
		mes "偼偄丅偙傟偱OK偱偡丅";
		mes "偙傟偐傜傾乕僠儍乕偵側傞偨傔偺忦審傪";
		mes "慡偰枮偨偣偽丄揮怑偑壜擻偱偡丅";
		mes "婛偵揮怑偺忦審傪枮偨偟偰偄傞偐丄";
		mes "崱妋擣偟傑偡偑乧傛傠偟偄偱偡偐丠";
		next;
		menu "偼偄丅",L1_1,"偄偄偊丅",L1_2;
L1_1:
			mes "[傾乕僠儍乕僊儖僪娭學幰]";
			mes "妋擣偟傑偡丅";
			next;
			goto Lcheck;
L1_2:
			mes "[傾乕僠儍乕僊儖僪娭學幰]";
			mes "傢偐傝傑偟偨丅";
			mes "傾乕僠儍乕揮怑忦審偵偮偄偰";
			mes "傢偐傜側偄晹暘偑偁傟偽丄";
			mes "巹偵暦偄偰偔偩偝偄丅";
			close;
L2:
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "偦傟偠傖丄傾乕僠儍乕偺揮怑忦審偵";
	mes "偮偄偰愢柧偟傑偡丅";
	if (Class == 0) goto L2_1;
		if (Class == 3) mes "偱傕丄婱曽偼婛偵傾乕僠儍乕偱偡偑乧";
		if (Class != 3)	mes "偱傕丄婱曽偭偰傕偆懠偺怑嬈偵";
		if (Class != 3)	mes "側偭偰傑偡偑乧";
		mes "乧傑偁丄偄偄偱偟傚偆丅";
L2_1:
	next;
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "傑偢丄弶怱幰僗僉儖儗儀儖傪";
	mes "俋埲忋偵偟偰壓偝偄丅";
	mes "傾乕僠儍乕偼崅搙偺廤拞椡傪";
	mes "昁梫偲偡傞怑嬈偱偁傞偨傔丄";
	mes "儅僰働側搝偼傾乕僠儍乕偵偼";
	mes "愨懳側傟傑偣傫丅";
	next;
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "傾乕僠儍乕揮怑帋尡偱偼丄媩偺惢嶌偵";
	mes "昁梫側 ^ff0000栘孄^000000 傪廤傔偰偒偰偔偩偝偄丅";
	mes "帩偭偰偒偨栘孄偼係偮偺GRADE偵";
	mes "暘椶偝傟丄偦偺悢偲崌傢偣偰";
	mes "嵦揰偝傟傑偡丅";
	next;
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "40揰枮揰拞^0000ff25揰埲忋^000000偱偁傟偽丄";
	mes "傾乕僠儍乕揮怑偑壜擻偱偡丅";
	mes "栘孄傾僀僥儉偼丄儌儞僗僞乕";
	mes "<僂傿儘乕>偐傜摼傜傟傑偡丅庛偄";
	mes "儌儞僗僞乕偱偡偑丄桘抐偼嬛暔偱偡丅";
	close;
Lcheck:
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "偍柤慜偑乧 " + strcharinfo(0) + "丅偱偡傛偹丠";
	next;
	if (getskilllv(1) < 9) goto Llowlv;
		mes "[傾乕僠儍乕僊儖僪娭學幰]";
		mes "弶怱幰僗僉儖偼廫暘偱偡偐傜乧";
		mes "媩惢嶌偵昁梫側栘孄偺娪掕傪巒傔傑偡丅";
		mes "乧丅偊~~";
		next;
		set @gradeS,countitem(1066)*5;
		set @gradeA,countitem(1067)*3;
		set @gradeB,countitem(1068)*2;
		set @gradeC,countitem(1019)*1;
		set @total,@gradeS+@gradeA+@gradeB+@gradeC;
		if (@total == 0) goto Lnoitem;
			mes "[傾乕僠儍乕僊儖僪娭學幰]";
			if (countitem(1066) > 0) mes "GRADE S : " + countitem(1066) + " 屄 / 揰悢 : " + @gradeS + "丅";
			if (countitem(1067) > 0) mes "GRADE A : " + countitem(1067) + " 屄 / 揰悢 : " + @gradeA + "丅";
			if (countitem(1068) > 0) mes "GRADE B : " + countitem(1068) + " 屄 / 揰悢 : " + @gradeB + "丅";
			if (countitem(1019) > 0) mes "GRADE C : " + countitem(1019) + " 屄 / 揰悢 : " + @gradeC + "丅";
			if (@total >= 25) mes "憤揰: ^0000ff" + @total + "^000000 / 40";
			if (@total < 25) mes "憤揰: ^ff0000" + @total + "^000000 / 40";
			next;
				if (@total > 25) goto Lgoukaku;
					mes "[傾乕僠儍乕僊儖僪娭學幰]";
					mes "25揰埲壓?";
					mes "25揰埲忋偵側傜側偗傟偽丄";
					mes "崌奿偵側傝傑偣傫両";
					mes "傕偭偲婃挘偭偰偔偩偝偄両";
					close;
			Lgoukaku:
					delitem 1066,countitem(1066);
					delitem 1067,countitem(1067);
					delitem 1068,countitem(1068);
					delitem 1019,countitem(1019);
					mes "[傾乕僠儍乕僊儖僪娭學幰]";
					if ((@total >= 25) && (@total < 30)) mes "25揰埲忋両偆乣傫";
					if ((@total >= 25) && (@total < 30)) mes "偓傝偓傝偱偡偑崌奿偱偡丅";
					if ((@total >= 30) && (@total < 40)) mes "30揰埲忋両崌奿偱偡両";
					if ((@total >= 30) && (@total < 40)) mes "偍旀傟條偱偟偨両";
					if (@total >= 40) mes "偆傢両40揰埲忋両";
					if (@total >= 40) mes "惁偄偱偡両崌奿偱偡両";
					mes "栘孄傪惢嶌學偵搉偟傑偡丅";
					mes "偙傟偱傾乕僠儍乕揮怑忦審偑";
					mes "懙偄傑偟偨丅偡偖揮怑偝偣偰捀偒傑偡丅";
					next;
					jobchange 3;
					getitem 1702,1;
					getitem 1750,rand(100);
					mes "[傾乕僠儍乕僊儖僪娭學幰]";
					mes "傾乕僠儍乕傊偺揮怑丄";
					mes "偍傔偱偲偆偛偞偄傑偡両偦偟偰丄";
					mes "偙傟偐傜傕傾乕僠儍乕僊儖僪偺";
					mes "暅嫽偺偨傔丄婃挘偭偰偔偩偝偄両";
					mes "偁丄惢嶌學傝偐傜僾儗僛儞僩偑";
					mes "撏偒傑偟偨丅偍庴偗庢傝偔偩偝偄丅";
					next;
					mes "[傾乕僠儍乕僊儖僪娭學幰]";
					mes "傾乕僠儍乕偼傗偭傁傝";
					mes "媩偲栴傪帩偨側偄偲両";
					mes "偦傟偠傖丄婃挘偭偰偔偩偝偄丅";
					mes "婜懸偟偰傑偡丅";
					set change_archer,2;
					close;
		Lnoitem:
			mes "[傾乕僠儍乕僊儖僪娭學幰]";
			mes "乧乧丅";
			mes "娪掕偡傞傾僀僥儉偑偁傝傑偣傫!!";
			close;
Llowlv:
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "傑偩弶怱幰僗僉儖儗儀儖偑懌傝傑偣傫丅";
	mes "揮怑忦審傪傕偆堦搙妋擣偟偨忋偱丄";
	mes "弶怱幰僗僉儖儗儀儖俋傑偱";
	mes "儅僗僞乕偟偰壓偝偄丅";
	close;
Ltwice:
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "婱曽偼傕偆傾乕僠儍乕偵";
	mes "揮怑偝傟偰偄傑偡丅";
	close;
LError:
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "傆乧丅";
	mes "尒偐偗偼弶怱幰偱偼偁傝傑偣傫偑乧";
	mes "懠偺怑嬈傪慖戰偟偨埲忋丄";
	mes "傾乕僠儍乕偵偼側傟傑偣傫丅";
Lend:
	close;
Lend2:
	mes "[傾乕僠儍乕僊儖僪娭學幰]";
	mes "偁乧偝傛側傜丅";
	close;
}
//==============================================================================
payon_in02.gat,21,31,2	script	僴儞僞乕	59,{
//!!!
	mes "[僴儞僞乕]";
	mes "偳傫側梡帠偱偡偐丠";
	mes "巹偼弌挘偵棃偰偄傞偺偱朲偟偄傫偱偡丅";
	mes "偳偆偐峔傢側偄偱偔偩偝偄丅";
	close;
}