$include $lib/alynna

$def PROP "@rp/xp"
: main
background 58472 udpopen
begin 
 { "udp.*" }array event_waitfor pop var! data
 data @ "data" [] " " split tofloat var! xp pmatch var! target
 target @ player? if
  target @ PROP xp @ setprop
  "$avatar" match { "wc #UDP event from " data @ "from" [] ":" data @ "port" [] ", setting " target @ "'s XP to " xp @ "." }cat force
 then
repeat
;