Edit History:Diff

Changes of O2 for HSP3 since 2010/06/30 06:15:05 JST

• + added lines
• - deleted lines

Return to the edit history

  [[$$toc]]
+ 
  ----
  * はじめに...
  HSPTV!メルマガの「教えて！おにたま！！」からおにたまさんの回答の引用です。
  <<<
  現在のところ、O2システムはHSP2.6以降にのみ対応しています。~%
  ただし、プラグインDLL自体(sephira.dll)は、HSP3からであっても使用することができます。~%
  HSP3に対応していないのは、付属しているモジュールの「o2.as」になります。~%
  これは、ユーザーIDの入力やチャットウィンドウなど標準的なシステム表示をサポートするためのものになっています。~%
  HSP3に対応した「o2.as」は、準備中でなるべく早く公開したいと考えていますが、'''自信のある人はHSP3対応に修正してみてもいいかと思います'''。(...[1])~%
  また、O2のバージョンアップについては、'''機能の追加も含めて検討しています'''。(...[2])~%
  ただ、詳しい予定がまだ立っていない状態なのでもう暫らくお待ち下さい。
  >>>
  * 確認事項
  ** 自信のある人はHSP3対応に修正してみてもいい
  個人で修正したものを個人の範囲で利用するよりは、何か共有できるものをこしらえて、「hsp3.0でo2を利用したいのですが...」といった声を聞いたときは「HSPWikiに...」と案内できたほうが「現状2.6xのみ対応なのでHSP3での利用は諦めるか、自分でHSP3用に修正するしかない」の他の選択肢として、ここで修正版を載せる(修正は興味のある人全員で)というのはいいでしょうか？
  
  ** 機能の追加も含めて検討しています
  開発者サイドでもバージョンアップが検討されているということなのでここはもうしばらく我慢するべきでしょうか？
  
  * o2.as for HSP3
  {{{
  // このソースは間違いのある場合があり、使用は自己責任でお願いします。
  //　間違いなどありましたら、ごにょごにょしてください・・・
  
  #include	"sephira.as"
  #module "o2"
  
  #define MSG_LOGIN 1
  #define MSG_LOGOUT 2
  #define MSG_WHOIS 3
  #define MSG_WHOACK 4
  
  #deffunc o2init int
  
  	;	o2 initalize
  	;
  	buffer 3
  	picload "o2_bar.bmp"
  	gsel 0
  	btn_max=32
  	dim btn_fl,btn_max
  	dim btn_x,btn_max
  	dim btn_y,btn_max
  	dim btn_sx,btn_max
  	dim btn_sy,btn_max
  	sdim chatmes,256
  	alloc sysdata,512
  
  	;	user data initalize
  	;
  	sdim user_id,64
  	sdim user_pass,64
  	sdim user_option,256
  	user_id = "unknown"
  	user_pass = ""
  	user_option=""
  	;
  	exist "O2user_data.txt"
  	if strsize>0 {
  		notesel user_dat
  		noteload "O2user_data.txt"
  		noteget user_id,0
  		noteget user_pass,1
  	}
  	return
  *badinit
  	dialog "o2user.datファイルが不正です。"
  	end
  
  
  #deffunc o2datsave
  
  	randomize
  	memcpy sysdata,user_id,32,$20,0
  	memcpy sysdata,user_pass,32,$40,0
  	memcpy sysdata,user_option,$100,$80,0
  
  	sysdata.0 = $5302
  	sysdata.1=rnd ($8000)
  	sysdata.2=rnd ($8000)
  	dkey=sysdata.1 + sysdata.2
  	x=8:y=0:repeat 56+64
  	sysdata.x=(sysdata.x^dkey)+0x5522aa
  	y+=sysdata.x:x+:loop
  	sysdata.3=y
  	ID=str(user_id)
  	PASS=str(user_pass)
  		notesel user_data
  		noteadd ID,0,1
  		noteadd PASS,1,1
  		notesave "O2user_data.txt"
  
  	return
  
  
  #deffunc o2cls int _p1
  	y=_p1
  	cls 1
  	objmode 1,1
  	redraw 0
  	gmode 0,640,20
  	repeat y/20
  	pos 0,cnt*20:gcopy 3,0,20
  	loop
  	gmode 0,640,30
  	pos 0,0:gcopy 3,0,0
  	pos 0,y-30:gcopy 3,0,50
  	gmode 0,640,80
  	pos 0,y:gcopy 3,0,80
  	redraw 1
  	repeat btn_max:	btn_fl.cnt=-1:loop
  	btn_ent=0
  	return
  
  
  #deffunc o2wait int _p1a
  
  	wt=_p1a
  	seWait@ : o2stat=stat
  	await wt
  	await
  	return
  
  
  #deffunc o2button int _p12,int _p2,int _p3,int _p4,int _p5
  
  	if btn_ent>=btn_max : return
  	btn_fl.btn_ent	=_p12
  	btn_x.btn_ent	=_p2
  	btn_y.btn_ent	=_p3
  	btn_sx.btn_ent	=_p4
  	btn_sy.btn_ent	=_p5
  	btn_ent+
  	return
  
  #deffunc o2bdraw
  	gmode 0,120,20
  	repeat btn_max:	if btn_fl.cnt<0 : continue
  	c=btn_fl.cnt:x=btn_x.cnt:y=btn_y.cnt
  	sx=btn_sx.cnt:sy=btn_sy.cnt
  	if c&$100 {
  		px=sx*2:py=c&255*20+160
  	} else {
  		px=0:py=c*20+160
  		if mousex<x : px=sx
  		if mousey<y : px=sx
  		if x+sx<mousex : px=sx
  		if y+sy<mousey : px=sx
  	}
  	pos x,y:gcopy 3,px,py,sx,sy
  	loop
  	return
  
  #deffunc o2bcheck
  	mref _p10,64
  	res=-1
  	repeat btn_max:	if btn_fl.cnt<0 : continue
  	c=btn_fl.cnt
  	if (c&$100)=0 {
  		x=btn_x.cnt:y=btn_y.cnt:px=0
  		if mousex<x : px+
  		if mousey<y : px+
  		if x+btn_sx.cnt<mousex : px+
  		if y+btn_sy.cnt<mousey : px+
  		if px=0 : res=cnt
  	}
  	loop
  	_p10=res
  	return
  
  
  #deffunc o2sendchat str _p1c
  
  	seChatPut@ _p1c
  	return
  
  
  #deffunc o2sendchatp str _p1d,int _p2a
  
  	seChatPut@ _p1d,_p2a
  	return
  
  
  #deffunc o2putchat str _p1e,int _p2b
  
  	chatmes = _p1e
  	spcode=_p2b & 255
  	if spcode=MSG_WHOIS : goto *putc2
  	;
  	pos 16,chaty+16:gcopy 0,16,chaty+32,604,354-chaty
  	gmode 0,640,26
  	pos 0,374:gcopy 3,0,50
  	;
  	if spcode>0 : goto *putc1
  *putc0
  	color 0,0,0
  	pos 16,374:mes chatmes
  	return
  *putc1
  	a=strlen(chatmes):s1=strmid (chatmes,0,a-1)
  	color 160,0,0
  	pos 16,374
  	;
  	if spcode=MSG_LOGIN : mes s1+"さんがログインしました。"
  	if spcode=MSG_LOGOUT : mes s1+"さんがログアウトしました。"
  	if spcode=MSG_WHOACK : mes s1+"さんがロビーにいます。"
  	return
  *putc2
  	seChatPut@ "",MSG_WHOACK
  	return
  
  
  #deffunc o2lobby
  
  	sdim	in_mess,80
  	sdim	out_mess,80
  	gsel 0
  	o2cls 400
  	font "ＭＳ ゴシック",12,1+16
  	pos 16,420:mes "ID:"+user_id+" ( Chat Window )"
  
  	o2sendchatp "",MSG_LOGIN			; entry message
  	in_mess=""
  	objsize	480,24
  	pos 16,436 : input in_mess : mesid=stat
  	objsel mesid
  	meslen=0
  	chaty=130
  	color 64,64,64:boxf 16,chaty+12,620,chaty+13
  	;
  	o2button 0,500,16,120,20
  	lbmode=0:lbroom=0:o2stat=0
  	;
  	return
  
  
  #deffunc o2lstat
  
  	redraw 0
  	color 211,208,202:boxf 16,16,499,chaty
  	color 64,64,64:pos 16,16
  	seRoomStat@ : roommax = stat : room_name=""
  	if roommax=0 : mes "エントリーなし" : goto *lstat_ok
  	if roommax>8 : roommax=8
  	repeat roommax:pos 16,cnt*16+16
  	seRoomGet@ room_name , cnt
  	mes	"ROOM"+cnt+" "+room_name+" ("+stat+")"
  	loop
  *lstat_ok
  	redraw 1,16,16,500-16,chaty
  	return
  
  
  #deffunc o2lchat
  
  	o2lchat_stat@ = 0
  
  	;	status process
  	if o2stat = 2  : o2lchat_stat@ = 1
  	if o2stat = 11 : o2lchat_stat@ = -1 : o2errm="通信エラー"
  	if o2stat = 20 : o2lchat_stat@ = -1 : o2errm="LOBBYがいっぱいで入れない"
  	if o2stat = 21 : o2lchat_stat@ = -1 : o2errm="部屋に入れませんでした"
  
  	;	room process
  	o2lstat
  	o2bdraw
  	stick key,0,1
  	if key&$100 : goto *lcbtn
  	goto *lcloop
  *lcbtn
  	; button push
  	if roommax=0 : goto *lcbtn0
  	x=mousex:y=mousey
  	if (x<16)|(x>499) : goto *lcbtn0
  	if (y<16)|(y>chaty) : goto *lcbtn0
  	a=(y-16)/16
  	if a>=roommax : goto *lcbtn0
  	; select room
  	seRoomSet@ a:if stat = 10 : dialog "選択できません" : goto *lcloop
  	lbmode=2:lbroom=a
  	goto *lcloop
  *lcbtn0
  	o2bcheck:if stat==-1 : goto *lcloop
  *lcbtn1
  	; new room
  	if lbmode!=0 : goto *lcbtn1x
  	seRoomSet@ -1:if stat = 10 : dialog "エントリーできません" : goto *lcloop
  	lbmode=1:lbroom=-1
  	goto *lcloop
  *lcbtn1x
  	; exit room
  	seRoomSet@ -2:if stat = 10 : dialog "退出できません" : goto *lcloop
  	lbmode=0
  	goto *lcloop
  
  *lcloop
  	; chat process
  	seChatGet@ out_mess
  	if stat : o2putchat out_mess,stat>>8
  
  	;getkey	key_a,13		;リターンキーが押されたか？
  	if ( key&32 ){
  		a=strlen(in_mess)
  		if a : if a=meslen : goto *lcent
  	} else {
  		meslen=strlen(in_mess)
  	}
  	;stick a,$20,1
  	;if a&$20 : goto *lcent
  	;if a&1024 : actid=actid^1 : objsel actid
  	;if a&$100 : goto *o2m2
  
  	return
  *lcent
  	if in_mess="/who" : seChatPut@ "",MSG_WHOIS : in_mess=""
  	;
  	if in_mess!="" : seChatPut@ in_mess
  	o2wait 3
  	meslen=0:objprm	mesid,""
  	return
  
  
  #deffunc o2start str _p1f,int _p2d
  
  	sdim game_code,64
  	sdim server_name,64
  	game_code = _p1f
  	game_human = _p2d
  
  	if game_human>0 : server_name="o2.zener.co.jp" : else : server_name="127.0.0.1"
  
  	screen 0,640,480
  	gsel 0,1
  *o2m0
  	o2cls 400
  	font "ＭＳ ゴシック",12,1+16
  	objsize	240,24
  	pos 168,208:mes "ユーザーID"
  	pos 168,232:mes "パスワード"
  	pos 160,160
  	mes "以下の情報をもとにネットワークサーバーに接続します。"
  	mes "ログインするためのユーザーIDとパスワードを入力してください。"
  	pos 240,200
  	input user_id
  	input user_pass
  	sendmsg objinfo(1,2),204,'*',varptr(dum)
  	objprm 1,user_pass
  	o2button 1,280,260,120,20
  	actid=0:objsel actid
  *o2m1
  	o2bdraw
  	stick a,,1
  	if a&$100 : goto *o2m2
  	if a&$20 : goto *o2m2x
  	wait 5
  	goto *o2m1
  *o2m2
  	o2bcheck:if stat<=-1 : goto *o2m1
  *o2m2x
  	if user_id="" : goto *o2m1
  	;
  	o2cls 400
  	font "ＭＳ ゴシック",14,1+16
  	pos 200,220
  	mes "ネットワークサーバーに接続中です..."
  
  	if game_code!="" {
  		seGameCode@	game_code	;ゲームコードの設定
  	}
  
  	seName@		user_id		;名前の登録
  	sePassword@	user_pass	;パスワードの登録
  
  	;seLoginの#2パラメータ(Matching数、マイナスならばローカルテスト用)
  	seLogin@ server_name, game_human
  	if ( stat == 11 ):erm="通信ができませんでした":goto *o2m3
  	if ( stat == 12 ):erm="IDかパスワードが間違っています":goto *o2m3
  	if ( stat == 13 ):erm="すでにこのIDでログイン中です":goto *o2m3
  	if ( stat == 14 ):erm="O2のバージョンが異なります":goto *o2m3
  	if ( stat == 15 ):erm="ロビーが満員です":goto *o2m3
  	if ( stat == 16 ):erm="通信設定に間違いがあります":goto *o2m3
  
  	o2datsave
  
  	return
  *o2m3
  	ernum=stat
  	o2cls 400
  	font "ＭＳ ゴシック",14,1+16
  	pos 160,180
  	mes "サーバー接続中にエラーが発生しました。"
  	mes "エラー("+ernum+") : "+erm
  	;objsize 120,20
  	;pos 260,230
  	;button "OK",*o2m0
  	o2button 2,260,230,120,20
  *o2m4
  	o2bdraw
  	stick a,,1
  	if a&$20 : goto *o2m0
  	if a&$100 {
  		o2bcheck:if stat>=0 : goto *o2m0
  	}
  	wait 5
  	goto *o2m4
  
  
  #deffunc o2draw
  	return
  
  
  #deffunc o2error int _p1g
  
  	ernum=_p1g
  	o2cls 400
  	font "ＭＳ ゴシック",14,1+16
  	pos 160,180
  	mes "エラーが発生しました。"
  	mes o2errm
  	o2button 2,260,230,120,20
  *o2e
  	o2bdraw
  	stick a,,1
  	if a&$100 {
  		o2bcheck:if stat>=0 : return
  	}
  	wait 5
  	goto *o2e
  
  
  #deffunc o2game int _p1h
  
  	gcline=_p1h
  	if gcline<4 : gcline=4
  	if gcline>23 : gcline=23
  
  	sdim	in_mess,80
  	sdim	out_mess,80
  	gsel 0
  	o2cls 400
  	font "ＭＳ ゴシック",12,1+16
  	pos 16,420:mes "ID:"+user_id+" ( Chat Window )"
  
  	o2sendchatp "",MSG_LOGIN			; entry message
  	in_mess=""
  	objsize	480,24
  	pos 16,436 : input in_mess : mesid=stat
  	;objsel mesid
  	meslen=0
  	chaty=370-(gcline*16)
  	o2stat=0
  	color 64,64,64:boxf 16,chaty+12,620,chaty+13
  
  	o2gchat_stat@ = 0
  
  	dim o2ibuf,1024					; 4096byte alloc
  	ibufmax=4096
  	ibsize=0
  	ibcnt=0
  	ibdata=0
  	ibmode=4			; 0=waiting / 1=wait header / 2=recieve / 3=data ready / 4=n/c
  
  	return
  
  
  #deffunc o2gchat
  
  	;	big packet process
  
  	if ibmode>2 : goto *gcmain0
  	;
  	seDataStat@:if stat = 0 : goto *gcmain0
  	a=stat
  	if ibmode=2 : goto *gcmain1
  	if ibmode=1 : goto *gcmain2
  	ibmode=1
  	seDataGet@ ibdata
  	if ibdata!$ff : dialog "Packet error("+ibdata+")" : goto *gcmain0
  	a-:if a=0 : goto *gcmain0
  *gcmain2
  	seDataGet@ ibsize
  	ibcnt=0
  	if ibsize<1 : ibmode=0 : goto *gcmain0
  	ibmode=2
  	a-:if a=0 : goto *gcmain0
  *gcmain1
  	seDataGet@ o2ibuf.ibcnt
  	ibcnt+:if ibcnt>=ibsize : ibmode=3 : goto *gcmain0
  	a-:if a : goto *gcmain1
  	goto *gcmain0
  
  *gcmain0
  	;	status process
  	if o2stat = 11 : o2gchat_stat@ = -1 : o2errm="通信エラー"
  
  	;	chat process
  	seChatGet@ out_mess
  	if stat {
  		a=stat>>8
  		font "ＭＳ ゴシック",12,1+16
  		o2putchat out_mess,a
  	}
  	stick key,0,1
  	if ( key&32 ){
  		a=strlen(in_mess)
  		if a : if a=meslen : goto *gcent
  	} else {
  		meslen=strlen (in_mess)
  	}
  	return
  *gcent
  	if in_mess!="" : seChatPut@ in_mess
  	o2wait 3
  	meslen=0:objprm	mesid,""
  	return
  
  
  #deffunc o2gcls int _p1i
  	redraw 0
  	if _p1i<0 : return
  	if _p1i=0 : color 211,208,202
  	if _p1i=1 : color 0,0,0
  	boxf 16,16,624,chaty
  	return
  
  
  #deffunc o2gupdate
  	redraw 1,16,16,624-16,chaty-16
  	return
  
  
  #deffunc o2lexit
  
  	o2sendchatp "",MSG_LOGOUT
  	repeat 16
  	o2lchat
  	o2wait 30
  	loop
  	return
  
  
  #deffunc o2gexit
  
  	font "ＭＳ ゴシック",12,1+16
  	o2sendchatp "",MSG_LOGOUT
  	repeat 16
  	o2lchat
  	o2wait 30
  	loop
  	seRoomSet@ -3
  	return
  
  
  #deffunc o2sends val _v0c,int _p3c
  
  
  	seDataPut@ $ff,_p3c
  	a=strlen(_v0c):a=(a+4)>>2
  	seDataPut@ a,_p3c
  	ibdata=0
  
  	repeat a
  	memcpy ibdata,_v0c,4,0,cnt*4
  	seDataPut@ ibdata,_p3c
  	loop
  
  	return
  
  
  #deffunc o2send val _v0,int _p2e,int _p3a
  
  
  	seDataPut@ $ff,_p3a
  	seDataPut@ _p2e,_p3a
  
  	repeat _p2e
  	seDataPut@ _v0.cnt,_p3a
  	loop
  
  	return
  
  
  #deffunc o2recv val _v0a
  
  	mref _p0,64
  
  	if ibmode!3 : _p0=0 : return
  
  	memcpy _v0a,o2ibuf,ibsize
  	ibmode=0
  	_p0=ibsize
  	return
  
  
  #deffunc o2recvs val _v0b
  
  	mref _p0,64
  
  	if ibmode!3 : _p0=0 : return
  
  	memcpy _v0b,o2ibuf,ibsize<<2
  	ibmode=0
  	_p0=ibsize<<2
  	return
  
  
  #deffunc o2pkmode int _p1j
  
  	if _p1j : ibmode=0 : return
  	ibmode=4
  	return
  
  #global
  
  
  }}}
+ - チャットの入力ボックスに入力できる最大文字数で発言した際、私の環境(HSP3.21 OS:WindowsXP SP3 CPU:CeleronM)ではアプリケーションエラーが発生しました。チャットの受信データはユーザIDとコロン':'が頭に付くので、o2lobbyとo2gameのout_messは十分な大きさ(in_messが80バイトであれば97バイト以上)を指定すると対処できるかと思います。-- [[funsuke]]
- - 私の環境(HSP3.21 OS:WindowsXP SP3 CPU:CeleronM)でアプリケーションエラーが発生しました。チャットの受信データはユーザIDとコロン':'が頭に付くので、o2lobbyとo2gameのout_messは十分な大きさ(in_messが80バイトであれば97バイト以上)を指定すると良いです。-- [[funsuke]]
  
  * sephira.as for HSP3
  {{{
  // こちらは互換があるということで掲載の必要なし？
  }}}
  * o2.hs for HHX
  {{{
  // 
  }}}