npc/functions/harbours.txt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

// Evol scripts.
// Author:
//    Reid
// Description:
//    Harbour utility functions
// Animation:
//    Length: 1680
// Values:
//    2   Hook moving down.
//    4   Hook moving up.
//    6   Hook down.
//    8   Hook up.

function	script	harbourClic	{
    if (.dir == 0)
    {
        .dir = 2;

        initnpctimer;
        startnpctimer;
        close;
    }

    if (.dir == 6)
    {
        .dir = 4;

        initnpctimer;
        startnpctimer;
        close;
    }
}

function	script	harbourTimer	{
    stopnpctimer;
    if (.dir == 2) .dir = 6;
    if (.dir == 4) .dir = 0;
    end;
}