HSP - Hot Soup Processor

**名無しさん＠お腹いっぱい。** · 01/11/10 04:04

ＨＳＰは、お手軽に使うことのできるスクリプト言語システムです。
テキストによるスクリプトを書くだけで、誰にでも簡単にウインドゥズ上で
画像表示、メニューシステムの構築ができます。
多彩な命令セットを使いこなすことでゲームアプリケーションまで作成する
ことができます。

Hot Soup Processor 公式サイト
http://www.onionsoft.net/hsp/

**416(HSP)** ◆HoSW/FCI · 02/05/17 10:04

#include "hspsock.as"
title "TCPサーバーテスト"

*init
sdim log,32000 : sdim say,256 : sdim s,256 : mesbox log,640,400,0
port=999 : pos 0 :mes "ポート"+port+"で接続待機中..."
sockmake 0,port : if stat : dialog "Socket make error": goto *bye
onexit *bye ;終了時必ずソケットを閉じる。

repeat ;接続待ち
wait 1 : sockwait 0 : if stat>1 : dialog "Socket error" : goto *bye
if stat=0 : break ;ｷﾀｰ
loop

pos 0,400 : input say,580,24,128 : pos 580,400 : button "送信",*send : pos 0 : mes "接続しました。"

*main
wait 1 : sockcheck 0 : if stat>1 : dialog "Socket error!": goto *bye
if stat=0 : gosub *get ;受信データ有り
goto *main

*get
sockget s,128,0 : if s!"" : log+=s+"\n" : objprm 0,log
return

*send
if say="" : goto *main ;相手が切断するとなぜか受信
sockput say : if stat : dialog "Socket error": goto *bye
say="" : objprm 1,say : goto *main

*bye
sockclose : end

**416(HSP)** ◆HoSW/FCI · 02/05/17 10:07

#include "hspsock.as"
title "TCPクライアントテスト"

*init
sdim log,32000 : sdim say,256 : sdim s,256 : mesbox log,640,400,0
adr="127.0.0.1" ;相手(サーバー)のIPを入力。ローカルなら127.0.0.1
port=999 : mes adr+"、ポート"+port+"に接続中..."
sockopen 0,adr,port : if stat : dialog "socket error" : goto *bye
onexit *bye
pos 0,400 : input say,580,24,128 : pos 580,400 : button "送信",*send : pos 0 : mes "接続しました..."

*main
wait 1 : sockcheck 0 : if stat>1 : dialog "Socket error!": goto *bye
if stat=0 : gosub *get ;受信データ有り
goto *main

*get
sockget s,128,0 : if s!"" : log+=s+"\n" : objprm 0,log
return

*send
if say="" : goto *main : else : sockput say : if stat : dialog "Socket error": goto *bye
say="" : objprm 1,say : goto *main

*bye
sockclose : end