this plugin will delete your character and create a character again.
the deleting and creating process is successful, but after the char created i got an error.
error.txt
pluginOpenKore version what-will-become-2.1
Network state = 5
Network handler = Network::DirectConnection
SVN revision: 7859
Loaded plugins:
plugins/autoremake.pl (autoremake)
plugins/macro.pl (macro)
Error message:
Attempt to STORE non blessed reference (or not a reference)
Value:
$VAR1 = {};
Stack trace:
Attempt to STORE non blessed reference (or not a reference)
Value:
$VAR1 = {};
at src/Utils/BlessedRefTie.pm line 10
Tie::BlessedRef::STORE('Tie::BlessedRef=SCALAR(0x386bc2c)', 'HASH(0x3c4d27c)') called at src/Network/Receive/ServerType0.pm line 910
Network::Receive::ServerType0::map_loaded('Network::Receive::mRO=HASH(0x376aa8c)', 'HASH(0x2386924)') called at src/Network/PacketParser.pm line 222
Network::PacketParser::parse('Network::Receive::mRO=HASH(0x376aa8c)', '\x{eb}\x{2}\x{c}c0\x{b}\x{d}F\x{f0}\x{5}\x{5}\x{0}\x{0}', 'Network::Receive::mRO=HASH(0x376aa8c)') called at src/Network/Receive.pm line 51
Network::Receive::parse('Network::Receive::mRO=HASH(0x376aa8c)', '\x{eb}\x{2}\x{c}c0\x{b}\x{d}F\x{f0}\x{5}\x{5}\x{0}\x{0}', 'Network::Receive::mRO=HASH(0x376aa8c)') called at src/Network/PacketParser.pm line 335
Network::PacketParser::process('Network::Receive::mRO=HASH(0x376aa8c)', 'Network::MessageTokenizer=HASH(0x1e49794)', 'Network::Receive::mRO=HASH(0x376aa8c)') called at src/functions.pl line 701
main::mainLoop_initialized() called at src/functions.pl line 70
main::mainLoop() called at src/Interface.pm line 75
Interface::mainLoop('Interface::Console::Win32=HASH(0x1218814)') called at openkore.pl line 97
main::__start() called at start.pl line 136
Code: Select all
package autoremake;
use strict;
use Plugins;
use Globals;
use Network::Send;
use Misc;
use AI;
use Utils;
use Log qw(message debug);
use Commands;
Plugins::register('autoremake', 'Auto delete and Create Character', \&onUnload);
my $hooks = Plugins::addHooks(['charSelectScreen', \&delete, undef]);
sub onUnload {
Plugins::delHooks($hooks);
}
sub delete {
if ($config{"autodelete"} == 1) {
message("Character Deleted: Yes\n”,”info”");
my (undef, $args) = @_;
Plugins::delHooks($hooks);
$hooks = Plugins::addHooks(['charSelectScreen', \&create, undef]);
$messageSender->sendCharDelete($chars[0]{charID}, $config{Email});
$AI::temp::delIndex = 0;
$timeout{'charlogin'}{'time'} = time;
$args->{return} = 2;
} elsif ($config{"autodelete"} != 1) {
message("Character Deleted: NO\n”,”info");
return 0;
}
}
sub create {
my (undef, $args) = @_;
Plugins::delHooks($hooks);
$hooks = Plugins::addHooks(['charSelectScreen', \&login, undef]);
$messageSender->sendCharCreate(0, $config{Name}, 9, 9, 1, 1, 9, 1, 2, 3);
$timeout{'charlogin'}{'time'} = time;
$args->{return} = 2;
}
sub login {
my (undef, $args) = @_;
Plugins::delHooks($hooks);
$hooks = Plugins::addHooks(['charSelectScreen', \&delete, undef]);
$messageSender->sendCharLogin(0);
$timeout{'charlogin'}{'time'} = time;
configModify("autodelete", 0);
$args->{return} = 1;
}