40 lines
766 B
Plaintext
40 lines
766 B
Plaintext
(set purple (255 255 0))
|
|
|
|
:main {
|
|
800 :screen_width set
|
|
450 :screen_height set
|
|
|
|
argv split
|
|
:username set
|
|
:password set
|
|
|
|
(username (0.0 1.0 2.0) purple) :me set
|
|
(password (me login)) :players set
|
|
|
|
() () me shatter pop exch pop shatter cons
|
|
10.0 add cons
|
|
10.0 add cons
|
|
me shatter pop exch pop cons
|
|
(0.0 1.0 0.0) cons
|
|
45.0 cons
|
|
"CAMERA_PERSPECTIVE" cons
|
|
:camera set
|
|
|
|
screen_width screen_height "zwl client : raylib" init_window
|
|
60 set_target_fps
|
|
|
|
{
|
|
|
|
(* Do handling in here *)
|
|
|
|
end_mode_3d
|
|
|
|
end_drawing
|
|
} window_should_close repeat (* Detect window close button or ESC key *)
|
|
|
|
me logout :players set
|
|
close_window (*Close window and OpenGL context *)
|
|
} set
|
|
|
|
main
|