ke_warp_dungeon.txt

RO游戏服务器最新代码,直接运行即可.数据库采用mysql

		set @submenu, 2;
	else if ($@kewd_showOnline) {
		set @submenu, select(
			"- Cancel warp to Freya's Temple",
			"- Entrance ("+@cost+"z/"+getmapusers("ra_san01")+" "+$@ked_users$+")",
			"- Level 2 ("+@cost2+"z/"+getmapusers("ra_san02")+" "+$@ked_users$+")",
			"- Level 3 ("+@cost3+"z/"+getmapusers("ra_san03")+" "+$@ked_users$+")",
			"- Level 4 ("+@cost4+"z/"+getmapusers("ra_san04")+" "+$@ked_users$+")",
			"- Level 5 ("+@cost5+"z/"+getmapusers("ra_san05")+" "+$@ked_users$+")"
		);
	} else {
		set @submenu, select(
			"- Cancel warp to Freya's Temple",
			"- Entrance ("+@cost+"z)",
			"- Level 2 ("+@cost2+"z)",
			"- Level 3 ("+@cost3+"z)",
			"- Level 4 ("+@cost4+"z)",
			"- Level 5 ("+@cost5+"z)"
		);
	}

	switch (@submenu) {
	case 2:
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"ra_temin",276,318;
		break;
	case 3:
		callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"ra_san02",36,21;
		break;
	case 4:
		callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"ra_san03",10,150;
		break;
	case 5:
		callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"ra_san04",204,216;
		break;
	case 6:
		callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"ra_san05",149,16;
		break;
	}
}

function SF_sphinx {
	if (!(SF_check(0x400000, $@kewd_sphinx, 5, @map$, 1, "moc_fild19")))
		return;
	if ($@kewd_deep == 0)
		set @submenu, 2;
	else if ($@kewd_showOnline) {
		set @submenu, select(
			"- Cancel warp to the Sphinx",
			"- Entrance ("+@cost+"z/"+getmapusers("in_sphinx1")+" "+$@ked_users$+")",
			"- Level 2 ("+@cost2+"z/"+getmapusers("in_sphinx2")+" "+$@ked_users$+")",
			"- Level 3 ("+@cost3+"z/"+getmapusers("in_sphinx3")+" "+$@ked_users$+")",
			"- Level 4 ("+@cost4+"z/"+getmapusers("in_sphinx4")+" "+$@ked_users$+")",
			"- Level 5 ("+@cost5+"z/"+getmapusers("in_sphinx5")+" "+$@ked_users$+")"
		);
	} else {
		set @submenu, select(
			"- Cancel warp to the Sphinx",
			"- Entrance ("+@cost+"z)",
			"- Level 2 ("+@cost2+"z)",
			"- Level 3 ("+@cost3+"z)",
			"- Level 4 ("+@cost4+"z)",
			"- Level 5 ("+@cost5+"z)"
		);
	}

	switch (@submenu) {
	case 2:
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"moc_fild19",107,100;
		break;
	case 3:
		callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx2",149,81;
		break;
	case 4:
		callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx3",210,54;
		break;
	case 5:
		callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx4",10,222;
		break;
	case 6:
		callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"in_sphinx5",100,99;
		break;
	}
}

function SF_sunkenShip {
	if (!(SF_check(0x800000, $@kewd_sunkenShip, 2, @map$, 1, "alb2trea")))
		return;
	if ($@kewd_deep == 0)
		set @submenu, 2;
	else if ($@kewd_showOnline) {
		set @submenu, select(
			"- Cancel warp to Sunken Ship",
			"- Entrance ("+@cost+"z/"+getmapusers("treasure01")+" "+$@ked_users$+")",
			"- Level 2 ("+@cost2+"z/"+getmapusers("treasure02")+" "+$@ked_users$+")"
		);
	} else {
		set @submenu, select(
			"- Cancel warp to Sunken Ship",
			"- Entrance ("+@cost+"z)",
			"- Level 2 ("+@cost2+"z)"
		);
	}

	switch (@submenu) {
	case 2:
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"alb2trea",87,103;
		break;
	case 3:
		callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"treasure02",102,27;
		break;
	}
}

