prtg_cas05.txt

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

		mes "^ff0000 " + GetGuildName(@GIDp5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDp5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleP05:
	FlagEmblem getcastledata("prtg_cas05.gat",1);
	end;
}
prtg_cas05.gat,26,243,4	script	僊儖僪僼儔僢僌#p5-8	722,{
	getcastledata "prtg_cas05.gat",1,@GIDp5;
	if (@GIDp5 != 0) goto LStartg;
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "惓幃強桳幰偑側偄傾僕僩偱偁傞偙偲傪";
		mes "岞昞偡傞丅";
		next;
		mes " ";
		mes "2.";
		mes "偙偪傜傪庣偭偰偄傞惁偠偄";
		mes "帋楙偵彑偭偰丄僄儞儁儕僂儉傪";
		mes "攋夡偡傞桬幰偵偼崙墹偑";
		mes "擣掕偡傞傾僕僩強桳尃偑晬梌偝傟傞";
		close;
LStartg:
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "僊儖僪 ^ff0000 " + GetGuildName(@GIDp5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDp5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDp5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleP05:
	FlagEmblem getcastledata("prtg_cas05.gat",1);
	end;
}
prtg_cas05.gat,249,289,4	script	僊儖僪僼儔僢僌#p5-9	722,{
	getcastledata "prtg_cas05.gat",1,@GIDp5;
	if (@GIDp5 != 0) goto LStartg;
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "惓幃強桳幰偑側偄傾僕僩偱偁傞偙偲傪";
		mes "岞昞偡傞丅";
		next;
		mes " ";
		mes "2.";
		mes "偙偪傜傪庣偭偰偄傞惁偠偄";
		mes "帋楙偵彑偭偰丄僄儞儁儕僂儉傪";
		mes "攋夡偡傞桬幰偵偼崙墹偑";
		mes "擣掕偡傞傾僕僩強桳尃偑晬梌偝傟傞";
		close;
LStartg:
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "僊儖僪 ^ff0000 " + GetGuildName(@GIDp5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDp5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDp5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleP05:
	FlagEmblem getcastledata("prtg_cas05.gat",1);
	end;
}
prtg_cas05.gat,256,289,4	script	僊儖僪僼儔僢僌#p5-10	722,{
	getcastledata "prtg_cas05.gat",1,@GIDp5;
	if (@GIDp5 != 0) goto LStartg;
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "惓幃強桳幰偑側偄傾僕僩偱偁傞偙偲傪";
		mes "岞昞偡傞丅";
		next;
		mes " ";
		mes "2.";
		mes "偙偪傜傪庣偭偰偄傞惁偠偄";
		mes "帋楙偵彑偭偰丄僄儞儁儕僂儉傪";
		mes "攋夡偡傞桬幰偵偼崙墹偑";
		mes "擣掕偡傞傾僕僩強桳尃偑晬梌偝傟傞";
		close;
LStartg:
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "僊儖僪 ^ff0000 " + GetGuildName(@GIDp5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDp5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDp5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleP05:
	FlagEmblem getcastledata("prtg_cas05.gat",1);
	end;
}
prtg_cas05.gat,253,271,4	script	僊儖僪僼儔僢僌#p5-11	722,{
	getcastledata "prtg_cas05.gat",1,@GIDp5;
	if (@GIDp5 != 0) goto LStartg;
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "惓幃強桳幰偑側偄傾僕僩偱偁傞偙偲傪";
		mes "岞昞偡傞丅";
		next;
		mes " ";
		mes "2.";
		mes "偙偪傜傪庣偭偰偄傞惁偠偄";
		mes "帋楙偵彑偭偰丄僄儞儁儕僂儉傪";
		mes "攋夡偡傞桬幰偵偼崙墹偑";
		mes "擣掕偡傞傾僕僩強桳尃偑晬梌偝傟傞";
		close;
