📄 aldeg_cas01.txt
字号:
mes " ";
mes "有小的拉杆 ，你要往下拉吗? ";
next;
menu "我要拉 ",L_Yes,"我不要拉 ",L_No;
L_Yes:
warp "aldeg_cas01.gat",218,176;
end;
L_No:
close;
end;
}
//npc "aldeg_cas01" " " HIDDEN_NPC 211 181 0 5 5
aldeg_cas01.gat,211,181,0 script 111,{
set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
if (@GIDa1 > 0) goto L_Guild;
mes " [ 响亮的声音 ] ";
mes " ' 通过考验成为勇气的主人 ... 再去寻找其它考验的路' ";
close;
end;
L_Guild:
mes "[ 响亮的声音 ]";
mes " ' 只有勇气的主人，才能接受考验啊'";
next;
mes " ";
mes "有小的拉杆 ，你要往下拉吗? ";
next;
menu "我要拉 ",L_Yes,"我不要拉 ",L_No;
L_Yes:
if (GetCharID(2) != @GIDa1) goto L_NotMember;
warp "gld_dun02.gat",32,122;
end;
L_NotMember:
mes " ";
mes " 没有发生任何事情 ";
close;
end;
L_No:
close;
end;
}
//npc "aldeg_cas01" "卡普拉 职员" 4_F_KAFRA1 218 170 0 5 5
aldeg_cas01.gat,218,170,0 script 卡普拉 职员#ald1 117,{
//OnClick:
cutin "kafra_01.bmp",2;
set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
if (@GIDa1 == GetCharID(2)) goto L_Member;
mes "[卡普拉 职员]";
mes "我已签订契约专为^ff0000" + GetGuildName(@GIDa1) + "^000000 会员服务 ，请使用我们其它地方的卡普拉职员 ，如有不便之处敬请见谅";
cutin "kafra_01.bmp",255;
close;
end;
L_Member:
mes " [卡普拉 职员]";
mes "欢迎光临 ^ff0000" + GetGuildName(@GIDa1) + "^000000 会员们 ";
mes "卡普拉服务(有限公司) ，永远在各位身边为您服务";
next;
menu "使用仓库服务",L_M1,"使用空间移动服务",L_M2,"使用手推车服务 ",L_M3,"结束",L_M4;
L_M1:
if (getskilllv(1) < 6) goto L_M1_A;
mes "[卡普拉 职员]";
mes "要打开仓库了";
mes "谢谢您的使用。";
cutin "kafra_01.bmp",255;
openstorage;
close;
end;
L_M1_A://Basic Skill < 6
mes "[卡普拉 职员]";
mes "想要使用仓库的话 ，初学者技能等级要6以上才行";
cutin "kafra_01.bmp",255;
close;
end;
L_M2:
mes "[卡普拉 职员]";
mes "请说出目的地吧";
next;
menu "艾尔帕兰 -> 200 z",L_M2_M1," 取消 ",L_M2_M2;
L_M2_M1:
if (Zeny < 200) goto L_M2_M1_A;
set Zeny,Zeny-200;
// set kf_10_pit,kf_10_pit+2;
warp "aldebaran.gat",132,103;
end;
L_M2_M1_A:
mes "[卡普拉 职员]";
mes "会员先生/小姐 ，你所支付的金额不足 ，请重新确认";
cutin "kafra_01.bmp",255;
close;
end;
L_M2_M2:
cutin "kafra_01.bmp",255;
close;
end;
L_M3:
if ((Class != 5) && (Class != 10)) goto L_M3_A;
if (checkcart != 0) goto L_M3_B;
mes "[卡普拉 职员]";
mes "手推车使用费是 800 金币 ，请问你要使用吗?";
next;
menu "使用 ",L_M3_M1,"取消 ",L_M3_M2;
L_M3_M1:
if (Zeny < 800) goto L_M3_M1_A;
// set kf_10_pit,kf_10_pit+8;
set Zeny,Zeny-800;
setcart;
cutin "kafra_01.bmp",255;
close;
end;
L_M3_M1_A:
mes "[卡普拉 职员]";
mes "顾客 ，你所支付的金额不足 ，手推车使用费是800 金币";
cutin "kafra_01.bmp",255;
close;
end;
L_M3_M2:
cutin "kafra_01.bmp",255;
close;
end;
L_M3_A:
mes "[卡普拉 职员]";
mes "对不起 ，手推车是商人和铁匠，专用的服务";
cutin "kafra_01.bmp",255;
close;
end;
L_M3_B:
mes "[卡普拉 职员]";
mes "顾客你现在已经，装备手推车了";
cutin "kafra_01.bmp",255;
close;
end;
L_M4:
mes "[卡普拉 职员]";
mes "我们卡普拉服务(有限公司)会提供更完美的服务 ，和严格的业务管理 ，让各位顾客安心便利的使用，为最大的目标";
mes "感谢你使用 ，卡普拉服务(有限公司) ";
cutin "kafra_01.bmp",255;
close;
end;
OnInit:
disablenpc "卡普拉 职员#ald1";
End;
}
//npc "aldeg_cas01" "尔普磊嘟" 1_M_JOBTESTER 218 175 0 5 5
aldeg_cas01.gat,218,175,0 script 尔普磊嘟#ald1 55,{
//OnClick:
set @GIDa1,GetCastleData("aldeg_cas01.gat",1);
if (@GIDa1 == 0) goto L_Waiting;
if (strcharinfo(0) != GetGuildMaster(@GIDa1)) goto L_Member;
goto L_Castle;
end;
// -------工会主人 都不在的时候------------------------------------------
L_Waiting:
mes "[管理人尔普磊嘟]";
mes " 我将依据我的命运 ，在等待我的主人";
mes "勇士啊...试验一下你的命运吧 ...";
close;
end;
// -----------------------------------------------------------------------------
// --------是我的 工会主人吗? -----------------------------------------------
L_Member:
mes "[管理人尔普磊嘟]";
mes "不管你们怎么威胁我 ，我只愿意追随我的主人 ^ff0000" + GetGuildMaster(@GIDa1) + "^000000 ! 监护人你们在那里呀! 赶快把这些无理的家伙们赶走吧!";
close;
end;
//-----------------------------------------------------------------------------
L_Castle:
mes "[管理人尔普磊嘟]";
mes "欢迎光临 ， 我的主人^ff0000" + GetGuildMaster(@GIDa1) + "^000000先生/小姐...";
mes "请尽管吩咐 ，我将忠诚地为你完成任务";
next;
// choose menu "查看秘密基地状况" "投资商业发展度" "投资防御度" "设置监护人 " "雇用 / 解雇 仓库职员" "进入主人房间" "让出秘密基地"
menu "查看秘密基地状况",L_M1,"投资商业发展度",L_M2,"投资防御度",L_M3,"设置监护人 ",L_M4,"雇用 / 解雇 仓库职员",L_M5,"进入主人房间",L_M6;
// ---------查看秘密基地状况---------------------------------------------------
L_M1:
mes "[管理人尔普磊嘟]";
mes "现在向你报告秘密基地的状况";
mes "^0000ff ";
mes " 现在商业发展度是" + GetCastleData("aldeg_cas01.gat",2) + " ";
if (GetCastleData("aldeg_cas01.gat",4) > 0 ) mes " - 在过去一天之内，投资了 " + GetCastleData("aldeg_cas01.gat",4) + " 次 ";
mes " 现在的防御度是" + GetCastleData("aldeg_cas01.gat",3) + " ";
if (GetCastleData("aldeg_cas01.gat",5) > 0 ) mes " - 在过去一天之内，投资了 " + GetCastleData("aldeg_cas01.gat",5) + " 次 ";
mes "^000000 ";
mes "报告完毕";
close;
end;
// ---------投资商业发展度
L_M2:
mes "[管理人尔普磊嘟]";
mes "提高商业发展度的话 ，在工会里生产的物品数量会增加，为了以后着想的话，不能不投资啊";
mes " ";
mes "照原先的方式，一天只能投资一次 ，假如多付一点金钱的话 ，一天可以投资两次";
set @TriggerE,GetCastleData("aldeg_cas01.gat",4);
set @Economy,GetCastleData("aldeg_cas01.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 "aldeg_cas01.gat",4,@TriggerE+1;
SetCastleData "aldeg_cas01.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("aldeg_cas01.gat",5);
set @Deffence,GetCastleData("aldeg_cas01.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 "aldeg_cas01.gat",5,@TriggerD+1;
SetCastleData "aldeg_cas01.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("aldeg_cas01.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("aldeg_cas01.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$,"内城 士兵 监护人";
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -