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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
// 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;
}
L_Start:
switch (select("show area:map:pc:change npc direction:quest test:cart"))
{
case 1:
areatest;
break;
case 2:
while(1)
{
.@mask = getmapmask("test");
mes "current mask: " + str(.@mask);
switch (select("show sand:show grass:show fog:hide fog:back"))
{
case 1:
addremovemapmask "test", 4, 8;
break;
case 2:
addremovemapmask "test", 8, 4;
break;
case 3:
addmapmask "test", 2;
break;
case 4:
removemapmask "test", 2;
break;
case 5:
goto L_Start;
break;
}
}
break;
case 3:
while(1)
{
switch (select("change sex:setmount 0:setmount 1:test command:back"))
{
case 1:
changecharsex;
break;
case 2:
setmount 0;
break;
case 3:
setmount 1;
break;
case 4:
clientcommand "emote 1";
break;
case 5:
goto L_Start;
break;
}
}
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;
break;
case 6:
while(1)
{
switch (select("add cart:remove cart:back"))
{
case 1:
setcart 1;
break;
case 2:
setcart 0;
break;
case 3:
goto L_Start;
break;
}
}
break;
}
close;
OnTouch:
doorTouch;
OnUnTouch:
doorUnTouch;
OnTimer340:
doorTimer;
OnInit:
setnpcsex G_MALE;
setnpcdistance 5;
waitingroom "test room", 2, "npc1::OnReadyCheck", 1;
end;
OnWhisperGlobal:
mes "cmd: " + @whispervar0$;
close;
OnSkillInvoke:
skillInvoke[@skillId] = skillInvoke[@skillId] + 1;
end;
OnReadyCheck:
debugmes "OnReadyCheck";
$@bgid1 = waitingroom2bg("testbg", 10, 10, "bgnpc1::OnLogout","bgnpc1:OnDie");
debugmes "bgid=" + str($@bgid1);
bg_warp $@bgid1, "testbg", 10, 10;
}
|
