payg_cas01.txt

JA++的最新...很多ROSF都用这个 ] 是个不错的东西-3-

//===================================================================
//Ragnarok Online EP2.5 GVG Script	payg_cas01         by kalen
// 汉化和修正 : FPE
// Jathena++ 论坛：http://www.foxofice.net/bbs
//===================================================================
-	script	gfpayA	722,{
callfunc "flagsc","payg_cas01.gat",2,0,0,0;
OnRecvCastleF01:
	flagemblem getcastledata("payg_cas01.gat",1);
	end;
}
pay_gld.gat,125,236,4	duplicate(gfpayA)	明亭#f1-1	722
pay_gld.gat,110,233,4	duplicate(gfpayA)	明亭#f1-2	722
pay_gld.gat,116,233,4	duplicate(gfpayA)	明亭#f1-3	722
pay_gld.gat,91,239,2	duplicate(gfpayA)	明亭#f1-4	722
payg_cas01.gat,238,67,4	duplicate(gfpayA)	明亭#f1-5	722
payg_cas01.gat,233,67,4	duplicate(gfpayA)	明亭#f1-6	722
payg_cas01.gat,221,123,4	duplicate(gfpayA)	明亭#f1-7	722
payg_cas01.gat,221,116,4	duplicate(gfpayA)	明亭#f1-8	722
payg_cas01.gat,206,108,4	duplicate(gfpayA)	明亭#f1-9	722
payg_cas01.gat,212,108,4	duplicate(gfpayA)	明亭#f1-10	722
//------------------------------卡普拉--------------------------------
payg_cas01.gat,128,58,3	script	卡普拉 职员::kapra_payg01	117,{
	callfunc "gkfmenu","payg_cas01.gat";
	menu	"使用仓库服务",L2,
		"使用空间移动服务",L3,
		"使用手推车服务",L4,
		"结束",L7;
L2:
	callfunc "kfstorage",40;
L3:
	callfunc "gkfwarp","裴扬","payon.gat",158,88;
L4:
	callfunc "kfcart",800;
L7:
	callfunc "kfend";
}
//-------------------------------管理人---------------------------------
payg_cas01.gat,120,58,4	script	克卢纳帝	55,{
	callfunc "Steward_menu0","payg_cas01.gat","克卢纳帝";
	menu	"查看秘密基地状况",L1,
		"投资商业发展度",L2,
		"投资防御度",L3,
		"设置监护人",L4,
		"雇用 / 解雇 卡普拉职员",L5,
		"进入主人房间",L6,
		"让出秘密基地",L7;
L1:
	callfunc "Steward_menu1","payg_cas01.gat","克卢纳帝";
L2:
	callfunc "Steward_menu2","payg_cas01.gat","克卢纳帝";
L3:
	callfunc "Steward_menu3","payg_cas01.gat","克卢纳帝";
L4:
	callfunc "Steward_menu4","payg_cas01.gat","克卢纳帝";
	if (@GDnum == 10) monster "payg_cas01.gat",229,92,"弓箭手 监护人",1285,1,"Agit_C01::On_GDf11";
	if (@GDnum == 11) monster "payg_cas01.gat",225,80,"弓箭手 监护人",1285,1,"Agit_C01::On_GDf12";
	if (@GDnum == 12) monster "payg_cas01.gat",222,111,"弓箭手 监护人",1285,1,"Agit_C01::On_GDf13";
	if (@GDnum == 13) monster "payg_cas01.gat",99,45,"弓箭手 监护人",1285,1,"Agit_C01::On_GDf14";
	if (@GDnum == 14) monster "payg_cas01.gat",65,31,"弓箭手 监护人",1285,1,"Agit_C01::On_GDf15";
	if (@GDnum == 15) monster "payg_cas01.gat",36,127,"弓箭手 监护人",1285,1,"Agit_C01::On_GDf16";
	if (@GDnum == 16) monster "payg_cas01.gat",51,144,"弓箭手 监护人",1285,1,"Agit_C01::On_GDf17";
	if (@GDnum == 17) monster "payg_cas01.gat",138,133,"骑士 监护人",1286,1,"Agit_C01::On_GDf18";
	mes "[管理人克卢纳帝]";
	mes "完成设置监护人了。";
	mes "监护人能保护我们的秘密基地";
	mes "防止敌人的进攻。";
	close;
L5:
	callfunc "Steward_menu5","payg_cas01.gat","克卢纳帝","kapra_payg01";
L6:
	callfunc "Steward_menu6","payg_cas01.gat","克卢纳帝",287,5;
L7:
	callfunc "Steward_menu7","payg_cas01.gat","克卢纳帝";
	callfunc "resetcastledata","payg_cas01.gat","::OnRecvCastleF01","kapra_payg01",@GID,"::OnGDEMPSetF01";
}
//-----------------------------开关-------------------------------
payg_cas01.gat,295,8,0	script	　	111,{
callfunc "gdswitch","payg_cas01.gat",120,59;
}
//-----------------------------开关2------------------------------
payg_cas01.gat,101,25,0	script	　	111,{
callfunc "gdswitch2","payg_cas01.gat","gld_dun01.gat",186,165;
}