prtg_cas02.txt

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

//===================================================================
//Ragnarok Online EP2.5 GVG Script	prtg_cas02         by kalen
// 汉化和修正 : FPE
// Jathena++ 论坛：http://www.foxofice.net/bbs
//===================================================================
-	script	gfproB	722,{
callfunc "flagsc","prtg_cas02.gat",2,0,0,0;
OnRecvCastleP02:
	flagemblem getcastledata("prtg_cas02.gat",1);
	end;
}
prt_gld.gat,244,126,8	duplicate(gfproB)	斯般希特#p2-1	722
prt_gld.gat,244,128,8	duplicate(gfproB)	斯般希特#p2-2	722
prt_gld.gat,236,126,8	duplicate(gfproB)	斯般希特#p2-3	722
prt_gld.gat,236,128,8	duplicate(gfproB)	斯般希特#p2-4	722
prtg_cas02.gat,40,227,4	duplicate(gfproB)	斯般希特#p2-5	722
prtg_cas02.gat,46,227,4	duplicate(gfproB)	斯般希特#p2-6	722
prtg_cas02.gat,11,219,4	duplicate(gfproB)	斯般希特#p2-7	722
prtg_cas02.gat,11,214,4	duplicate(gfproB)	斯般希特#p2-8	722
prtg_cas02.gat,20,219,4	duplicate(gfproB)	斯般希特#p2-9	722
prtg_cas02.gat,20,214,4	duplicate(gfproB)	斯般希特#p2-10	722
prtg_cas02.gat,79,227,8	duplicate(gfproB)	斯般希特#p2-11	722
prtg_cas02.gat,70,227,8	duplicate(gfproB)	斯般希特#p2-12	722
prtg_cas02.gat,38,189,8	duplicate(gfproB)	斯般希特#p2-13	722
prtg_cas02.gat,34,189,8	duplicate(gfproB)	斯般希特#p2-14	722
prtg_cas02.gat,153,161,4	duplicate(gfproB)	斯般希特#p2-15	722
prtg_cas02.gat,162,161,4	duplicate(gfproB)	斯般希特#p2-16	722
//------------------------------卡普拉--------------------------------
prtg_cas02.gat,71,36,4	script	卡普拉 职员::kapra_prtg02	117,{
	callfunc "gkfmenu","prtg_cas02.gat";
	menu	"使用仓库服务",L2,
		"使用空间移动服务",L3,
		"使用手推车服务",L4,
		"结束",L7;
L2:
	callfunc "kfstorage",40;
L3:
	callfunc "gkfwarp","普隆德拉","prontera.gat",278,211;
L4:
	callfunc "kfcart",800;
L7:
	callfunc "kfend";
}
//-------------------------------管理人---------------------------------
prtg_cas02.gat,94,61,4	script	蕾	55,{
	callfunc "Steward_menu0","prtg_cas02.gat","蕾";
	menu	"查看秘密基地状况",L1,
		"投资商业发展度",L2,
		"投资防御度",L3,
		"设置监护人",L4,
		"雇用 / 解雇 卡普拉职员",L5,
		"进入主人房间",L6,
		"让出秘密基地",L7;
L1:
	callfunc "Steward_menu1","prtg_cas02.gat","蕾";
L2:
	callfunc "Steward_menu2","prtg_cas02.gat","蕾";
L3:
	callfunc "Steward_menu3","prtg_cas02.gat","蕾";
L4:
	callfunc "Steward_menu4","prtg_cas02.gat","蕾";
	if (@GDnum == 10) monster "prtg_cas02.gat",188,175,"骑士 监护人",1286,1,"Agit_D02::On_GDp21";
	if (@GDnum == 11) monster "prtg_cas02.gat",198,175,"骑士 监护人",1286,1,"Agit_D02::On_GDp22";
	if (@GDnum == 12) monster "prtg_cas02.gat",178,44,"骑士 监护人",1286,1,"Agit_D02::On_GDp23";
	if (@GDnum == 13) monster "prtg_cas02.gat",71,75,"士兵 监护人",1287,1,"Agit_D02::On_GDp24";
	if (@GDnum == 14) monster "prtg_cas02.gat",49,28,"士兵 监护人",1287,1,"Agit_D02::On_GDp25";
	if (@GDnum == 15) monster "prtg_cas02.gat",64,186,"弓箭手 监护人",1285,1,"Agit_D02::On_GDp26";
	if (@GDnum == 16) monster "prtg_cas02.gat",76,196,"弓箭手 监护人",1285,1,"Agit_D02::On_GDp27";
	if (@GDnum == 17) monster "prtg_cas02.gat",75,175,"弓箭手 监护人",1285,1,"Agit_D02::On_GDp28";
	mes "[管理人蕾]";
	mes "完成设置监护人了。";
	mes "监护人能保护我们的秘密基地";
	mes "防止敌人的进攻。";
	close;
L5:
	callfunc "Steward_menu5","prtg_cas02.gat","蕾","kapra_prtg02";
L6:
	callfunc "Steward_menu6","prtg_cas02.gat","蕾",199,225;
L7:
	callfunc "Steward_menu7","prtg_cas02.gat","蕾";
	callfunc "resetcastledata","prtg_cas02.gat","::OnRecvCastleP02","kapra_prtg02",@GID,"::OnGDEMPSetP02";
}
//-----------------------------开关-------------------------------
prtg_cas02.gat,206,228,0	script	　	111,{
callfunc "gdswitch","prtg_cas02.gat",94,62;
}
//-----------------------------开关2------------------------------
prtg_cas02.gat,84,72,0	script	　	111,{
callfunc "gdswitch2","prtg_cas02.gat","gld_dun03.gat",164,268;
}