test_prtg_cas01_abraij.txt

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

//================================================
//prtg_cas01 Abrai Kafra test script by Kalen
//================================================
//偲傝偁偊偢丄TEST嶌惉('A`)
//prtg_cas01.txt偺傾僽儔僀偼僐儊儞僩傾僂僩偱偡傛乣
prtg_cas01.gat,112,181,0	script	傾僽儔僀	55,{
	set @GIDp1,getcastledata("prtg_cas01.gat",1);
	mes "Debug :@GIDp1="+@GIDp1;
	mes "       getcharid(2)="+getcharid(2);
	mes "       strcharinfo(0)="+strcharinfo(0);
	mes "       getcharid(0)="+getcharid(0);
	mes "       getguildmasterid(@GIDp1)="+getguildmasterid(@GIDp1);
	next;
	if (@GIDp1 == 0) goto LStart;
	if (getcharid(2) != @GIDp1) goto LStart2;
	if (getcharid(0) == getguildmasterid(@GIDp1)) goto LStart3;
	goto LStart2;

// ------- 傾僕僩枹愯椞 ----------------------------------
LStart:
	mes "[幏帠傾僽儔僀]";
	mes "巹偼塣柦偵摫偐傟傞傑傑丄";
	mes "巹偺庡恖偵側傞曽傪懸偭偰偍傝傑偡丅";
	mes "桬婥偁傞曽偼丄堦搙偛帺暘偺塣柦傪";
	mes "偍帋偟偵側偭偰偼偄偐偑偱偟傚偆丅";
	close;
// -------- 儅僗僞乕偠傖側偄 ------------------------------
LStart2:
	mes "[幏帠傾僽儔僀]";
	mes "偁側偨曽偑偄偔傜嫼偦偆偲傕丄";
	mes "巹偼巹偺儅僗僞乕偱偁傞";
	mes "^ff0000" + getguildmaster(@GIDp1) + "^000000條偵偺傒";
	mes "偍巇偊偡傞恎偱偁傞丅";
	mes "僈乕僨傿傾儞偨偪偼偳偙偐両";
	mes "憗偔偙偺柍楃側幰摍傪捛曻偟側偝偄両";
	close;
// -------- 埲壓儅僗僞乕帪 ---------------------------------
LStart3:
	mes "[幏帠傾僽儔僀]";
	mes "偍偐偊傝側偝偄傑偣丄^ff0000 "+ getguildmaster(@GIDp1) + " ^000000 條";
	mes "壗側傝偲怽偟晅偗偔偩偝偄傑偣";
	next;
	menu "嵲偺忬懺傪昞帵",L1,"彜嬈敪揥偵搳帒",L2,"嵲偺杊塹偵搳帒",L3,"僈乕僨傿傾儞愝抲",L4,"僇僾儔偲偺宊栺 / 夝屬",L5,"儅僗僞乕偺晹壆偵擖傞",L6,"傾僕僩傪曻婞偡傞",L7;
//-----------------------------------------------------------
//================================================
//Phase 1:僊儖僪偺僾儘僷僥傿(枹挷惍)
//================================================
L1:
	mes "[幏帠傾僽儔僀]";
	mes "僊儖僪婎慴忣曬:";
	mes " ";
	mes "^0000ff尰嵼偺捠彜搳帒偼" + GetCastleData("prtg_cas01.gat",2) + "偱偡丅";
	mes "- 嵟屻偺婜娫偵" + GetCastleData("prtg_cas01.gat",4) + "夞搳帒偟傑偟偨丅";
	mes "尰嵼偺杊屼搳帒偼" + GetCastleData("prtg_cas01.gat",3) + "偱偡丅";
	mes "- 嵟屻偺婜娫偵" + GetCastleData("prtg_cas01.gat",5) + "夞搳帒偟傑偟偨丅^000000";
	mes " ";
	mes "埲忋偱偡丅";
	close;
//================================================
//Phase 2:彜嬈傊偺搳帒(枹挷惍)
//================================================
L2:
	mes "[幏帠傾僽儔僀]";
	mes "偁側偨偑捠彜搳帒傪憹傗偣偽丄";
	mes "僊儖僪偺惗嶻椡偼傛傝懡偔偺昳暔傪";
	mes "惗嶻偡傞偨傔偵憹壛偟傑偡丅";
	mes " ";
	mes "堦擔偵堦夞丄堦婜娫偵擇夞傑偱搳帒偱偒傑偡丅";
	next;
	set @TriggerE,GetCastleData("prtg_cas01.gat",4);
	set @Economy,GetCastleData("prtg_cas01.gat",2);
	if(@TriggerE < 2) goto L2_1;
		mes "[幏帠傾僽儔僀]";
		mes "^ff0000僊儖僪搳帒偼尰嵼100%偱偡丅";
		mes "崱偼搳帒偡傞昁梫偑偁傝傑偣傫丅^000000";
	 	close;
L2_1:
	mes "[幏帠傾僽儔僀]";
	mes "^ff0000偁側偨偼丄堦婜娫偵2夞傑偱搳帒偡傞偙偲偑弌棃傑偡丅^000000";
	mes " ";
	mes "昁梫側搳帒検偼^ff0000 10,000 ^000000Zeny偱偡";
	mes "搳帒偟傑偡偐丠";
	next;
	menu "搳帒偡傞",L2_1_1,"搳帒偟側偄",-;
		mes "[幏帠傾僽儔僀]";
		mes "椆夝偟傑偟偨丅";
		mes "媫偖昁梫偼柍偄偱偡偐傜偹乣";
		close;
	L2_1_1:
		if(Zeny < 10000) goto L2_error;
		set Zeny,Zeny-10000;
		SetCastleData "prtg_cas01.gat",4,@TriggerE+1;
		SetCastleData "prtg_cas01.gat",2,@Economy+10000;
		mes "[幏帠傾僽儔僀]";
		mes "搳帒偵惉岟偟傑偟偨丅";
		close;
L2_error:
	mes "[幏帠傾僽儔僀]";
	mes "儅僗僞乕両";
	mes "搳帒偵昁梫側偍嬥偑偁傝傑偣傫丅";
	mes "搳帒傪庢傝徚偟傑偟偨丅";
	close;
//================================================
//Phase 3:僨傿僼僃儞僗傊偺搳帒(尰忬幚憰柍棟偐丠)
//================================================
L3:
//var defenseOK = AgitGet AGIT_D_FUNDING_OK  
	mes "[幏帠傾僽儔僀]";
	mes "偁側偨偑杊屼搳帒偟丄";
	mes "僈乕僨傿傾儞払偺HP傪憹壛偝偣傟偽丄";
	mes "揋偑峌傔偰偒偨偲偒偵戝偄偵彆偗偵側傞偱偟傚偆";
	mes " ";
	mes "堦擔偵堦夞丄堦婜娫偵擇夞傑偱搳帒偱偒傑偡丅";
	next;
	set @TriggerD,GetCastleData("prtg_cas01.gat",5);
	set @Deffence,GetCastleData("prtg_cas01.gat",3);
	if(@TriggerD < 2) goto L3_1;
		mes "[幏帠傾僽儔僀]";
		mes "^ff0000僊儖僪搳帒偼尰嵼100%偱偡丅";
		mes "崱偼搳帒偡傞昁梫偑偁傝傑偣傫丅^000000";
	 	close;
L3_1:
	mes "[幏帠傾僽儔僀]";
	mes "^ff0000偁側偨偼丄堦婜娫偵2夞傑偱搳帒偡傞偙偲偑弌棃傑偡丅^000000";
	mes " ";
	mes "昁梫側搳帒検偼^ff0000 10,000 ^000000Zeny偱偡";
	mes "搳帒偟傑偡偐丠";
	next;
	menu "搳帒偡傞",L3_1_1,"搳帒偟側偄",-;
		mes "[幏帠傾僽儔僀]";
		mes "椆夝偟傑偟偨丅";
		mes "媫偖昁梫偼柍偄偱偡偐傜偹乣";
		close;
	L3_1_1:
		if(Zeny < 10000) goto L3_error;
		set Zeny,Zeny-10000;
		SetCastleData "prtg_cas01.gat",5,@TriggerD+1;
		SetCastleData "prtg_cas01.gat",3,@Deffence+10000;
		mes "[幏帠傾僽儔僀]";
		mes "搳帒偵惉岟偟傑偟偨丅";
		close;
L3_error:
	mes "[幏帠傾僽儔僀]";
	mes "儅僗僞乕両";
	mes "搳帒偵昁梫側偍嬥偑偁傝傑偣傫丅";
	mes "搳帒傪庢傝徚偟傑偟偨丅";
	close;
//================================================
//Phase 4:僈乕僨傿傾儞愝抲
//================================================
L4:
	mes "[幏帠傾僽儔僀]";
	mes "僈乕僨傿傾儞傪愝抲偟傑偡偐丠";
	mes "僈乕僨傿傾儞偼揋偐傜僊儖僪儀乕僗傪曐岇偡傞偱偟傚偆丅";
	mes "僈乕僨傿傾儞傪慖傫偱偔偩偝偄丅";
	next;
	menu "Soldier 1",L4_1,"Soldier 2",L4_2,"Soldier 3",L4_3,"Archer 1",L4_4,"Archer 2",L4_5,"Knight 1",L4_6,"Knight 2",L4_7,"Knight 3",L4_8;
		L4_1:
			if (GetCastleData("prtg_cas01.gat",10) == 1) goto L4Error2;
			set @GDnum,10;goto L4_9;
		L4_2:
			if (GetCastleData("prtg_cas01.gat",11) == 1) goto L4Error2;
			set @GDnum,11;goto L4_9;
		L4_3:
			if (GetCastleData("prtg_cas01.gat",12) == 1) goto L4Error2;
			set @GDnum,12;goto L4_9;
		L4_4:
			if (GetCastleData("prtg_cas01.gat",13) == 1) goto L4Error2;
			set @GDnum,13;goto L4_9;
		L4_5:
			if (GetCastleData("prtg_cas01.gat",14) == 1) goto L4Error2;
			set @GDnum,14;goto L4_9;
		L4_6:
			if (GetCastleData("prtg_cas01.gat",15) == 1) goto L4Error2;
			set @GDnum,15;goto L4_9;
		L4_7:
			if (GetCastleData("prtg_cas01.gat",16) == 1) goto L4Error2;
			set @GDnum,16;goto L4_9;
		L4_8:
			if (GetCastleData("prtg_cas01.gat",17) == 1) goto L4Error2;
			set @GDnum,17;goto L4_9;
	L4_9:
		mes "[幏帠傾僽儔僀]";
		mes "杮摉偵愝抲偟傑偡偐丠";
		mes "僈乕僨傿傾儞偺愝抲偵偼^ff0000 10,000 ^000000Zeny偑昁梫偱偡丅";
		next;
		menu "愝抲偡傞",L4_9_1,"傗傔傞",-;
			mes "[幏帠傾僽儔僀]";
			mes "椆夝偟傑偟偨丅";
			mes "媫偖昁梫偼柍偄偱偡偐傜偹乣";
			close;
		L4_9_1:
//僊儖僪僗僉儖偺敾掕仺僟儊側傜L4Error
		if (Zeny < 10000) goto L4Error3;
		set Zeny,Zeny-10000;
		setcastledata "prtg_cas01.gat",@GDnum,1;
		mes "[幏帠傾僽儔僀]";
		mes "僈乕僨傿傾儞偑愝抲偝傟傑偟偨丅";
		mes "僈乕僨傿傾儞偼巹払偺忛傪揋偐傜庣偭偰偔傟傞偱偟傚偆丅";
		close;
L4Error:
	mes "[幏帠傾僽儔僀]";
	mes "儅僗僞乕両";
	mes "僈乕僨傿傾儞傪愝抲偡傞僊儖僪僗僉儖偑偁傝傑偣傫丅僈乕僨傿傾儞傪愝抲偡傞僗僉儖傪妉摼偟偨偗傟偽丄丱ff0000僈乕僨傿傾儞僗僉儖丱000000傪摼側偗傟偽側傝傑偣傫丅";
	mes " ";
	mes "僈乕僨傿傾儞愝抲偑庢傝徚偝傟傑偟偨丅";
	close;
L4Error2:
	mes "[幏帠傾僽儔僀]";
	mes "儅僗僞乕両";
	mes "婛偵僈乕僨傿傾儞偑愝抲偝傟偰偄傑偡丅";
	mes " ";
	mes "僈乕僨傿傾儞愝抲偑庢傝徚偝傟傑偟偨丅";
	close;
L4Error3: