初めまして。時雨0617号機です。
普通にメッセージを送れるようにしたり特定の文字を入れて
文字の色などを変えたりできるようなものを作りたいのですが
何処をどうすればいいのか分からないので誰かアドバイスとかください。
とりあえず今のところどうしたいのか書いておきます
一つ目:メッセージを送れるようにする(入力ボックスを使うと良さそう)
二つ目:名前を入れてチャットに参加するようにする
三つ目:特定の文字を入れると特殊機能が使える
スクリプト張っておきます。(hspsockを使ってます)
title "TCPサーバーテスト"
screen 0,640,480
#include "hspsock.as"
objsize 90,50,20
button goto "クライアントを起動",*client
button goto "サーバーを起動",*server
*client
adr="127.0.0.1"
port=999
mes adr+"、ポート"+port+"に接続中..."
sockopen 0,adr,port
if stat : dialog "socket error" : goto *bye
mes "接続しました..."
a=0
repeat
sockcheck 0
title "CHK="+stat+"/"+a
if stat!=0 : break
wait 10
a+
loop
a=""
sockget a,64
if stat : dialog "socket error" : goto *bye
mes "サーバーからのメッセージ : "+a
*bye
mes "終了"
sockclose
stop
*server
mes "サーバーを起動しました"
port=999
ipget
mes "IPアドレス:"+refstr
mes "ポート"+port+"で接続を待っています..."
sockmake 0,port
if stat : dialog "Socket error": goto *errbye
a=0
repeat
sockwait 0
title "CHK="+stat+"/"+a
if stat>1 : dialog "Socket error": goto *errbye
if stat=0 : break
a+
wait 10
loop
mes "接続しました。("+refstr+")"
wait 100
t1=0:t2=0:t3=0
t1=gettime(4)
t2=gettime(5)
t3=gettime(6)
mm="今の時間="+t1+":"+t2+":"+t3
;
sockput mm
if stat : dialog "Socket error": goto *errbye
input p1,p2,p3,p4
mes "["+mm+"] を送信しました。"
;
*bye2
sockclose
goto *server ; サーバーを続ける
*errbye
sockclose
mes "終了"
stop