-
Notifications
You must be signed in to change notification settings - Fork 0
/
script.stub
30 lines (25 loc) · 906 Bytes
/
script.stub
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
(c-include "io.h")
(c-include "player.h")
(c-include "object.h")
(c-include "random.h")
(define-c void (sleep io_sleep) (unsigned-int))
(define-c-struct player
predicate: player?
(string name player-name)
(unsigned-int gender player-gender)
(unsigned-int race player-race)
(unsigned-int level player-level)
(unsigned-int exp player-exp)
(unsigned-int hp player-hp)
(unsigned-int hp_max player-hp-max)
(unsigned-int x player-x)
(unsigned-int y player-y)
)
(define-c (pointer player) player_new ())
(define-c void player_delete ((pointer player)))
(define-c void player_move ((pointer player) unsigned-int unsigned-int))
(define-c void random_init(unsigned-int))
(define-c void random_reseed(unsigned-int))
(define-c void random_reseed_time())
(define-c unsigned-int random_uint(unsigned-int))
(define-c unsigned-int random_uint_range(unsigned-int unsigned-int))