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
|
// 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;
restorecam;
closedialog;
}
end;
// Called by GM Command
OnGM:
@shake=0;
@max_shake=rand(6,10);
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;
}
|
