test_prtg_cas01_abraij.txt

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

	mes "[幏帠傾僽儔僀]";
	mes "儅僗僞乕両";
	mes "搳帒偵昁梫側偍嬥偑偁傝傑偣傫丅";
	mes "搳帒傪庢傝徚偟傑偟偨丅";
	close;
//================================================
//Phase 5:僇僾儔偲偺宊栺丒夝屬
//================================================
L5:
	if (GetCastleData("prtg_cas01.gat",9) == 1) goto Lkafra_dimi;
//=========================
//(When Karfa off) Employment
//=========================
	mes "[幏帠傾僽儔僀]";
	mes "僇僾儔偲偺宊栺傪寢傃傑偡偐丠";
	mes "宊栺偵偼^ff0000 10000 ^000000Zeny 昁梫偱偡";
	next;
	menu "宊栺偡傞",-,"僉儍儞僙儖",L_k_E;
//debag
	goto L_k_0;
//check Kafraskill(OK -> L_k_0,NG -> -)
		mes "[幏帠傾僽儔僀]";
		mes "儅僗僞乕両偳偆傗傜僗僉儖偑懌傝側偄傛偆偱偡丅僇僾儔偲宊栺偡傞偵偼 ^ff0000KAFRA SKILL^000000 偑昁梫偱偡丅";
		close;
	L_k_0:
		if (Zeny > 10000) goto L_k_1;
		mes "[幏帠傾僽儔僀]";
		mes "儅僗僞乕両偍嬥偑懌傝傑偣傫傛両";
		close;
	L_k_1:
		set Zeny,Zeny-10000;
		enablenpc "kapra_prtg01";
		setcastledata "prtg_cas01.gat",9,1;
		mes "[幏帠傾僽儔僀]";
		mes "僇僾儔偲偺宊栺偑姰椆偟傑偟偨";
		next;
		cutin "kafra_01",2;
		mes "[僇僾儔怑堳]";
		mes "弶傔傑偟偰丄僇僾儔僨傿僼僅儖僥偲怽偟傑偡丅";
		mes "嵟慞傪恠偔偟傑偡偺偱媂偟偔偍偹偑偄偟傑偡両";
		next;
		cutin "kafra_01",255;
		mes "[幏帠傾僽儔僀]";
		mes "僊儖僪儀乕僗偱僇僾儔偲偺宊栺傪堐帩偡傞偨傔偵";
		mes "枅寧Zeny傪暐傢側偗傟偽側傝傑偣傫丅";
		close;
L_k_e:
		mes "[幏帠傾僽儔僀]";
		mes "僀僄僢僒乕両";
		mes "偱傕丄偦傠偦傠僇僾儔偑傎偟偄偱偡偹丅";
		close;
//=========================
//(When karfa ON) Dismissal
//=========================
Lkafra_dimi:
	mes "[幏帠傾僽儔僀]";
	mes "僇僾儔怑堳偲偺宊栺傪攋婞偟傑偡偐丠";
	next;
	menu "夝屬偡傞",-,"僉儍儞僙儖",L_D_1;
		cutin "kafra_01",2;
		mes "[僇僾儔怑堳]";
		mes "巹偑壗偐娫堘偭偰偄傑偟偨偐丠偦偆側傜偽丄嫋偟偰偼傕傜偊傑偣傫偐乧";
		next;
		menu "夝屬偡傞",-,"僉儍儞僙儖",L_D_2;
				mes "[僇僾儔怑堳]";
				mes "偁偁丄夝屬側偝傞傫偱偡偹丄丄丄TT";
				next;
				disablenpc "kapra_prtg01";
				setcastledata "prtg_cas01.gat",9,0;
				cutin "kafra_01",255;
				mes "[幏帠傾僽儔僀]";
				mes "....";
				mes "僇僾儔偲偺宊栺偑攋婞偝傟傑偟偨丅";
				close;
			L_D_2:
				mes "[僇僾儔怑堳]";
				mes "偁傝偑偲偆偛偞偄傑偡丅慡椡傪恠偔偟偰幏柋偵偮偒傑偡両";
				cutin "kafra_01",255;
				close;
		L_D_1:
			mes "[幏帠傾僽儔僀]";
			mes "傢偐傝傑偟偨丅";
			close;
L5_1:
//================================================
//Phase 6:儅僗僞乕儖乕儉偵峴偔
//================================================
L6:
	mes "[幏帠傾僽儔僀]";
	mes "儅僗僞乕儖乕儉傊偄偒傑偡偐丠";
	mes "儅僗僞乕儖乕儉偵擖傟傞偺偼僊儖僪儅僗僞乕偩偗偱偡丅偮傑傝丄擖傟傞偺偼偁側偨堦恖偩偗偲偄偆偙偲偱偡丅";
	next;
	menu "儅僗僞乕儖乕儉偵擖傞",-,"僉儍儞僙儖",L6_1;
			mes "[幏帠傾僽儔僀]";
			mes "偱偼丄巹偺屻偵偮偄偰偒偰偔偩偝偄丅";
			mes "晹壆偐傜弌傞偲偒偼丄儗僶乕傪堷偄偰偔偩偝偄偹";
			next;
			warp "prtg_cas01",15,209;
		L6_1:
			mes "[幏帠傾僽儔僀]";
			mes "昳暔偼忢偵惗嶻偝傟偰偄傑偡丅弌棃傞尷傝枅擔庢傝偵峴偭偰偔偩偝偄丅";
			mes "偦偺偆偪偵昳暔傪偡傋偰摼傞偙偲傪懹傜側偄偱偔偩偝偄丅";
			close;