function SF_thanatosTower {
	if (!(SF_check(0x1000000, $@kewd_thanatosTower, 13, @map$, 1, "tha_scene01")))
		return;
	if ($@kewd_deep == 0)
		set @submenu, 2;
	else if ($@kewd_showOnline) {
		set @submenu, select(
			"- Cancel warp to Thanatos Tower",
			"- Entrance ("+@cost+"z/"+getmapusers("tha_t01")+" "+$@ked_users$+")",
			"- Floor 2 ("+@cost2+"z/"+getmapusers("tha_t02")+" "+$@ked_users$+")",
			"- Floor 3 ("+@cost3+"z/"+getmapusers("tha_t03")+" "+$@ked_users$+")",
			"- Floor 4 ("+@cost4+"z/"+getmapusers("tha_t04")+" "+$@ked_users$+")",
			"- Floor 5 ("+@cost5+"z/"+getmapusers("tha_t05")+" "+$@ked_users$+")",
			"- Floor 6 ("+@cost6+"z/"+getmapusers("tha_t06")+" "+$@ked_users$+")",
			"- Floor 7 ("+@cost7+"z/"+getmapusers("tha_t07")+" "+$@ked_users$+")",
			"- Floor 8 ("+@cost8+"z/"+getmapusers("tha_t08")+" "+$@ked_users$+")",
			"- Floor 9 ("+@cost9+"z/"+getmapusers("tha_t09")+" "+$@ked_users$+")",
			"- Floor 10 ("+@cost10+"z/"+getmapusers("tha_t10")+" "+$@ked_users$+")",
			"- Floor 11 ("+@cost11+"z/"+getmapusers("tha_t11")+" "+$@ked_users$+")",
			"- Floor 12 ("+@cost12+"z/"+getmapusers("tha_t12")+" "+$@ked_users$+")"
//			"- Terrace ("+@cost13+"z/"+getmapusers("thana_boss")+" "+$@ked_users$+")"
		);
	} else {
		set @submenu, select(
			"- Cancel warp to Thanatos Tower",
			"- Entrance ("+@cost+"z)",
			"- Floor 2 ("+@cost2+"z)",
			"- Floor 3 ("+@cost3+"z)",
			"- Floor 4 ("+@cost4+"z)",
			"- Floor 5 ("+@cost5+"z)",
			"- Floor 6 ("+@cost6+"z)",
			"- Floor 7 ("+@cost7+"z)",
			"- Floor 8 ("+@cost8+"z)",
			"- Floor 9 ("+@cost9+"z)",
			"- Floor 10 ("+@cost10+"z)",
			"- Floor 11 ("+@cost11+"z)",
			"- Floor 12 ("+@cost12+"z)"
//			"- Terrace ("+@cost13+"z)"
		);
	}
	switch (@submenu) {
	case 2:	
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tha_scene01",139,201;
		break;
	case 3:
		callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"tha_t02",149,136;
		break;
	case 4:
		callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"tha_t03",220,159;
		break;
	case 5:
		callfunc "F_keWarp",@cost4*100/@discountKP,$@kewd_discount,e_hmm,"tha_t04",59,144;
		break;
	case 6:
		callfunc "F_keWarp",@cost5*100/@discountKP,$@kewd_discount,e_hmm,"tha_t05",62,9;
		break;
	case 7:
		callfunc "F_keWarp",@cost6*100/@discountKP,$@kewd_discount,e_hmm,"tha_t06",120,225;
		break;
	case 8:
		callfunc "F_keWarp",@cost7*100/@discountKP,$@kewd_discount,e_hmm,"tha_t07",32,166;
		break;
	case 9:
		callfunc "F_keWarp",@cost8*100/@discountKP,$@kewd_discount,e_hmm,"tha_t08",108,44;
		break;
	case 10:
		callfunc "F_keWarp",@cost9*100/@discountKP,$@kewd_discount,e_hmm,"tha_t09",87,145;
		break;
	case 11:
		callfunc "F_keWarp",@cost10*100/@discountKP,$@kewd_discount,e_hmm,"tha_t10",166,138;
		break;
	case 12:
		callfunc "F_keWarp",@cost11*100/@discountKP,$@kewd_discount,e_hmm,"tha_t11",88,36;
		break;
	case 13:
		callfunc "F_keWarp",@cost12*100/@discountKP,$@kewd_discount,e_hmm,"tha_t12",132,55;
		break;
	case 14:
		callfunc "F_keWarp",@cost13*100/@discountKP,$@kewd_discount,e_hmm,"thana_boss",135,126;
		break;
	}
}

function SF_toyFactory {
	if (!(SF_check(0x2000000, $@kewd_toyFactory, 2, @map$, 1, "xmas")))
		return;

	if ($@kewd_deep == 0)
		set @submenu, 2;
	else if ($@kewd_showOnline) {
		set @submenu, select(
			"- Cancel warp to Toy Factory",
			"- Entrance ("+@cost+"z/"+getmapusers("xmas_dun01")+" "+$@ked_users$+")",
			"- Level 2 ("+@cost2+"z/"+getmapusers("xmas_dun02")+" "+$@ked_users$+")"
		);
	} else {
		set @submenu, select(
			"- Cancel warp to Toy Factory",
			"- Entrance ("+@cost+"z)",
			"- Level 2 ("+@cost2+"z)"
		);
	}

	switch (@submenu) {
	case 2:
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"xmas",144,306;
		break;
	case 3:
		callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"xmas_dun02",129,133;
		break;
	}
}

