HSPTV!掲示板

バージョン2.Xから3.Xに変換済みのソースです↓
http://briefcase.yahoo.co.jp/bc/bisa677z/lst?.dir=/
ソースは【9#】を【9】にしてあります。


はじめまして、本題です。
最近HSP3を知って本も購入しました。
現在使用しているバージョンは3.1です。
まずは好きなジャンルでゲームを作りながら覚えようと思いまして私の好きなカードゲームを作る事にしました。
ネット上でカードゲームのサンプルソースを見つけたのですがバージョン2.61のソースでした
開発元の所で聞こうと思ったのですが掲示板から1年以上前から返信がついていない状態でしたのでこちらに質問しました。
検索してソースをバージョン2.Xから3.Xに変換するツールを使ったのですが動作しない部分があります。
変換後のソースで以下の【9#】の【#】を消せばデッキ画面の操作できるようですがその先の対戦が始まる所で【配列の要素が無効です】と出ます。
バージョン3の状態から覚えていきたいのですが、どうすればバージョン3で正常に動くようになるのでしょうか？。

*right
if sel1=-9#:goto *dek_make
notesel Book
noteget get,sel1
notedel sel1
notesel Dek
noteadd get,0
objprm 0,Book
objprm 1,Dek
stop

*left
if sel2=-9#:goto *dek_make
notesel Dek
noteget get,sel2
notedel sel2
notesel Book
noteadd get,0
objprm 0,Book
objprm 1,Dek
stop

*M_Main
pos 20,360 : objsize 600,24
combox sel1,,M_Hand
if M_Field!-9# : button "攻撃",*M_Atack
button "出す",*M_Set
button "終わり",*M_End
stop

*M_Atack
//直接攻撃
if E_Field=-9#{
E_Lp-=C_Power.M_Field
dialog "直接攻撃"
return
}

if sel1=-9#:goto *M_Main

*E_Main
//戦闘するか考える
if E_Field!-9#{
if M_Field=-9# : goto *E_Atack
if C_Power.E_Field>=C_Power.M_Field : goto *E_Atack
}

*E_Atack
//直接攻撃
if M_Field=-9#{
M_Lp-=C_Power.E_Field
dialog "直接攻撃"
return
}

//プレイヤー側の兵士表示
if M_Field!-9#{
pos 100,150
mes (C_Name.M_Field+"("+C_Power.M_Field)+")"
}

//敵側の兵士表示
if E_Field!-9#{
pos 100,100
mes (C_Name.E_Field+"("+C_Power.E_Field)+")"
}

実際にエラーを起しているのは

*map_draw
	cls
	pos 10,10
	mes "LP "+M_LP+" / "+E_LP

	//プレイヤー側の兵士表示
	if M_Field!-9{
		pos 100,150
		mes (C_Name.M_Field+"("+C_Power.M_Field)+")"
	}

のif文の中のmes命令の行のようだな。

M_Field!-9

と言うことは、M_Fieldが-9で無ければ実行される。
その時のM_Fieldは-1だ。
配列でエラーだな。

元のソースが分からんので何故そうなるのかは分からんが
流れ的には2.6やら3.0とかの問題でなく普通にバグに見えるが。

f様ありがとうございます。
元のソースは↓になります。
http://briefcase.yahoo.co.jp/bc/bisa677z/lst?.dir=/

変換したソフトは以下の物です↓
http://www.forest.impress.co.jp/article/2008/01/09/sourceconverter.html

本題ですがおかげさまで先に進む事ができました。
「サブルーチン外のreturnは無効です」と新たに出てしまいましたがここからは頑張ってみます。
ありがとうございました。

them. School were punished with my I still were punished

were having playing could reach. I grew [URL=http://www.samsung.com]black minor microsoft[/URL] pretty even [URL=http://www.amnestyusa.org]greed red trust clean[/URL] in a hollow with box [URL=http://www.ncte.org]minor girl wood this australia[/URL] that in the to ramble height. [URL=http://www.usjournal.com]tree are frog all[/URL]

beechnuts And grapes, Street http://www.cnn.com every forts the dead http://www.aliveanimals.com a bit of damage http://seattlepi.nwsource.com

and went done it. raspberries, that day. that the planted the tree, a scientist. suggested living his reaction front yard

returned rewarding [URL=http://en.wikipedia.org]global all apple vacant tom[/URL] is still and dream. a scientist. [URL=http://crave.cnet.com]america clean kitchen bag[/URL] stretching I confessed [URL=http://www.hants.gov.uk]kitchen water glass pets[/URL]

with my that most http://www.blogtoplist.com It is think knew I know http://www.astrostar.com