npc_event_potion.txt

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

				getitem @GET_ID,@BUY_NUM;
				goto L_START_2;
	L_ROOT_1_1:
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "偙傟偙傟...嵽椏偑懌傝側偄偹丅偙傫側晽側傜丄巹偵傕偟傛偆偑側偄";
				close;
	L_ROOT_1_2:
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "廳検僆乕僶乕偱偡";
				close;
	L_ROOT_1_3:
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "偙傟偙傟...偍嬥偑懌傝側偄偹丅偙傫側晽側傜丄巹偵傕偟傛偆偑側偄";
				close;
	L_MENU_1_5:
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "傆乕傓丄偄傗側傜偟傛偆偑側偄...";
				close;
	L_START_2:
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "偝 ! 栺懇偟偨僕儏乕僗偱偡丅 枴偑偲偰傕偄偄偱偟傚偆.";
				mes "偱偼丄崱搙傑偨棃偰偔偩偝偄.";
				close;
	L_MENU_2:
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "恖娫偑傑偩崱偺傛偆偵懡偔偺抦幆傪帩偮慜偵偼丄傒傫側栘偺壥暔傪偲偭偰怘傋側偑傜惗偒偰偄偨偲偄偆.";
				mes "傂傚偭偲偟偨傜丄壥暔偼恖娫傪偙偺悽偵懚嵼偱偒傞傛偆偵偟偨戝帺慠偺廽暉偱偼側偐偭偨偺偱偟傚偆偐.";
				next;
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "惗妶偑朙偐偵側傞偲丄偙偺崰偺庒幰偨偪偼壥暔傪暿偵怘傋側偄傛偆偵側偭偨傒偨偄偱偡.";
				mes "偦傟偱丄壥暔傪傕偭偲怘傋傗偡偔偡傞曽朄傪峫偊偰傒傑偟偨.";
				mes "偦偺寢壥丄壥暔傪傛偔狲偄偰壥廯偵偟偰怘傋偨傜丄怘傋傗偡偔側傝丄枴傕傕偭偲椙偔側傞偙偲偑暘偐傝傑偟偨.";
				next;
				mes "# 僼儖乕僣僕儏乕僗 #";
				mes "傝傫偛僕儏乕僗 - ";
				mes "- 傝傫偛 x 1 , 嬻鹡 x 1 屄 , 3  Zeny.";
				mes "";
				mes "僶僫僫僕儏乕僗 -";
				mes "- 僶僫僫 x 1 屄, 嬻鹡 x 1 屄 , 3  Zeny.";
				mes "";
				mes "偵傫偠傫僕儏乕僗 -";
				mes "- 偵傫偠傫 x 1 屄, 嬻鹡 x 1 屄 , 3  Zeny.";
				mes "";
				mes "晵摳僕儏乕僗 -";
				mes "- 晵摳 x 1 屄, 嬻鹡 x 1 屄 , 3  Zeny.";
				close;
	L_MENU_3:
				mes "[彜恖 儅儖僋僴儞僙儞]";
				mes "傎傜丄恖傪朘偹偰偒偨傜梡帠傪榖偟偨傜偳偆偱偡偐?.";
				close;
	L_START_0:
		mes "[彜恖 儅儖僋僴儞僙儞]";
		mes "偄傜偭偟傖偄丄巹偵側傫偺梡偱偡偐??";
		next;
		menu "榖傪偡傞",-,"傗傔傞",L_MENU_4;
			mes "[彜恖 儅儖僋僴儞僙儞]";
			mes "恖娫偑傑偩崱偺傛偆偵懡偔偺抦幆傪帩偮慜偵偼丄傒傫側栘偺壥暔傪偲偭偰怘傋側偑傜惗偒偰偄偨偲偄偆.";
			mes "傂傚偭偲偟偨傜丄壥暔偼恖娫傪偙偺悽偵懚嵼偱偒傞傛偆偵偟偨戝帺慠偺廽暉偱偼側偐偭偨偺偱偟傚偆偐.";
			next;
			mes "[彜恖 儅儖僋僴儞僙儞]";
			mes "惗妶偑朙偐偵側傞偲丄偙偺崰偺庒幰偨偪偼壥暔傪暿偵怘傋側偄傛偆偵側偭偨傒偨偄偱偡.";
			mes "偦傟偱丄壥暔傪傕偭偲怘傋傗偡偔偡傞曽朄傪峫偊偰傒傑偟偨.";
			mes "偦偺寢壥丄壥暔傪傛偔狲偄偰壥廯偵偟偰怘傋偨傜丄怘傋傗偡偔側傝丄枴傕傕偭偲椙偔側傞偙偲偑暘偐傝傑偟偨.";
			close;
	L_MENU_4:
			mes "[彜恖 儅儖僋僴儞僙儞]";
			mes "傎傜丄恖傪朘偹偰偒偨傜梡帠傪榖偟偨傜偳偆偱偡偐?.";
			close;
}

