40 lines
800 B
Plaintext
40 lines
800 B
Plaintext
(255 255 0) ~ purple set
|
|
|
|
~ main {
|
|
800 ~ screen_width set
|
|
450 ~ screen_height set
|
|
|
|
argv split
|
|
~ username set
|
|
~ password set
|
|
|
|
() username cons (0.0 1.0 2.0) cons purple cons ~ me set
|
|
() password cons me login cons ~ 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
|