⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 gefg_cas04.txt

📁 JA++的最新...很多ROSF都用这个 ] 是个不错的东西-3-
💻 TXT
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
// ---------投资商业发展度
	L_M2:
		mes "[管理人戈巴尼]";
		mes "提高商业发展度的话 ，在工会里生产的物品数量会增加，为了以后着想的话，不能不投资啊";
		mes " ";
		mes "照原先的方式，一天只能投资一次 ，假如多付一点金钱的话 ，一天可以投资两次";
		set @TriggerE,GetCastleData("gefg_cas04.gat",4);
		set @Economy,GetCastleData("gefg_cas04.gat",2);
		if (@Economy >= 100) goto L_M2_A;
		if (@TriggerE > 1) goto L_M2_B;
		if (@TriggerE == 0) goto L_M2_C;
		goto L_M2_D;
		L_M2_A://economyOK == 0
			mes " ";
			mes "^ff0000因为由于 ，秘密基地的商业发展度，已经是最高值100% 了，所以不需要投资 ，主人果真你是拥有独具的慧眼啊^000000";
			close;
			end;
		L_M2_B://economyOK == 1
			mes " ";
			mes "^ff0000可是你已经，在今天之内投资了两次，再不能投资了.^000000让发展度赶快上升，期待着富贵的日子啰";
			close;
			end;
//		gold = AgitGet AGIT_E_FUND 
		L_M2_C://economyOK == 2
//第一次投资所需金额
			if ((@Economy >= 0) && (@Economy <= 4)) set @gold,5000;
			if ((@Economy >= 5) && (@Economy <= 9)) set @gold,10000;
			if ((@Economy >= 10) && (@Economy <= 14)) set @gold,20000;
			if ((@Economy >= 15) && (@Economy <= 19)) set @gold,35000;
			if ((@Economy >= 20) && (@Economy <= 24)) set @gold,55000;
			if ((@Economy >= 25) && (@Economy <= 29)) set @gold,80000;
			if ((@Economy >= 30) && (@Economy <= 34)) set @gold,110000;
			if ((@Economy >= 35) && (@Economy <= 39)) set @gold,145000;
			if ((@Economy >= 40) && (@Economy <= 44)) set @gold,185000;
			if ((@Economy >= 45) && (@Economy <= 49)) set @gold,230000;
			if ((@Economy >= 50) && (@Economy <= 54)) set @gold,280000;
			if ((@Economy >= 55) && (@Economy <= 59)) set @gold,335000;
			if ((@Economy >= 60) && (@Economy <= 64)) set @gold,395000;
			if ((@Economy >= 65) && (@Economy <= 69)) set @gold,460000;
			if ((@Economy >= 70) && (@Economy <= 74)) set @gold,530000;
			if ((@Economy >= 75) && (@Economy <= 79)) set @gold,605000;
			if ((@Economy >= 80) && (@Economy <= 84)) set @gold,685000;
			if ((@Economy >= 85) && (@Economy <= 89)) set @gold,770000;
			if ((@Economy >= 90) && (@Economy <= 94)) set @gold,860000;
			if ((@Economy >= 95) && (@Economy <= 99)) set @gold,995000;
			mes " ";
			mes "现在需要的投资金额是 ^ff0000" + @gold + "^000000 金币 ，请问你要投资吗?";
			goto L_M2_Go;
		L_M2_D://economyOK == else
