gefg_cas05.txt

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

		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDg5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDg5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleG05:
	FlagEmblem getcastledata("gefg_cas05.gat",1);
	end;
}
gefg_cas05.gat,83,158,1	script	僊儖僪僼儔僢僌#g5-7	722,{
	set @GIDg5,getcastledata("gefg_cas05.gat",1);
	if (@GIDg5 != 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(@GIDg5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDg5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDg5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleG05:
	FlagEmblem getcastledata("gefg_cas05.gat",1);
	end;
}
gefg_cas05.gat,62,144,7	script	僊儖僪僼儔僢僌#g5-8	722,{
	set @GIDg5,getcastledata("gefg_cas05.gat",1);
	if (@GIDg5 != 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(@GIDg5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDg5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDg5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleG05:
	FlagEmblem getcastledata("gefg_cas05.gat",1);
	end;
}
gefg_cas05.gat,62,66,4	script	僊儖僪僼儔僢僌#g5-9	722,{
	set @GIDg5,getcastledata("gefg_cas05.gat",1);
	if (@GIDg5 != 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(@GIDg5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDg5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDg5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleG05:
	FlagEmblem getcastledata("gefg_cas05.gat",1);
	end;
}
gefg_cas05.gat,69,66,4	script	僊儖僪僼儔僢僌#g5-10	722,{
	set @GIDg5,getcastledata("gefg_cas05.gat",1);
	if (@GIDg5 != 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(@GIDg5) + " ^000000偺";
		mes "強桳偱偁傞偙偲傪擣傔傜傟偰偄傞丅";
		next;
		mes " ";
		mes "2.";
		mes "^ff0000 " + GetGuildName(@GIDg5) + " ^000000 偺儅僗僞乕偼";
		mes "^ff0000 " + getguildmaster(@GIDg5) + " ^000000偱偁傞丅";
		mes "偙傟偵堎媍偺偁傞幰偼丄寱傪庢傝";
		mes "椡傪埲偭偰柤梍傪彑偪庢傝側偝偄丅";
		close;
OnRecvCastleG05:
	FlagEmblem getcastledata("gefg_cas05.gat",1);
	end;
}
//------------------------------僇僾儔--------------------------------
gefg_cas05.gat,61,52,5	script	僇僾儔怑堳::kapra_gefg01	117,{
	cutin "kafra_01",2;
	set @GIDg5,getcastledata("gefg_cas05.gat",1);
	if (getcharid(2) == @GIDg5) goto LStartg;
	mes "[僇僾儔怑堳]";
	mes "巹偼丄僊儖僪";
	mes " ^ff0000" + GetGuildName(@GIDg5) + "^000000";
	mes "偺奆條偵偩偗偍巇偊偡傞傛偆偵";
	mes "宊栺偝傟偰偍傝傑偡丅";
	mes "懠偺僇僾儔僒乕價僗傪";
	mes "偛棙梡偔偩偝偄傑偣丅";
	goto L_EXIT;
LStartg:
	mes "[僇僾儔怑堳]";
	mes "偄傜偭偟傖偄傑偣 ^ff0000" + GetGuildName(@GIDg5) + "^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 "geffen.gat",120,39;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 "