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
|
// TMW2 Script
// Author:
// Jesusalva
// Description:
// Welcome to all new players on ML! :D
- script @welcome 32767,{
end;
OnCall:
if (!@toeventchk) {
@toeventval1=readparam(Hp);
@toeventval2=readparam(Sp);
@toeventchk=1;
specialeffect FX_CIRCLE, SELF, getcharid(3);
addtimer 4000, "@welcome::OnEffect";
}
end;
OnEffect:
@toeventchk=0;
removespecialeffect(FX_CIRCLE, SELF, getcharid(3));
// Calculate
if ($@WELCOME_TIMER < gettimetick(2)) {
dispbottom l("There are no new players to welcome.");
atcommand "@refresh";
end;
} else if (readparam(Sp) < @toeventval2) {
dispbottom l("You must not be using mana to do this trip.");
atcommand "@refresh";
end;
} else if (readparam(Hp) < @toeventval1) {
dispbottom l("You cannot be fighting to do this trip.");
atcommand "@refresh";
end;
} else if (compare(getmapname(), "001-") || (getmapinfo(MAPINFO_ZONE, getmap())) == "MMO") {
dispbottom l("You currently could not use GM MAGIC to visit Candor.");
atcommand "@refresh";
end;
} else if (getmapname() == "boss" || getmapname() == "sec_pri" || compare(getmapname(), "000-") || compare(getmapname(), "008-") || compare(getmapname(), "005-") || compare(getmapname(), "006-") || compare(getmapname(), "sore")) {
dispbottom l("You currently could not use GM MAGIC to visit Candor.");
atcommand "@refresh";
} else {
LOCATION$="Candor";
warp "005-1", 43, 99;
message strcharinfo(0), l("You are now at Candor.");
}
end;
OnInit:
bindatcmd "welcome", "@welcome::OnCall", 0, 99, 0;
}
|