//第二次投资所需金额
			if ((@Economy >= 0) && (@Economy <= 4)) set @gold,20000;
			if ((@Economy >= 5) && (@Economy <= 9)) set @gold,40000;
			if ((@Economy >= 10) && (@Economy <= 14)) set @gold,80000;
			if ((@Economy >= 15) && (@Economy <= 19)) set @gold,140000;
			if ((@Economy >= 20) && (@Economy <= 24)) set @gold,220000;
			if ((@Economy >= 25) && (@Economy <= 29)) set @gold,320000;
			if ((@Economy >= 30) && (@Economy <= 34)) set @gold,440000;
			if ((@Economy >= 35) && (@Economy <= 39)) set @gold,580000;
			if ((@Economy >= 40) && (@Economy <= 44)) set @gold,740000;
			if ((@Economy >= 45) && (@Economy <= 49)) set @gold,920000;
			if ((@Economy >= 50) && (@Economy <= 54)) set @gold,1120000;
			if ((@Economy >= 55) && (@Economy <= 59)) set @gold,1340000;
			if ((@Economy >= 60) && (@Economy <= 64)) set @gold,1580000;
			if ((@Economy >= 65) && (@Economy <= 69)) set @gold,1840000;
			if ((@Economy >= 70) && (@Economy <= 74)) set @gold,2120000;
			if ((@Economy >= 75) && (@Economy <= 79)) set @gold,2420000;
			if ((@Economy >= 80) && (@Economy <= 84)) set @gold,2740000;
			if ((@Economy >= 85) && (@Economy <= 89)) set @gold,3080000;
			if ((@Economy >= 90) && (@Economy <= 94)) set @gold,3440000;
			if ((@Economy >= 95) && (@Economy <= 99)) set @gold,3820000;
			mes " ";
			mes "现在你已经投资了一次... 还要再投资吗? 还需要追加^ff0000" + @gold + "^000000  金币噢";
			goto L_M2_Go;
		L_M2_Go:
		next;
		menu "对商业发展度投资",L_M2_Go_M1,"取消 ",L_M2_Go_M2;
		L_M2_Go_M1:
			if (Zeny < @gold) goto L_M2_Go_M1_A;
			set Zeny,Zeny-@gold;
//			AgitFunc AF_INVEST_E 0 0
			SetCastleData "gefg_cas04.gat",4,@TriggerE+1;
			SetCastleData "gefg_cas04.gat",2,@Economy+1;
			mes "[管理人戈巴尼]";
			mes "顺利地完成投资了! 期待着我们往后要面临的未来 ，明天的话发展度会上升 ";
			close;
			end;
			L_M2_Go_M1_A:
				mes "[管理人戈巴尼]";
				mes "主人真可惜啊 ，工会内储蓄的钱，达不到足以投资的金额 ，所以投资失败了";
				close;
				end;
		L_M2_Go_M2:
			mes "[管理人戈巴尼]";
			mes "我将依照你的吩咐去执行 ，是我的主人 ... 不须要太着急 ，我们会做得很好 ";
			close;
			end;
// ---------投资 防御度  ---------------------------------------------------
	L_M3:
		mes "[管理人戈巴尼]";
		mes "提高防御力的话 ，监护人和华丽金属的耐久度会增加 ，考虑到往后的战争 ，不得不投资啊";
		mes " ";
		mes "照原先的方式，一天只能投资一次 ，假如多付一点金钱的话 ，一天可以投资两次";
		set @TriggerD,GetCastleData("gefg_cas04.gat",5);
		set @Deffence,GetCastleData("gefg_cas04.gat",3);
		if (@Deffence >= 100) goto L_M3_A;
		if (@TriggerD > 1) goto L_M3_B;
		if (@TriggerD == 0) goto L_M3_C;
		goto L_M3_D;
		L_M3_A://if defenseOK == 0
			mes " ";
			mes "^ff0000因为由于 ，秘密基地的商业发展度，已经是最高值100% 了，所以不需要投资 ，主人果真你是拥有独具的慧眼啊^000000";
			close;
			end;
		L_M3_B://if defenseOK == 1
			mes " ";
			mes "^ff0000可是你已经，在今天之内投资了两次，再不能投资了.^000000让发展度赶快上升，期待着富贵的日子啰";
			close;
			end;
//		gold = AgitGet AGIT_D_FUND 
		L_M3_C://if defenseOK == 2