alberta_in.gat,16,28,4	script	栻巘偍偠偄偝傫	61,{
		mes "[惢栻巘 偍偠偄偝傫]";
		mes "偊偊乧偍媞偝傫偐乧?壗偺梡偐偄?";
		next;
		menu "億乕僔儑儞傪憿傞.",-,"懳榖偡傞.",L_MENU_2,"慻崌曽朄傪暦偔.",L_MENU_3,"壗偱傕偁傝傑偣傫.",L_MENU_4;
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "嵽椏偼梡堄偟偰棃偨偐偄?偳偺搝偑傎偟偄?";
			next;
			menu "愒億乕僔儑儞.",L_MENU_1_1,"峠億乕僔儑儞.",L_MENU_1_2,"墿億乕僔儑儞.",L_MENU_1_3,"敀億乕僔儑儞.",L_MENU_1_4,"惵億乕僔儑儞.",L_MENU_1_5,"椢億乕僔儑儞.",L_MENU_1_6,"傗偭傁傝傗傔傞.",L_MENU_1_7;
	L_MENU_1_1:
			set @BUY_ID1,507;
			set @BUY_NEED1,2;
			set @BUY_ID2,0;
			set @BUY_NEED2,0;
			set @GET_ID,501;
			set @BUY_PRICE,3;
			goto L_SUB_1_1;
	L_MENU_1_2:
			set @BUY_ID1,507;
			set @BUY_NEED1,1;
			set @BUY_ID2,508;
			set @BUY_NEED2,1;
			set @GET_ID,502;
			set @BUY_PRICE,5;
			goto L_SUB_1_1;
	L_MENU_1_3:
			set @BUY_ID1,508;
			set @BUY_NEED1,2;
			set @BUY_ID2,0;
			set @BUY_NEED2,0;
			set @GET_ID,503;
			set @BUY_PRICE,10;
			goto L_SUB_1_1;
	L_MENU_1_4:
			set @BUY_ID1,509;
			set @BUY_NEED1,2;
			set @BUY_ID2,0;
			set @BUY_NEED2,0;
			set @GET_ID,504;
			set @BUY_PRICE,20;
			goto L_SUB_1_1;
	L_MENU_1_5:
			set @BUY_ID1,510;
			set @BUY_NEED1,2;
			set @BUY_ID2,0;
			set @BUY_NEED2,0;
			set @GET_ID,505;
			set @BUY_PRICE,30;
			goto L_SUB_1_1;
	L_MENU_1_6:
			set @BUY_ID1,511;
			set @BUY_NEED1,2;
			set @BUY_ID2,0;
			set @BUY_NEED2,0;
			set @GET_ID,506;
			set @BUY_PRICE,3;
	L_SUB_1_1:
			set @POTION1,countitem(@BUY_ID1);
			set @POTION1,@POTION1/@BUY_NEED1;
			if (@BUY_ID2 <= 0) goto L_SUB_1_2;
			set @POTION2,countitem(@BUY_ID2);
			set @POTION2,@POTION2/@BUY_NEED2;
	L_SUB_1_2:
			set @BOTTLE,countitem(713);
			set @BUY_NUM,@POTION1;
			if (@BUY_ID2 <= 0) goto L_SUB_1_3;
			if (@BUY_NUM <= @POTION2) goto L_SUB_1_3;
			set @BUY_NUM,@POTION2;
			if (@BUY_NUM <= @BOTTLE) goto L_SUB_1_3;
			set @BUY_NUM,@BOTTLE;
	L_SUB_1_3:
			if (@BUY_NUM == 0) goto L_ROOT_1_1;
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "偳偺偔傜偄梸偟偄?";
			next;
			menu "慡晹偱偡.",L_SUB_1_4,"悢傪寛傔傑偡.",-,"傗偭傁傝傗傔傑偡.",L_MENU_1_7;
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "偦偆偟偨傜丄侾侽侽屄埲壓偵偟偰偔傟.傗傔傞傫偩偭偨傜丄'侽'偵偟偰偔傟.";
			mes "孨偑帩偭偰偄傞嵽椏偱偼丄" + @BUY_NUM + " 屄偖傜偄憿傟偦偆偩側.";
			next;
			input @BUY_NUM;
			if (@BUY_NUM == 0) goto L_MENU_1_7;
	L_SUB_1_4:
			set @BUY_ZENY,@BUY_NUM;
			set @BUY_ZENY,@BUY_ZENY*@BUY_PRICE;
			set @BUY_NUM1,@BUY_NUM;
			set @BUY_NUM1,@BUY_NUM1*@BUY_NEED1;
			if (countitem(@BUY_ID1)<@BUY_NUM1) goto L_ROOT_1_1;
			if (@BUY_ID2 <= 0) goto L_SUB_1_5;
			set @BUY_NUM2,@BUY_NUM;
			set @BUY_NUM2,@BUY_NUM2*@BUY_NEED2;
			if (countitem(@BUY_ID2)<@BUY_NUM2) goto L_ROOT_1_1;
	L_SUB_1_5:
			if (countitem(713)<@BUY_NUM) goto L_ROOT_1_1;
			if (!(checkweight(@GET_ID,@BUY_NUM))) goto L_ROOT_1_3;
			if (Zeny < @BUY_ZENY) goto L_ROOT_1_2;
			delitem @BUY_ID1,@BUY_NUM1;
			if (@BUY_ID2 <= 0) goto L_SUB_1_6;
			delitem @BUY_ID2,@BUY_NUM2;
	L_SUB_1_6:
			delitem 713,@BUY_NUM;
			set Zeny,Zeny-@BUY_ZENY;
			getitem @GET_ID,@BUY_NUM;
			goto L_START_2;
	L_ROOT_1_1:
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "偙偺埆僈僉!嵽椏傕側偄偔偣偵偵憿偭偰偔傟偭偰?";
			mes "婣傟!婣傟!";
			close;
	L_ROOT_1_2:
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "偙偺埆僈僉!偍嬥傕側偄偔偣偵憿偭偰偔傟偭偰?";
			mes "婣傟!婣傟!";
			close;
	L_ROOT_1_3:
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "廳検僆乕僶乕偱偡.";
			mes "婣傟!婣傟!";
			close;
	L_START_2:
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "偆傓.弌棃忋偑傝!庴偗庢傟傛.";
			mes "婥傪晅偗傠!栻偼巊偄偡偓傞偲懱偵傛偔側偄偧!";
			close;
	L_MENU_1_7:
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "側偵?偙偄偮乧梡偑側偐偭偨傜榖偟偐偗傞側!";
			close;
	L_MENU_2:
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "栻偱偼恖娫偺夞暅擻椡偑岦偱偒傞.偳偙傑偱傕恖娫偺夞暅擻椡傪 嬌戝壔偝偣傞偙偲偵偡偓側偗傟偽側傜側偄...";
			mes "偲傎傎... 擭傪庢偭偨偐傜側偺偐丄傑偨愄偺偙偲偑 巚偄弌偡側....";
			mes "偲偵偐偔丄億乕僔儑儞偼栻偱偁傞偩偗偩... 偦傟埲忋傕偦傟埲壓偱傕側偄.";
			close;
	L_MENU_3:
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "傗傟傗傟... 庒偄儎僣偑憡摉偟偮偙偄偹... 傛偟丄 偳偆偣暦偄偨傕傫偩偐傜丄徻嵶偵愢柧偟偰傗傞.";
			next;
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "僴乕僽偼偦偺傑傑巊偭偰傕澚壥偼偁傞偗偳丄傢偟偩偗抦偭偰偄傞摿庩側旈朄偲桪傟偨擻椡傪廫暘敪婗偟偰丄悈栻偵偮偔傟偽丄偦偺澚壥偼傕偭偲崅偔側傞.";
			next;
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "孨偑棅傓側傜嶌偭偰偁偘傞.偩偑丄偨偩偱嶌偭偰傗傞偲偄偆偙偲偠傖側偔偰.... 庒姳偺 庤悢椏偑昁梫偗偳丄傢偟偺彫尛偄偔傜偄壱偛偆偲偡傞傕傫偩偐傜丄偦傫側偵崅偔偼側偄.";
			next;
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "愒偄億乕僔儑儞 - ^0098E5愒偄僴乕僽 2屄丄 嬻鹡 1屄丄 庤悢椏 3 Zeny.^000000";
			mes "庨怓億乕僔儑儞 - ^0098E5愒偄僴乕僽 1屄丄 墿怓偄僴乕僽 1屄丄 嬻鹡 1屄丄 庤悢椏 5 Zeny.^000000";
			mes "墿怓億乕僔儑儞 - ^0098E5墿怓偄僴乕僽 2屄丄 嬻鹡 1屄丄 庤悢椏 10 Zeny.^000000";
			next;
			mes "[惢栻巘 偍偠偄偝傫]";
			mes "敀偄億乕僔儑儞 - ^0098E5敀偄僴乕僽 2屄丄 嬻鹡 1屄丄 庤悢椏 20 Zeny.^000000";
			mes "惵偄億乕僔儑儞 - ^0098E5