HSP - Hot Soup Processor [7]

**名前は開発中のものです。** · 04/06/10 04:28

前スレ
　　HSP - Hot Soup Processor
　　　http://game.2ch.net/gamedev/kako/1005/10053/1005332663.html
　　HSP - Hot Soup Processor [2]
　　　http://game.2ch.net/test/read.cgi/gamedev/1035428757/
　　HSP - Hot Soup Processor [3]
　　　http://pc2.2ch.net/gamedev/kako/1043/10436/1043609896.html
　　HSP - Hot Soup Processor [4]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1047082415/
　　HSP - Hot Soup Processor [5]
　　　http://pc2.2ch.net/test/read.cgi/gamedev/1058507713/
　　HSP - Hot Soup Processor [6]
　　　http://pc5.2ch.net/test/read.cgi/gamedev/1078660876/

関連サイト
　　ONION software　（本家）
　　　http://www.onionsoft.net/
　　HSP CENTER
　　　http://hspcenter.com/
　　HSP ML
　　　http://garde.esprix.net/hsp-ml/

**名前は開発中のものです。** · 04/07/14 23:30

安全戦士コンドム

**名前は開発中のものです。** · 04/07/15 03:22

>>447
南国

**名前は開発中のものです。** · 04/07/15 03:45

カードゲームを作りたいのですが、一番重要なカードの管理部分で詰まってしまいました。
配列変数なども使ってやってみたのですが、変数には1つの数値しか入れられないので、
その変数に名前、属性、数値、を持たせる方法がわからないのです。
それぞれの配列変数を作ろうとも思いましたが、それぞれをリンクさせる方法も思いつかないので・・。
ああ・・あとちょっとで思いつきそう！とずっと悩み続けて明け方になってしまいました・・。

説明が意味不明かもしれませんが、どうかよろしくお願いします。

**名前は開発中のものです。** · 04/07/15 03:54

まずは国語の勉強しなさい。次に算数な。終わったら聞きに来い。

**名前は開発中のものです。** · 04/07/15 04:19

>>449
管理方法を変えれ

ｅｘ．
魔法1：ファイアボール　/攻撃力2　/消費ＭＰ5
魔法2：ライトニングボルト　/攻撃力3　/消費ＭＰ8
魔法3：ブリザード　/攻撃力4　/消費ＭＰ12
↓
魔法名：ファイアボール　/ライトニングボルト　/ブリザード
攻撃力：2　/3　/4
消費MP：5　/8　/12

**名前は開発中のものです。** · 04/07/15 05:22

>>451
dim magic_data,3
dim attack_data,3
dim mp_data,3

でやると、magic_data.0 = attack_data.0 = mp_data.0
にする方法がわからないんです・・・。すみません。

大変質問しにくいのですが・・・変数に文字を入れるのはどうすれば良いのでしたっけ・・。
一通りマニュアルには目を通したのですが、strくらいしか見つかりませんでした。
str magic_data.0 = fire ？　""で囲んでみたりもしてみたのですが・・。

**名前は開発中のものです。** · 04/07/15 05:57

もう一度言う、国語の勉強をして来い

**名前は開発中のものです。** · 04/07/15 06:00

sdim magic_data 64, 3
magic_data.0 = "fire"
magic_data.1 = "Lightning"
...
のことか？

あと、
＞magic_data.0 = attack_data.0 = mp_data.0
はどうしたいんだ？
配列のインデックスで判断するのはだめなのか？

◆HOTsoUpxjY · 04/07/15 06:40

screen 0,160,160
title "0～2を入力"

sdim 魔法名,16,3
dim 攻撃力,3
dim 消費MP,3
魔法名="ファイア","ブリザド","サンダー"
攻撃力=4,6,8
消費MP=1,2,3
防御力=1

*in
cls
a=0
input a
button "push",*out
stop

*out
color 255,255,255
boxf
color 0
if (a<0)|(a>2) : goto *in
pos 0,60
mes "魔法名"+魔法名.a
mes "攻撃力"+攻撃力.a
mes "消費MP"+消費MP.a
d=攻撃力.a-防御力
mes "ダメージ"+d
stop

◆HOTsoUpxjY · 04/07/15 06:46

>>449
配列使うしかないに決まってるでしょ、
一括管理って、添字に変数使えばいいだけ

後々シャッフルする事を考えれば
カードに番号を振っておくといいね

全カード枚数分の要素を持った
配列を宣言しておくという事さ