//第一次投资所需金额
			if ((@Deffence >= 0) && (@Deffence <= 4)) set @gold,10000;
			if ((@Deffence >= 5) && (@Deffence <= 9)) set @gold,20000;
			if ((@Deffence >= 10) && (@Deffence <= 14)) set @gold,40000;
			if ((@Deffence >= 15) && (@Deffence <= 19)) set @gold,70000;
			if ((@Deffence >= 20) && (@Deffence <= 24)) set @gold,110000;
			if ((@Deffence >= 25) && (@Deffence <= 29)) set @gold,160000;
			if ((@Deffence >= 30) && (@Deffence <= 34)) set @gold,220000;
			if ((@Deffence >= 35) && (@Deffence <= 39)) set @gold,290000;
			if ((@Deffence >= 40) && (@Deffence <= 44)) set @gold,370000;
			if ((@Deffence >= 45) && (@Deffence <= 49)) set @gold,460000;
			if ((@Deffence >= 50) && (@Deffence <= 54)) set @gold,560000;
			if ((@Deffence >= 55) && (@Deffence <= 59)) set @gold,670000;
			if ((@Deffence >= 60) && (@Deffence <= 64)) set @gold,790000;
			if ((@Deffence >= 65) && (@Deffence <= 69)) set @gold,920000;
			if ((@Deffence >= 70) && (@Deffence <= 74)) set @gold,1060000;
			if ((@Deffence >= 75) && (@Deffence <= 79)) set @gold,1210000;
			if ((@Deffence >= 80) && (@Deffence <= 84)) set @gold,1370000;
			if ((@Deffence >= 85) && (@Deffence <= 89)) set @gold,1540000;
			if ((@Deffence >= 90) && (@Deffence <= 94)) set @gold,1720000;
			if ((@Deffence >= 95) && (@Deffence <= 99)) set @gold,1910000;
			mes " ";
			mes "现在需要的投资金额是 ^ff0000" + @gold + "^000000 金币 ，请问你要投资吗?";
			goto L_M3_Go;
		L_M3_D://else
//第二次投资所需金额
			if ((@Deffence >= 0) && (@Deffence <= 4)) set @gold,40000;
			if ((@Deffence >= 5) && (@Deffence <= 9)) set @gold,80000;
			if ((@Deffence >= 10) && (@Deffence <= 14)) set @gold,160000;
			if ((@Deffence >= 15) && (@Deffence <= 19)) set @gold,280000;
			if ((@Deffence >= 20) && (@Deffence <= 24)) set @gold,440000;
			if ((@Deffence >= 25) && (@Deffence <= 29)) set @gold,640000;
			if ((@Deffence >= 30) && (@Deffence <= 34)) set @gold,880000;
			if ((@Deffence >= 35) && (@Deffence <= 39)) set @gold,1160000;
			if ((@Deffence >= 40) && (@Deffence <= 44)) set @gold,1480000;
			if ((@Deffence >= 45) && (@Deffence <= 49)) set @gold,1840000;
			if ((@Deffence >= 50) && (@Deffence <= 54)) set @gold,2240000;
			if ((@Deffence >= 55) && (@Deffence <= 59)) set @gold,2680000;
			if ((@Deffence >= 60) && (@Deffence <= 64)) set @gold,3160000;
			if ((@Deffence >= 65) && (@Deffence <= 69)) set @gold,3680000;
			if ((@Deffence >= 70) && (@Deffence <= 74)) set @gold,4240000;
			if ((@Deffence >= 75) && (@Deffence <= 79)) set @gold,4840000;
			if ((@Deffence >= 80) && (@Deffence <= 84)) set @gold,5480000;
			if ((@Deffence >= 85) && (@Deffence <= 89)) set @gold,6160000;
			if ((@Deffence >= 90) && (@Deffence <= 94)) set @gold,6880000;
			if ((@Deffence >= 95) && (@Deffence <= 99)) set @gold,7640000;
			mes " ";
			mes "现在你已经投资了一次... 还要再投资吗? 还需要追加^ff0000" + @gold + "^000000  金币噢";
			goto L_M3_Go;
		L_M3_Go:
		next;
		menu "对防御度 投资",L_M3_Go_M1,"取消",L_M3_Go_M2;
		L_M3_Go_M1:
			if (Zeny < @gold) goto L_M3_Go_M1_A;
			set Zeny,Zeny-@gold;
