cmd eden | getFlyWing + getButterflyWing + getEdenGroupMark

src/Commands.pm

@@ -822,6 +822,7 @@
 			["", T("delay the next console commands for 1 second")],
 			[T("<seconds>"), T("delay the next console commands by a specified number of seconds")]
 			], undef],
+		['eden', "Use Eden Group Mark", \&cmdEden],
 	);
 
 	# Built-in aliases
@@ -3566,7 +3567,7 @@
 		my $player = Match::player($arg2);
 		if (!$player) {
 			error TF("Player %s does not exist.\n", $arg2);
 		} elsif (!$char->{name} eq $guild{master}) {
 			error T("You must be guildmaster to set an alliance\n");
 			return;
 		} else {
@@ -8680,4 +8681,18 @@
 	$messageSender->sendNPCCreateRequest($args);
 }
 
+sub cmdEden {
+	if (!$net || $net->getState() != Network::IN_GAME) {
+		error TF("You must be logged in the game to use this command '%s'\n", shift);
+		return;
+	}
+	my $item = Misc::getEdenGroupMark();
+	if ($item) {
+		$item->use;	
+	}
+	else {
+		error "Error in function 'eden' (Use Eden Group Mark)\nInventory Item Eden Group Mark does not exist.\n";
+	}
+}
+
 1;

src/Misc.pm

@@ -3563,16 +3563,13 @@ sub canUseTeleport {
 			$item = $char->inventory->getByName($config{teleportAuto_item1});
 			$item = $char->inventory->getByNameID($config{teleportAuto_item1}) if (!($item) && $config{teleportAuto_item1} =~ /^\d{3,}$/);
 		}
-		$item = $char->inventory->getByNameID(23280) unless $item; # Beginner's Fly Wing
-		$item = $char->inventory->getByNameID(12323) unless $item; # Novice Fly Wing
-		$item = $char->inventory->getByNameID(601) unless $item; # Fly Wing
+		$item = getFlyWing() unless $item;
 	} else {
 		 if ($config{teleportAuto_item2}) {
 			$item = $char->inventory->getByName($config{teleportAuto_item2});
 			$item = $char->inventory->getByNameID($config{teleportAuto_item2}) if (!($item) && $config{teleportAuto_item2} =~ /^\d{3,}$/);
 		}
-		$item = $char->inventory->getByNameID(12324) unless $item; # Novice Butterfly Wing
-		$item = $char->inventory->getByNameID(602) unless $item; # Butterfly Wing
+		$item = getButterflyWing() unless $item;
 	}
 
 	return 1 if $item;
@@ -5588,4 +5585,33 @@ sub autoNpcTalk {
 	});
 }
 
+sub getFlyWing {
+	# 12887 - Unlimited Fly Wing
+	# 23280 - Mosquito Wings (only if lv < 99)
+	# 23338 - [Event] Fly Wing
+	# 12323 - Novice Fly Wing
+	# 601   - Fly Wing
+	for my $id (12887, 23280, 23338, 12323, 601) {
+        next if $id == 23280 && $char->{lv} >= 99;
+        my $item = $char->inventory->getByNameID($id);
+        return $item if $item;
+    }
+    return undef;
+}
+
+sub getButterflyWing {
+	# 12324 - Novice Butterfly Wing
+	# 602   - Butterfly Wing
+	for my $id (12324, 602) {
+        my $item = $char->inventory->getByNameID($id);
+        return $item if $item;
+    }
+    return undef;
+}
+
+sub getEdenGroupMark {
+	# 22508 - Eden Group Mark
+	return $char->inventory->getByNameID(22508);
+}
+
 return 1;

src/Task/Teleport/Random.pm

@@ -30,9 +30,7 @@ sub getInventoryItem {
 		$item = $self->{actor}->inventory->getByName($config{teleportAuto_item1});
 		$item = $self->{actor}->inventory->getByNameID($config{teleportAuto_item1}) if (!($item) && $config{teleportAuto_item1} =~ /^\d{3,}$/);
 	}
-	$item = $self->{actor}->inventory->getByNameID(23280) unless $item; # Beginner's Fly Wing
-	$item = $self->{actor}->inventory->getByNameID(12323) unless $item; # Novice Fly Wing
-	$item = $self->{actor}->inventory->getByNameID(601) unless $item; # Fly Wing
+	$item = Misc::getFlyWing() unless $item;
 	return $item;
 }
 

src/Task/Teleport/Respawn.pm

@@ -30,8 +30,7 @@ sub getInventoryItem {
 		$item = $self->{actor}->inventory->getByName($config{teleportAuto_item2});
 		$item = $self->{actor}->inventory->getByNameID($config{teleportAuto_item2}) if (!($item) && $config{teleportAuto_item2} =~ /^\d{3,}$/);
 	}
-	$item = $self->{actor}->inventory->getByNameID(12324) unless $item; # Novice Butterfly Wing
-	$item = $self->{actor}->inventory->getByNameID(602) unless $item; # Butterfly Wing
+	$item = Misc::getButterflyWing() unless $item;
 	return $item;
  }