Glad if it could help. Let me know if it works fine for you (i did not test it under Win, only unix).
There might be (read 'there must be') some issues as i didn't get all knowledge of events. As a start, it was mainly intended to debug perl scripts (i.e. check syntax, and check that everything gets called).
Some updates and fixes :
changed the package scann that was giving confusing messages like "qst1234::EVENT_SAY = <undefined>"
fixed issues with setglobal and delglobal DB calls
setup quest::settimer, quest::stoptimer, quest::setsky,quest::movepc
The above link has been updated
There is the 'beggerprince' quest input
Code:
; this plays a bit with the quest. NB alter the 205 npcid to reflect the id of qeynos2 npc, or vice versa
!perl $name="Kronnuzic the bald";
!perl $race=1;
!perl $class=1;
!perl $userid=6354;
!whoami
!verbose 1
#zone qeynos2
!target 205 ;; that's the beggerprince ID
/say Hail
; give 10 copper
!givecash 10 0 0 0
; give again ... greed is a bad habit
!givecash 0 0 0 10
/ooc damn !
!perl quest::delglobal("beggerprince")
!givecash 0 0 0 10
/ooc that's better, let's move to oasis
#zone oasis
!target 61 ; that's the brothers NPC ID
hail
yes, i'll help you
!givecash 0 0 1 0
/ooc but that's not the type of troll i am, now i kill him
!attack
!verbose
#kill
!verbose 1
/ooc now let's go back to our prince
#zone qeynos2
!target 205 ; back to 205
/hail
#quit
Code:
loading plugins
Subroutine handler redefined at (eval 8) line 1.
[4]plugin::calc = <not a scalar deref>
[4]plugin::handler = <not a scalar deref>
[4]plugin::version = <not a scalar deref>
[4]plugin::SERVER = <not a scalar deref>
EQEmu test >!perl $name="Kronnuzic the bald"
EQEmu test >!perl $race=1
EQEmu test >!perl $class=1
EQEmu test >!perl $userid=6354
EQEmu test >!whoami
Current user :
charid : 5432
uguildid : 0
ulevel : 65
deity : 201
userid : 6354
name : Kronnuzic the bald
uguildrank : 0
race : 1
class : 1
EQEmu test >!verbose 1
verbose level now : 1
EQEmu test >#zone qeynos2
changing to zone qeynos2
Current zone is now : North Qeynos
EQEmu test >!target 205
EQEmu test >/say Hail
Use of uninitialized value in numeric eq (==) at (eval 29) line 3.
Use of uninitialized value in numeric eq (==) at (eval 29) line 3.
Use of uninitialized value in numeric eq (==) at (eval 29) line 3.
Barthal says, 'Do you have some loose change for a gentleman who has had some bad luck?'
EQEmu test >EQEmu test >
!givecash 10 0 0 0
Use of uninitialized value in numeric eq (==) at (eval 47) line 32.
Use of uninitialized value in numeric eq (==) at (eval 47) line 32.
Use of uninitialized value in numeric eq (==) at (eval 47) line 32.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 59.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 59.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 63.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 63.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 67.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 67.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 71.
Argument "" isn't numeric in numeric ne (!=) at (eval 47) line 71.
Barthal says, 'I must confess... I am not a begger. I am a prince.'
Barthal says, 'I have been seeking a generous person. Until now I have failed.'
Barthal says, 'You have restored my faith in the kindness of others.'
Barthal says, 'Let me show you my gratitude.'
you receive 0 plat, 10 gold, 0 silver and 0 copper
Barthal says, 'Here is 100 times the money you gave me'
Barthal says, 'thank you so much for showing me that goodness is not gone'
faction #101 changed by 500.
EQEmu test >EQEmu test >
!givecash 0 0 0 10
Barthal says, 'Ahhhhhhh! More kindness from my friend!'
Barthal says, 'and this time I will accept your gift and pass it on to the poor and needy'
Barthal says, 'just as I know you would want it.'
faction #101 changed by 100.
Barthal says, 'thank you so much for showing me that goodness is not gone'
faction #101 changed by 500.
EQEmu test >/ooc damn !
Kronnuzic the bald says out of character 'damn !'
EQEmu test >!perl quest::delglobal("beggerprince")
EQEmu test >!givecash 0 0 0 10
Use of uninitialized value in numeric eq (==) at (eval 101) line 32.
Use of uninitialized value in numeric eq (==) at (eval 101) line 32.
Use of uninitialized value in numeric eq (==) at (eval 101) line 32.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 59.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 59.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 63.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 63.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 67.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 67.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 71.
Argument "" isn't numeric in numeric ne (!=) at (eval 101) line 71.
Barthal says, 'I must confess... I am not a begger. I am a prince.'
Barthal says, 'I have been seeking a generous person. Until now I have failed.'
Barthal says, 'You have restored my faith in the kindness of others.'
Barthal says, 'Let me show you my gratitude.'
you receive 1000 plat, 0 gold, 0 silver and 0 copper
Barthal says, 'Here is 100 times the money you gave me'
Barthal says, 'thank you so much for showing me that goodness is not gone'
faction #101 changed by 500.
EQEmu test >/ooc that's better, let's move to oasis
Kronnuzic the bald says out of character 'that's better, let's move to oasis'
EQEmu test >#zone oasis
changing to zone oasis
Current zone is now : Oasis of Marr
EQEmu test >!target 61
EQEmu test >hail
Found = in conditional, should be == at (eval 142) line 44.
Found = in conditional, should be == at (eval 142) line 55.
Anehan_Treol says, 'Do you have some loose change for a gentleman who has had some bad luck?'
EQEmu test >yes, i'll help you
Found = in conditional, should be == at (eval 160) line 44.
Found = in conditional, should be == at (eval 160) line 55.
Bareword found where operator expected at (eval 176) line 1, near "'yes, i'll"
(Missing operator before ll?)
Use of uninitialized value in pattern match (m//) at (eval 160) line 3.
Use of uninitialized value in pattern match (m//) at (eval 160) line 3.
Anehan_Treol says, 'Go away and leave me alone in my misery.'
EQEmu test >!givecash 0 0 1 0
Found = in conditional, should be == at (eval 178) line 44.
Found = in conditional, should be == at (eval 178) line 55.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 24.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 24.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 28.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 28.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 32.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 32.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 36.
Argument "" isn't numeric in numeric ne (!=) at (eval 178) line 36.
Anehan_Treol says, 'May the gods bless you as you journey'
EQEmu test >/ooc but that's not the type of troll i am, now i kill him
Kronnuzic the bald says out of character 'but that's not the type of troll i am, now i kill him'
EQEmu test >!attack
Found = in conditional, should be == at (eval 204) line 44.
Found = in conditional, should be == at (eval 204) line 55.
EQEmu test >!verbose
Use of uninitialized value in pattern match (m//) at itest.pl line 172, <> line 26.
usage : verbose <0-9>
EQEmu test >#kill
Found = in conditional, should be == at (eval 221) line 44.
Found = in conditional, should be == at (eval 221) line 55.
Anehan_Treol shouts 'My brother will avenge my death! There will be no mercy for the murderer Kronnuzic the bald!!'
EQEmu test >!verbose 1
verbose level now : 1
EQEmu test >/ooc now let's go back to our prince
Kronnuzic the bald says out of character 'now let's go back to our prince'
EQEmu test >#zone qeynos2
changing to zone qeynos2
Current zone is now : North Qeynos
EQEmu test >!target 205
EQEmu test >/hail
Barthal says, 'I know you!! You are the one who killed my brother in Oasis!!'
Barthal shouts 'Die murderer!!'
EQEmu test >EQEmu test >
EQEmu test >
#quit
quitting ...
closing database connection...
connection closed