LStartg:
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "僊儖僪 ^ff0000 " + GetGuildName(@GIDp5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDp5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDp5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleP05:
	FlagEmblem getcastledata("prtg_cas05.gat",1);
	end;
}
prtg_cas05.gat,273,257,4	script	僊儖僪僼儔僢僌#p5-12	722,{
	getcastledata "prtg_cas05.gat",1,@GIDp5;
	if (@GIDp5 != 0) goto LStartg;
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "惓幃強桳幰偑側偄傾僕僩偱偁傞偙偲傪";
		mes "岞昞偡傞丅";
		next;
		mes " ";
		mes "2.";
		mes "偙偪傜傪庣偭偰偄傞惁偠偄";
		mes "帋楙偵彑偭偰丄僄儞儁儕僂儉傪";
		mes "攋夡偡傞桬幰偵偼崙墹偑";
		mes "擣掕偡傞傾僕僩強桳尃偑晬梌偝傟傞";
		close;
LStartg:
		mes "[ 儖乕儞儈僢僪僈僢僣墹崙椞 ]";
		mes " ";
		mes "1.";
		mes "偙偪傜偼儖乕儞儈僢僪僈僢僣墹崙偵";
		mes "傛偭偰";
		mes "僊儖僪 ^ff0000 " + GetGuildName(@GIDp5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDp5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDp5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleP05:
	FlagEmblem getcastledata("prtg_cas05.gat",1);
	end;
}
//------------------------------僇僾儔--------------------------------
prtg_cas05.gat,52,41,4	script	僇僾儔怑堳::kapra_prtg05	117,{
	cutin "kafra_01",2;
	getcastledata "prtg_cas05.gat",1,@GIDp5;
	if (getcharid(2) == @GIDp5) goto LStartg;
	mes "[僇僾儔怑堳]";
	mes "巹偼丄僊儖僪";
	mes " ^ff0000" + GetGuildName(@GIDp5) + "^000000";
	mes "偺奆條偵偩偗偍巇偊偡傞傛偆偵";
	mes "宊栺偝傟偰偍傝傑偡丅";
	mes "懠偺僇僾儔僒乕價僗傪";
	mes "偛棙梡偔偩偝偄傑偣丅";
	goto L_EXIT;
LStartg:
	mes "[僇僾儔怑堳]";
	mes "偄傜偭偟傖偄傑偣 ^ff0000" + GetGuildName(@GIDp5) + "^000000 偺奆偝傫";
	mes "僇僾儔僒乕價僗偼";
	mes "偄偮傕奆條偺偦偽偵偄傑偡丅";
	next;
	menu "憅屔僒乕價僗",L2,"嬻娫堏摦僒乕價僗",L3,"僇乕僩僒乕價僗",L4,"廔椆",L7;
L2:
	if(getskilllv(1) < 6) goto Lerror2_1;
	if (Zeny < 40) goto Lerror2_2;
		set Zeny,Zeny-40;
		openstorage;
		goto L_EXIT;
	Lerror2_1:
		mes "[僇僾儔怑堳]";
		mes "憅屔偼婎杮僗僉儖儗儀儖6傪";
		mes "廗摼偟偰偐傜棙梡壜擻偲側傝傑偡丅";
		goto L_EXIT;
	Lerror2_2:
		mes "[僇僾儔怑堳]";
		mes "偍媞條丄偍嬥偑懌傝傑偣傫丅";
		mes "憅屔棙梡椏嬥偼 40 Zeny偱偡丅";
		goto L_EXIT;
L3:
	mes "[僇僾儔怑堳]";
	mes "栚揑抧傪偍慖傃壓偝偄丅";
	next;
	menu "僾儘儞僥儔 -> 200 z",L3_1,"庢傝徚偟",L3_2;
		L3_1:
			if (Zeny < 200) goto Lerror3;
			set Zeny,Zeny-200;set KF_PIT,KF_PIT+20;warp "prontera.gat",278,211;end;
		L3_2:
				mes "[僇僾儔怑堳]";
				mes "偁傝偑偲偆偛偞偄傑偟偨丅";
				mes "傑偨偛棙梡偔偩偝偄傑偣丅";
				goto L_EXIT;
		Lerror3:
				mes "[僇僾儔怑堳]";
  				mes "偍媞條丄偍嬥偑懌傝傑偣傫丅";
   				mes "強帩嬥傪偍妋偐傔偔偩偝偄丅";
				goto L_EXIT;
L4:
	if (!((Class == 5) || (Class == 10) || (Class == 18))) goto Lerror4_1;
	mes "[僇僾儔怑堳]";
	mes "僇乕僩棙梡椏嬥偼 800 Zeny偱偡丅";
	mes "傑偨丄僇乕僩傪棙梡偡傞偵偼";
	mes "