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
|
// 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));
// Reversions (warp back)
// Not in Candor: Resave your @welcome reversion snippet
if (getmap() != "005-1") {
getmapxy(@welc_map$, @welc_x, @welc_y, 0);
@welc_loc$=LOCATION$;
} else {
// It's defined and you're in Candor, so: Warp back
if (@welc_x && @welc_y) {
warp @welc_map$, @welc_x, @welc_y;
@welc_map$="";
@welc_x=0;
@welc_y=0;
dispbottom l("%s: Thanks for helping.", "Nard");
if (@welc_loc$ != "")
LOCATION$=@welc_loc$;
end;
}
// There's no saved coordinates but you're in Candor.
// So warp you back to... Candor? I mean, what?
}
// 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;
}
|