function SF_turtleIsland {
	if (!(SF_check(0x4000000, $@kewd_turtleIsland, 3, @map$, 1, "tur_dun01")))
		return;
	if ($@kewd_deep == 0) {
		if ($@kewd_turtleCave)
			set @submenu, 3;
		else
			set @submenu, 2;
	} else if ($@kewd_showOnline) {
		set @submenu, select(
			"- Cancel warp to Turtle Island",
			"- Island Entrance ("+@cost+"z/"+getmapusers("tur_dun01")+" "+$@ked_users$+")",
			"- Cave Entrance ("+@cost+"z/"+getmapusers("tur_dun02")+" "+$@ked_users$+")",
			"- Cave Level 2 ("+@cost2+"z/"+getmapusers("tur_dun03")+" "+$@ked_users$+")",
			"- Cave Level 3 ("+@cost3+"z/"+getmapusers("tur_dun04")+" "+$@ked_users$+")"
		);
	} else {
		set @submenu, select(
			"- Cancel warp to Turtle Island",
			"- Island Entrance ("+@cost+"z)",
			"- Cave Entrance ("+@cost+"z)",
			"- Cave Level 2 ("+@cost2+"z)",
			"- Cave Level 3 ("+@cost3+"z)"
		);
	}
	switch (@submenu) {
	case 2:	
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun01",153,47;
		break;
	case 3:
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun01",155,234;
		break;
	case 4:
		callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun03",132,189;
		break;
	case 5:
		callfunc "F_keWarp",@cost3*100/@discountKP,$@kewd_discount,e_hmm,"tur_dun04",100,192;
		break;
	}
}

function SF_umbala {
	if (!(SF_check(0x8000000, $@kewd_umbala, 2, @map$, 1, "umbala")))
		return;
	if ($@kewd_deep == 0)
		set @submenu, 2;
	else if ($@kewd_showOnline) {
		set @submenu, select(
			"- Cancel warp to Umbala Dungeon",
			"- Entrance ("+@cost+"z/"+getmapusers("um_dun01")+" "+$@ked_users$+")",
			"- Level 2 ("+@cost2+"z/"+getmapusers("um_dun02")+" "+$@ked_users$+")"
		);
	} else {
		set @submenu, select(
			"- Cancel warp to Umbala Dungeon",
			"- Entrance ("+@cost+"z)",
			"- Level 2 ("+@cost2+"z)"
		);
	}
	switch (@submenu) {
	case 2:
		callfunc "F_keWarp",@cost*100/@discountKP,$@kewd_discount,e_hmm,"umbala",113,282;
		break;
	case 3:
		callfunc "F_keWarp",@cost2*100/@discountKP,$@kewd_discount,e_hmm,"um_dun02",48,31;
		break;
	}
}

}

