すみません。だいぶ見にくいですね;
#include "gDP.as"の部分でエラーが出る場合は下記のURLからダウンロードしてソースのディレクトリにおいてください。
http://sky.geocities.jp/f_the_darudaru/gDP/index.html
ホストのソースとクライアントのソース書きなおしたので書いておきます。
ホストのソース!!
#include "gDP.as"
sdim zyusin_buffer , 1024
ret = ghost( "" , 50000 , gMODE_PEER , gMSG_ERROR )
if ret != 0 : mes "セッション作成に失敗しました。"
if ret == 0 : mes "セッション作成に成功しました。"
repeat
color 255,255,255 : boxf
while (gcheckbuffertext() > 0 )
ret2 = ggettext( zyusin_buffer , 1024 )
;ex "ホストのX座標は00100" と送信されるとする。
;形式は送信の文字列右からかぞえて5ケタを数字としてわけるようにする。
;送信されたメッセージは、zyusin_bufferに格納されています。
len=strlen(zyusin_buffer) ;文字の長さ
mozi=strmid(zyusin_buffer,0,len-5) ;文字の部分
trimming=strmid(zyusin_buffer,len-5,5) ;数字の部分
;exの送信内容だと lenは13文字だから13 moziはホストのX座標は trimmingは00100となります。
if mozi="ホストのX座標は" : HOST_X=int(trimming)
;のように書けば変数の値を渡せます。
wend
color 0,0,0
pos 0,0
if ret != 0 : mes "セッション作成に失敗しました。"
if ret == 0 : mes "セッション作成に成功しました。"
mes ""+HOST_X+""
await 60
loop
クライアントのソース!!!
#include "gDP.as"
sdim zyusin_buffer , 1024
ip = "127.0.0.1"
ret = gconnect( ip , 50000 , gMODE_PEER , 0 )
if ret != 0 : mes "セッションの参加に失敗しました。"
if ret == 0 : mes "セッションの参加に成功しました。"
HOST_X=100
HOST_X_SEND=strf("%05d",HOST_X)
ret = gsendtext( "ホストのX座標は"+HOST_X_SEND+"",100)
if ret != 0 : mes "メッセージ送信に失敗しました。"
if ret == 0 : mes "メッセージ送信に成功しました。"
ホストを先に実行して、そこからクライアントを実行してください。
ご参考程度にわかりにくいですがどうぞ^^