//			AgitFunc AF_INVEST_D 0 0                  
			SetCastleData "gefg_cas04.gat",5,@TriggerD+1;
			SetCastleData "gefg_cas04.gat",3,@Deffence+1;
			mes "[管理人戈巴尼]";
			mes "顺利地完成投资了! 期待着我们往后要面临的未来 ，明天的话防御度会上升 ";
			close;
			end;
			L_M3_Go_M1_A:
				mes "[管理人戈巴尼]";
				mes "主人真可惜啊 ，工会内储蓄的钱，达不到足以投资的金额 ，所以投资失败了";
				close;
				end;
		L_M3_Go_M2:
			mes "[管理人戈巴尼]";
			mes "我将依照你的吩咐去执行 ，是我的主人 ... 不须要太着急 ，我们会做得很好 ";
			close;
			end;
// ---------设置 监护人---------------------------------------------------
	L_M4:
		mes "[管理人戈巴尼]";
		mes "请问你要设置监护人吗? 监护人即将成为，我们秘密基地的忠诚守护者 ";
		mes " 请选择要设置的监护人";
		next;
//		if (GetCastleData("gefg_cas04.gat",3) >= 1200) menu "卫兵 1",L_M4_M1,"卫兵 2",L_M4_M2,"弓箭手 1",L_M4_M3,"弓箭手 2",L_M4_M4,"弓箭手 3",L_M4_M5,"骑士 1",L_M4_M6,"骑士 2",L_M4_M7,"骑士 3",L_M4_M8;
//		if (GetCastleData("gefg_cas04.gat",3) >= 600) menu "卫兵 1",L_M4_M1,"卫兵 2",L_M4_M2,"弓箭手 1",L_M4_M3,"弓箭手 2",L_M4_M4,"弓箭手 3",L_M4_M5;
//		menu "卫兵 1",L_M4_M1,"卫兵 2",L_M4_M2;
		set @GD1$,"外城 弓箭手 监护人";
		set @GD2$,"外城 弓箭手 监护人";
		set @GD3$,"外城 士兵 监护人";
		set @GD4$,"内城 士兵 监护人";
		set @GD5$,"内城 骑士  监护人";
		set @GD6$,"内城 士兵 监护人";
		set @GD7$,"内城 骑士  监护人";
		set @GD8$,"首领 监护人";
		if (GetCastleData("gefg_cas04.gat",10) > 0) set @GD1$,@GD1$+" - 已设置 (53 , 191)";
		if (GetCastleData("gefg_cas04.gat",10) == 0) set @GD1$,@GD1$+" - 没设置";
		if (GetCastleData("gefg_cas04.gat",11) > 0) set @GD2$,@GD2$+" - 已设置 (31 , 178)";
		if (GetCastleData("gefg_cas04.gat",11) == 0) set @GD2$,@GD2$+" - 没设置";
		if (GetCastleData("gefg_cas04.gat",12) > 0) set @GD3$,@GD3$+" - 已设置 (49 , 220)";
		if (GetCastleData("gefg_cas04.gat",12) == 0) set @GD3$,@GD3$+" - 没设置";
		if (GetCastleData("gefg_cas04.gat",13) > 0) set @GD4$,@GD4$+" - 已设置 (29 , 46)";
		if (GetCastleData("gefg_cas04.gat",13) == 0) set @GD4$,@GD4$+" - 没设置";
		if (GetCastleData("gefg_cas04.gat",14) > 0) set @GD5$,@GD5$+" - 已设置 (57 , 46)";
		if (GetCastleData("gefg_cas04.gat",14) == 0) set @GD5$,@GD5$+" - 没设置";
		if (GetCastleData("gefg_cas04.gat",15) > 0) set @GD6$,@GD6$+" - 已设置 (147 , 65)";
		if (GetCastleData("gefg_cas04.gat",15) == 0) set @GD6$,@GD6$+" - 没设置";
		if (GetCastleData("gefg_cas04.gat",16) > 0) set @GD7$,@GD7$+" - 已设置 (160 , 50)";
		if (GetCastleData("gefg_cas04.gat",16) == 0) set @GD7$,@GD7$+" - 没设置";
		if (GetCastleData("gefg_cas04.gat",17) > 0) set @GD8$,@GD8$+" - 已设置 (148 , 189)";
		if (GetCastleData("gefg_cas04.gat",17) == 0) set @GD8$,@GD8$+" - 没设置";
		menu @GD1$,L_M4_M1,@GD2$,L_M4_M2,@GD3$,L_M4_M3,@GD4$,L_M4_M4,@GD5$,L_M4_M5,@GD6$,L_M4_M6,@GD7$,L_M4_M7,@GD8$,L_M4_M8;
		L_M4_M1:
			set @GDnum,10;
			goto L_M4_MC;
		L_M4_M2:
			set @GDnum,11;
			goto L_M4_MC;
		L_M4_M3:
			set @GDnum,12;
			goto L_M4_MC;
		L_M4_M4:
			set @GDnum,13;
			goto L_M4_MC;
		L_M4_M5:
			set @GDnum,14;
			goto L_M4_MC;
		L_M4_M6:
			set @GDnum,15;
			goto L_M4_MC;
		L_M4_M7:
			set @GDnum,16;
			goto L_M4_MC;
		L_M4_M8:
			set @GDnum,17;
			goto L_M4_MC;
		L_M4_MC:
		mes "[管理人戈巴尼]";
		mes "确定要设置已选择的监护人吗? 设置时需要 10000 金币.";
		next;
		menu "要设置 ",L_M4_MC_M1,"取消 ",L_M4_MC_M2;
		L_M4_MC_M1:
