--- deliantra/server/ext/login.ext	2007/01/07 02:39:14	1.11
+++ deliantra/server/ext/login.ext	2007/01/07 21:54:59	1.12
@@ -257,9 +257,34 @@
    });
 }
 
-# "Quitting will delete your character PERMANENTLY. If you are sure you want to do this, then use the quit_character command instead of quit."
-# "Quitting will delete your character.\nAre you sure you want to quit (y/n):"
-# quit, quit_character, save
+cf::register_command quit => sub {
+   my ($ob, $arg) = @_;
+
+   $ob->reply (undef,
+               "Quitting will delete your character PERMANENTLY: It will be gone forever and any progress will be lost. "
+               . "If you are sure you want to do this, then use the quit_character command instead of quit.",
+               cf::NDI_UNIQUE | cf::NDI_RED);
+};
+
+cf::register_command quit_character => sub {
+   my ($ob, $arg) = @_;
+
+   my $pl = $ob->contr;
+
+   $pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to PERMANENTLY delete your character and all associated data (y/n)?", sub {
+      if ($_[0] !~ /^[yY]/) {
+         $ob->reply (undef,
+                     "Ok, not not quitting then.",
+                     cf::NDI_UNIQUE | cf::NDI_RED);
+      } else {
+         $ob->reply (undef,
+                     "Ok, quitting, hope to see you again.",
+                     cf::NDI_UNIQUE | cf::NDI_RED);
+         $pl->ns->flush;
+         $pl->quit_character;
+      }
+   });
+};
 
 cf::object->attach (
    type     => cf::SAVEBED,