HSP - Hot Soup Processor [6]

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

　　　　　　 (　 ,,,)
　　　　　　 .( 　,,)　　　　　　スクリプト言語 HotSoupProcessor について
　　　　　　　 ( ,,).　　　　　ゲーム製作の視点から、また～りと語り合うスレ。
　　　　　, -──- ､
　　　　（,;::-──-; ）-､
　　　 .|｀￣￣￣´;;|ヽ l　　　* 質問する前に検索してみる事
　　　　 l;　　　　:::;;;l-' /　　　* ｦﾁ、ﾈﾀなどはスレ違い
　　　 ,-ヽ───.'-､´..　　　* 前スレ、関連サイトは >>2-5 あたり
　　　ヽ ──── '

**名前は開発中のものです。** · 04/05/21 12:00

俺仕事はグラフィッカーだしな～ｗ

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

stick命令で、&で特定のキーを判別できますよね？
その逆で、stickで特定のキーを押していないことを判断するにはどうすればいいのでしょうか？
if a&32 : else : ほにゃらら
これよりも効率のいい方法があれば教えてください。

**名前は開発中のものです。** · 04/05/21 18:02

>>664
効率悪いか？

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

これが最高ですか。
なんか回りくどい気がして、if命令の中で直接できる式がないかと思ったんです。

にしても、普段は一見過疎気味なのに、
質問があると即答してくれるここは割りとROMな人が多い板ですね。
僕もですが。

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

if a&32=0 : ほにゃらら
じゃダメ？

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

>>666
他の言語でもそれが普通だと思われます。
現に自分はそれでやっているので。

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

>>667
それいただき！

**名前は開発中のものです。** · 04/05/21 18:35

でもstick自体getkeyより遅いしなぁ・・・。

#define settimer ll_callfunc void, 0, hProc: ll_ret sttimer
#define gettimer ll_callfunc void, 0, hProc: ll_ret timer: timer -= sttimer
#const SAMPLE 10000000

ll_libload hDll, "kernel32"
ll_getproc hProc, "GetTickCount", hDll
mes ""+SAMPLE+"回"

settimer
repeat SAMPLE: stick key, 0, 0: loop
gettimer
mes "stick: "+timer+"ms"

settimer
repeat SAMPLE: getkey key, 13: loop
gettimer
mes "getkey: "+timer+"ms"
stop

**名前は開発中のものです。** · 04/05/21 19:25

やっとスープちゃんの本4章まで読み終わった・・・。

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

ＯＳに、パッドを繋がなくても「パッドがある」と認識させたいんですが、
HSPで可能ですか？操作できなくてもいいので・・・

**名前は開発中のものです。** · 04/05/21 20:28

>>670
すごい差だな・・・。

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

>>661
N88-BASICの頃は質問ばっかりしながら数当てゲームを改良してＲＰＧ風にしてました。
ちょうど去年の夏のことですｗ
確かに、HSPで去年と同じゲームを作れそうな気がします。
>>660 >>662
そうですか・・・
将来その手の職につくかはわかりませんが、今は楽しむことを考えてプログラミングしてみたいと思います。

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

#defineって、命令を変数化するって考えて良いんですかねぇ

**名前は開発中のものです。** · 04/05/21 23:10

>>675
全然違う。
#defineは置き換えだ。

**名前は開発中のものです。** · 04/05/21 23:13

普通は数字を文字にしたりするのに使う。
プログラム中に「２０」とか出てきてもそれが何を意味してるかわからないから。
また、最大値みたいに多数の場所で同じ値を使うときなども楽に変更できる。

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

>>676
ｻﾝｸｽ。。

んで、本題なんだけど、
#define baf buffer

baf 2
baf 3
baf 4

こういう書き方って出来るのかなぁ。。

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

#define A mes "ABCDEFG"
A
stop

はコンパイル時に

mes "ABCDEFG"
stop

になる

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

>>674
N88を触ってた世代なのにまだ将来とか言える年齢なのか？

**名前は開発中のものです。** · 04/05/21 23:18

ああ、そうか。
bufferじゃなくてIDを置き換えればいいんだ。
#define id 2
repeat 3
buffer id
id=id+1
loop

**名前は開発中のものです。** · 04/05/21 23:19

せめて実行してから書き込みたまえよ

**名前は開発中のものです。** · 04/05/21 23:40

>>681
それだと実行時に
2=2+1になる。
単純な「文字の置き換え」なんだって。
実行前に行われる。

**名前は開発中のものです。** · 04/05/21 23:44

repeat 3, 2
buffer cnt
loop

で良いんじゃないのか？

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

>>683
orz・・・・
>>684
いやぁ、、これを配列に利用したいんですよ・・・
複数の絵を順次に表示させるプログラムを作りたいんです。。

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

>>685
配列の番号を格納する変数を用意すればいいんでないかい？
#defineってのはただ単純に置き換えるだけ。
どちらかといえば可読性や拡張性を上げるためにつかわれている。

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

スレ違いでスマンがちょっと言わせてくれ
>>680
おいおい、N88は学校施設ではまだ現役のところもあるらしいぜ
あとオヤヂのお下がりで使ってるとかな
ま、人それぞれってこった

**659** · 04/05/22 08:41

>>680
技術の教科書にソースが載ってて興味を持ったわけです。
つーわけでまだ若いよ。

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

>>680
ActiveBasicでN88は現役。

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

知らんかった

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

ifの中でifを使いたい場合ってどう書けばいいんでしょか？

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

a = 0
b = 0
if a = 1{
if b = 1{ mes "TRUE and TRUE" } else { mes "TRUE and FALSE" }
} else {
if b = 1{ mes "FALSE and TRUE" } else { mes "FALSE and FALSE" }
}
stop

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

>>691
if (条件式) {
　　if (条件式) {
　　}
}

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

>>692
>>693
thx..

**659** · 04/05/22 19:52

質問です。
ボタンをクリックするとa+1するようにしたいのですがどうすればよいでしょうか？

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

button "bbb",*b
stop

*b
a++
title "a="+a
stop

**659** · 04/05/22 20:53

>>696
そうではなくボタンクリックで直接+1するようにしたいのですが・・・

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

>>697
どういうこと？

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

頭悪いこと言ってないで、自分でボタン作りなさい

**659** · 04/05/22 20:56

>>698
button "bbb",a+1
こんな風にしたいんですが、実際はできないようなので、どうにかなりませんか？

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

>>700
どうにもなりません。

**659** · 04/05/22 21:00

>>701
そうですか

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

意味不明

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

Ver2.61RC2が出とる

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

牡丹と薔薇は～♪どちらが幸せ～♪

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

ちょっと質問なんですが、公開されてるリージョン画像作りだすプラグイン使って
パラパラアニメの要領で次々に画像切り替えてはリージョン画像作りだすソフト作ったんですが
これを動かした時にHSPを起動させてスクリプトを書く黒い画面を表示させてると画像の端に白いフチが出来る。
壁紙を真っ黒な奴にしても出ないのに何故かHSPの画面をバックにすると出るんですよ。
HSPの画面ってただの真っ黒い画面に見えるけど何かやってる？常に更新し続けてるとか？

**名前は開発中のものです。** · 04/05/23 01:02

HSPって

if(a=1)
{
mes"test"
}

こういう書式で書けないのか・・・
ifの条件式の直後に{書くの好きじゃないんだよな・・・

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

でも僕もbuttonからラベルジャンプじゃなくて直接命令が出来たらいいと思うことはある。
多分なんか問題があるんだろうけど。

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

コールバックなんてそんなもんでしょ

**659** · 04/05/23 13:07

aの数値が1だったらグー
aの数値が２だったらチョキ
aの数値が３だったらパー
と表示したい場合、どうすれば良いのですか？

**名前は開発中のものです。** · 04/05/23 13:12

if a=1 *gu
if a=2 *tyoki
if a=3 *pa
stop
*gu
ぐーを表示
stop
*tyoki
ちょきを表示
stop
*pa
ぱーを表示
stop

**659** · 04/05/23 13:24

ありがとです

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

659は結局自分では何も考えずに
このスレの住人に全部作ってもらうつもりか？
BASICかじってたなら、変数と if文くらい使えそうなもんだが

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

>>710
グー・チョキ・パーを横にならべた画像を用意
ｘ座標を幅の変数倍ずらしてコピー

配列をうまく使うとifを使わない短いソースで書ける
＃ただし可読性は落ちる

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

>>711でOKの問題だったら、HSPに入ってる初心者のためのHSP入門読めば分かるじゃねぇか。
小学生だな？
俺も小学生の頃は"が打てなくて入門さえ断念した記憶がある。中学に入る頃は打てるようになったが。

**659** · 04/05/23 18:24

mes "じゃんけんゲーム"
*Selection
himself=0:enemy=0
mes "何をだすか選んでください。"
pos 0,80
button "グー",*g
pos 70,80
button "チョキ",*c
pos 140,80
button "パー",*p
stop
*g
cls
himself+1
goto *enemy2
stop
*c
cls
himself+2
goto *enemy2
stop

**659** · 04/05/23 18:26

*p
cls
himself+3
goto *enemy2
stop
*enemy2
gettime enemy,7
enemy=enemy/400+1
if himself=1:mes "あなたはグーを出しました。"
if himself=2:mes "あなたはチョキを出しました。"
if himself=3:mes "あなたはパーを出しました。"
if enemy=1:mes "敵はグーを出しました。"
if enemy=2:mes "敵はチョキを出しました。"
if enemy=3:mes "敵はパーを出しました。"
if himself = enemy :mes "あいこです。"
goto*Selection
stop
ここまで作ったんですが、条件式だけだと"勝ち"と"負け"までは決められなそうなんで>>714さんの書き込みを参考に作り直してみます。
>>715
OKじゃないし厨房ですが、書く文章が小学生並みなので「そういう事を聞いてんじゃない！」
なんて書くとまた怒られたりしそうなんで

**名前は開発中のものです。** · 04/05/23 18:32

俺は小学校時代は頭がよかったんだなあ。

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

>>714じゃ余計勝敗は無理だろうな。

**名前は開発中のものです。** · 04/05/23 19:34

if himself = enemy :mes "あいこです。"
if (himself=1)and(enemy=2):mes "あなたの勝ちです。"
if (himself=1)and(enemy=3):mes "あなたの負けです。"
if (himself=2)and(enemy=1):mes "あなたの負けです。"
if (himself=2)and(enemy=3):mes "あなたの勝ちです。"
if (himself=3)and(enemy=1):mes "あなたの勝ちです。"
if (himself=3)and(enemy=2):mes "あなたの負けです。"

**名前は開発中のものです。** · 04/05/23 19:46

sdim result, 7, 3: result = "あいこ", "負け", "勝ち"
sdim hand, 7, 3 : hand = "グー　", "チョキ", "パー　"
mes "あなた　　相手"
repeat 9
a = cnt / 3 ; 0:グー 1:チョキ 2:パー
b = cnt \ 3 ; 同上
c = a-b+3\3 ; 差から結果を求める
mes hand.a+" vs "+hand.b+" → "+result.c
loop
stop

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

先生！僕も>>659さんに触発されてじゃんけんゲームを作りました！
是非最後まで遊んでみてください！特に>>659さんに！
ttp://gamdev.org/up/img/608.zip

**659** · 04/05/23 20:53

>>720
条件式を増やすこともできるんですね。
とても参考になります。ありがとうございました。
>>721
凄い・・・と思うんですが、僕にはうまく理解できませんでした。
短くするとなるとやっぱり内容が難しくなるんですね・・すいません。
>>722
・・・・・・・・
いや、面白かったよ。普通にｗ

**名前は開発中のものです。** · 04/05/23 21:37

前スレで課題出されたときに作った奴でも張ってみるか。

screen ,64,72
randomize

button "グー",*judg
button "チョキ",*judg
button "パー",*judg

sdim hand, 7, 3
hand = "グー","チョキ","パー"
*re
rnd ene,3
stop
*judg
if(stat-ene==0) {message="あいこ": goto *@f}
if((stat-ene==-1) || (stat-ene==2)) {message="勝ち": goto *@f}
if((stat-ene==-2) || (stat-ene==1)) {message="負け": goto *@f}
*@
dialog "自分："+hand.stat+"\n相手："+hand.ene+"\n"+message+"です",0,"結果"
goto *re
stop

**名前は開発中のものです。** · 04/05/24 08:41

>>722
じゃんけんというか
3パターンの・・・

**名前は開発中のものです。** · 04/05/24 14:51

☆★☆★　日本語プログラミング言語『ひまわり』　☆★☆★

日本語で『こんにちはと、言う。』と入力すれば
ダイアログに『こんにちは』と出るプログラミング言語登場！！
PNGもサポートしてるので、かなりおすすめです！！
また、【『http://www.xxxx.xx/』を、『index.htm』へ、HTTPダウンロード。】
とすれば自動的にダウンロードできる優れ物です！！

↓日本語プログラミング言語『ひまわり』
http://hima.chu.jp/index.htm
↓日本語プログラミング言語『ひまわり』スレッド
http://pc5.2ch.net/test/read.cgi/tech/1083053283/l50

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

　
　
　
　
　　　　　　ま　　た　　ひ　　ま　　わ　　り　　か　　。

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

☆★☆★　ビジュアルプログラミング言語『Delphi』　☆★☆★

ツールバーでコンポーネントを選んでフォームに配置していけば
簡単にGUIアプリケーションを作れるプログラミング言語登場！！
JPEGもサポートしてるので、かなりおすすめです！！
また、【IdHTTP.Get('http://www.xxxx.xx/index.htm');】
とすれば自動的にダウンロードできる優れ物です！！※1

↓ビジュアルプログラミング言語『Delphi6 Personal Edition』
http://www.borland.co.jp/delphi/personal/
↓ビジュアルプログラミング言語『Delphi』
http://pc5.2ch.net/test/read.cgi/tech/1083053283/l50

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

本家ヒドすぎ。あんまオニタマに迷惑かけんなよ。

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

さて、あなたに本家からここへ誘導する勇気はありますか？

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

>>730
ここじゃなくてム板の方な。

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

「格闘ゲームの作り方を教えてください」とかおにたまに
メール出す奴いるんだろうな…。

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

>>732
だろうな。
それに加えウィルスメールやジャンクメールも来るんだから、凄い量なんだろうな。
ただでさえ忙しいのに、それで5日レスなかったくらいで騒ぐのもちょっとあれだと俺は思う。

**名前は開発中のものです。** · 04/05/24 19:18

>>732-733
おにたま氏も会社を設立してバイトでも雇わないといけないレベルになったりしてな。
でも無料だから無理なんだよな。おにたま氏も大変だな・・・。

**名前は開発中のものです。** · 04/05/24 20:39

おにたまﾀﾝも、気に入らなければ使わなくて結構、くらいも言ってやればいいのにな。
義務とかほざいてる勘違い小僧はいったい何様だ。

**名前は開発中のものです。** · 04/05/24 20:58

HSPのことを否定するつもりもないし、立派な言語だと思うけど、HSPが厨言語と言われる由縁がわかった気がした。
HSP使ってる人、がんばれ。馬鹿に負けるな。おにたま氏もがんばれ。
HSPユーザじゃないけどできることがあったら手伝うよ。

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

HSP糞

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

お前ら、ここはゲーム製作板ですよ？

**名前は開発中のものです。** · 04/05/24 21:28

趣味でゲーム作るならHSPで十分だな。

**名前は開発中のものです。** · 04/05/24 21:33

ム板ってなんですか？
どこにあるのですか？

**659** · 04/05/24 21:36

score=1000
mes "じゃんけんゲーム"
*Selection
himself=0:enemy=0
mes "何をだすか選んでください。"
pos 0,80
button "グー",*g
pos 70,80
button "チョキ",*c
pos 140,80
button "パー",*p
pos 0,120
mes "いくら賭けますか？"
input kake
mes "現在の所持金"+score+""
stop
*g
cls
himself+1
goto *enemy2
stop
*c
cls
himself+2
goto *enemy2
stop
*p
cls

**名前は開発中のものです。** · 04/05/24 21:40

つーか本家に掲示板あるのがまず間違い。
って、板違いレススマソ。

**659** · 04/05/24 21:41

*g
cls
himself+1
goto *enemy2
stop
*c
cls
himself+2
goto *enemy2
stop
*p
cls

**659** · 04/05/24 21:41

himself+3
goto *enemy2
stop
*enemy2
if kake>score: mes"所持金足りないですよ・・・"goto*Selection
gettime enemy,7
enemy=enemy/400+1
if himself=1:mes "あなたはグーを出しました。"
if himself=2:mes "あなたはチョキを出しました。"
if himself=3:mes "あなたはパーを出しました。"
if enemy=1:mes "敵はグーを出しました。"
if enemy=2:mes "敵はチョキを出しました。"
if enemy=3:mes "敵はパーを出しました。"
if himself = enemy :mes "あいこです。"
if (himself=1)and(enemy=2):mes "あなたの勝ちです。":score+kake*2
if (himself=1)and(enemy=3):mes "あなたの負けです。":score-kake
if (himself=2)and(enemy=1):mes "あなたの負けです。":score-kake
if (himself=2)and(enemy=3):mes "あなたの勝ちです。":score+kake*2
if (himself=3)and(enemy=1):mes "あなたの勝ちです。":score+kake*2
if (himself=3)and(enemy=2):mes "あなたの負けです。":score-kake
if score<1 :mes "所持金が無くなりました・・・":wait 200:end
goto*Selection
stop
テキストボックス内に、数字以外の文字を入力すると警告等が出るように設定したいのですが、どうしたら良いでしょうか？

**名前は開発中のものです。** · 04/05/24 21:47

if kake<1 : エラー
ダメか？

**名前は開発中のものです。** · 04/05/24 21:58

>>744
HSPだとめんどくさい。
結果だけで判断するならまだ楽だが、
入力できないようにするようにするには。
アップダウンボタンでも使えば？

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

int kake
if kake=0 : ;エラー
こんな感じ？

**659** · 04/05/24 22:32

>>746
アップダウンボタンですか、それだと高い金を賭けるとき面倒になってしまいますね。
>>745
>>747
何も足されなかった時にエラーがでるようにすればよかったんですね、参考になりました。
どうもです。

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

>>748　簡単に出来る

#include "llmod.as"

input num, 100, 25

mref bmscr, 67
prms = bmscr.41, -16 ; bmscrは41+オブジェクトID
dllproc "GetWindowLongA", prms, 2, D_USER
prms.2 = dllret|$2000 ; ES_NUMBERを追加
dllproc "SetWindowLongA", prms, 3, D_USER
stop

**名前は開発中のものです。** · 04/05/25 04:54

コンパイルってどういう流れで行われてるんですか？
hspcmp.dllが使われてるって事はわかったんですが、それ以降はさっぱりで。

**名前は開発中のものです。** · 04/05/25 11:34

>>750
多分普通のコンパイラと変わらない。
＃で始まるプリプロ処理して
マクロ処理して、コンパイル。
まあ、吐くのは中間ソースだけど。

普通にコンパイラとかググってみれば？

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

微妙にニュアンスが違うかも。
コンパイラがどうなってるかというよりも、ソースファイルをどう渡せば
コンパイルしてくれるのかなって事です。
他のコンパイラって大抵exeなんですけどHspはDLLですし。

エディタ作ってるんですけど、この辺が分からなくて。

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

hspのアプリってパッチで修正、みたいなのできないんですかね？

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

>>752
exeもdllもおおまかに言ってしまえば、そう変わらない。
自分自身で動けるか、他から動かされないとダメなのかの違い（くらいに今は思っておいていい）

コンパイラがexeのものはそれ単体で動くけど、
hspcmp.dllはそれ単体で動かないからHSPed.exeあたりから呼ばれて動く。
コンパイル動作そのものはあまり変わらない。
もちろん>>752が作ろうとしているエディタから呼んでもいい。

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

hsed2.exeだろ。

**名前は開発中のものです。** · 04/05/25 20:35

>>752
hspcmpのマニュアルのCサンプルをHSPのソースに翻訳＋一部追加・削除・改変
#include "hspcmp.as"

sdim hsp_file, 128
sdim objname, 128
sdim errbuf, 32000

dialog "as", 16
if stat = 0: mes "Canceled.": stop
getpath hsp_file, refstr, 8
getpath objname, hsp_file, 1: objname += ".ax"
hsc_ini hsp_file
hsc_objname objname
hsc_getmes errbuf
hsc_comp 1, 0
st = stat
hsc_getmes errbuf: mes errbuf
if st: stop

execmd = "hsp2 "
if hsp_fullscr: execmd += "*"// フルスクリーンモード時
if hsp_debug: execmd += "@"// デバッグウインドゥ表示時
execmd += objname
exec execmd
stop

**名前は開発中のものです。** · 04/05/25 21:45

>>756
あれ、hspcmpのマニュアルってあるんですか？
出来ればCのサンプルの方も見てみたいんですけど。
どこにあるか教えて頂けないでしょうか。

**名前は開発中のものです。** · 04/05/25 23:35

☆★☆★　日本語プログラミング言語『ひまわり』　☆★☆★

日本語で『こんにちはと、言う。』と入力すれば
ダイアログに『こんにちは』と出るプログラミング言語登場！！
PNGもサポートしてるので、かなりおすすめです！！
また、【『http://www.xxxx.xx/』を、『index.htm』へ、HTTPダウンロード。】
とすれば自動的にダウンロードできる優れ物です！！

↓日本語プログラミング言語『ひまわり』
http://hima.chu.jp/index.htm
↓日本語プログラミング言語『ひまわり』スレッド
http://pc5.2ch.net/test/read.cgi/tech/1083053283/l50

**名前は開発中のものです。** · 04/05/25 23:45

>>757
命令リファレンス＋Cサンプルって感じだけどね。
HSPのディレクトリ\docs\hspcmp.txt

**名前は開発中のものです。** · 04/05/25 23:50

HSPがCベースだったらよかったのに・・・
最近HSPやりはじめたから条件式でついつい＝＝使ってしまう・・・

**名前は開発中のものです。** · 04/05/26 00:01

==でなにか問題でも？

**名前は開発中のものです。** · 04/05/26 00:27

>>759
サンクスです。