# deal stages
Code: Select all
my $dealAddZeny = @_;
my $dealFinalize = @_;
Code: Select all
sub onDealRequest{
my ($self, $args) = @_;
#kill time out how?
$taskManager->add(new Task::Timeout(
function => sub {
my ($dealAddZeny) = @_;
Commands::run("deal no");
message("waited too long to add zeny\n","system");
},
seconds => $itemWaitTime,
));
}
Code: Select all
sub onDealAddOther{
my ($self, $args) = @_;
#kill time out how?
$dealAddZeny->setDone();
$taskManager->add(new Task::Timeout(
function => sub {
my ($dealFinalize) = @_;
Commands::run("deal no");
message("waited too long to finalize deal\n","system");
},
seconds => $itemWaitTime,
));
}