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
|
// TMW2 Script
//
// @shroom <mobID> <Amount> <DisplayName>
// Plushroom Angel Script (Plush: 1011, Chaga: 1128, Clover: 1028)
- script @shroom 32767,{
end;
OnShroom:
if (.@atcmd_parameters$[0] != "")
.@mobId=atoi(array_shift(.@atcmd_parameters$));
if (.@atcmd_parameters$[1] != "")
.@mobAm=atoi(array_shift(.@atcmd_parameters$));
if (.@atcmd_parameters$[2] != "")
.@mobName$=implode(.@atcmd_parameters$, " ");
// Checks
if (!.@mobId)
.@mobId=PlushroomField;
if (!.@mobAm)
.@mobAm=1;
if (.@mobName$ == "")
.@mobName$=strmobinfo(1, .@mobId);
//.@gmType=(Sex ? NPC_GAMEMASTER : NPC_GAMEMISTRESS);
.@gmType=(Sex ? GameMaster : GameMistress);
.@gmId=monster("boss", 45, 45, strcharinfo(0), .@gmType, 1);
// Max 40 connected players for this to work
.@c = getunits(BL_PC, .@players, MAX_CYCLE_PC);
for (.@i = 0; .@i < .@c; .@i++) {
debugmes "@shroom: Attach account %d to spawn %d %s (%d)", .@players[.@i], .@mobAm, .@mobName$, .@mobId;
attachrid(.@players[.@i]);
getmapxy(.@m$, .@x, .@y, 0);
unitwarp(.@gmId, .@m$, .@x, .@y);
sleep2(20);
unitwalk(.@gmId, .@x-1, .@y-1);
sleep2(200);
unitemote(.@gmId, any(E_HAPPY, E_HAPPY, E_ANGEL, E_EVILCROC));
sleep2(150);
// Adjust amount based on player level
.@Ammo=limit(1, BaseLevel/15*.@mobAm, 60);
//getmapxy(.@dm$, .@dx, .@dy, UNITTYPE_MOB, .@gmId);
//debugmes "Spawn %d mobs at %s, (%d, %d)", .@Ammo, .@dm$, .@dx, .@dy;
areamonster(.@m$, .@x-3, .@y-3, .@x+3, .@y+3, .@mobName$, .@mobId, .@Ammo);
sleep2(320);
detachrid();
}
// Cleanup
unitwarp(.@gmId, "boss", 45, 45);
unitkill(.@gmId);
end;
OnInit:
bindatcmd "shroom", "@shroom::OnShroom", 80, 100, 1;
}
|
