HSPTV!掲示板

今度作るメッセンジャー的な物のサンプル（？）スクリプト。

サーバー

#include "hspsock.as"

	title "Server"

	str_s=""

	port=1290
	ipget
	mes "IP:"+refstr
	mes "Port"+port+""
	sockmake 0,port
	if stat : dialog "Socket error": goto *errbye

	a=0
	repeat
	sockwait 0
	if stat>1 : dialog "Socket error": goto *errbye
	if stat=0 : break
	a+
	wait 10
	loop

	mes "("+refstr+")"

	input str_s
	button goto "ACSESS",*main

	stop

*main

	wait 100
	sockput str_s
	if stat : dialog "Socket error": goto *errbye
	mes "["+str_s+"]"
	stop
*errbye
	sockclose
	mes "exit"
	stop

クライアント

#include "hspsock.as"

	title "Client"

	adr="127.0.0.2"
	port=1290
	a=""

*ac

	mes adr+"port"+port+""
	sockopen 0,adr,port

	mes "Connection completed"

	repeat -1

	sockcheck 0

	if stat=0:{

		sockget a,128,0

		if a!="":{

			mes "Server Message : "+a+"":a=""

		}

	}

	b=cnt

	wait 5

	loop

*bye

	mes "Error!"

	wait 300

	end

hspsockのサンプルスクリプト [server2.hsp] と [client2.hsp] を参考に作りました。
まだまだ初心者なので、変な所もあると思いますが、そこは見逃して下さい。m(_ _)m