EQExtractor2

[Derision]

I wrote the following little player.pl for GyrospireB to open all pieces of the doors at once. The doorids are from the latest PEQ database, but I guess they should
be the same if you build the zone yourself from the extractor output:

#
# quests/gyrospireb/player.pl
#
# Script for opening all parts of the four part doors when a player clicks on any part.
#
sub EVENT_CLICKDOOR
{
        @multipartdoors = ([58, 59, 60, 61], [62, 63, 64, 65], [66, 67, 68, 69], [70, 71, 72, 73], [78, 79, 80, 81],
                           [82, 83, 84, 85], [86, 87, 88, 89], [90, 91, 92, 93], [94, 95, 96, 97], [98, 99, 100, 101],
                           [102, 103, 104, 105], [106, 107, 108, 109], [110, 111, 112, 113], [120, 121, 122, 123],
                           [125, 126, 127, 128], [129, 130, 131, 132], [133, 134, 135, 136], [137, 138, 139, 140],
                           [141, 142, 143, 144]);

        for $row ( @multipartdoors )
        {
                if(($doorid >= @$row[0]) && ($doorid <= @$row[3]))
                {
                        for $d ( @$row)
                        {
                                if($d != $doorid)
                                {
                                        quest::forcedooropen($d);
                                }
                        }
                        return;
                }
        }
}

[Akkadius]

Originally Posted by Derision

I wrote the following little player.pl for GyrospireB to open all pieces of the doors at once. The doorids are from the latest PEQ database, but I guess they should
be the same if you build the zone yourself from the extractor output:

#
# quests/gyrospireb/player.pl
#
# Script for opening all parts of the four part doors when a player clicks on any part.
#
sub EVENT_CLICKDOOR
{
        @multipartdoors = ([58, 59, 60, 61], [62, 63, 64, 65], [66, 67, 68, 69], [70, 71, 72, 73], [78, 79, 80, 81],
                           [82, 83, 84, 85], [86, 87, 88, 89], [90, 91, 92, 93], [94, 95, 96, 97], [98, 99, 100, 101],
                           [102, 103, 104, 105], [106, 107, 108, 109], [110, 111, 112, 113], [120, 121, 122, 123],
                           [125, 126, 127, 128], [129, 130, 131, 132], [133, 134, 135, 136], [137, 138, 139, 140],
                           [141, 142, 143, 144]);

        for $row ( @multipartdoors )
        {
                if(($doorid >= @$row[0]) && ($doorid <= @$row[3]))
                {
                        for $d ( @$row)
                        {
                                if($d != $doorid)
                                {
                                        quest::forcedooropen($d);
                                }
                        }
                        return;
                }
        }
}

Derision sir,

Damn good job. Sorry I didn't get back to you earlier...

If you don't mind me asking, what else do you have left for Shared Tasks, and is there anything that I can try to do to assist you with it.