npc_event_whiteday.txt

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

alberta.gat,188,64,4	script	偍壻巕彜恖	91,{
	set @maplenum,0;
	set @mapleItemID,0;
	set @maplePrice,0;
	set @maplePriceT,0;
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "偄傜偭偟傖偄傑偣両";
	mes "旤枴偟偄偍壻巕偼偄偐偑偱偡偐丠";
	mes "偍巘彔條乧乧偠傖側偔偰乧乧";
	mes "傾儖儀儖僞偺偍壻巕怑恖偑";
	mes "堦惗寽柦偮偔偭偨偍壻巕偱偡丅";
	next;
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "垽偟偄恖偐傜傕傜偭偨";
	mes "僾儗僛儞僩偺偍曉偟偵乧乧";
	mes "怱偺偙傕偭偨丄偁傑偀乣偄";
	mes "偍壻巕偼偄偐偑偱偡偐乣丠";
	next;
	menu "偔偩偝偄両",-,"偄傝傑偣傫丅",Lend,"偍巘彔條丠",L1;

		mes "[儊僀僾儖=僔儏僈乕]";
		mes "偼偄両";
		mes "偙偪傜偑儊僯儏乕偵側偭偰偍傝傑偡乣";
		mes "悢偵尷傝偑偁傞偨傔";
		mes "傑偲傔攦偄偼^ff00005偮^000000傑偱偲";
		mes "偝偣偰偄偨偩偒傑偡偹丅";
		next;
		menu "僉儍儞僨傿",L0_1,"僗僥傿僢僋僉儍儞僨傿",L0_2,"傛偔從偄偨僋僢僉乕",L0_3;
L0_1:
	set @maplePrice,3000;
	set @mapleItemID,529;
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "僉儍儞僨傿偱偡偹乣";
	mes "3000Zeny偵側傝傑偡乣";
	mes "偄偔偮偍攦偄忋偘偱偡偐丠";
	next;
	goto Linput;
L0_2:
	set @maplePrice,4000;
	set @mapleItemID,530;
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "僗僥傿僢僋僉儍儞僨傿偱偡偹乣";
	mes "4000Zeny偵側傝傑偡乣";
	mes "偄偔偮偍攦偄忋偘偱偡偐丠";
	next;
	goto Linput;
L0_3:
	set @maplePrice,2000;
	set @mapleItemID,538;
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "傛偔從偄偨僋僢僉乕偱偡偹乣";
	mes "2000Zeny偵側傝傑偡乣";
	mes "偄偔偮偍攦偄忋偘偱偡偐丠";
	next;
	goto Linput;
Linput:
	input @maplenum;
	if (@maplenum > 5) goto LError;
	if (@maplenum == 0) goto Lend;
	set @maplePriceT,@maplePrice*@maplenum;
	if (Zeny < @maplePriceT) goto LError2;
		set Zeny,Zeny-@maplePriceT;
		getitem @mapleItemID,@maplenum;
		mes "[儊僀僾儖=僔儏僈乕]";
		mes "偁傝偑偲偆偛偞偄傑偡乣";
		mes "偙偺偍壻巕丄杮摉偵旤枴偟偄傫偱偡傛乣";
		mes "偍巘彔偺偍壻巕偼悽奅堦側傫偱偡偐傜両";
		mes "偛帺暘偱怘傋偰傕傛傠偟偄偱偡偗偳";
		mes "傗傒偮偒偵側偭偰懢傜側偄傛偆偵";
		mes "婥傪偮偗偰偔偩偝偄偹偉丅";
		close;
L1:
		mes "[儊僀僾儖=僔儏僈乕]";
		mes "偁丄偼偄丅";
		mes "巹偺偍巘彔條偼";
		mes "偍壻巕怑恖偺僋乕儀儖條偲";
		mes "僉儖僔儏條偱偡丅";
		mes "偍擇恖偺尦偱偍壻巕嶌傝偺";
		mes "廋峴傪偝偣偰偄偨偩偄偰偍傝傑偡乣";
		next;
		mes "[儊僀僾儖=僔儏僈乕]";
		mes "偙偺帪婜偼偍巘彔條払偑捈乆偵";
		mes "堏摦斕攧傪偟偰偄傞傜偟偄偺偱偡偑乧乧";
		mes "崱偳偙偵嫃傜傟傞偺偐偼丄";
		mes "巹偵偼傢偐傝傑偣傫偗偳丄";
		mes "偳偙偐偱夛偊傞偐傕偟傟傑偣傫偹乣";
		close;
LError:
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "偁傜丠偁傜傜丠";
	mes "壗屄偭偰偍偭偟傖偄傑偟偨丠";
	mes "崱丄巹暦偒摝偟偪傖偭偨傒偨偄偱偡丅";
	mes "傕偆堦搙偍偭偟傖偭偰偄偨偩偗傑偡偐丠";
	mes "堦搙偵偍攦偄忋偘偄偨偩偗傞偺偼";
	mes "^ff00005偮^000000傑偱偱偡乣";
	next;
	goto Linput;
LError2:
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "偁傜傜乧乧丠";
	mes "偍媞條丄偍嬥偑懌傝傑偣傫傛乣";
	mes "傕偆堦搙強帩嬥傪偍妋偐傔偺忋";
	mes "偛拲暥傪偍婅偄偄偨偟傑偡乣";
	close;
Lend:
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "偦偆偱偡偐乧乧巆擮偱偡丅";
	mes "偟偽傜偔偼偙偪傜偱";
	mes "斕攧偝偣偰偄偨偩偒傑偡偺偱丄";
	mes "傕偟梸偟偔側偭偨傜丄";
	mes "惡傪偍偐偗偔偩偝偄両";
	if (@mapleItemID == 0) close;
	next;
	mes "[儊僀僾儖=僔儏僈乕]";
	mes "偨偩偟丄悢偵尷傝偑偛偞偄傑偡偺偱";
	mes "偍憗傔偵乧乧";
	mes "偁傝偑偲偆偛偞偄傑偟偨丅";
	close;
}