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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
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
|
// Evol scripts.
// Authors:
// 4144
// Description:
// test npc1
test,10,10,0 script npc1#door 32767,0,1,{
OnTouch:
warp "test", 20, 20;
close;
OnUnTouch:
doevent "npc1::OnUnTouch";
}
test,10,10,0 script npc1 800,3,3,{
function areatest
{
mesn;
mes "getareausers(\"test\", 7, 7, 13, 13): " + getareausers("test", 7, 7, 13, 13);
mes "getareausers(7, 7, 13, 13): " + getareausers(7, 7, 13, 13);
mes "getareausers(\"test\"): " + getareausers("test");
mes "getareausers(): " + getareausers();
mes "getareausers(\"test\", 1): " + getareausers("test", 1);
mes "getareausers(1): " + getareausers(1);
next;
return;
}
switch (select("show area:map:change sex:change npc direction:quest test:add cart:remove cart"))
{
case 1:
areatest;
break;
case 2:
.@mask = getmapmask("test");
mes "current mask: " + str(.@mask);
switch (select("show sand:show grass:show fog:hide fog"))
{
case 1:
setmapmask "test", (.@mask | (4 + 8)) ^ 8;
break;
case 2:
setmapmask "test", (.@mask | (4 + 8)) ^ 4;
break;
case 3:
setmapmask "test", .@mask | 2;
break;
case 4:
setmapmask "test", (.@mask | 2) ^ 2;
break;
}
break;
case 3:
changecharsex;
break;
case 4:
for (.@f = 0; .@f < 9; .@f ++)
{
mes "" + .@f;
setnpcdir .@f;
next;
}
break;
case 5:
mes "current";
.@val0 = getq(ShipQuests_Gugli);
mes "val=" + .@val0;
setq ShipQuests_Gugli, 10;
next;
mes "test 10";
next;
.@val = getq(ShipQuests_Gugli);
mes "val=" + .@val;
setq ShipQuests_Gugli, .@val0;
next;
case 6:
setcart 1;
break;
case 7:
setcart 0;
break;
}
close;
OnTouch:
doorTouch;
OnUnTouch:
doorUnTouch;
OnTimer340:
doorTimer;
OnInit:
setnpcsex G_MALE;
setnpcdistance 5;
end;
OnWhisperGlobal:
mes "cmd: " + @whispervar0$;
close;
}
|