diff --git a/leoservermod/init.sqf b/leoservermod/init.sqf index dafb52e..f4a7d71 100644 --- a/leoservermod/init.sqf +++ b/leoservermod/init.sqf @@ -3,4 +3,15 @@ diag_log "leoext: try to initialize..."; _return = "libleoext" callExtension "foooo"; execVM "\leoservermod\marker.sqf"; +leoext_stop = false; + +[] spawn { + while {!leoext_stop} do { + sleep 1; + private _markers = call leoext_map_markers_information; + private _units = call leoext_units_pos; + "libleoext" callExtension ["foo", [[_markers, _units]]]; + }; +} + diag_log format ["leoext: initialize complete! return: %1", _return]; \ No newline at end of file diff --git a/leoservermod/marker.sqf b/leoservermod/marker.sqf index 4bf826e..dd68e7c 100644 --- a/leoservermod/marker.sqf +++ b/leoservermod/marker.sqf @@ -26,17 +26,4 @@ leoext_units_pos = { } forEach allUnits; _units_pos; -}; - -leoext_stop = false; - -[] spawn { - while {!leoext_stop} do { - sleep 1; - diag_log "submitting coordinates..."; - - private _markers = call leoext_map_markers_information; - private _units = call leoext_units_pos; - "libleoext" callExtension ["foo", [[_markers, _units]]]; - }; -} +}; \ No newline at end of file diff --git a/server.lisp b/server.lisp index 1edb637..d17ac3e 100644 --- a/server.lisp +++ b/server.lisp @@ -105,7 +105,9 @@ (getf env :request-method) (getf env :request-uri) route-function) - (funcall route-function env))))) + (funcall route-function env))) + :port 5000 + :address "0.0.0.0")) :name "webserver")) (sb-thread:list-all-threads)