**名前は開発中のものです。** · 04/07/15 06:48

>>454
sdimでしたか。。マニュアル読み直してきます。

＞magic_data.0 = attack_data.0 = mp_data.0
すいません、「配列のインデックス」の意味も理解してません○|￣|_

見捨てないで・・。

**名前は開発中のものです。** · 04/07/15 06:50

>>455-456
あ、レス書いてました。
ありがとうございます。とても参考になります。

◆HOTsoUpxjY · 04/07/15 06:56

>>457-458

おはよう、清々しい朝です。

カードゲームは配列が分かれば
難易度は高くないジャンルだと思う

カードという明確な「かたち」があるから
コーディングにとどまらず
画面のデザインからルールの設定まで
割りと決めやすいんじゃないかな

**名前は開発中のものです。** · 04/07/15 07:44

>>449
>その変数に名前、属性、数値、を持たせる方法がわからないのです。
>それぞれの配列変数を作ろうとも思いましたが、それぞれをリンクさせる方法も思いつかないので・・。

それぞれの配列変数を作るので正解だ。リンクはアルゴリズムの問題。
例えばトランプの場合、数値は１から１３まである。マーク（？）は４種類
ある。クラブを０、スペードを１、ハートを２、ダイヤを３で表すとする。
「０番のカードはハートの８である」ことを表すには、
number.0=8
mark.0=2
で十分だ。

◆HOTsoUpxjY · 04/07/15 08:03

>>460
たしかに一意のID番号も必要だろうね
ただcard.0～52の一次元配列でいいと思う
スートは13で割れば求められるから

**名前は開発中のものです。** · 04/07/15 08:32

>>459-460
おはようございます。

