REVO2700 Simplest socket server 1 4a cREVGeneral breakpointconditions breakpoints breakpointstates @ text )` n cREVGeneral revUniqueID 1162390083001 ` k Start Server Epwon mouseUp accept connections on port 8080 with message "someoneConnected" end mouseUp on someoneConnected theIP read from socket theIP until return with message "newMessage" end someoneConnected on newMessage theIp theMessage put theIP & ":" && theMessage & return after field "text" read from socket theIP until return with message "newMessage" end newMessage R 0 cREVGeneral scriptChecksum |?QixhandlerList #mouseUp someoneConnected newMessagescriptSelection char 40 to 39revUniqueID 1162390094177 bookmarks scripteditorvscroll 0scripteditorselection 374tempScript prevHandler script !
on mouseUp
accept connections on port 8080 with message "someoneConnected"
end mouseUp
on someoneConnected theIP
read from socket theIP until return with message "newMessage"
end someoneConnected
on newMessage theIp theMessage
put theIP & ":" && theMessage & return after field "text"
read from socket theIP until return with message "newMessage"
end newMessage