HSP - Hot Soup Processor
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001名無しさん@お腹いっぱい。
01/11/10 04:04ID:???テキストによるスクリプトを書くだけで、誰にでも簡単にウインドゥズ上で
画像表示、メニューシステムの構築ができます。
多彩な命令セットを使いこなすことでゲームアプリケーションまで作成する
ことができます。
Hot Soup Processor 公式サイト
http://www.onionsoft.net/hsp/
0872名前は開発中のものです。
02/09/25 23:58ID:???まぁ実物が晒されたら元通りの地位に納まるんだろうが
HSPもようやく一般的なレベルになったぐらいのコメントだせんかね。
0874名前は開発中のものです。
02/09/26 05:00ID:???0875名前は開発中のものです。
02/09/26 07:34ID:???0876名前は開発中のものです。
02/09/26 12:33ID:???0877名前は開発中のものです。
02/09/26 16:41ID:JBXJAc230878名前は開発中のものです。
02/09/26 18:56ID:???0879名前は開発中のものです。
02/09/26 19:10ID:???0880名前は開発中のものです。
02/09/26 19:25ID:o+VJbOfA0882名前は開発中のものです。
02/09/26 20:17ID:???報酬は?
0883名前は開発中のものです。
02/09/26 20:19ID:???0884名前は開発中のものです。
02/09/26 20:43ID:???0885名前は開発中のものです。
02/09/26 21:27ID:???0886名前は開発中のものです。
02/09/26 21:29ID:???0887ム板住人
02/09/26 21:51ID:???ム板にはもうカキコしないでください。
0888823
02/09/27 00:18ID:???V=20:screen ,200,400:title "0":dim B,4:dim C,10,V:dim D,10,V:randomize:F=2:boxf
dim A,4,7:A=1,4,5,6,5,6,10,14,5,6,9,13,5,6,9,10,2,6,5,9,1,5,6,10,1,5,9,13:repeat
wait 1:if G=0{rnd N,7:memcpy B,A,16,,16*N:H=3:I=-4:J=0:G=1}J-F:if J<0{K=0:L=1
gosub Z:if M=0{N=0:repeat 4:O=B.cnt\4+H:P=B.cnt/4+I:if P<0{N=1:break}C.O.P=1
loop:if N{break}dim Q,V:R=0:repeat V:S=cnt:N=0:repeat 10:N+=C.cnt.S:loop:if N>9{
Q.cnt=1:R+:palcolor 255:boxf 0,cnt*V,200,cnt*V+18}loop:if R>0{wait 50:color:boxf
E+R*R:title ""+E:N=19:repeat V:S=19-cnt:if Q.S=0{memcpy C,C,40,N*40,S*40:N-}loop
memset C,,N*40}G=0}J=100}stick T,8,1:K=T&4!0+(T&1!0*-1):L=T&8!0:gosub Z:if T&16{
dim U,4:memcpy U,B,16:repeat 4:N=B.cnt\4:B.cnt=N*4+3-(B.cnt/4):loop:K=0:L=0
gosub Z:if M=0{memcpy B,U,16:gosub Z}}redraw 0:repeat V:S=cnt:repeat 10:K=cnt*V
palcolor D.cnt.S*9:L=S*V:boxf K,L,K+18,L+18:loop:loop:redraw:loop:dialog "over"
end:*Z:M=1:repeat 4:O=B.cnt\4+H+K:P=B.cnt/4+I+L:if (P>19)|(O<0)|(O>9):M=0:break
if P<0{continue}if C.O.P=1{M=0}loop:if M=0{return}memcpy D,C,10*V*4:H+K:I+L
repeat 4:O=B.cnt\4+H:P=B.cnt/4+I:if P>=0{D.O.P=1}loop:return
0889823
02/09/27 00:26ID:???適当な名前に置き換えると分かりやすいかもしれません。
てかもっと精進せねば(´д`;)
0890839
02/09/27 01:24ID:???これ以上料理できるんだろうか・・・
0891名前は開発中のものです。
02/09/27 09:12ID:???0892名前は開発中のものです。
02/09/27 09:45ID:???0893823
02/09/27 14:04ID:???あんまり縮めるのを意識せずに組んだので、
縮めどころは結構あるかもです・・・
>>891-892
凸と棒が回転すると軸ずれてしまうのが残念(´д`;)
0894名前は開発中のものです。
02/09/27 14:29ID:FF+tNeND0895名前は開発中のものです。
02/09/28 13:01ID:???次ネタは横スクロールシューティングでどうでしょうか?
0896名前は開発中のものです。
02/09/28 17:27ID:???0897名前は開発中のものです。
02/09/28 17:49ID:???0898名前は開発中のものです。
02/09/28 19:16ID:???今は荒れてるけど正常化すれば無問題でしょ!
0899名前は開発中のものです。
02/09/28 20:35ID:???0900名前は開発中のものです。
02/09/29 01:00ID:???近寄らんほうがよさげ
0901名前は開発中のものです。
02/09/29 16:16ID:???つーかマ板はどうでもいいが、STGも難し過ぎて没なの?
0902名前は開発中のものです。
02/09/29 18:38ID:???0903名前は開発中のものです。
02/09/29 19:25ID:YIDKfWcL完成した人っている?
0904名前は開発中のものです。
02/09/29 21:09ID:???今作ってるよ。完成とは程遠いけど。
0905名前は開発中のものです。
02/09/29 22:01ID:???プログラミングは一番最後にしなきゃダメだな。
漏れはいつもプログラムだけ作ってそれ以外が出来ずに断念するヘタレです、はい。
0906名前は開発中のものです。
02/09/29 22:49ID:???激しく同意。
それから現在のRPG風でなく10年ぐらいまえのRPG風にする。
0907名前は開発中のものです。
02/09/30 08:16ID:???0908名前は開発中のものです。
02/09/30 08:33ID:???0909名前は開発中のものです。
02/10/01 17:43ID:???0910名前は開発中のものです。
02/10/02 01:17ID:hZ8sxFNZtmove=3:mshot=5:mteki=30:dim shot,mshot:dim sside,mshot:dim shigh,mshot:dim tekion,mteki:dim tside,mteki:dim thigh,mteki:dim tmoves,mteki:dim tsmove,mteki:dim tnows,mteki:dim
tmtype,mteki:side=150:high=300:score=0:nshot=0:nteki=0:ziki=0:tekidasu=0:drnd=-2:screen 0,250,400,1:repeat 1:redraw 0:palcolor 255:boxf 0,0,250,400:stick key,31:side+(key&4/4)-(key&1):high+(key&8/8)-(key&2/2):if key&16 {repeat mshot
nshot=cnt:if shot.nshot!1:shot.nshot=1:sside.nshot=side:shigh.nshot=high-15:break
loop }:if side<0:side=0:if side>241:side=241:if high<0:high=0:if high>385:high=385
repeat mshot:nshot=cnt:if shot.nshot=1:if shigh.nshot>-15:shigh.nshot-15:else:shot.nshot=0
if shot.nshot=1:pos sside.nshot,shigh.nshot:palcolor 0:mes "I"
palcolor 0:pos side,high:if ziki=0:mes "M":else:mes "*"
loop:repeat mteki:nteki=cnt:if tekion.nteki=1 {thigh.nteki+tmoves.nteki:tnows.nteki+tmoves.nteki
if tsmove.nteki<=tnows.nteki:tside.nteki+tmtype.nteki:tnows.nteki=0
if (thigh.nteki>=398)|(tside.nteki<=-7)|(tside.nteki>=249):tekion.nteki=0
repeat mshot:nshot=cnt:if shot.nshot=1:if (sside.nshot-5<=tside.nteki)&(sside.nshot+5>=tside.nteki)&(shigh.nshot<=thigh.nteki)&(shigh.nshot+13>=thigh.nteki):tekion.nteki=2:shot.nshot=0:score++
loop }:if tekion.nteki>=1:palcolor 249:pos tside.nteki,thigh.nteki:if tekion.nteki=1:mes "W":else:tekion.nteki++:if tekion.nteki=5:tekion.nteki=0:mes "*"
if (tside.nteki+7>=side)&(tside.nteki-6<=side)&(thigh.nteki+11>=high)&(thigh.nteki-12<=high):ziki=1
if tekion.nteki=0 {randomize:rnd thigh.nteki,256:randomize:rnd tside.nteki,242:randomize:rnd tmoves.nteki,tmove:tmoves.nteki++:randomize:rnd tsmove.nteki,40:tsmove.nteki++:if drnd=1:drnd=-2
drnd++:tmtype.nteki=drnd:thigh.nteki=thigh.nteki*-1-14:tekion.nteki=1:break }:loop:redraw 1:await 10:title "Mstg score "+score:if ziki=0:continue 0:loop:pos 80,180:palcolor 0:mes "GAME OVER":button "RESTART",*start:stop
0911名前は開発中のものです。
02/10/02 01:20ID:???0912910
02/10/02 01:20ID:???バグあるっぽいけどとりあえずSTG
あと、ageてしまった……
0913911
02/10/02 01:21ID:???0914910
02/10/02 01:24ID:???あう、操作方法書いて無いや。
上下左右のキーで移動して、スペースでショット出します。
0915名前は開発中のものです。
02/10/02 09:17ID:???0916名前は開発中のものです。
02/10/02 09:22ID:???0917名前は開発中のものです。
02/10/02 14:47ID:???0919823
02/10/02 21:48ID:???dim J,A:dim K,A:screen,250,400:repeat:redraw 0:color:boxf:stick P,31:palcolor 39
if(L>=0){L-P&1}if(L<242){L+P&4!0}if(M>=0){M-P&2!0}if(M<386){M+P&8!0}if O=0{
pos L,M:mes "M"}repeat 5:if(P&16*(B.R=0)){B.R=1:C.R=L:D.R=M-15:P=0}B.R=D.R>-16
if B.R=0{continue}D.R-15:palcolor 7:pos C.R,D.R:mes "I":loop:palcolor 9:repeat A
if E.R{G.R+H.R:if J.R{J.R-}else{F.R+K.R:J.R=I.R}E.R=G.R>397+(F.R<-8)+(F.R>248)=0
Q=R:repeat 5:if B.R{if(C.R-5<=F.Q)&(C.R+5>=F.Q)&(D.R<=G.Q)&(D.R+13>=G.Q){E.Q=0
B.R=0:N+:title ""+N}}loop:if(F.R+7>=L)&(F.R-6<=L)&(G.R+11>=M)&(G.R-12<=M):O=1
pos F.R,G.R:mes "W"} else {rnd G.R,256:G.R=-G.R-14:rnd F.R,242:rnd H.R,3:H.R+
rnd I.R,10:J.R=0:rnd K.R,2:K.R=K.R<<1-1:E.R=1}loop:redraw:wait 1:if O:break
loop:dialog "over"
10行ですが、もっと縮みそうっすね・・・
配色とか少しいじっちゃいますた。
0920823
02/10/02 21:49ID:???0921名前は開発中のものです。
02/10/02 22:21ID:???0922823
02/10/02 22:22ID:???dim J,A:dim K,A:screen,250,400:repeat:redraw 0:boxf:stick P,15:if L>=0{L-P&1}
if(L<242){L+P&4!0}if(M>=0){M-P&2!0}if(M<386){M+P&8!0}if O=0{palcolor 39:pos L,M
mes"M"}palcolor 9:repeat A:if E.R=0{E.R=1:J.R=0:rnd I.R,10:rnd K.R,2:rnd G.R,256
G.R=-G.R-14:rnd F.R,242:rnd H.R,3:H.R+:K.R=K.R<<1-1:E.R=1}else{G.R+H.R:if J.R{
J.R-}else{F.R+K.R:J.R=I.R}if(F.R+7>=L)&(F.R-6<=L)&(G.R+11>=M)&(G.R-12<=M):O=1
E.R=G.R>397+(F.R<-8)+(F.R>248)=0:pos F.R,G.R:mes "W"}loop:redraw:wait 1:if O{
break}color:if (cnt\30=0){S+:title "score:"+S}loop:dialog "over\nscore = "+S
避けゲーバージョンです
0924名前は開発中のものです。
02/10/02 22:39ID:???0925名前は開発中のものです。
02/10/06 21:29ID:???World Wide Entertainment!!
0926名前は開発中のものです。
02/10/09 19:59ID:???ABとBCを結びBの角度を出すプログラムを作りたいのですが
どうやりましょう?
0927名前は開発中のものです。
02/10/09 20:12ID:???問題は三角関数の扱いですが、内部でテーブルにして保持し近似値を取るのが早くて良いでしょう。
ただし。
どのモニタでもpixelのサイズの縦横比が1対1と思わないほうがいいかもです。
環境によっては見た目の角度と違う結果が出るかも。
0928名前は開発中のものです。
02/10/09 21:04ID:???つーか整数形式しかないHSPでやらない方が良い問題だと思われ。
0929名前は開発中のものです。
02/10/09 23:15ID:???アークタンジェントのテーブルってどうやって保持するの?
0930名前は開発中のものです。
02/10/09 23:21ID:???0931名前は開発中のものです。
02/10/09 23:32ID:???0932名前は開発中のものです。
02/10/10 20:31ID:???クリップボードに転送したのですが、タイトルバーまで表示されて
画像だけをクリップボードに転送することは可能ですか?
Exforceのclipimgなどやってみたのですが、Windows2000では無理みたいで
なにか方法ありませんでしょうか?
0933名前は開発中のものです。
02/10/10 20:35ID:???あとで他のソフトにペーストしたいという意図があります
0934名前は開発中のものです。
02/10/10 23:24ID:???0935名前は開発中のものです。
02/10/11 06:45ID:???駄目でした。
タイトルバーが入ってしまいます。
0936名前は開発中のものです。
02/10/11 08:15ID:???0937名前は開発中のものです。
02/10/11 19:56ID:???あほか。
0938名前は開発中のものです。
02/10/11 22:30ID:???0939名前は開発中のものです。
02/10/12 09:27ID:???もうコネ━━━━(゚д゚;)━━━━!!ヨ
0940名前は開発中のものです。
02/10/12 13:59ID:???0941名前は開発中のものです。
02/10/14 08:26ID:lxNlRk7t0942名前は開発中のものです。
02/10/14 12:07ID:???ウィンドウをscreenではなくbgscrで作ってみれ。
タイトルバーは表示されないはず。
ってか、ネタだったらごめんな。
0943名前は開発中のものです。
02/10/14 12:16ID:???俺もずっとそう思ってた
基本だろ
0944名前は開発中のものです。
02/10/14 13:05ID:???ハァ?
0945名前は開発中のものです。
02/10/14 18:24ID:???基本もしらなくて
0946名前は開発中のものです。
02/10/14 18:48ID:???無知は罪じゃないぞ。誰だって知らない事はある。
がんばれや。
0947名前は開発中のものです。
02/10/16 18:48ID:???0948名前は開発中のものです。
02/10/18 12:07ID:???0949名前は開発中のものです。
02/10/19 12:50ID:???0950名前は開発中のものです。
02/10/19 13:28ID:???0951名前は開発中のものです。
02/10/19 13:30ID:???0952名前は開発中のものです。
02/10/19 13:51ID:???日本語ローグライクのCソース見ても全然わからないので・・・。
アルゴリズムを知ってる方、わかりやすく噛み砕いてくれる方、お願いしまふ。
0953名前は開発中のものです。
02/10/19 15:22ID:???ローグのアルゴリズム、知らない。
昔トルネコ風のそれらしいアルゴリズム書いたけど、それじゃダメですか?
0954名前は開発中のものです。
02/10/19 16:22ID:???トルネコ風でもありがたいでつ。
0955名前は開発中のものです。
02/10/19 18:20ID:AzNqVmrk0956名前は開発中のものです。
02/10/19 18:47ID:???開発中断してたが
0957名前は開発中のものです。
02/10/19 19:02ID:AzNqVmrk一応持ってますが、XPだと出来ない罠。
解析ツール使ってソース見たけど全然判らない罠。
迷路系は結構あるのにローグ系は全然見当たりませんな。
それらしいのはキャッシュで見つけましたが糞重い上に部屋が作成されない。(バグ持ち
いちおう探し回ってみまつ。
0958名前は開発中のものです。
02/10/19 19:11ID:vkN65a3b無料掲示板
無料レンタル掲示板
0959名前は開発中のものです。
02/10/20 00:42ID:q0iLdYR80960 ◆oT/w3Qtogc
02/10/20 13:01ID:1vQp5kVs詳しく解説しているページがあったら教えてください。
0961名前は開発中のものです。
02/10/20 13:42ID:???/ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
∧ ∧ < ない
(・∀・) \____________
_(つ__つ_∬_ ∧∧
∧∧ ∬ 目∬\(・∀・) ニヤニヤ
(・∀・)\ 目 目 \ ヽ
./ |\ \ \ )〜
〜(__) \| ̄ ̄ ̄ ̄ ̄ ̄ ̄|
| ̄| ̄ ̄ ̄ ̄| ̄| (・∀・)ニヤニヤ
∧  ̄  ̄
/  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| 自分でどうにかしな!
\____________
0962名前は開発中のものです。
02/10/20 14:08ID:fcjxqt4rhttp://www.onionsoft.net/hsp/
0963名前は開発中のものです。
02/10/20 17:02ID:???HSPに憑いて…その2
http://pc3.2ch.net/test/read.cgi/tech/1034925411/
0964名前は開発中のものです。
02/10/20 17:35ID:???スレのタイトルからして既に怪しすぎ(藁
0965名前は開発中のものです。
02/10/20 22:27ID:???やはりHSPのユーザー層ではRogueを知ってるヤシ自体少ないかも。(;´Д`)
とりあえずやれるとこまで自力でやってみまつ。
>>953
参考にしたいのでソースのうpおながいします。
0966名前は開発中のものです。
02/10/20 22:42ID:???ソースのうpとか簡単に言うけど、
それをするには今から記憶をたどって書き直す必要があるんだよぅ…。
0967名前は開発中のものです。
02/10/20 22:54ID:???マジデスカー(;´Д`)
0968名前は開発中のものです。
02/10/20 22:55ID:???その場合でもちょっと待ってもらえる?
えっとHSPって配列をどう表現してたっけ?
dim で宣言してドットで区切り、だったっけ?
0969名前は開発中のものです。
02/10/20 23:03ID:???>dimで宣言〜
あってまつ。
0970名前は開発中のものです。
02/10/21 14:14ID:???│ |
│ |
│ |
│ |
│ ∧_∧ |
│ ( ・∀・) |
│ ( ) |
│ | | | |
│ (__)_) |
| 2ちゃんねる |
│ |
│ スレッドを終了しています… |
│ |
│ |
| |
| |
└───────────────────────――┘
0971名前は開発中のものです。
02/10/21 14:15ID:???│ |
│ |
│ |
│ |
│ ∧_∧ |
│ ( ・∀・) |
│ ( ) |
│ | | | |
│ (__)_) |
| 2ちゃんねる |
│ |
│ スレッドを終了しています… |
│ |
│ |
| |
| |
└───────────────────────――┘
レス数が950を超えています。1000を超えると書き込みができなくなります。