なんかこう・・・もうちょっとで出来そうな頭の中がもやもやしてます。
大きなヒントありがとうございます！(答えを言っているのかもしれませんが(苦笑

**名前は開発中のものです。** · 04/07/15 09:23

>>455に書いてあるスクリプトを真似て、

;///// カードの管理 /////
dim CARD_ID,60;カードの番号
sdim name,16,60;カードの名前
dim attack,60;カードの攻撃
dim element,4;カードの属性

;///// カードの設定 /////
name="フレア","ゴブリン","ワイバーン"
attack=1,2,3
element=0,0,0

のように書き、

mes "カード名"+name.0　や　mes ""+name.0+""

等で表示させようとしても、name.0には0が収納されてるようになります。
途中でclsなどを使うと初期化されてしまうのでしょうか・・・。

**名前は開発中のものです。** · 04/07/15 10:42

これでやってみたが、ちゃんと表示されたぞ。
;///// カードの管理 /////
dim CARD_ID,60;カードの番号
sdim name,16,60;カードの名前
dim attack,60;カードの攻撃
dim element,4;カードの属性

;///// カードの設定 /////
name="フレア","ゴブリン","ワイバーン"
attack=1,2,3
element=0,0,0

mes "カード名"+name.0
mes ""+name.0+""
stop

変数名を間違えたりはしてないか？（nameをnemeとか書いてたり）
clsで変数がクリアされる事は無い。同じ変数名で再度dimやsdimしたときだけ
初期化される。

**名前は開発中のものです。** · 04/07/15 17:58

>>463
ちなみに、識別番号０のカードは名前がname.0で、攻撃がattack.0で、属性
がelement.0である（識別番号は０～５９）という意味にしたいんだったら
dim element,60だ。

**名前は開発中のものです。** · 04/07/15 18:18

今帰宅しました。

>>464
最初から見直したら原因がわかりました!!
ボタンのラベルで変数の設定の部分をジャンプして飛ばしていました・・。
ありがとうございます！

>>465
火、風、森、水
にしたいので、4までで良いと思います。
>>460のトランプからヒントを得ました！
できなかったら dim element,60 も試させてもらいます。
感謝～。

**名前は開発中のものです。** · 04/07/15 18:34

>>465
今考えていて思ったのですが、
やはり dim element, 60 じゃないと無理かもしれません。
0～19＝火　のように分ければいいんですよね。
4しかないと、4番目のカードまでしか属性が無い事になりそうでした・・。

◆HOTsoUpxjY · 04/07/15 18:58

>>466-467
>火、風、森、水にしたいので、
>4までで良いと思います
ほ、ほすぷっ！
…型とクッキーを別々に管理すればいいの

◆HOTsoUpxjY · 04/07/15 18:59

sdim 属性名,8,4
dim カード属性,5
属性名="火","水","風","土"
カード属性=0,1,2,3,0
repeat 5
カード番号=cnt
e=カード属性.カード番号
c=カード番号+1
mes ""+c+"枚目の"+"カード属性＝"+属性名.e
loop : stop

◆HOTsoUpxjY · 04/07/15 19:04

>>455に戻ると
この「手作りクッキー」式では「型」がないので
内容が重複していてもカードが何枚あっても
全部入力しないといけない訳です↓

魔法名="ファイア","ファイア","サンダー"
攻撃力=4,4,8

**名前は開発中のものです。** · 04/07/15 19:11

>>468-470
ほ・・ほう、すっごい参考になります！
僕の無脳じゃどうやって応用していいか・・(笑
ヘルプ見ながら見直してきます！

**名前は開発中のものです。** · 04/07/15 19:27

『カードの種類』と『山札』は分けて考えれ。
データ変更するときに困るだろ？

**名前は開発中のものです。** · 04/07/15 19:31

つまり>>470のやり方だと、「ファイア」を「ファイヤー」に変えようと思ったとき、
全部のファイアを書き換えなきゃいけなくなるってことな。
（まぁ、それだけならテキストエディタで一括変換すりゃ済む話なんだが、数値の時とか困るだろ？）

**名前は開発中のものです。** · 04/07/15 20:03

>>461
カードは一次元配列で管理できるけど、シャッフルを考えると二次元配列にすると楽だよ。
dim card,52,2
card.x.0 に数値
card.x.1 に適当な乱数を入れて
card.x.1 の値でソートすればシャッフルの出来上がり。
乱数での数値に関して重複考えなくていいし。

**名前は開発中のものです。** · 04/07/15 20:03

まぁその点は文字列もテーブルとすればいいだろう・・・。
構造体とか、変数名.(式)みたいにできたら便利なんだけどな・・・。
sdim MagicName, 32, 3
MagicName = "Tire", "Thunder", "Blizzard"
sdim ElementName, 32, 5
ElementName = "炎", "水", "風", "光", "闇"

dim Card, 5, 3
Card.0.0 = 0, 0, 2, 1, 2 /* MagicName */
Card.0.1 = 32, 14, 15, 22, 34 /* Attack */
Card.0.2 = 0, 2, 3, 1, 4 /* Element */

mes "Before": gosub *ShowCard
MagicName.0 = "Fire" /* 間違えた!タイアじゃねえよ!!! */
mes "\nAfter": gosub *ShowCard
stop
*ShowCard
repeat 5
MagicNameID = Card.cnt.0
ElementNameID = Card.cnt.2
mes "Card"+cnt+" - Name:"+MagicName.MagicNameID+" Attack:"+Card.0.1+" Element:"+ElementName.ElementNameID
loop
return

**名前は開発中のものです。** · 04/07/15 20:08

http://www.1me.jp/users/files/filedownload.asp?fileid=6328.32979763712
ポト２の風ツールです。
これは風ゲージの長さを計るツールなんですが
HSPでこれに似たものを作りたいんですがどんな感じにすればいいですか？

**名前は開発中のものです。** · 04/07/15 20:11

ポト2から情報奪いたいのか？

**名前は開発中のものです。** · 04/07/15 20:13

>>477
?情報を奪う？なんのことですか？

**名前は開発中のものです。** · 04/07/15 20:15

(内部で扱っている)風の大きさの情報。

**名前は開発中のものです。** · 04/07/15 20:17

変数のデータって言った方が良いか・・・

**名前は開発中のものです。** · 04/07/15 20:23

え？これただ単に長さ測ってるんじゃないんですか？
そんな難しくできていたとは・・・・

**名前は開発中のものです。** · 04/07/15 20:37

>>476
何をしたいのかがイマイチ分からないです。
○○に似たもの、ではなくて具体的に何をしたいのかを…
画面上の一部の長さを測りたい、ということなの？

あ、>>476のリンク先のものは実行してないです。

**449** · 04/07/16 00:31

カードをデッキに入れるボタンのジャンプ先のラベルを一つで済ます方法が思いつかなかった・・。
結果、カード枚数を20枚にへらしてラベル20個つくってしまった(汗

button "デッキに入れる",*card_in01

*card_in01
ここでデッキフラグにする変数を1にする。
1だったら「もうすでに入っています」
などの判断。

if CARD_ID.0=0 "カードを持っていません" : if デッキ.0=0 : デッキ.0=1 : if デッキ.0=1 : mes"もうすでに入っています"

のような感じにするとおもう。
同じカードを2枚所持できないシステムにする予定です。(何枚も管理できません笑
嗚呼なんか問題が多すぎて挫折しそう・・質問に答えてくれる皆さんは偉大なﾌﾟﾛｸﾞﾗﾏｰなんですね・・。

◆HOTsoUpxjY · 04/07/16 00:42

>>483
>ジャンプ先のラベルを一つで済ます方法
あると思うけど…
>同じカードを2枚所持できないシステム
ほ、ほすぷ！

デッキが組みたいんだ、ソースはちょっとまって

カードゲームといえばカルドセプトとかあるね
何か僕も作りたくなってきた
コンテストに出したいな
「育成カードゲーム」とかどうかな

**449** · 04/07/16 00:53

デッキの枚数は10枚で(デッキというか一般で言う手札?)、シャッフル等無し。
相手と同時にカードを一枚ずつ出していって(デッキから直出し)、
数値の高いほうが勝ち、相手が得意属性だったら数値+2
という、運の要素が高いルールにする予定です。

シャッフル等ないので初心者が作るにはちょうどいいと思ったのですが・・。
思わぬ落とし穴がたくさん○|￣|_

**449** · 04/07/16 00:56

勝利条件の追記。

デッキ10枚の中から出すカードは5枚で、
勝ったカードと引き分けのカードが場に残り、
最後に場にカードが多く残っていたほうの勝ち。

こんなルールのカードゲームなのですが、初心者には敷居が高いでしょうか・・。

**449** · 04/07/16 01:08

よかったらMSNメッセンジャーで話せませんか？
問題のソースも見てもらいたいですし・・。(ずうずうしいか・・苦笑

hsp_card_2ch@hotmail.comを登録して下さい。

↓どうぞこのアカウントでログインして下さい。
hsp_master_2ch@hotmail.com

パスは123456です。

あ、ダメならダメで全然いいです。気が向いたらよろしくお願いします。

MSNメッセが無いという可能性を考えてなかった・・・笑

◆HOTsoUpxjY · 04/07/16 01:09

sdim 属性名,8,4
dim カード属性,5
属性名="火","水","風","土"
カード属性=0,1,2,3,0

repeat 5
c=cnt+1
chkbox ""+c+"枚目",chk.cnt
loop
button "push",*push
stop

*push
color 255,255,255
boxf
color 0
pos 0,160

repeat 5
if chk.cnt{
カード番号=cnt
e=カード属性.カード番号
c=カード番号+1
mes ""+c+"枚目の"+"カード属性＝"+属性名.e
}
loop
stop

◆HOTsoUpxjY · 04/07/16 01:14

>>485-486
山札が10枚で対戦者は
手札を1枚ずつ引いて
数値が高い方が勝ち
勝って残ったカードが多い方が勝利

こういうゲームかな？
簡単だと思うけど
運を入れるならシャッフルは必須でしょう

◆HOTsoUpxjY · 04/07/16 01:16

>>487
匿名なのにソース晒すの嫌なんだ？
メッセで話すと密室になるから
他の人の参考にならないじゃん

いや俺自身も、シャッフルは
>>474みたいな方法もあるんだ、
とか勉強になるからスレで進めようよ

**名前は開発中のものです。** · 04/07/16 01:18

>>498
山札はありません。
全部最初から手札で、好きなカードを出せます。
運というのは、属性の関係が、じゃんけんっぽいので。

**名前は開発中のものです。** · 04/07/16 01:19

>>490
スレをどんどん消費して、独占状態になってしまった所があったので、
ここでも全然OKですよ。

◆HOTsoUpxjY · 04/07/16 01:21

sdim 属性名,8,4
dim カード属性,5
属性名="火","水","風","土"
カード属性=0,1,2,3,0
repeat 5
c=cnt+1
chkbox ""+c+"枚目",chk.cnt
loop
button "push",*push
stop

*push
color 255,255,255
boxf
color 0
pos 0,160
te=0
repeat 5
if chk.cnt : te++
loop
if te>3 : mes "手札は３枚まで":stop
repeat 5
if chk.cnt{
カード番号=cnt
e=カード属性.カード番号
c=カード番号+1
mes ""+c+"枚目の"+"カード属性＝"+属性名.e
}
loop
stop

**名前は開発中のものです。** · 04/07/16 01:25

>486
他にも初心者の人もいるかもしれないしこの内容ならそんな長引かないだろうからここでいいと思うよ
最初の手持ちが10枚でその中から一枚ずつ出して対戦していくってことだよね？
手持ちの札はランダムじゃなくて完全固定？

**名前は開発中のものです。** · 04/07/16 01:40

あ、ブラウザから書いたら書けた・・。
連続投稿で書けなくなっていました。
>>494
はい、完全固定です。

◆HOTsoUpxjY · 04/07/16 01:45

>>494
>最初の手持ちが10枚で
>その中から一枚ずつ出して対戦
>手持ちの札はランダムじゃなくて完全固定
なるほど

>>495
過疎板だから連投規制緩くして欲しいね
むかし荒氏がいたから厳しいんだろうけど

それでデッキはどう関係するんだろう
まあ>>493みたいなので組めると思うよ

**名前は開発中のものです。** · 04/07/16 01:49

カードは全○○種類。
所持カードから10枚デッキにカスタムして、戦う。
みたいな感じにしたいなぁ・・と。

**名前は開発中のものです。** · 04/07/16 02:02

最初に２次配列にカードの属性数値等を入れる
配列0.0=カード１の数値　配列0.1=カード1の属性
配列1.0=カード2の数値　配列1.1=カード2の属性

手持ちの札用の0～9の配列を作って選んだ札の番号(50種類なら0～49のどれか)を入れる
例えば1の札を出すときは配列の0.0 0.1を参照して負けた場合手持ちカードをなし状態(0～49がカードの種類なら50=カードなしとか)にする
こんな感じでいけると思うが

**449** · 04/07/16 02:07

うｐろだが見つからないので作ってうｐしました。見てもらえると嬉しいです。
http://livinfortoday.hp.infoseek.co.jp/cgi-bin/upload.cgi
他の方もどうぞ勝手に使って下さい。

◆HOTsoUpxjY · 04/07/16 02:51

>>499
トップページの方を公開すれば？
掲示板まであるのに～

**名前は開発中のものです。** · 04/07/16 14:35

>>482
>画面上の一部の長さを測りたい、ということなの？

そうです。でもフルスクリーンだし、ゲージの長さ変化するしできるの？

**名前は開発中のものです。** · 04/07/16 15:21

>>499
何も無いみたいだけど？

**名前は開発中のものです。** · 04/07/16 16:02

romってるぞ
参考になるからガンガンここで書いててちょ

**名前は開発中のものです。** · 04/07/16 18:31

>連投規制緩くして欲しいね
ＩＤ表示の撤廃と連投規制を緩くしたらム板のＨＳＰスレ状態になるだけ。
もっと規制してもいいくらい。

**名前は開発中のものです。** · 04/07/16 18:44

あれはあれで面白いけどな。

**名前は開発中のものです。** · 04/07/16 19:13

>>505
な。

**名前は開発中のものです。** · 04/07/16 19:14

連投規制を厳しくされると間違えたとき困る…

**名前は開発中のものです。** · 04/07/16 21:26

test

◆HOTsoUpxjY · 04/07/16 21:34

カードゲーム制作参考リンク

http://allabout.co.jp/game/cardgame/subject/msub_card.htm
http://download.yahoo.co.jp/vector/win/game/table/card/
http://seinforek.hp.infoseek.co.jp/
http://izumo.cool.ne.jp/hh888/BJ/bj.htm
http://home.att.ne.jp/zeta/tanngo/spider.html

**449** · 04/07/17 11:20

>>509
一番下のリンクが参考になりますね！

昨日は風邪で何も出来なかったから今日は気合(｀ω･´

**名前は開発中のものです。** · 04/07/17 12:48

コンテストヒドいことになってるのか？
コメントその物を消されたのや評価数とコメントの数が合ってないのとかあるが・・・。

**名前は開発中のものです。** · 04/07/17 12:52

>>511
コメント無しの評価は可能。評価無しのコメントは自動でA評価になる。

**名前は開発中のものです。** · 04/07/17 15:35

a="axascvafasfetgageog"

strlen len,a
repeat len
peek tmp,a,cnt
if tmp='a':poke a,len,'X'
loop
mes a:stop

**名前は開発中のものです。** · 04/07/17 16:15

期間長すぎね？

**名前は開発中のものです。** · 04/07/17 16:22

>>514
コンテスト開催中はHSPのバージョンをあげる必要が無くなるので時間稼ぎするため。
（マイナーならまだしもメジャーはまずない）

**名前は開発中のものです。** · 04/07/17 16:32

誰か画面上の一部の長さの計り方教えて下さい。

**名前は開発中のものです。** · 04/07/17 16:35

測る対象に寄ります

**名前は開発中のものです。** · 04/07/17 16:36

>>516
>>209 を応用すればできるかな。
「どうやって？」と聞くレベルなら、まだ作る段階ではないと思う。

**名前は開発中のものです。** · 04/07/17 16:40

なるほど
で、その間またエロゲー作りにいそしむわけですな。

**名前は開発中のものです。** · 04/07/17 16:53

http://www.1me.jp/users/files/filedownload.asp?fileid=6339.98440625172
これは青が基準線でそこからゲージが左に増えたり減ったり右に増えたり減ったりします。
そのゲージの長さを測りたい。
フルスクリーンです。

◆HOTsoUpxjY · 04/07/17 16:55

>>515
ム板でもその話出てたけど
そもそも時間稼ぎなんてする必要あるのかな

>>516
>>209のソースのdx･dyが距離だよ
「長さ」を求めたいならピタゴラスの定理

**名前は開発中のものです。** · 04/07/17 17:07

なんかHSPだと置換が面倒

zzz = "aiueo"
strlen len,zzz
repeat len
peek tmp,zzz,cnt
if tmp='u' : poke zzz,cnt,'@'
loop
mes zzz
stop

◆HOTsoUpxjY · 04/07/17 19:40

>>520
ゲージを描画する時点で長さは簡単に測れると思うから
既に描画してあるものの長さを測るとする
その場合pgetでどこからどこまでがゲージか調べればいい

>>522
10行以内のコードが面倒？
もっと複雑な検索・置換の事だとしたら
ネト上にモジュールとかたくさんあると思う

**名前は開発中のものです。** · 04/07/17 22:25

>>520
自作ソフト内での処理じゃなさそうだから、全自動は難しいかな。
---
bgscr 1,32,20,,0,0,

repeat
  *main_loop
  stick ml
  if ml&256 : goto *info_print
  await 1
loop

*info_print
  ginfo 0
  dx = prmx - x
  if dx<0 : dx = -dx
  cls : print "" + dx
  x = prmx
goto *main_loop
---
こんなのでいいか？
クリックするたびに前回からの横幅を表示（Ｘ座標のみ計算）
全自動にするには画面取得が必要なのでHSPだと面倒かも。
画面取得できたら、>>521の言うpgetでＯＫだと思う。

**名前は開発中のものです。** · 04/07/17 22:26

文字列置き換えモジュール作ってみた

#module "StrRePlace"
#deffunc selstr val ; 文字列型変数の選択
mref v1, 24 : dup slstr, v1 : return
#deffunc vstrcut val, int ; 文字列の削除
mref v1, 24 : mref i1, 1 : mref st, 64 : strlen sllen, slstr : strlen len1, v1 : instr a, slstr, v1, i1
if a >= 0 { a += i1 : memcpy slstr, slstr, sllen-len1-a+1, a, a+len1 }: st = a : return
#deffunc vstrins val, int ; 文字列の挿入
mref v1, 24 : mref i1, 1 : mref st, 64 : strlen sllen, slstr : strlen len1, v1
memcpy slstr, slstr, sllen-i1+1, i1+len1, i1 :memcpy slstr, v1, len1, i1, 0 : st = i1 + len1 : return
#deffunc strrep str, str, int ; 文字列の置き換え
mref s1, 32 : mref s2, 33 : mref i1, 2 : mref st, 64
vstrcut s1, i1 : if stat >= 0 { vstrins s2, stat }: return
#deffunc strcut str, int ; 文字列の削除
mref s1, 32 : mref i1, 1 : vstrcut s1, i1 : return
#deffunc strins str, int ; 文字列の挿入
mref s1, 32 : mref i1, 1 : vstrins s1, i1 : return
#global

buf = "文字列ｗ置き換えｗｗサンプルｗｗｗｗ" : selstr buf
mes "置き換え前:"+buf
c = 0 : repeat : strrep "ｗ", ":->", c : c = stat : if c = -1 { break }: loop ; すべて置き換える
mes "置き換え後:"+buf
stop

**524** · 04/07/17 22:29

連投スマソ。こんな短いのでgoto２つは極悪だった。
---
bgscr 1,32,20,,0,0

*main_loop

repeat
  stick ml
  if ml&256 : break
  await 1
loop

ginfo 0
dx = prmx - x
if dx<0 : dx = -dx
cls : print "" + dx
x = prmx

goto *main_loop

**524** · 04/07/17 22:34

フルスクリーンだっての忘れてた。
１行目を
bgscr 1,32,20,,0,0 : gsel 1,2
に変えてくれ。

…吊ってくる。

**名前は開発中のものです。** · 04/07/17 22:43

>>527
ウィンドウID1って使えたっけ？

**524** · 04/07/17 22:48

あー。そういや、無理だったかも。
吊るだけでは済みそうもないな。
ほんとごめん。

**名前は開発中のものです。** · 04/07/17 23:43

今日入門書買った。いつかドラクエみたいの作りたいと思う。

**名前は開発中のものです。** · 04/07/17 23:47

おっさんダー！

http://www.forest.impress.co.jp/article/2002/01/17/whocreate3.html

**520** · 04/07/18 11:37

>>524
フルスクリーンじゃ無理のようですね。

できれば全自動にしたいんだけど、画面取得ってどうやるの？

**名前は開発中のものです。** · 04/07/18 11:47

対象のウィンドウハンドルを取得する
　↓
BitBlt

でも、DirectX使ってるとそれじゃダメだったっけ…。

**名前は開発中のものです。** · 04/07/18 12:47

pgetで長さ測るってのがよく分からないのですが・・・

**名前は開発中のものです。** · 04/07/18 13:07

#const sx 320 // 始点(X)
#const sy 240 // 始点(Y)

randomize
rnd x, 641: x -= 320 // -320≦x≦320
color 255, 0, 0
boxf sx, sy-10, sx+x, sy+10

repeat ,1
pget sx+cnt, sy
if (rval != 255)||(gval != 0)||(bval != 0): break
// 指定された色以外だったら抜ける
dist++
loop
if dist{ // +の方向に見つからないなら-を探す
repeat ,1
pget sx-cnt, sy
if (rval != 255)||(gval != 0)||(bval != 0): break
// 指定された色以外だったら抜ける
dist--
loop
}
mes "実距離: "+x
mes "計測された距離: "+dist
stop

**名前は開発中のものです。** · 04/07/18 13:08

>>532
>>526-527 でも㍉？

**名前は開発中のものです。** · 04/07/18 13:13

>>535
自作プログラム内なら、わざわざ測る必要ないんじゃないのか・・・？

**名前は開発中のものです。** · 04/07/18 13:16

>>537
BitBltとかで操作先ウィンドウにコピーされてることが前提・・・

**名前は開発中のものです。** · 04/07/18 18:44

>>536
んーフルスクリーンだったら写らないからなぁー。

**名前は開発中のものです。** · 04/07/19 00:22

なぜか２次元配列がエラーが出て使えないんだが
みんな使えてますか？

**名前は開発中のものです。** · 04/07/19 00:48

使えないわけありません

**名前は開発中のものです。** · 04/07/19 00:55

txtにテキストファイルを読み込んで
それを２次元配列hensuに一文字ずつ格納したいんだが

strmid hensu.x.y , txt , cnt , 1

書き方間違ってますか？

**名前は開発中のものです。** · 04/07/19 01:30

>>542
hensu.x.yがhensu.(x.y)と処理される。

**名前は開発中のものです。** · 04/07/19 01:33

>>542
それだけじゃよくわからんなぁ。どういうエラー？

xはとりあえずcntなんじゃないの？↓のようにrepeatを使ってるなら。
でないと同じ変数に違う文字を入れ続けてるだけになる。

repeat 10
strmid hensu .cnt .y , txt , cnt , 1
loop

見当違いなこと言ってたらスマソ

;-------------
これは問題なく動くよね↓
sdim hensu,1,10,10
hensu.0.3="a","b","c","d","e","f","g"
mes hensu .6 .3
stop

**名前は開発中のものです。** · 04/07/19 01:56

>>541
>>543
>>544
ありがとう。出来ました。ループの中でｙを変数を初期化するの忘れてました。
こんな夜遅くに申し訳ございませんでした。

**名前は開発中のものです。** · 04/07/19 16:41

プログラムもいいがだれかコンテストのポスターを描いて送ってやれｗ