HSPTV!掲示板

ホスト側

include "gDP.as"

sdim zyusin_buffer , 1024

ret = ghost( "" , 49153 , 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 = "180.33.214.254"

ret = gconnect( ip , 49153 , 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 "メッセージ送信に成功しました。"

このスクリプトのどこを変更したらホスト⇒クライアントへ送る値を変更できるんですか？

あれ?クライアントとホストが逆ではないですか?

逆ではないようです。

斗詩弥 ＝ トッポ ＝ れもん ＝ sou ＝ 東朝倉
スレ立てたまま放置しすぎ。
悪質な荒らしか。

じゃあ質問に答えてくださいよ

>じゃあ質問に答えてくださいよ
人に言う前にお前のスレでお前がスルーした全ての人に対してレス返せよ。

http://hsp.tv/play/pforum.php?mode=all&num=44120
http://hsp.tv/play/pforum.php?mode=all&num=44014
http://hsp.tv/play/pforum.php?mode=all&num=43981


あ、荒らしにマジレスしちまった恥ずかしい。

答えだけを言えば、gsendtextのパラメータを変える。それだけです。

gsendtextのパラメータと言うのはホストの方ですよね？

repeat
color 255,255,255 : boxf
while (gcheckbuffertext() > 0 )
ret2 = ggettext( zyusin_buffer , 1024 )

この辺でしょうか？

「答えだけを言えば、gsendtextのパラメータを変える。それだけです。」
この限りなく完結でわかりやすい教示を受けて出た結論が
「gsendtextのパラメータと言うのはホストの方ですよね？」
これってネタじゃないならマジで頭湧いてるだろ

名前が多すぎてなんて呼んだらいいのかわからないけど、君にプログラミングは
向いてないよ

実際に動作させてないが多分これで動くだろう。
お互いに文字列が送れるのが確認できたら

あとはその文字列を受け取って値をやり取りすればいい。


ホスト

#include "gDP.as"
	sdim sdata , 1024
	sdim rdata , 1024
	sessionname = ""
	portno      = 50000
	ret = ghost( sessionname , portno , gMODE_PEER , gMSG_ERROR )
	sdata = "SERVER HIT SPACE!"
*lp
	ret = gcheckbuffertext()
	if ret > 0 {
		ret = ggettext( rdata , 1024 )
		mes rdata
	}
	getkey spc , 32
	if spc = 1 : ret = gsendtext( sdata , 1024 )
	wait 10
	goto *lp
	ret = gdisconnect()

クライアント

#include "gDP.as"
	sdim sdata , 1024
	sdim rdata , 1024
	ipno   = "127.0.0.1"	// 必要なら環境に合わせて変更して下さい
	portno = 50000
	ret = gconnect( ipno , portno , gMODE_PEER , gMSG_ERROR )
	sdata = "CLIENT HIT SPACE!"
*lp
	ret = gcheckbuffertext()
	if ret > 0 {
		ret = ggettext( rdata , 1024 )
		mes rdata
	}
	getkey spc , 32
	if spc = 1 : ret = gsendtext( sdata , 1024 )
	wait 10
	goto *lp
	ret = gdisconnect()

おかしいと思ってマニュアルサンプルチュートリアル見てみたが
ホスト側からデータを送る「簡易な」サンプルは、確かに無いな。

「同じ命令」を使うだけなので、そこまで考えて無かったわ。

f(現実逃避中)さん
ありがとうございます。
おかげで無事できました。

批判しかできない方とは違いますね♪

恐らく、大多数は

「マニュアルに「相手に送信する」サンプルしっかり載ってるのに
　どうして「ホストから送信する」ことができないんだ？

と、そこで驚いただろうからな。正直言うと、俺も驚いたわ。
44167を見なければ、そこで詰ってると想像もできんかったわ。

まあ、解決したなら何よりだ。