Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub use_skill {
- my $id = gen_new_answer_id();
- $answers->{$id} = sub {
- my ($response) = @_;
- my $skill = choose($response->{skills});
- send('use_skill',$skill);
- }
- send('get', $id, 'skills');
- }
- sub handle_answer {
- my ($id, $response) = @_;
- my &c = $answers->{$id};
- &c($response);
- }
Add Comment
Please, Sign In to add comment