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
|
function|script|useAnchorStone
{
addtimer 0, "AS_Core::OnUse";
return;
}
-|script|AS_Core|32767
{
end;
OnUse:
if ( @StoneName$ == "AnchorStone" ) goto L_AnchorStone;
if ( @StoneName$ == "AnchoredAnchorStone" ) goto L_AnchoredAnchorStone;
goto L_Close;
L_AnchorStone:
mes "\"You really want to bind the [@@" + AnchorStone + "|@@] to this place?\"";
menu
"No", L_Close,
"Yes", L_AS_Yes;
L_AS_Yes:
set AnchorStoneDest, getmaphash(getmap()); // since a hash could be negative I take a separate variable for that since shifting would destroy the sign bit and create a different hash
set AnchorStoneDestCoord, gety() << AS_Y_SHIFT | getx() << AS_X_SHIFT;
delitem AnchorStone, 1;
getitem AnchoredAnchorStone, 1;
close;
L_AnchoredAnchorStone:
if ((AnchorStoneDest < 1) && (AnchorStoneDest > -1)) goto L_AAS_Error;
mes "\"You want to recall to the place the [@@" + AnchoredAnchorStone + "|@@] is bound to?\"";
menu
"No", L_Close,
"Yes", L_AAS_Yes;
L_AAS_Yes:
warp getmapnamefromhash(AnchorStoneDest), (AnchorStoneDestCoord & AS_X_MASK >> AS_X_SHIFT), (AnchorStoneDestCoord & AS_Y_MASK >> AS_Y_SHIFT);
goto L_AAStoAS;
L_AAS_Error:
mes "\"Something went wrong the [@@" + AnchoredAnchorStone + "|@@] lost its destination and turns back to normal.\"";
goto L_AAStoAS;
L_AAStoAS:
set AnchorStoneDest, 0;
set AnchorStoneDestCoord, 0;
delitem AnchoredAnchorStone, 1;
getitem AnchorStone, 1;
close;
L_Close:
close;
}
|