//================================================
//Phase 7: 傾僕僩曻婞
//================================================
L7:
	mes "[幏帠傾僽儔僀]";
	mes "儅僗僞乕両";
	mes "傾僕僩傪曻婞偡傞傫偱偡偐両丠";
	mes " ";
	mes "偳偆偐峫偊捈偟偰偔偩偝偄丄儅僗僞乕両";
	next;
	menu "傾僕僩傪曻婞偡傞",L7_1,"僉儍儞僙儖",L7_2;
		L7_1:
			mes "[幏帠傾僽儔僀]";
			mes "儅僗僞乕両";
			mes "偳偆偐傕偆堦搙峫偊捈偟偰偔偩偝偄乧T_T!!";
			mes "偳偆偐丄丄偍婅偄!!!!!!!!";
			next;
			menu "傗傔傞",L7_2,"傾僕僩傪曻婞偡傞",-;
				mes "[幏帠傾僽儔僀]";
				mes "儅僗僞乕!!乧";
				mes "乧偄乧乧傗偩乧乧偀乧乧";
				next;
		setcastledata "prtg_cas01.gat",1,0;
		setcastledata "prtg_cas01.gat",2,0;
		setcastledata "prtg_cas01.gat",3,0;
		setcastledata "prtg_cas01.gat",4,0;
		setcastledata "prtg_cas01.gat",5,0;
		setcastledata "prtg_cas01.gat",6,0;
		setcastledata "prtg_cas01.gat",7,0;
		setcastledata "prtg_cas01.gat",8,0;
		setcastledata "prtg_cas01.gat",9,0;
		setcastledata "prtg_cas01.gat",10,0;
		setcastledata "prtg_cas01.gat",11,0;
		setcastledata "prtg_cas01.gat",12,0;
		setcastledata "prtg_cas01.gat",13,0;
		setcastledata "prtg_cas01.gat",14,0;
		setcastledata "prtg_cas01.gat",15,0;
		setcastledata "prtg_cas01.gat",16,0;
		setcastledata "prtg_cas01.gat",17,0;
		disablenpc "kapra_prtg01";
		Announce "嵲 [" + GetCastleName("prtg_cas01.gat") + "]傪 [" + GetGuildName(@GIDp1) + "]僊儖僪偑攋婞偟傑偟偨丅",0;
		MapRespawnGuildID "prtg_cas01.gat",GetCastleData("prtg_cas01.gat",1),7;
		end;
		L7_2:
			mes "[幏帠傾僽儔僀]";
			mes "僀僄僢僒乕両儅僗僞乕^^!";
			mes "傕偆丄偦傫側忕択傛偟偰偔偩偝偄傛^^.";
			close;
}

prontera.gat,151,187,4	script	僥僗僩僊儖僪僼儔僢僌	722,{
	set @GIDp1,getcastledata("prtg_cas01.gat",1);
	if (@GIDp1 != 0) goto LStartg;
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "惓幃強桳幰偑側偄傾僕僩偱偁傞偙偲傪";
		mes "岞昞偡傞丅";
		next;
		mes " ";
		mes "2.";
		mes "偙偪傜傪庣偭偰偄傞惁偠偄";
		mes "帋楙偵彑偭偰丄僄儞儁儕僂儉傪";
		mes "攋夡偡傞桬幰偵偼崙墹偑";
		mes "擣掕偡傞傾僕僩強桳尃偑晬梌偝傟傞";
		close;
LStartg:
		if (getcharid(2) == @GIDp1) goto LStartg2;
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "僊儖僪 ^ff0000 " + GetGuildName(@GIDp1) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDp1) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDp1) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
LStartg2:
		mes "[ 惡 ]";
		mes "桬幰傛乧";
		mes "孨偺抧偵婣傞偐丠";
		next;
		menu "嵲偵婣傞",-,"傗傔傞",Lclose;
			warp "prtg_cas01.gat",97,174;end;
Lclose:
		close;
OnRecvCastleP01:
// [FlagEmblem GuildID]: Show EMBLEM of the GuildID to the FlagNPC(ClassID=722).
	FlagEmblem getcastledata("prtg_cas01.gat",1);
	end;
}

//僊儖僪曮敔(巄掕)
prtg_cas01.gat,10,209,0 script t_box_p1s -1,{
OnClock0000:
	killmonster "prtg_cas01.gat","t_box_p1";
	if (getcastledata("prtg_cas01.gat",1) == 0) end;
	set $boxnum,2+getcastledata("prtg_cas01.gat",2)/100000;
	areamonster "prtg_cas01.gat",6,204,15,213,"曮敔",1324,$boxnum,"t_box_p1";
	areamonster "prtg_cas01.gat",6,204,15,213,"曮敔",1325,$boxnum,"t_box_p1";
	end;
}