 |
 |
 |
 |
|
 |
 |
|
 |
 |
|
 |
 |
|
 |
 |
| Author |
Message |
shaka drl
Joined: 11 Aug 2006 Posts: 74
|
Posted: Tue Dec 19, 2006 7:06 am Post subject: |
|
|
| Quote: |
[12/18 16:18:39] sysload=13 (7 cputime=1687500
[12/18 16:19:20] Exception in: scripts/textcmd/pager/goxyz.eclnLines: bad allocation
PC < nLines: ( in: 40: 40: [] 1
41: 41: Func(0,2): CInt
42: 42: local #0
43: 43: get member id 'realm' (113)
44: 44: 1073741824L
45: 45: Func(2,1): MoveObjectToLocation
46: >46: :=
47: 47: #
48: 48: local #3
49: 49: if true goto 59
50: 50: local #0
[12/18 16:19:23] Exception in: scripts/textcmd/pager/tele.eclPC < nLines: bad allocation
PC < nLines: (PC=PC=35: 35: local #1
36: 36: get member id 'z' (2)
37: 37: local #0
38: 38: get member id 'realm' (113)
39: 39: 1073741824L
40: 40: Func(2,2): MoveObjectToLocation
41: >41: local2 :=
42: 42: leave block(1)
43: 43: leave block(2)
44: 44: progend
[12/18 16:19:24] Exception in: scripts/textcmd/pager/tele.ecldone: bad allocation
PC < nLines: (_ = false
PC=20: 20: local #1
21: 21: get member id 'z' (2)
22: 22: local #0
23: 23: get member id 'realm' (113)
24: 24: 0L
25: 25: Func(2,2): MoveObjectToLocation
26: >26: :=
27: 27: #
28: 28: local #2
29: 29: if true goto 42
30: 30: local #0
[12/18 16:19:25] Client#6: Exception in message handler 0x02: bad allocation
0000: 02 06 00 00 00 00 00 ........ ........
Client#6: Exception in i/o thread: bad allocation! (checkpoint=4)
Client#6 (213.140.18.128): disconnected (account m_maro)
Client#6: Disconnecting client due to send() error (1): 10038
|
And this is the goxyz.src
| Quote: |
use uo;
use basic;
program textcmd_goxyz( who, text )
Var params := SplitWords( text );
if (len(params) < 3) // didn't pass Z
params[3] := GetMapInfo( CInt(params[1]), CInt(params[2]) , who.realm ).z;
endif
Var res := MoveObjectToLocation( who, CInt(params[1]), CInt(params[2]), CInt(params[3]), who.realm, MOVEOBJECT_FORCELOCATION );
if (!res)
SendSysMessage( who, "Unable to go there: " + res.errortext );
endif
endprogram
|
This is the goxyz.lst
| Quote: |
C:\drl97\scripts\textcmd\pager\goxyz.src, Line 17
program textcmd_goxyz( who, text )
use basic;
0: get arg 'who'
1: get arg 'text'
Var params := SplitWords( text );
2: decl local #2
3: local #1
4: " "
5: Func(0,0): SplitWords
6: :=
7: #
if (len(params) < 3) // didn't pass Z
8: local #2
9: Func(0,1): Len
10: 3L
11: <
12: if false goto 28
params[3] := GetMapInfo( CInt(params[1]), CInt(params[2]) , who.realm ).z;
13: local #2
14: 3L
15: local #2
16: 1L
17: [] 1
18: Func(0,2): CInt
19: local #2
20: 2L
21: [] 1
22: Func(0,2): CInt
23: local #0
24: get member id 'realm' (113)
25: Func(2,0): GetMapInfo
26: get member id 'z' (2)
27: [] := (1) #
Var res := MoveObjectToLocation( who, CInt(params[1]), CInt(params[2]), CInt(
28: decl local #3
29: local #0
30: local #2
31: 1L
32: [] 1
33: Func(0,2): CInt
34: local #2
35: 2L
36: [] 1
37: Func(0,2): CInt
38: local #2
39: 3L
40: [] 1
41: Func(0,2): CInt
42: local #0
43: get member id 'realm' (113)
44: 1073741824L
45: Func(2,1): MoveObjectToLocation
46: :=
47: #
if (!res)
48: local #3
49: if true goto 59
SendSysMessage( who, "Unable to go there: " + res.errortext );
50: local #0
51: "Unable to go there: "
52: local #3
53: get member 'errortext'
54: +
55: 3L
56: 1000L
57: Func(2,2): SendSysMessage
58: #
|
This is the tele.src
| Quote: |
use uo;
program textcmd_tele( who )
SendSysMessage( who, "Where do you want to teleport?" );
var where := TargetCoordinates( who );
if(where)
var result := MoveObjectToLocation( who, where.x, where.y, where.z, who.realm);
if(!result)
result := MoveObjectToLocation( who, where.x, where.y, where.z, who.realm, MOVEOBJECT_FORCELOCATION);
endif
endif
endprogram
|
This is the tele.lst
| Quote: |
C:\drl97\scripts\textcmd\pager\tele.src, Line 4
program textcmd_tele( who )
use uo;
0: get arg 'who'
SendSysMessage( who, "Where do you want to teleport?" );
1: local #0
2: "Where do you want to teleport?"
3: 3L
4: 1000L
5: Func(2,0): SendSysMessage
6: #
var where := TargetCoordinates( who );
7: decl local #1
8: local #0
9: Func(2,1): TargetCoordinates
10: :=
11: #
if(where)
12: local #1
13: if false goto 43
var result := MoveObjectToLocation( who, where.x, where.y, where.z, who.realm);
14: decl local #0
15: local #0
16: local #1
17: get member id 'x' (0)
18: local #1
19: get member id 'y' (1)
20: local #1
21: get member id 'z' (2)
22: local #0
23: get member id 'realm' (113)
24: 0L
25: Func(2,2): MoveObjectToLocation
26: :=
27: #
if(!result)
28: local #2
29: if true goto 42
result := MoveObjectToLocation( who, where.x, where.y, where.z, who.realm, MOVE
30: local #0
31: local #1
32: get member id 'x' (0)
33: local #1
34: get member id 'y' (1)
35: local #1
36: get member id 'z' (2)
37: local #0
38: get member id 'realm' (113)
39: 1073741824L
40: Func(2,2): MoveObjectToLocation
41: local2 :=
42: leave block(1)
43: leave block(2)
44: progend
|
Map size is the same.
Thanks |
|
 |
|
|
 |
 |
| Author |
Message |
shaka drl
Joined: 11 Aug 2006 Posts: 74
|
|
 |
|
|