//Invoked when we want to add a map to the list of travelled-to dungeons
function	script	F_keAddTravelDungeon	{
	set @map$, getarg(0);
	if ($@kewd_travel > 1) {
		if (kewd_travel) {	//Copy over character permissions.
			set #kewd_travel,#kewd_travel|kewd_travel;
			set kewd_travel, 0;
		}

		if (@map$ == "hu_fild05")
			set #kewd_travel,#kewd_travel|0x1;
		if (@map$ == "ama_in02")
			set #kewd_travel,#kewd_travel|0x2;
		if (@map$ == "moc_fild04" || @map$ == "moc_fild15")
			set #kewd_travel,#kewd_travel|0x4;
		if (@map$ == "ayo_fild02")
			set #kewd_travel,#kewd_travel|0x8;
		if (@map$ == "izlu2dun")
			set #kewd_travel,#kewd_travel|0x10;
		if (@map$ == "comodo" || @map$ == "cmd_fild01")
			set #kewd_travel,#kewd_travel|0x20;
		if (@map$ == "aldebaran")
			set #kewd_travel,#kewd_travel|0x40;
		if (@map$ == "mjolnir_02")
			set #kewd_travel,#kewd_travel|0x80;
		if (@map$ == "prt_fild05")
			set #kewd_travel,#kewd_travel|0x100;
		if (@map$ == "einbech")
			set #kewd_travel,#kewd_travel|0x200;
		if (@map$ == "yuno_fild08")
			set #kewd_travel,#kewd_travel|0x400;
		if (@map$ == "gef_tower")
			set #kewd_travel,#kewd_travel|0x800;
		if (@map$ == "glast_01")
			set #kewd_travel,#kewd_travel|0x1000;
		if (@map$ == "gonryun")
			set #kewd_travel,#kewd_travel|0x2000;
		if (@map$ == "prt_fild01")
			set #kewd_travel,#kewd_travel|0x4000;
		if (@map$ == "jupe_cave")
			set #kewd_travel,#kewd_travel|0x8000;
		if (@map$ == "lighthalzen")
			set #kewd_travel,#kewd_travel|0x10000;
		if (@map$ == "louyang")
			set #kewd_travel,#kewd_travel|0x20000;
		if (@map$ == "yuno_fild03")
			set #kewd_travel,#kewd_travel|0x40000;
		if (@map$ == "in_orcs01")
			set #kewd_travel,#kewd_travel|0x80000;
		if (@map$ == "pay_arche")
			set #kewd_travel,#kewd_travel|0x100000;
		if (@map$ == "moc_ruins")
			set #kewd_travel,#kewd_travel|0x200000;
		if (@map$ == "moc_fild19")
			set #kewd_travel,#kewd_travel|0x400000;
		if (@map$ == "alb2trea")
			set #kewd_travel,#kewd_travel|0x800000;
		if (@map$ == "tha_scene01")
			set #kewd_travel,#kewd_travel|0x1000000;
		if (@map$ == "xmas")
			set #kewd_travel,#kewd_travel|0x2000000;
		if (@map$ == "tur_dun01")
			set #kewd_travel,#kewd_travel|0x4000000;
		if (@map$ == "umbala")
			set #kewd_travel,#kewd_travel|0x8000000;
		if (@map$ == "odin_tem01")
			set #kewd_travel,#kewd_travel|0x10000000;
		if (@map$ == "ra_fild01")
			set #kewd_travel,#kewd_travel|0x20000000;
		if (@map$ == "ra_temin")
			set #kewd_travel,#kewd_travel|0x40000000;
	} else {
		if (@map$ == "hu_fild05")
			set kewd_travel,kewd_travel|0x1;
		if (@map$ == "ama_in02")
			set kewd_travel,kewd_travel|0x2;
		if (@map$ == "moc_fild04" || @map$ == "moc_fild15")
			set kewd_travel,kewd_travel|0x4;
		if (@map$ == "ayo_fild02")
			set kewd_travel,kewd_travel|0x8;
		if (@map$ == "izlu2dun")
			set kewd_travel,kewd_travel|0x10;
		if (@map$ == "comodo" || @map$ == "cmd_fild01")
			set kewd_travel,kewd_travel|0x20;
		if (@map$ == "aldebaran")
			set kewd_travel,kewd_travel|0x40;
		if (@map$ == "mjolnir_02")
			set kewd_travel,kewd_travel|0x80;
		if (@map$ == "prt_fild05")
			set kewd_travel,kewd_travel|0x100;
		if (@map$ == "einbech")
			set kewd_travel,kewd_travel|0x200;
		if (@map$ == "yuno_fild08")
			set kewd_travel,kewd_travel|0x400;
		if (@map$ == "gef_tower")
			set kewd_travel,kewd_travel|0x800;
		if (@map$ == "glast_01")
			set kewd_travel,kewd_travel|0x1000;
		if (@map$ == "gonryun")
			set kewd_travel,kewd_travel|0x2000;
		if (@map$ == "prt_fild01")
			set kewd_travel,kewd_travel|0x4000;
		if (@map$ == "jupe_cave")
			set kewd_travel,kewd_travel|0x8000;
		if (@map$ == "lighthalzen")
			set kewd_travel,kewd_travel|0x10000;
		if (@map$ == "louyang")
			set kewd_travel,kewd_travel|0x20000;
		if (@map$ == "yuno_fild03")
			set kewd_travel,kewd_travel|0x40000;
		if (@map$ == "in_orcs01")
			set kewd_travel,kewd_travel|0x80000;
		if (@map$ == "pay_arche")
			set kewd_travel,kewd_travel|0x100000;
		if (@map$ == "moc_ruins")
			set kewd_travel,kewd_travel|0x200000;
		if (@map$ == "moc_fild19")
			set kewd_travel,kewd_travel|0x400000;
		if (@map$ == "alb2trea")
			set kewd_travel,kewd_travel|0x800000;
		if (@map$ == "tha_scene01")
			set kewd_travel,kewd_travel|0x1000000;
		if (@map$ == "xmas")
			set kewd_travel,kewd_travel|0x2000000;
		if (@map$ == "tur_dun01")
			set kewd_travel,kewd_travel|0x4000000;
		if (@map$ == "umbala")
			set kewd_travel,kewd_travel|0x8000000;
		if (@map$ == "odin_tem01")
			set kewd_travel,kewd_travel|0x10000000;
		if (@map$ == "ra_fild01")
			set kewd_travel,kewd_travel|0x20000000;
		if (@map$ == "ra_temin")
			set kewd_travel,kewd_travel|0x40000000;
	}
	return;
}