//			npcStatus = AgitNpcGet no AN_VISIBLE
//			skLevel = AgitGet AGIT_GUARDIAN_SKILL
//------工会技能 ，有没有制作 ，监护人的研究呢?-----------------
			set @Guardian_Skill,getgdskilllv(@GIDg4,GD_GUARDIANRESEARCH);
			if (@Guardian_Skill == 0) goto L_M4_MC_M1_A;
			if (GetCastleData("gefg_cas04.gat",@GDnum) != 0) goto L_M4_MC_M1_B;
			if (Zeny < 10000) goto L_M4_MC_M1_C;
			set Zeny,Zeny-10000;
//			AgitNpcSet no AN_VISIBLE 1
			setcastledata "gefg_cas04.gat",@GDnum,1;
			mes "[管理人戈巴尼]";
			mes "完成设置监护人了 ，现在开始已经有了，保护我们秘密基地的强壮我军了";
			close;
			end;
			L_M4_MC_M1_A:
				mes "[管理人戈巴尼]";
				mes "主人 ，有关设置监护人的研究知识 ，我们全然不知唷 ，想要累积设置监护人知识的话 ，必须要学习工会技能中的^ff0000监护人制作研究^000000. 要不然就是 ，监护人设置失败";
				close;
				end;
			L_M4_MC_M1_B:
				mes "[管理人戈巴尼]";
				mes "主人... 那监护人已经是主人设置的监护人了，不能再设置了";
				close;
				end;
			L_M4_MC_M1_C:
				mes "[管理人戈巴尼]";
				mes "设置监护人的资金不足啊 ，很抱歉... 设置监护人失败了";
				close;
				end;
		L_M4_MC_M2:
			mes "[管理人戈巴尼]";
			mes "我已经按照你的吩咐做了 ，假如有点资金上宽裕的话，一定要设置监护人，是较好的方案";
			close;
			end;
//仓库职员  雇用 / 解雇
	L_M5:
//		npcStatus = AgitNpcGet AGIT_NPC_CONTAINER AN_VISIBLE 
		if (GetCastleData("gefg_cas04.gat",9) == 1) goto L_M5_A;
		goto L_M5_B;
		L_M5_A://if npcStatus == 1
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -