npc_event_valentine.txt

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

//Valentine Script 2004-02-12
alberta.gat,26,243,4	script	僠儑僐儗乕僩彜恖	58,{
//抝彈峸擖壜擻
	mes "[儅儖僐=僶僕僯僆]";
	mes "儖乕儞儈僢僪僈僢僣墹崙偱偼柵懡偵";
	mes "枴傢偊側偄摿嶻昳両";
	mes "堦岥怘傋傟偽扤偱傕岾偣偵僩儘乣儕";
	mes "偲傠偗傞偍壻巕両";
	mes "帺暘偱怘傋偰傕偄偄偟丄憽傝暔偵傕";
	mes "僺僢僞儕偩両";
	next;
	mes "[儅儖僐=僶僕僯僆]";
	mes "偦傫側僠儑僐儗乕僩偑 ^ff0000堦屄";
	mes "5000zeny^000000両";
	next;
	menu "僠儑僐儗乕僩偔偩偝偄両",L1,"偄傝傑偣傫両",Lend;
Lend:
		mes "[儅儖僐=僶僕僯僆]";
		mes "僂儂丠偙乣傫側僗儁僔儍儖側僠儑僐儗乕";
		mes "僩偑梸偟偔側偄偲乧乧巆擮偱偡偹両";
		mes "崱偩偗偟偐攦偊側偄僗儁僔儍儖偱摿暿側";
		mes "偍壻巕偱偡傛両峫偊捈偟偰丄僠儑僐儗乕";
		mes "僩偑梸偟偔側偭偨傜惀旕惀旕惀旕傑偨";
		mes "棃偰偔偩偝偄両偍懸偪偟偰偍傝傑偡両";
		close;
L1:
		mes "[儅儖僐=僶僕僯僆]";
		mes "僂儂両偁傝偑偲偆偛偞偄傑偡丄偍媞條両";
		mes "偙偺僠儑僐儗乕僩偼怑恖偺嵃偑媗傑偭偰";
		mes "偄傞偲尵偭偰傕夁尵偱偼側偄偺偱偡両";
		mes "側偺偱丄堦夞偺偍攦偄忋偘偵偮偒";
		mes "^ff00005屄傑偱^000000偲側偭偰偍傝傑偡両";
		next;
		mes "[儅儖僐=僶僕僯僆]";
		mes "傕偭偲梸偟偄偺偱偟偨傜丄傑偨屻偱嵞峸";
		mes "擖偍偹偑偄偟傑偡両偱偼丄偄偔偮梸偟偄";
		mes "偺偱偟傚偆偐両";
		next;
Linput:
		input @choconum;
		if (@choconum > 5) goto LError;
		if (@choconum == 0) goto Lend;
		set @chocoprice,@choconum*5000;
		if (Zeny < @chocoprice) goto LError2;
			set Zeny,Zeny-@chocoprice;
			getitem 558,@choconum;
			mes "[儅儖僐=僶僕僯僆]";
			mes "偁傝偑偲偆偛偞偄傑偡両";
			mes "巹偼丄傕偆偟偽傜偔偙偙偵偄傑偡偐傜";
			mes "僠儑僐儗乕僩偑梸偟偔側偭偨傜丄傑偨";
			mes "偳偆偧両偍懸偪偟偰偍傝傑偡両";
			close;
LError:
	mes "[儅儖僐=僶僕僯僆]";
	mes "僂儂儂儂儂儂儂丄懯栚丄懯栚懯栚両";
	mes "堦夞偺偍攦偄忋偘偱5屄傑偱偲愢柧偟傑";
	mes "偟偨傛偹両巹偼偨偔偝乕傫偺恖偵丄偙偺";
	mes "僠儑僐儗乕僩傪枴傢偭偰梸偟偄偺偱偡両";
	mes "偦傟偵丄怘傋偡偓傞偲懢傝傑偡両";
	next;
	goto Linput;
LError2:
	mes "[儅儖僐=僶僕僯僆]";
	mes "僂儂丠偁傟偁傟丄偁傟傟乧乧偍媞偝傫両";
	mes "偍嬥偑懌傝傑偣傫傛丅偦傟偱偼僠儑僐";
	mes "儗乕僩傪攧傞偙偲偼弌棃傑偣傫両";
	mes "巹偼丄傕偆偟偽傜偔偙偙偵偄傑偡偐傜";
	mes "偍嬥偑弌棃偨傜傑偨偳偆偧両";
	close;
}

alberta.gat,29,243,4	script	僠儑僐儗乕僩彜恖偺楒恖	53,{
	if ((Sex == 0) && (countitem(7182) >= 5) && (countitem(7134) >= 1) && (countitem(519) >= 1) && (countitem(612) >= 1)) goto Lmake;
	mes "[僄僗僥儖=儘乕僘]";
	mes "偙傫偵偪偼丅幚偼丄巹偺斵偑攧偭偰偄傞";
	mes "僠儑僐儗乕僩偼巹偑嶌偭偰偄傞傫偱偡丅";
	mes "奜崙偱丄嶌傞曽朄傪妛傫偱偒偨偺偱偡丅";
	next;
	mes "[僄僗僥儖=儘乕僘]";
	mes "奜崙偱偼丄偙偺帪婜偵岲偒側恖偵僠儑僐";
	mes "儗乕僩傪僾儗僛儞僩偡傞晽廗偑偁傝傑";
	mes "偡丅娒偄婥帩偪傪丄娒偄僠儑僐儗乕僩偵";
	mes "戸偡乧乧偡偽傜偟偄偲巚偄傑偣傫偐丠";
	next;
	mes "[僄僗僥儖=儘乕僘]";
	mes "巹偺僠儑僐儗乕僩偑彮偟偱傕偍栶偵棫偰";
	mes "傟偽偲丄偨偔偝傫偨偔偝傫丄僠儑僐儗乕";
	mes "僩傪嶌偭偨傫偱偡丅";
	next;
	mes "[僄僗僥儖=儘乕僘]";
	mes "斵偼丄偦傫側巹傪尒偰