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
|
// Shake player screen
- script shake 32767,{
end;
// Loops until @shake is @max_shake
OnShake:
@shake+=1;
movecam rand(-20,20), rand(-20,20);
if (@shake < @max_shake)
addtimer(50, "shake::OnShake");
else
@shake=0;
end;
// Called by GM Command
OnGM:
@shake=0;
@max_shake=rand(4,8);
addtimer(50, "shake::OnShake");
end;
OnCall:
getmapxy(.@m$,.@x,.@y,0);
areatimer(.@m$, .@x-15, .@y-15, .@x+15, .@y+15, 10, "shake::OnGM");
end;
OnInit:
bindatcmd "shake", "shake::OnCall", 80, 80, 1;
end;
}
|
