i/ez/携帯BASIC総合スレ　ver.1

携帯BASICについて語るスレです。
i/ezBASICの話題もどうぞ。
質問やプログラムうｐして盛り上がりましょう。

携帯BASIC
http://satoo.jp/
iBASIC - BASIC interpreter for DoCoMo
http://cgi.cyborg.ne.jp/~j-saito/cgi-bin/software/ibasic/
Yasu software　（トップ→EZPLUS→エンタメ→ezBASIC）
http://yasu.rank.nu/ez/
保管庫@BASIC　（まとめサイト）
http://tool-2.net/?id=BASIC

荒らし・煽りは放置でお願いします。
プログラム作者は最低でも数字コテを付けるのが望ましいかも。

前スレ
iBASICについて語ろうよ…
http://hobby7.2ch.net/test/read.cgi/appli/1073196921/

>>1
ありがとうございます。

>>all
急いで更新するので前ｽﾚは埋めないで下さい。

>1
乙

>>1乙!

>>前スレ962
>動かない…orz
最初にマップ画面が表示されるまで、オレの機種でも30秒〜40秒かかるんで、気長に待ってください
（3分以上たってもマップが表示されないとかならどこかに機種依存部分がある可能性大
　その時は修正します

前スレ>>963
全体のだいたいのプランは出来てるみたいですね
喜んで協力させていただきます

>>前スレ964
>LTM

LT(見渡せる範囲)の最大値（LTのMAXって事で

>ﾏｯﾌﾟ作成
>MAP[CHARy]=substr(MAP[CHARy],0,CHARx-1)+" "+substr(MAP[CHARy],CHARx,strlen(MAP[CHARy])-CHARx)

文字列データの一箇所だけ変更する命令が無いので、
データの頭〜キャラのxの1つ前迄の文字数分 + "　" + キャラのxの1つ後〜最後迄の文字数分
みたいな感じです

>｢TEST_2｣
>text(substr(MAP[CHARy+i],CHARx-1-LT,1+LT*2),64-12*LT,79+12*i)

MAPを一行ずつ格納したMAP[]から、
キャラのxのLT分前〜1+LT*2個分
の文字列を呼び出して表示させてます

substr関数で存在しない場所を呼び出そうとするとエラーになるので
LTMの分だけマップの端に"＃"を追加してます

>>前スレ965
substr(MAP[Y],X,1)=0
↓
MAP[Y]= substr(MAP[Y],0,x-1) + "0" +substr(MAP[Y],x+1,strlen(MAP[Y],x+1))

これで解るかな（汗
あと数字使った場合、「文字」としてではなく「数値」として扱われてしまう事があるので注意が必要
例
"001"→"1"
"111"+"1"→「112」

>>6
間違った･･･

×
MAP[Y]= substr(MAP[Y],0,x-1) + "0" +substr(MAP[Y],x+1,strlen(MAP[Y],x+1))

○
MAP[Y]= substr(MAP[Y],0,x-1) + "0" +substr(MAP[Y],x+1,strlen(MAP[Y])-(x+1))
正直オレも訳解らなくなる事があるのでorz

>>7
また間違ったよorz
なにやってんだオレは･･･

×
MAP[Y]= substr(MAP[Y],0,x-1) + "0" +substr(MAP[Y],x+1,strlen(MAP[Y])-(x+1))
○
MAP[Y]= substr(MAP[Y],0,x) + "0" +substr(MAP[Y],x+1,strlen(MAP[Y])-(x+1))


>>前スレ963
半分しか表示されないってのはおそらく｢＊｣と｢＃｣が半角に化けてるんじゃないかと
＊＃←これが半角で表示されてたら化けてます
クラシックだったら設定で全角表示をON
iMOMAだったら圧縮設定で変わったような･･･

>826氏
半角だったから駄目だったのかorz
てか半角から全角に変えたって変えてあったね。何度写しなおしても駄目だから全然進まなかったよ。
ところで826氏はなんかこうしたいとかｱｲﾃﾞｱある？

for Ds= 0 to 80
if input(0) and keyselect then goto"bb" endif
sleep(65)
A=abs(rand)%6+1
color(255,255,255)
frect(0,0,240,240)
color(50,160,50)
setfont("S")
text(A,0,126)
next
label b
color(55,255,255)
frect(0,0,240,240)
color(0,55,255)
text("アタリ",0,126)
input()
label B
input()
label bb
if A=2 then t=1 endif
if t=1 then goto"b" endif
これなんですが…
アタリが表示されると、input()の効力が無くなってしまいます
どうすればいいんでしょうか？

>826氏
また質問なんだけど、例えば旧MAP[5][5]に"Ｍ"をいれたいときはどうかけばよいの？
substr(MAP[5],5,1)="Ｍ"
MAP[y]の文字列の5番目の文字はＭ、てやんのかなと思ったらならなかったよorz
もう一度基礎から勉強しよう

>>10
input()の効力が無くなったのではなく、
携帯BASICの仕様で「for〜next」の間で「goto」使った場合強制終了


>>11
>また質問なんだけど、例えば旧MAP[5][5]に"Ｍ"をいれたいときはどうかけばよいの？

MAP[5] = substr(MAP[5],0,5-1) + "Ｍ" + substr(MAP[5],5,strlen(MAP[5])-5)

面倒くさいけど、これでOK
（因にsubstrでの場所指定は0から始まる
アイデアは今の所は特にないです（アイデアとか考えるのはあまり得意な方では･･･

俺もわかりやすくつけたほうがよいかな

>12
結構メンドいのね。

ｱｲﾃﾞｱは例えば夜になるとﾓﾝｽﾀｰは寝ちゃうとか、昼間は閉まってる道具屋とか、思いついたらﾖﾛ^^
一緒に、てもなかなかどう分担してよいのかよくわかんないねf^^;いっそﾓﾝｽﾀｰの部分任せちゃおっかなw
M[X座標][Y座標][0]=名前
M[X座標][Y座標][1]=HP
M[X座標][Y座標][2]=攻撃力
M[X座標][Y座標][2][3]=命中率
M[X座標][Y座標][2][4]=防御力
M[X座標][Y座標][2][5]=回避率
ちなみにこんな風に配列でﾓﾝｽﾀｰｽﾃｰﾀｽ決めると効率悪いかな?

AIでロボットを戦わせる的なプログラム

｢RBSYS｣
H=height/2 W=width/2 origin(H,W) soft2("exit") for i=-1 to 1 step 2 x[i]=rand%(W-10) y[i]=rand%(H-10) H[i]=3 next
label 0
lock() clear(-W,-H,W*2,H*2) for i=-1 to 1 step 2 color(0,100+(i*100),100+(i*100)) if i=-1 then #1p# else #2p# endif
farc(x[i]-5,y[i]-5,10,10) line(x[i],y[i],x[i]+10*cos(r[i])/100,y[i]+10*sin(r[i])/100)
if scan=keysoft2 then exit elseif ae[i]=1 then gosub "fa" endif clearinput() if H[i]=0 then goto 1 endif
next
T=T+1 text("1P:"+H[-1]+" 2P:"+H[1]+" TIME:"+T/10,-W,12-H) unlock(0)
goto 0 exit #RBFNC#

｢RBFNC｣
label inx
if x[i]<W-10 then x[i]=x[i]+2 endif return
label dex
if x[i]>10-W then x[i]=x[i]-2 endif return
label iny
if y[i]<H-10 then y[i]=y[i]+2 endif return
label dey
if y[i]>10-H then y[i]=y[i]-2 endif return
label inr
r[i]=r[i]+5 if r[i]>360 then r[i]=r[i]-360 endif return
label der
r[i]=r[i]-5 if r[i]<0 then r[i]=r[i]+360 endif return
label fire
if ae[i]=0 then ae[i]=1 axp[i]=5*cos(r[i])/100 ayp[i]=5*sin(r[i])/100 ax[i]=x[i] ay[i]=y[i] endif return
label fa line(ax[i],ay[i],ax[i]+axp[i],ay[i]+ayp[i]) ax[i]=ax[i]+axp[i] ay[i]=ay[i]+ayp[i]
if abs(ax[i]-x[-i])<8 and abs(ay[i]-y[-i])<8 then H[-i]=H[-i]-1 ae[i]=0 endif
if ax[i]>W or ax[i]<-W or ay[i]>H or ay[i]<-H then ae[i]=0 endif return
label 1
unlock(0) if i=-1 then txt="2p" else txt="1p" endif text(txt+" win!!",-W,24-H) input()

｢1p｣
if scan=key1 then gosub "inr" endif
if scan=key2 then gosub "dey" endif
if scan=key3 then gosub "der" endif
if scan=key4 then gosub "dex" endif
if scan=key5 then gosub "fire" endif
if scan=key6 then gosub "inx" endif
if scan=key8 then gosub "iny" endif

｢2p｣
if (y[i]-y[-i])>30 then gosub "dey" endif
if (y[i]-y[-i])>0 then e=0 endif
if (y[i]-y[-i])<-30 then gosub "iny" endif
if (y[i]-y[-i])<0 then e=1 endif
if (x[i]-x[-i])>2 then gosub "dex"
endif
if (x[i]-x[-i])<-2 then gosub "inx" endif
if r[i]<>90 and e=1 then gosub "der" endif
if e=0 and r[i]<>270 then gosub "inr" endif
if abs(x[i]-x[-i])<10 and abs(y[i]-y[-i])<100 then gosub "fire" endif

んで、AI作るときの条件。
1p、2pのところを書き替える。1pは現在実験用につくったマニュアル操作プログラムが書いている
直接変数に値を代入せずサブルーチン呼び出しで変更(不正防止のため)
自分、相手の情報の引き出しにのみ変数使用可能。

自分情報は｢変数[i]｣、相手情報は｢変数[-i]｣に代入されてありこれは1p2pどちらに書いても変わらない。
使用可能変数(取出のみ)
x軸位置…x[i] x[-i]
y軸位置…y[i] y[-i]
砲角度…r[i] r[-i]
残り体力…H[i] H[-i]
経過時間…t

使用可能サブルーチン
x軸増減…inx、dex
y軸増減…iny、dey
砲角度増減…inr、der
砲発射…fire

基本は自分情報と相手情報でifかけてルーチン呼出になるかな。作るのはかなり難しい

QVGA機で作成したが一応非QVGAでも動くようには作ってある。が、処理重いかもしれない。
チープな出来だけど、まぁ結構いじれるのでは？

なんかJAVAでロボットプログラムして戦わせる大会があったから思いついて書いてみた。
最後に>>1乙

rem 累計電卓デモ

label setu
a[1] = 50
a[2] = 100
a[3] = 200
a[4] = 300
a[5] = 400
a[6] = 500
a[7] = 1000
a[8] = 2000
a[9] = 3000
a[10] = 5000
xx = 100
xy = 100
gosub "cl"

↑続き

label main
im = input()
if im = 2 then mo[1] = 1 endif
if im = 4 then mo[2] = 1 endif
if im = 8 then mo[3] = 1 endif
if im = 16 then mo[4] = 1 endif
if im = 32 then mo[5] = 1 endif
if im = 64 then mo[6] = 1 endif
if im = 128 then mo[7] = 1 endif
if im = 256 then mo[8] = 1 endif
if im = 512 then mo[9] = 1 endif
if im = 1 then mo[10] = 1 endif
if im = 1024 then gosub "cl" endif
if im = 65536 then gosub "kei" endif
if im = 2048 then exit endif
clearinput()
im = 0
goto "main"

↑続き

label cl
for x = 1 to 10
mo[x] = 0
next
return

label kei
for x = 1 to 10
if mo[x] = 1 then kk = kk + a[x] endif
next
text("計算結果",xx,xy-16)
text(kk,xx,xy)
for x = 1 to 500
next
kk = 0
clear(xx,xy-34,48,36)
return

※連投、失礼しました。前スレからロムってまつｗ

一番重要なことを…orz

｝１　乙です

プログラム｝数字キー：フラグOn。Ｆ：合計を求める。＊：フラグクリア。＃：終了
・・・だと思った（ぉ

>>6 (826)
strlenの使い方が全然解らなかったんで
かなりありがたいッス。激thx

ちなみに俺もローグライク動かなかったんだけど
少し待ったら映りましたorz
かなりイイ出来ですね。ちとプログラム複雑そうなんで手伝えないけど(´･ω･`)
ローグライク楽しみ。

>>14
AIリアルタイム対戦ｷﾀ━━━(ﾟ∀ﾟ)━━━!!!
ジレンマと株の人？とりあえず乙です
今から動かしてみます

>>19
計算機？とは違うのかな…とりあえず動かしてみる

>>1
>>まとめサイトの人
乙です

前スレがまだ100レスもいってない(半分DAT落ちしてた)頃からずっといたけど、まさかこんなに栄えると思わなかったよ。
Tabris氏を始めBASICアプリを作ってくれた人達に感謝せねば。

label d
soft2("QUIT")PT=0
PX[1]=4PX[2]=34PX[3]=64PX[4]=4PX[5]=34PX[6]=64PX[7]=4PX[8]=34PX[9]=64
PY[1]=4PY[2]=4PY[3]=4PY[4]=34PY[5]=34PY[6]=34PY[7]=64PY[8]=64PY[9]=64
frect(0,0,width,height)color(250,250,250)origin(2,2)rect(0,0,93,93)for x=3to 63step 30fory=3to 63step 30rect(x,y,27,27)next next
for C=1to 9n=abs(rand)%2MAP[C]=n next gosub"j"
label k i=input()if i and key1 then C=1gosub"c"C=2gosub"c"C=4gosub"c"
elseif i and key2 then C=2gosub"c"C=1gosub"c"C=3gosub"c"C=5gosub"c"
elseif i and key3 then C=3gosub"c"C=2gosub"c"C=6gosub"c"
elseif i and key4 then C=4gosub"c"C=1gosub"c"C=5gosub"c"C=7gosub"c"
elseif i and key5 then C=5gosub"c"C=2gosub"c"C=4gosub"c"C=6gosub"c"C=8gosub"c"
elseif i and key6 then C=6gosub"c"C=3gosub"c"C=5gosub"c"C=9gosub"c"
elseif i and key7 then C=7gosub"c"C=4gosub"c"C=8gosub"c"
elseif i and key8 then C=8gosub"c"C=5gosub"c"C=7gosub"c"C=9gosub"c"
elseif i and keysoft2 then exit
endif C=0
label j
lock()for C=1to 9if MAP[C]=1then color(100,250,150)frect(PX[C],PY[C],23,23)PT=PT+1
elseif MAP[C]=0then color(0,0,0)frect(PX[C],PY[C],23,23)endif next unlock(1)
if PT=9then color(250,250,0)text("CLEAR!",31,115)clearinput()input()exit else PT=0endif goto"k"
label c if MAP[C]=0then MAP[C]=1elseif MAP[C]=1then MAP[C]=0endif return

「ライトアウツ」
数字キー1〜9で操作。
ソフトキー2で終了。
昔懐かしい(?)ライツアウトゲームです。
押した所とそれの上下左右に隣接するマスの色が反転します。
全てを緑ライトにすればクリア。
暇潰しにはいいと思います。問題は自動生成なので何回もやってみてください。

｝23
どちらかというと、レジスタ？に近いかと（仕様で…orzzz）
一応、使い方のチウトリアルｗ；

１　→　Ｆ　＝　計算結果50
２　→　Ｆ　＝　計算結果150（50＋100）
６　→　Ｆ　＝　計算結果650（150＋500）
＊　＝　クリアした。
Ｆ　＝　計算結果0（初期値）
２　→　６　→　８　→　Ｆ　＝　計算結果2600（100＋500＋2000）
９　→　４　→　Ｆ　＝　計算結果5900（2600＋3000＋300）
Ｆ　＝　計算結果5900（変更なし）

＃　＝　プログラム終了。選択に戻る

・数値入力インターフェースはできてるから、組み込むだけだな。
セーブが、変数１個というのは痛いがｗ；
http://ruikei-p.seesaa.net/

for next 抜かしてもダメでした。誰か助けてくださいm(__)m

>10
label b
text("ｱﾀﾘ",0,126)
input()
exit

label bb
if t=1 then goto"b" endif
input()

これでいけるはず。

>0.0.2氏
13=ｼﾞﾚﾝﾏの中の人。
だからﾛﾎﾞｯﾄすっごいおもしろそう

label a
im = input(60)
if im = keyselect then goto"bb" endif
sleep(65)

・・・・・

text(A,0,126)
goto "a"
label b

・・・・・

text("アタリ",0,126)
text(x,0,146)
input()
exit

・・・・・

if t=1 then goto"b" endif
x = x + 1
goto "a"

あうっ…被った。スマソ；　｝29
決定キーを打った回数を追加してみました（最初は24だったorzz

'TEST
soft2("END")
LT=4 LTM=5
CHARx=LTM+abs(rand)%50+1 CHARy=LTM+abs(rand)%50+1
'ﾏｯﾌﾟ作成
SHARPS=""
for i=1 to 50+LTM*2
SHARPS=SHARPS+"＃"
next
for i=0 to LTM+50 step LTM+50
for j=1 to LTM
MAP[j+i]=SHARPS
next
next
SHARPS=substr(SHARPS,0,LTM)
for i=1+LTM to 50+LTM MAP[i]=SHARPS
for j=1 to 50
R=abs(rand)%100 if R<=80 then MAP[i]=MAP[i]+"　" else MAP[i]=MAP[i]+"＊" endif
next
MAP[i]=MAP[i]+SHARPS
next
MAP[CHARy]=substr(MAP[CHARy],0,CHARx-1)+"　"+substr(MAP[CHARy],CHARx,strlen(MAP[CHARy])-CHARx)
MAPS[1]="＜"'洞窟 MAPS[2]="Ψ"'道具屋 MAPS[3]="Ж"'宿屋
for i=1 to 3
RX=abs(rand)%49+6 RY=abs(rand)%49+6 MAP[RY] = substr(MAP[RY],0,RX-1) + MAPS[i] + substr(MAP[RY],RX,strlen(MAP[RY])-RX)
next
'枠書き込み
rect(4,4,132,133)
#TEST_2#

'TEST_2
'ﾒｲﾝ
label 0
MCHx=CHARx MCHy=CHARy
yield()
lock()
color(50*LT,50*LT,50*LT) frect(5,5,131,132)
color(250-50*LT,250-50*LT,250-50*LT)
for i=-LT to LT
text(substr(MAP[CHARy+i],CHARx-1-LT,1+LT*2),64-12*LT,79+12*i)
next
text("＠",64,79)
unlock(1)
key=input()
if key=keysoft2 then end
elseif key=keyleft then CHARx=CHARx-1
elseif key=keyright then CHARx=CHARx+1
elseif key=keyup then CHARy=CHARy-1
elseif key=keydown then CHARy=CHARy+1
endif
#TEST_3#
#TEST_5#
goto 0

'TEST_3
'移動先チェック
if strat(MAP[CHARy],CHARx-1)="＊" or strat(MAP[CHARy],CHARx-1)="＃" then CHARx=MCHx CHARy=MCHy
elseif strat(MAP[CHARy],CHARx-1)="Ｍ" then
if abs(rand)%10<7 then MAP[CHARy]=substr(MAP[CHARy],0,CHARx-1) + "　" + substr(MAP[CHARy],CHARx,strlen(MAP[CHARy])-CHARx)
endif
CHARx=MCHx CHARy=MCHy
else CNT=CNT+1
endif
if CNT%200=199 then TIME=TIME+1 LT=5-TIME%6
endif

'TEST_4
'攻撃チェック
if abs(rand)%10>3 thenMAP[CHARx]=substr(MAP[CHARy],0,CHARx-1) + "　" + substr(MAP[CHARy],CHARx,strlen(MAP[CHARy])-MAP[CHARy])
endif

'TEST_5
'ﾓﾝｽﾀｰ誕生
label BONE
if abs(rand)%2=0 and MCNT<10 then
Mx=LTM+abs(rand)%50+1 My=LTM+abs(rand)%50+1
if substr(MAP[My],Mx,1)="　"then MAP[My] = substr(MAP[My],0,Mx)+ "Ｍ" + substr(MAP[My],Mx,strlen(MAP[My])-Mx) MCNT=(MCNT+1)%10
M[MCNT][1]=NAME
M[MCNT][2]=Mx
M[MCNT][3]=My
M[MCNT][4]=10'HP
M[MCNT][5]=1'攻撃力
M[MCNT][6]=1'命中率
M[MCNT][7]=1'防御力
M[MCNT][8]=1'回避率
else goto "BONE"
endif
endif

>826氏
ﾓﾝｽﾀｰ誕生
2分の1かつMCNTが10より少なく、かつsubstr(MAP[rand_Y],rand_X,1)が"　"ならsubstr(MAP[Y],X,1)はﾓﾝｽﾀｰ"Ｍ"で、M[MCNT][i]にそれぞれ能力値がはいる

発生条件はあとで変えるとして、これであってるかな？

>>29(13氏)
ほうほう、そうでしたか
なかなかローグライクの形が定まって来ましたね
ロボシス研究中です

>>14
ロボシスなかなかイイ…
でも砲頭しか表示されない事が多い；
サイン・コサイン・タンジェントがいまいち理解できてないので
これも講義お願いしたい所デスorz
相手の周囲をぐるぐる回るプログラム作りたい

>>37
実は砲頭しか表示していない罠(´･ω･`)
なかなか重いからなるたけ簡略化したらああなった。こだわりたいけど重くなる…
角度→tanだけでtan→角度が出来ないから相手の方向に砲を向けるのに苦労…

>>36
ごめん、ロボシス研究してた･･･
これから見てみる（ちょっと時間かかるかも


ロボシスのプログラム
「自動砲台」
if fg=1 then
P=3 mx=(x[-i]-kx)*7+x[-i] my=(y[-i]-ky)*7+y[-i] a=mx-x[i] b=my-y[i]
if r[i]>314 or r[i]<45 then c=tan(r[i])*a/100 if a> 0 and c>b-P and c<b+P then gosub "fire" endif
if c<b then gosub "inr" elseif c>b then gosub "der" endif
elseif r[i]>134 and r[i]<225 then c=tan(r[i])*a/100 if a<0 and c>b-P and c<b+P then gosub "fire" endif
if c<b then gosub "der" elseif c>b then gosub "inr" endif
elseif r[i]>44 and r[i]<135 then c=tan(r[i]+90)*(-b)/100 if b> 0 and c>a-P and c<a+P then gosub "fire" endif
if c>a then gosub "inr" elseif c<a then gosub "der" endif
elseif r[i]>224 and r[i]<315 then c=tan(r[i]+90)*(-b)/100 if b<0 and c>a-P and c<a+P then gosub "fire" endif
if c>a then gosub "der" elseif c<a then gosub "inr" endif
endif
else fg=1
endif
kx=x[-i] ky=y[-i]

頑張ってタンジェント使ってみたけど･･･頭痛くなったorz

rem ダイスころころ
soft1("F:終了")
soft2("四方：Dice")
xy = 10
xx = 00
zb = 20
dice = 6
if dice > 50 then dice = 49 endif
co = 1
setfont("S")

label di
rr = abs(rand)%dice+1
rs = abs(rand)%dice+1
rt = rr + rs
ru = rr * 2
rv = rr * 3
tot = tot + rt
gosub "ms"

↑続き
text(ms,xx,xy)
text("A:",xx,xy+zb)
text(rr,xx+15,xy+zb)
text("B:",xx,xy+(zb*2))
text(rs,xx+15,xy+(zb*2))
text("合計",xx,xy+(zb*3))
text(rt,xx+25,xy+(zb*3))
text("(",xx,xy+(zb*4))
text(ru,xx+10,xy+(zb*4))
text(rv,xx+25,xy+(zb*4))
text(tot/co,xx+40,xy+(zb*4))
text(")",xx+64,xy+(zb*4))
im = input()
gosub "dis"
if co > 299 then exit endif
clearinput()
clear(0,0,100,120)
co = co + 1
goto "di"

↑続き
label ms
ms="ダイス"
if rt = dice*2 then ms="破壊力抜群" endif
if rt = 2 then ms="経験点10点" endif
return

label dis
if im = 65536 then exit endif
if im = 4 then dice = 4 endif
if im = 16 then dice = 8 endif
if im = 32 then dice = 6 endif
if im = 64 then dice = 10 endif
if im = 256 then dice = 20 endif
return

※　６面体のはずが、長くなっちまった；

｝soft2("四方：Dice")
soft2("2468：Dice")
申し訳ないｍ（＿　＿；）ｍ

>>824氏
うわ…すごい。これほどに作ってくれるとは嬉しいなぁ…
まともな講義出来なくてｽﾏｿ。俺もよく分かってないんだ(´･ω･`)
ところで1VS1のモノを作るとき、今回使ったのが
for i=-1 to 1 step 2
で変数を[i][-i]で制御ってなかなか便利だったので報告。

｝44
xorじゃダメなんですかね？（って、良く知らないけど；）

ついでだから、ある２進数をビット反転させる技があったら教えて下さいorz
つーか、数値型とか無いから、２進数化させた文字列でもいいけど・・・

>>45
xorでも可能だとは思うけどこっちの方が圧倒的に記述が短いし視認性がいい気がする。
ただこの場合最大1対だから複数使いたい時は不便だな。

ブーリアン型変数がありゃビットまがいのこともできるけど現状はifしかないかも。
別ソースで汎用性をもたせて作っておいて使い回すのが一番楽…かな
ちょいと考えてこよ

>>13氏
何かが違う気がしたので改造しました。
（何が違うかは解らないんですが･･･
こうゆう解釈でよかったんだろうか･･･

因にテスト用なんでモンスターはマップ左上に集中して発生するようにしてます。
その他はTIME更新時処理の位置を変えときました

'TEST
soft2("END") LT=4 LTM=5 CHARx=LTM+abs(rand)%50+1 CHARy=LTM+abs(rand)%50+1 MCHx=CHARx MCHy=CHARy
'ﾏｯﾌﾟ作成
SHARPS=""
for i=1 to 50+LTM*2 SHARPS=SHARPS+"＃" next
for i=0 to LTM+50 step LTM+50 for j=1 to LTM MAP[j+i]=SHARPS next next
SHARPS=substr(SHARPS,0,LTM)
for i=1+LTM to 50+LTM MAP[i]=SHARPS
for j=1 to 50
R=abs(rand)%100 if R<=80 then MAP[i]=MAP[i]+"　" else MAP[i]=MAP[i]+"＊" endif
next
MAP[i]=MAP[i]+SHARPS
next
MAP[CHARy]=substr(MAP[CHARy],0,CHARx-1)+"　"+substr(MAP[CHARy],CHARx,strlen(MAP[CHARy])-CHARx)
MAPS[1]="＜"'洞窟
MAPS[2]="Ψ"'道具屋
MAPS[3]="Ж"'宿屋
for i=1 to 3
RX=abs(rand)%50+6 RY=abs(rand)%50+6 MAP[RY] = substr(MAP[RY],0,RX-1) + MAPS[i] + substr(MAP[RY],RX,strlen(MAP[RY])-RX)
next
'モンスター作成
for MN=1 to 10
gosub "BONE"
next
'枠書き込み
rect(4,4,132,133)
#TEST_2#

連稿ｽﾏｿorz
>>45
つまり変数の中身を
0→1
1→0
にしたいのかな？そうだったら、これでどうよ。

a=(a+1)%2
ただ、aは二進数、0か1しか入らないようにプログラムする必要があるけど。

'TEST_2
'ﾒｲﾝ
label 0
MCHx=CHARx MCHy=CHARy
yield()
lock()
color(50*LT,50*LT,50*LT) frect(5,5,131,132)
color(250-50*LT,250-50*LT,250-50*LT)
for i=-LT to LT
text(substr(MAP[CHARy+i],CHARx-1-LT,1+LT*2),64-12*LT,79+12*i)
next
text("＠",64,79)
unlock(1)
key=input()
if key=keysoft2 then end
elseif key=keyleft then CHARx=CHARx-1
elseif key=keyright then CHARx=CHARx+1
elseif key=keyup then CHARy=CHARy-1
elseif key=keydown then CHARy=CHARy+1
endif
#TEST_3#
goto 0
#TEST_A#

'TEST_3
'移動先チェック
if strat(MAP[CHARy],CHARx-1)="＊" or strat(MAP[CHARy],CHARx-1)="＃" then CHARx=MCHx CHARy=MCHy
elseif strat(MAP[CHARy],CHARx-1)="Ｍ" then
if abs(rand)%10<7 then MAP[CHARy]=substr(MAP[CHARy],0,CHARx-1) + "　" + substr(MAP[CHARy],CHARx,strlen(MAP[CHARy])-CHARx) gosub "GEKIHA"
endif
CHARx=MCHx CHARy=MCHy
else CNT=CNT+1 if CNT%200=199 then TIME=TIME+1 LT=5-TIME%6 endif
endif

'TEST_A
'撃破処理サブ
label GEKIHA
MN=MIDX[CHARx][CHARy]
dispose(MIDX[CHARx][CHARy])
gosub "BONE"
return
'モンスター発生サブ
label BONE
for i=0 to 0
Mx=LTM+abs(rand)%6+1
My=LTM+abs(rand)%6+1
if substr(MAP[My],Mx-1,1)="　" and (MCHx<>Mx or MCHy<>My)
then
MAP[My] = substr(MAP[My],0,Mx-1)+ "Ｍ" + substr(MAP[My],Mx,strlen(MAP[My])-Mx)
MIDX[Mx][My]=MN
M[MN][1]=NAME
M[MN][2]=Mx
M[MN][3]=My
M[MN][4]=10'HP
M[MN][5]=1'攻撃力
M[MN][6]=1'命中率
M[MN][7]=1'防御力
M[MN][8]=1'回避率
else i=i-1
endif
next
return

>>49
a=1-a

プログラム中にアルファベットで名前を変更するようにしたいんですが…
配列で、一文字一文字やっていくしかないのでしょうか？

>>45
ビット反転するなら、すべて1で埋めた数とxorすればいい。
あるいは、その数から引き算でもいいけど。

ようは、
　 　11111111(2) = 255
xor　00101011(2) = 43
　 　----------------
　 　11010100(2) = 212
ということで、ビット反転が成立する、と。

数値に関しては恐らく java.lang.Integer.parseInt(String) あたりで処理されていると思うので、
普通に10進数の文字列だけで考えるのが無難。
2進文字列からだと……ルーチン自作になるかも(^^;

>826氏
ありがとう(T-T)解釈というより俺の書き方が根本的にめちゃくちゃだから。すごい感謝
826氏に一つお願いしてもよいかな。Ｍの動きをlabel A
今の位置を記憶
for 0からMN
abs(rand)%4
if 0 なら上
elseif 1なら下
elseif 2なら右
elseif 3なら左
else　消える
next

行き先が"　"じゃないならgoto A
"　"なら元の位置="　"
俺はｱｲﾃﾑとｽﾃｰﾀｽと画面をちとやろうかなと。
お願いしてもよいかな？

｝49（14 RBSYS）
｝・・・a=(a+1)%2
φ(゜□゜)メモメモ。早速試してみますｗ

｝53
｝a=1-a
懐かし〜。これだ…MSXマガジンか何かに載ってたワザはｗ

｝55
｝…
｝　 　11111111(2) = 255
｝xor　00101011(2) = 43
｝　 　----------------
｝　 　11010100(2) = 212
全て１のマスクで処理…と（ふむふむ）。分かりやすいです〜ｗ

みなさま、ありがとうございましたｍ（＿　＿；）ｍ

>>アプリ実用サン
累計デモ計算結果が一瞬しか表示されないから
label kei の clear(xx,xy-34,48,36)を頭に移動させるといいかな
もしくは clearの前にsleep(2000)とか。
key変数を1→key0　2→key1 とかにしないと動かなかったのも報告
改良していけばキーをフルに使った便利ツールができそう。

ところでキー変数って
↑:? ←:? →:? ↓:? 決定:65536
1:2 2:4 3:8 4:16 5:32 6:64 7:128 8:256 9:512
*:1024 0:1 #:2048
ってことなのかな？
この文法がDoCoMoでも通用するように改良して欲しいな…
あと現状のclear(0,0,width,height)をcls()でできるように…

｝58
レスありがとうございます。あああ、すみまソン
＃一番、重要だったかも？ＯＲＺＺＺ…

上：8192、左：4096、下：16384、右：32768かと（多分）
自機は、ボーダのＶ603SHです（ＱＶＧＡ）
仕事前なので、激しく急いで打ってる・・・（ぉ

累計デモは、アフター５にscanへ変更する必要があるｎ(

保管庫の更新まだかな…

'｢TEST｣
soft2("END") LT=4 LTM=5 CHARx=LTM+abs(rand)%50+1 CHARy=LTM+abs(rand)%50+1 MCHx=CHARx MCHy=CHARy
'ﾏｯﾌﾟ作成
SHARPS=""
for i=1 to 50+LTM*2 SHARPS=SHARPS+"＃" next
for i=0 to LTM+50 step LTM+50 for j=1 to LTM MAP[j+i]=SHARPS next next
SHARPS=substr(SHARPS,0,LTM)
for i=1+LTM to 50+LTM MAP[i]=SHARPS
for j=1 to 50
R=abs(rand)%100 if R<=80 then MAP[i]=MAP[i]+"　" else MAP[i]=MAP[i]+"＊" endif
next
MAP[i]=MAP[i]+SHARPS
next
'ショップ等書き込み
MAPS[1]="＜"'洞窟
MAPS[2]="Ψ"'道具屋
MAPS[3]="Ж"'宿屋
for i=1 to 3
RX=abs(rand)%50+6 RY=abs(rand)%50+6
x=RX y=RY a=MAPS[i] gosub "KAE"
next
'主人公書き込み
x=CHARx y=CHARy a="＠" gosub "KAE"
'モンスター作成
for MN=1 to 10 gosub "BONE" next
'枠書き込み
rect(3,3,133,133)
#TEST_2#

'｢TEST_2｣
'ﾒｲﾝ
label 0
gosub "HYOJI" color(0,0,255) clear(8,138,5,5) frect(3,138,5,5)
MCHx=CHARx MCHy=CHARy
'キー入力処理
label key
key=scan
if key=keysoft2 then end
elseif key=keyleft then CHARx=CHARx-1
elseif key=keyright then CHARx=CHARx+1
elseif key=keyup then CHARy=CHARy-1
elseif key=keydown then CHARy=CHARy+1
else goto "key"
endif
'移動先チェック
if strat(MAP[CHARy],CHARx-1)="＊" or strat(MAP[CHARy],CHARx-1)="＃" then CHARx=MCHx CHARy=MCHy
elseif strat(MAP[CHARy],CHARx-1)="Ｍ" then
if abs(rand)%10<7 then x=CHARx y=CHARy a="　" gosub "KAE" MN=MIDX[CHARx][CHARy] dispose(MIDX[CHARx][CHARy]) gosub "BONE"
endif
CHARx=MCHx CHARy=MCHy
else x=MCHx y=MCHy a="　" gosub "KAE" x=CHARx y=CHARy a="＠" gosub "KAE"
endif
gosub "HYOJI" CNT=CNT+1 if CNT%200=199 then TIME=TIME+1 LT=5-TIME%6 endif
#TEST_3#'モンスター行動
goto 0
#TEST_4#'サブ

'｢TEST_3｣
'モンスター行動
color(255,0,100) clear(3,138,5,5) frect(8,138,5,5)
MN=1
label MMOVE
if M[MN][2]<CHARx-LT or M[MN][2]>CHARx+LT or M[MN][3]<CHARy-LT or M[MN][3]>CHARy+LT then goto "MMOVE3" endif
label MMOVE1
Mx=M[MN][2] My=M[MN][3]
j=abs(rand)%5
if j=0 then My=My-1 elseif j=1 then My=My+1 elseif j=2 then Mx=Mx+1 elseif j=3 then Mx=Mx-1
else x=M[MN][2] y=M[MN][3] a="　" gosub "KAE" gosub "HYOJI" dispose(MIDX[M[MN][2]][M[MN][3]]) gosub "BONE" goto "MMOVE2"
endif
if strat(MAP[My],Mx-1)="　"
then
x=M[MN][2] y=M[MN][3] a="　" gosub "KAE" x=Mx y=My a="Ｍ" gosub "KAE"
dispose(MIDX[M[MN][2]][M[MN][3]])
MIDX[Mx][My]=MN
M[MN][2]=Mx M[MN][3]=My
else goto "MMOVE1"
endif
label MMOVE2
gosub "HYOJI"
label MMOVE3
if MN<10 then MN=MN+1 goto "MMOVE" endif

'｢TEST_4｣
'マップ書き換えサブ
label KAE
MAP[y] = substr(MAP[y],0,x-1)+ a + substr(MAP[y],x,strlen(MAP[y])-x) return
'マップ表示サブ
label HYOJI
yield() lock()
color(50*LT,50*LT,50*LT) frect(4,4,132,132) color(250-50*LT,250-50*LT,250-50*LT)
for i=-LT to LT
text(substr(MAP[CHARy+i],CHARx-1-LT,1+LT*2),65-12*LT,78+12*i)
next
unlock(1) return
'モンスター発生サブ
label BONE
for i=0 to 0
Mx=LTM+abs(rand)%10+1 My=LTM+abs(rand)%10+1
if strat(MAP[My],Mx-1)="　" then
x=Mx y=My a="Ｍ" gosub "KAE"
MIDX[Mx][My]=MN
M[MN][1]=NAME
M[MN][2]=Mx
M[MN][3]=My
M[MN][4]=10'HP
M[MN][5]=1'攻撃力
M[MN][6]=1'命中率
M[MN][7]=1'防御力
M[MN][8]=1'回避率
else i=i-1
endif next return

>>56
こんなの出来ますた。
結構重くなってしまったので、画面外のモンスターは移動処理を省くようにしたんですが、
まだちょっと重いかもしれない･･･
細かい所では自分のターンか敵のターンかが分かりやすいようにしてみたり、
KEY入力を連続押し対応に、
あと、表示とマップ書き換えをサブルーチン化してみました

>65
仕事ﾊﾔｽ。もしかして本職のPGさん？
ありがとう。たしかに10匹同時に動かすと遅くなるだろうけど実際はﾗﾝﾀﾞﾑな場所とﾀｲﾐﾝｸﾞで出現するから大丈夫だと思うけど。Ｍの動きは最終的には＠に向かって、CHARxとCHARyどちらが近いか判断して近い方に動く
CHARx=3
CHARy=2
Mx=5
My=1
''''M
''@''
'''''
なら
X軸差=2:Y軸差=1なのでMy-1。移動先が*ならMx-1｡また移動先が*なら今度はMy+1･･みたいに主人公をつけまわそうかなと。問題はMM''@のときMNが右から1,2だと
M'M'@
になっちゃうんだよね。本家はどう処理してるんだろう

俺は今んとこ簡単にrect text ですっげー簡単にTEST版作ってるとこだけど、見える部分は時刻とHPだけにしようかなと。武器は
ITME[1][1]=名前
ITME[1][2]=攻撃力
ITME[1][3]=命中
にしようかなと考えてる。
とにかくﾀﾞﾒｰｼﾞ判定を決めちゃえばほぼ一段落だね。826氏ありがとう。俺ほとんどなにもしてないやorz
ﾀﾞﾒｰｼﾞ判定先に決めちゃって一段落しちゃおうかな

攻撃側=ATK[1]'総合攻撃力
攻撃側=ATK[2]'総合命中率
守備側=DEF[1]'総合防御力
攻撃側=ATK[2]'総合回避率

'攻撃判定
R=abs(rand)%10+1
if (攻撃側総合命中率)-(守備側総合回避)>R then
(守備側HP)-(攻撃側総合攻撃力+R)-(守備側総合守備力)
text((攻撃側)+"は殴りかかった")
input()clear(M.WINDO)clear(STAT.WINDO)
text(HP)
if (守備側HP)<1 then
text((守備側)+"は死んだ")
if (守備側)=＠ then
text("GAME OVER")
input()end
else (Mx,My)=" "
endif

ICNT=1
ITME[ICNT][1]="ｼｮｰﾄｿｰﾄﾞ"
ITME[ICNT][2]=1'攻撃力
ITME[ICNT][3]=1'命中率
ITME[ICNT][4]=0'攻撃修正
ITME[ICNT][5]=0'命中修正

soft2("END")
label 0
R=150
lock()
color(0,0,0)frect(0,0,240,240)
color(0,0,0)rect(4,4,132,133)
color(R,R,R)frect(5,5,130,131)
color(250,250,250)text("TIME",150,20)text(" HP ",150,35)
A=scan
if A=keysoft2 then exit
elseif A=keypound then'#
color(250,250,250)
text("LV"+"/"+STR,4,160)
text("STR"+"/"+STR,4,175)
text("満腹",4,190)'腹具合が<80なら"満腹",<40なら普通,<20なら空腹,<0なら危険
elseif A=keyast then'ｱｽﾀﾘｽｸ
color(0,0,0)frect(0,0,240,240)
color(250,250,250)
for i=0 to ICNT
text(ICNT+"."+ITME[ICNT][1]+"("+ITME[ICNT][2]+","+ITME[ICNT][3]+")("+ITME[ICNT][4]+","+ITME[ICNT][5]+")",4,19)
next
endif
unlock(1)input()goto 0

攻撃判定は変更の可能性大だけど、全体的な雰囲気は２つ目みたいな感じかなぁ。
取りあえず明日

>>66(13氏)

ＭＭ□□＠　の処理の件
本家じゃないけど、シレンはたぶんそんな感じ。
少なくともアプリ版やSFC版では列を崩してナナメに動いたりしてた。

>70
そうだっけ？まぁ近い順から動くか気にしないか、どうにでもなるかな

13氏
>>67を参考にシステム作ってみた･･･
他の所も拡張に耐えうるように改良したらファイルが8つになってしまいますたorz
興味ある方いれば(まだまだ試作品ですが)UPしますけど･･･どうしよう

>72
是非
つーか826氏すごすぎ。本当は俺が組まなくちゃいけないんだろうけどorz
ｿｰｽ眺めて解析とｱﾙｺﾞﾘｽﾞﾑ考えてばっかで指より頭しか使ってないす。申し訳ないorz orz orz

'武器
ITME[I][0]=I_No
ITME[I][1]=NAME
ITME[I][2]=攻撃
ITME[I][3]=命中
'防具
ITME[I][0]=ITME_No
ITME[I][1]=NAME
ITME[I][2]=防御力
ITME[I][3]=回避
'道具
ITME[I][0]=ITME_No
ITME[I][1]=NAME
'I_No=0は武器
'I_No=1は防具
'I_No=2は道具
落ちているのは"＆"'箱に統一。箱を開けるとﾗﾝﾀﾞﾑにｱｲﾃﾑが手に入る

if CHARx,CHARy="＆"then R=rand%3
for i=0 to 5
CHAR_ITME[I_CNT][i]=ITME[R][i] next'ｱｲﾃﾑをCHAR_ITMEにいれる
if ITME[R][0]=0 or 1 then'武器or防具なら
for i=4 to 5
if rand%100>90 then
for i=4 to 5
CHAR_ITME[I_CNT][i]=ITME[R][i]
ITME[R][i]=rand%3
next
'ITME[1][4]=攻撃(防御)修正
'ITME[1][5]=命中(回避)修正
てやるとｱｲﾃﾑの書き方は
ITME[1][0]=0'武器
ITME[1][1]="ｼｮｰﾄｿｰﾄﾞ"
ITME[1][2]=1'攻撃力1
ITME[1][3]=1'防御力1
て書けて後々簡単かな

soft2("END")label 0 lock()color(0,0,0)frect(0,0,240,240)color(0,0,0)rect(4,4,132,133)color(250,250,250)frect(5,5,130,131)color(0,0,0)text("＆＠",60,60)
color(250,250,250)text("TIME",150,20)text(" HP ",150,35)A=scan if A=keysoft2 then exit elseif A=keypound then
color(250,250,250)text("LV"+"/"+STR,4,160)text("STR"+"/"+STR,4,175)text("満腹",4,190)elseif A=keyast then
color(0,0,0)frect(0,0,240,240)color(250,250,250)
for i=1 to ICNT
if CITME[i][0]=2 then text(i+"."+CITME[i][1],4,19+15*i)
else
text(i+"."+CITME[i][1]+"("+CITME[i][2]+","+CITME[i][3]+")("+CITME[i][4]+","+CITME[i][5]+")",4,19+15*i)
endif
next
elseif A=keyleft then #ITME# ICNT=ICNT+1 R=abs(rand)%6+1
for i=0 to 5
CITME[ICNT][i]=ITME[R][i] next'ｱｲﾃﾑをCHAR_ITMEにいれる
if ITME[R][0]=2 then text(ITME[R][1]+"を拾った",4,175)
else
text(ITME[R][1]+"("+ITME[R][2]+","+ITME[R][3]+")("+ITME[R][4]+","+ITME[R][5]+")を拾った",4,175)endif endif unlock(1)input()goto 0

'ITME
ITME[1][0]=0
ITME[1][1]="ﾅｲﾌ"
ITME[1][2]=1
ITME[1][3]=0

ITME[2][0]=0
ITME[2][1]="ｼｮｰﾄｿｰﾄﾞ" ITME[2][2]=2
ITME[2][3]=1

ITME[3][0]=0
ITME[3][1]="ﾛﾝｸﾞｿｰﾄﾞ" ITME[3][2]=4
ITME[3][3]=3

ITME[4][0]=1
ITME[4][1]="ﾌﾟﾚｰﾄｱｰﾏｰ"ITME[4][2]=3
ITME[4][3]=4

ITME[5][0]=1
ITME[5][1]="ﾌﾙﾌﾟﾚｰﾄｱｰﾏｰ"
ITME[5][2]=5
ITME[5][3]=8

ITME[6][0]=2
ITME[6][1]="食料"
ITME[6][2]=80

すげｷﾀﾈorz
GETI=ITME[][]+[][]+･･･て配列で入れればGETI+"を拾った"てできるんだよね？

お二人ともお疲れ様デス
エンジン部分はよくわかんないけど
アイテム部分って、自分で自由にアイテム作れるって事かな？
そういうコンストラクティブな所ってめちゃ好きなんで興味津々

なんか最近、静観組が多そうですがちょいと質問を。
例えばITME[I][0]=とかの、インデックスを２つ付ける奴ですが
これって具体的にどういった使い方が有効なのか、
どのようなプログラムを書かないといけないのか講義お願いします。

ｱｲﾃﾑとﾓﾝｽﾀｰは自由にいじれるというよりはいじりやすいように作った方がﾊﾞﾗﾝｽとるときも楽だしね。FF好きなら自分でｴｸｽｶﾘﾊﾞｰつくっちゃおーなんてもできるし

配列[i][j]は例えば今回のｱｲﾃﾑを例えると
ITME[1][0]=0'種類
ITME[1][1]="ﾅｲﾌ"'名前
ITME[1][2]=1'能力1
ITME[1][3]=0'能力2

ITME[4][0]=1
ITME[4][1]="ﾌﾟﾚｰﾄｱｰﾏｰ"ITME[4][2]=3
ITME[4][3]=4

て先に入れちゃうと
j=1
for i=0 to 3
text(ITME[j][i],X,Y+i*15)
next
この5行で
0
ﾅｲﾌ
1
0
てとりだせるの。j=4にすればﾌﾟﾚｰﾄｱｰﾏｰになるんだけど、配列の使い方は826氏すごいうまいよ。
ようは
ITME[i]の中の[j]番目のﾃﾞｰﾀってことでよいのかな。
しかしあれだけﾛｰｸﾞﾗｲｸみんなで作ろうって言ってた人は何処へ

おお、ありがとん
てっきりインデックスは一個しか設定できないモンだと思ってたから勉強になったよ
２重のforを使う時とかに使えるのか…
インデックスは変数宣言いらないから尚更使えますな

追加質問。何度もすまん。
例えば「j=1i=0to 3」で、アイテムjの項目(i)が0から2までしかなかった場合、
ITME[1][3]が読み出せずにエラーになるのかな？

ITMEorz
そいえばなんで[i][j]て使い出したんだろ。

>80
0がでるんじゃないかな。無記入は初期値0だから
ITEM[i][0]に種類(0,1,2)をいれて
ITEM[i][0]=0 or 1は武器防具だからto 5
ITEM[i][0]=2は道具だから名前だけでよいのでto 1
にしたよ
でも" "を入れると問題ないかもと思ったけど(,)(,)があるからやっぱりダメかな
とりあえずやってみてわからないときは826センセに聞くのが一番鴨

ドットヘルパ作った奴です。
二人(三人？)ともすごいですねぇ。俺も参加したいのは山々なんですが、携帯の電源が突如落ちるバグと、仕様不明なためソース解読やっとりません…。つーか解読無理（笑）
全体像とシステム間の仕様や使用変数(関数)リストなどを作ってもらえれば、参加出来る人が増えるんじゃないでしょうか？
俺は携帯しかないんでちょっと参加はキツそう。ってことで、静かに見守っております。頑張れー

俺も携帯しかないよ。電源落ちるのはちと怖いけど、参加者が多ければ多い程ｳﾚｼﾀﾉｼ。だから727氏0.0.2氏ももしよければ
俺もほとんど理解出来てﾅｲからゆっくり読み解きながらｺﾒﾝﾄと関数ﾘｽﾄと関数の変更してみようかな

何であの時Phase3にしなかったのか、今でも悔やまれてしょうがないです…。せめてQVGAにしとくんだったよ。では皆さん頑張って

ここ良スレだな。みんなすごい技量持ってるし。ｶﾞﾝｶﾞﾚ。超ｶﾞﾝｶﾞﾚ
俺も参加したいけどﾛｰｸﾞ自体をやったことない(´･ω･`)出来ることは手伝います。

826ｾﾝｾ視界の部分聞きたいんだけど
'｢TEST_4｣
'ﾏｯﾌﾟ書き換えｻﾌﾞ
label KAE
MAP[y] = substr(MAP[y],0,x-1)+ a + substr(MAP[y],x,strlen(MAP[y])-x) return
'ﾏｯﾌﾟ表示ｻﾌﾞ
label HYOJI
yield() lock()color(50*LT,50*LT,50*LT) frect(4,4,132,132) color(250-50*LT,250-50*LT,250-50*LT)
for i=-LT to LT
text(substr(MAP[CHARy+i],CHARx-1-LT,1+LT*2),65-12*LT,78+12*i)nextunlock(1) return

MAP[Y]に-X軸の見える範囲(LT)+自分の位置+X軸の見える範囲(LT)のそれぞれの文字列を入れて表示、でよいんだよね？
MAP[1]="＊□"+"□"+"＊□"
MAP[2]="＊□"+"＊"+"□＊"
MAP[3]="□□"+"□"+"＊□"
･
･
･
こんなかんじで

>14氏
ｼﾚﾝ、ﾄﾙﾈｺ、RogueLike,miRogue。前者ふたつは家庭用、後者ふたつは携帯で無料で落とせるよ
で忘れてたけど826ｾﾝｾのおかげでうpと同時にβ版完成とします。

ここからはちと仕様を決めていきたいなと。

>>87
ありがとうです。探してみる…
って、あれ？チョコボの不思議(ryも似たようなもの？それならやったことある

↑チョコボよりシレンに近いですね。

'｢TEST_本体｣
color(70,70,70) frect(0,0,width,height)
origin(width/2-66,height/2-72)
color(255,255,255) text("ＬＯＤＩＮＧ",31,70)
LT=4 CNT=0 MW=30 MH=30 CMAX=10 '設定
#タイプデータ#
#マップ作成#
'キャラ作成
for BCN=1 to CMAX
gosub "BONE"
next
gosub "HPGAUGE" 'HPゲージ
gosub "HYOJI" 'マップ表示
soft2("END")
'メイン
label MAIN
CN=1
label MAIN1
goto Calgorithm[CN]
label TURNEND
if CN<CMAX then CN=CN+1 goto "MAIN1" endif
CNT=CNT+1
if CNT%50=49 then TIME=TIME+1 LT=5-TIME%6 gosub "HYOJI" endif
goto "MAIN"
#主人公#
#アルゴリズムZAKO#
#バトル処理#
#サブ#
#キャラ作成サブ#

'｢タイプデータ｣
'種類番号1
TDname[1]="主人公" '名前
TDsymbol[1]="＠" 'シンボル
TDalgorithm[1]="SYUJINKOU" 'アルゴリズム
TDhp[1]=100 '体力
TDatk[1]=50 '攻撃力
TDdef[1]=0 '防御力
TDhit[1]=10 '命中
TDavo[1]=4 '回避
'種類番号2
TDname[2]="モンスター"
TDsymbol[2]="Ｍ"
TDalgorithm[2]="ZAKO"
TDhp[2]=53 TDatk[2]=10 TDdef[2]=0 TDhit[2]=8 TDavo[2]=0
'種類番号3
TDname[3]="デーモン"
TDsymbol[3]="魔"
TDalgorithm[3]="ZAKO"
TDhp[3]=100 TDatk[3]=40 TDdef[3]=20 TDhit[3]=12 TDavo[3]=3
'種類番号4
TDname[4]="ぬるぽ"
TDsymbol[4]="ぬ"
TDalgorithm[4]="ZAKO"
TDhp[4]=50 TDatk[4]=2 TDdef[4]=10 TDhit[4]=10 TDavo[4]=2
'タイプデータ合計
TDTOTAL=4

'｢マップ作成｣
'基礎部分
MAP[1]=""
for i=1 to MW
MAP[1]=MAP[1]+"＃"
next
MAP[MH]=MAP[1]
'
for i=2 to MH-1
MAP[i]="＃"
for j=2 to MW-1
R=abs(rand)%100
if R<=80
then MAP[i]=MAP[i]+"　"
else MAP[i]=MAP[i]+"＊"
endif
next
MAP[i]=MAP[i]+"＃"
next
'ショップ等書き込み
MAPS[1]="＜"'洞窟
MAPS[2]="Ψ"'道具屋
MAPS[3]="Ж"'宿屋
for i=1 to 3
RX=abs(rand)%(MW-2)+2 RY=abs(rand)%(MH-2)+2
x=RX y=RY a=MAPS[i] gosub "KAE"
next

'｢主人公｣
label SYUJINKOU
Tx=Cx[CN] Ty=Cy[CN]
'キー入力処理
label key
k=scan
if k and keyleft then Tx=Tx-1
elseif k and keyright then Tx=Tx+1
elseif k and keyup then Ty=Ty-1
elseif k and keydown then Ty=Ty+1
elseif k and keyselect then goto "TURNEND"
elseif k and keysoft2 then end
else goto "key"
endif
'移動先チェック
p=strat(MAP[Ty],Tx-1)
if p="　" then gosub "IDOU" goto "TURNEND"
elseif p="＊" or p="＃" then goto "TURNEND"
elseif p="＜" then goto "TURNEND"
elseif p="Ψ" then goto "TURNEND"
elseif p="Ж" then goto "TURNEND"
endif
goto "BATTLE"

'｢アルゴリズムZAKO｣
label ZAKO
Cx=Cx[CN] Cy=Cy[CN]
ECx=Cx[1] ECy=Cy[1]
if abs(Cx-ECx)>3 or abs(Cy-ECy)>3 then goto "TURNEND" endif
if Cx<ECx then Tx=Cx+1
elseif Cx>ECx then Tx=Cx-1
else goto "ZAKO1"
endif
Ty=Cy
p=strat(MAP[Ty],Tx-1)
if p="　" then gosub "IDOU" goto "TURNEND"
elseif p="＠" then goto "BATTLE"
endif
label ZAKO1
Tx=Cx
if Cy<ECy then Ty=Cy+1
elseif Cy>ECy then Ty=Cy-1
else goto "TURNEND"
endif
p=strat(MAP[Ty],Tx-1)
if p="　" then gosub "IDOU"
elseif p="＠" then goto "BATTLE"
endif
goto "TURNEND"

'｢バトル処理｣
label BATTLE
ECN=CIDX[Tx][Ty]
r=abs(rand)%10
if r<Chit[CN]-Cavo[ECN]
then
Chp[ECN]=max( 0, Chp[ECN]-max(0,r+Catk[CN]-Cdef[ECN]) )
color(255,0,0) gosub "Beffect"
if Chp[ECN]=0 then goto "LOST" endif
else
color(150,170,255) gosub "Beffect"
endif goto "TURNEND"
'被攻撃キャラロスト
label LOST
dispose(CIDX[Cx[ECN]][Cy[ECN]])
x=Cx[ECN] y=Cy[ECN] a="　" gosub "KAE"
gosub "HYOJI"
BCN=ECN gosub "BONE"
gosub "HYOJI"
if ECN=1 then gosub "HPGAUGE" endif
goto "TURNEND"
'戦闘エフェクト
label Beffect
if abs(Tx-Cx[1])<6 and abs(Ty-Cy[1])<6
then
text("ノ",60+12*(Tx-Cx[1]),74+12*(Ty-Cy[1]))
if ECN=1 then gosub "HPGAUGE" endif
sleep(50) gosub "HYOJI"
endif
return

'｢バトル処理｣
label BATTLE
ECN=CIDX[Tx][Ty]
r=abs(rand)%10
if r<Chit[CN]-Cavo[ECN]
then
Chp[ECN]=max( 0, Chp[ECN]-max(0,r+Catk[CN]-Cdef[ECN]) )
color(255,0,0) gosub "Beffect"
if Chp[ECN]=0 then goto "LOST" endif
else
color(150,170,255) gosub "Beffect"
endif goto "TURNEND"
'被攻撃キャラロスト
label LOST
dispose(CIDX[Cx[ECN]][Cy[ECN]])
x=Cx[ECN] y=Cy[ECN] a="　" gosub "KAE"
gosub "HYOJI"
BCN=ECN gosub "BONE"
gosub "HYOJI"
if ECN=1 then gosub "HPGAUGE" endif
goto "TURNEND"
'戦闘エフェクト
label Beffect
if abs(Tx-Cx[1])<6 and abs(Ty-Cy[1])<6
then
text("ノ",60+12*(Tx-Cx[1]),74+12*(Ty-Cy[1]))
if ECN=1 then gosub "HPGAUGE" endif
sleep(50) gosub "HYOJI"
endif
return

'｢サブ｣
'キャラ移動サブ
label IDOU
dispose(CIDX[Cx[CN]][Cy[CN]])
CIDX[Tx][Ty]=CN
x=Cx[CN] y=Cy[CN] a="　" gosub "KAE"
x=Tx y=Ty a=Csymbol[CN] gosub "KAE"
Cx[CN]=Tx Cy[CN]=Ty
gosub "HYOJI" return
'マップ書き換えサブ
label KAE
MAP[y] = substr(MAP[y],0,x-1)+ a + substr(MAP[y],x,strlen(MAP[y])-x) return
'マップ表示サブ
label HYOJI
yield() lock()
color(50*LT,50*LT,50*LT) frect(0,0,132,132) color(250-50*LT,250-50*LT,250-50*LT)
l=min(Cx[1]-1,LT)
r=min(MW-Cx[1],LT)
t=min(Cy[1]-1,LT)
b=min(MH-Cy[1],LT)
for i=-t to b
text(substr(MAP[Cy[1]+i],Cx[1]-1-l,1+l+r),60-12*l,74+12*i)
next
unlock(0) return
'HPゲージ表示サブ
label HPGAUGE
yield() lock()
color(0,0,0) frect(2,138,129,4)
color(255,0,0) frect(2,138,Chp[1],4)
unlock(0) return

'｢キャラ作成サブ｣
label BONE
if BCN=1 then TN=1 else TN=abs(rand)%(TDTOTAL-1)+2 endif
Cname[BCN]=TDname[TN]
Csymbol[BCN]=TDsymbol[TN]
Calgorithm[BCN]=TDalgorithm[TN]
Chp[BCN]=TDhp[TN]
Catk[BCN]=TDatk[TN]
Cdef[BCN]=TDdef[TN]
Chit[BCN]=TDhit[TN]
Cavo[BCN]=TDavo[TN]
fg=0
while fg=0
Cx[BCN]=abs(rand)%(MW-2)+2
Cy[BCN]=abs(rand)%(MH-2)+2
fg=(strat(MAP[Cy[BCN]],Cx[BCN]-1)="　")
wend
x=Cx[BCN] y=Cy[BCN] a=Csymbol[BCN] gosub "KAE"
CIDX[Cx[BCN]][Cy[BCN]]=BCN
return

orz間違えて｢バトル処理｣を2つ上げてしまった､どちらか一つで良いです

取り敢えずキャラデータを複数使えるようにしてみたり｡
個人的にはNOVA氏にも参加してもらいたいので少し表示をいじってみた

まだアイテム機能とか無いわけですが･･･
バトル処理ルーチンで装備アイテムの分補正を掛けるか､
それとも装備変更メニューでCatkやCdefの値を直接変化させるか･･･｡
パラメーターは見やすさを考慮して今のような変数名にしてみたけど､
コピー時の効率とか考えると13氏の案の通り2次元配列にした方が良いような
あと､キャラクター関連のデータ管理はやや解りづらいかもしれない
実は昨日の時点ではもっと難解だったけど･･･(余りにも意味不明だったので変更
一度プロが書いたソースを見てみたいなぁ
プログラム書いてる内に色々迷うところが有ったので､
やはりもう少し仕様を煮詰めてからの方が良さげですね

>>86
まあ大体それで合ってるような微妙に違うような(汗

何故かいつの間にセンセになってるし
(((ﾟДﾟ;)))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ

もう>>826はセンセで決定ですなｗ
お疲れ様ですセンセ、研究させていただきます

俺もアイデアくらいなら出せると思うので応援させて頂きます
ドッヘルの中の人も、NOBAサンもみんなで参加しようYO(ﾟ∀ﾟ)

ところで保管庫に動きがないのが不安(´･ω･`)

>826ｾﾝｾ乙

今の視界
＊□□＊□
□□□□＊
＊＊＠□□
□□＊□＊
＊□□□□

これを
＊□□＊■
□□□□＊
■＊＠□□
□□＊□＊
＊□■□■
障害物での死角を勉強がてらやってみようとおもったんだけど
for j=1 to LT*2+1
for i=-LT to LT
[CHARx+i][j]を調べる。"＊"ならCHARx+iの先は"■"
[j][CHARy+i]を調べる。"＊"ならCHARy+iの先は"■"
next
next

ところがｲﾏｲﾁマップ書き換えのあたりわからないんでの解説を

>>101
マップの書き換え自体は
x､yにマップの書き換えたい箇所の座標
aに変更後の文字(全角1文字)を入れてから
gosub "KAE" で出来るようになってます

具体的にKAEルーチンで行っている
MAP[y] = substr(MAP[y],0,x-1)+ a + substr(MAP[y],x,strlen(MAP[y])-x) returnは､2次元配列に直すと
MAP[x][y] = a
というただそれだけの事なんですが
表示高速化のためマップを1文字ずつ格納するのではなく一行分まとめて格納してるのでこうなってます

もしマップのある行(ここでは仮に7)が
"＃・・Ａ・＊＃"
の時に、ＡをＢに変えたい場合は
MAP[7] = "＃・・" + "Ｂ" + "・＊＃"
このようにします｡
つまり
MAP[7] = (MAP[7]のＡの左側) + "Ｂ" + (MAP[7]のＡの右側) ということです
これをＡの座標(x/4,y/7)を元に処理する場合
(MAP[7]のＡの左側) は
substr(MAP[7],0,4-1) で､
(MAP[7]のＡの右側) は
substr(MAP[7],4,strlen(MAP[7])-4) で得ることが出来ます
ここでの最大の注意点は
マップ座標は1から
substrでの箇所指定は0から
それぞれ始まっている点です｡

>>54気分転換も兼ねてこんなの作ってみたけど参考になるかな･･･
'｢名前入力システム｣
ABC=" ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.･-=/"
for x=0 to 9 y[x]=0 next
x=0
label hyoji
yield() lock() clear(0,0,width,height)
for i=0 to x
text(strat(ABC,y[i]),10+i*6,60) '文字表示
next
frect(10+x*6,59,6,1) 'カーソル表示
unlock(0) sleep(100)
label key
k=scan
if k=keyright then x=min(9,x+1)
elseif k=keyleft then y[x]=0 x=max(0,x-1)
elseif k=keyup then y[x]=(y[x]-1+42)%42
elseif k=keydown then y[x]=(y[x]+1)%42
elseif k=keyselect then goto "kettei"
else goto "key"
endif
goto "hyoji"
label kettei
name="数字が入力された時の不具合対策"
for i=0 to x
name=name+strat(ABC,y[i]) 'ネーム作成
next
name=substr(name,15,x+1) '"〜不具合対策"をネームから取り除く
text("Your neme is",5,80) text("｢"+name+"｣",15,96)
clearinput() input()
exit
'使い方(キー左右でカーソル移動､上下で文字選択､セレクトで決定)

>102
なんとなくは、･･
ところでﾌﾟﾛｸﾞﾗﾑが全く動かないんだけどまさか限界？なわけないよねf^^;
前に誰かｸﾗｼｯｸでｺﾋﾟってるって人いたよね？あれって
ttp://c-au.2ch.net/
これじゃないよね？

>>104もしかしてiMona使ってますか?
iMona使って全文コピー出来てるなら
もしかするとリマーク（'）のせいかも(違うかも
iMonaの少なくともEZ版だとコピー時に改行コードが反映されないので
例えば

'表示
TEXT("XYZ",10,20)

こうゆうプログラムだと

'表示 TEXT("XYZ",10,20)

こうなって無効になってしまうので｡
もしこれが原因だったら
今度は
'表示'
こうゆう風にちゃんと閉じときますんで

あとそれもクラシックには違いないですが､レスコピーが出来るのはそれのミラー版の方です
↓ミラーサイトにはこのページから行ける
http://c.2ch.net/!.h

↓因にオレはこんな感じに設定して使ってます
http://i.i2ch.net/x/-8G1.lI!mail=sage/i
クラシックだと改行コードが反映されるんで写すときはおもにiMonaよりこっちを使用
（携帯ベーシックをアプリ中断状態でキープできるし

>105
すげー便利。ありがと。今までimonaつかってたけど感動しちゃうね。
そしてGJ。すげーGJ


で、これから決めることと
【目的】
【ﾀﾞﾝｼﾞｮﾝのｱﾙｺﾞﾘｽﾞﾑ】
【世界観】
【ﾓﾝｽﾀｰ発生】
【ｱｲﾃﾑの条件】
【攻撃判定】

あとなにかあるかな

ステータス全般とかはどうかな？

例えばキャラには
●HP(生命力)
●力(攻撃力)
●ガッツ(クリティカル率)
●素早さ(回避率)
●腹(空腹具合)

武器には
●攻撃力
●命中率
●特殊オプション(防御無視等)

命中率をキャラ依存ステにしてもいいし。なるべく既存のとは違うモノを作れればいいなと思ってるんだけど…。


なんか関係ないこと言ってたらスマン

>>100(0.02氏)
遅ればせながらライトアウツやってみました
画が綺麗なのが良いですね(ちょっと感動
質問なんですが投稿するときにどこかのスペース抜いたりしましたか?
（なんか最初エラーが出て動かなかったので、スペースを一つずつ入れ直したら動きました

>>106(13氏)
ミラー版クラシックは時々重いことがあるんで、その時は｢テストサーバ｣の方使ってくださいね
（詳しくは携帯･PHS板にスレが有ったと思うのでそちらを
オレは今日初めて｢分割コピー｣という機能が有る事に気づいたり･･･(遅
機種に関わらず500バイトで分割されるみたい

決めたい事と言えばマップの切り替わり方かなあ
エリア移動するたびに作り直すのか否か｡
現れるモンスターの種類もエリアに応じて変わる方が良いよね
あとはセーブ機能対応にするのかとか（セーブ機能使った事ないけど･･･

>>107(727氏)
>なるべく既存の物とは違う物に
オレも同感です
単純にコピー物を作っても(作れたとして)、元の物より面白くはならない訳だし
作るならなるべくオリジナリティーのある物にしたいですね

【項目】も決めないといけないね

【ﾓﾝｽﾀｰ発生率】
ﾓﾝｽﾀｰ[M_LV][][]とﾓﾝｽﾀｰにレベルをいれて
ﾓﾝｽﾀｰBORN
M_LV=abs(rand)%3+深さ
にするか
完全randにしちゃうか…
前者はﾊﾞﾗﾝｽとれば面白いけど後者のﾊﾗﾊﾗって手めあるんだよね。楽だし
【ﾀﾞﾝｼﾞｮﾝ】
ﾀﾞﾝｼﾞｮﾝは落石したﾀﾞﾝｼﾞｮﾝ
ﾗﾝﾀﾞﾑﾏｯﾌﾟ"*" or " " or ";"
";"は掘れる
randに部屋を作る

かrogueぽく部屋と通路にするか

>108
MAP[階層][X][Y]
にして
階層が0なら店と降り階段のみ、他は上がり下り階段を表示
下りなら階層+1云々だといけそうだよね。ｾｰﾌﾞに関してはｾｰﾌﾞﾎﾟｲﾝﾄを地上に設定してｽﾃ、ｱｲﾃﾑを記録ていう手もあるよ

流れだけ
｢固定型マップ作成｣
for KAI=0 to 10
MAP[KAI][1]=""

略

'ショップ等書き込み
if KAI=0 then
j=3
MAPS[0][1]="＜"'洞窟
MAPS[0][2]="Ψ"'道具屋
MAPS[0][3]="Ж"'宿屋
else
j=1
MAPS[0][1]="＞"'上り
endif
for i=1 to j
RX=abs(rand)%(MW-2)+2 RY=abs(rand)%(MH-2)+2
x=RX y=RY a=MAPS[KAI][i] gosub "KAE"
next
next

1.初めにﾏｯﾌﾟを全部作る(固定型)
2.階段の上り下りでﾏｯﾌﾟをつくる(ﾗﾝﾀﾞﾑ型)
3.降りたらﾏｯﾌﾟを作る。帰り道は記憶(帰路固定型)
4.洞窟に入ったらﾏｯﾌﾟを作る(ﾗﾝﾀﾞﾑ固定型)

みんなどれをやってみたい？ほかにもなにかあるかな

>>108(センセ)
すいません、たぶん5行目の「for y=」を
「fory=」としている所かな…凡ミスでした、すみませんorz
プレイありがとございます〜

>>111(13氏)
1の案にするなら、イベントとか入れたいなぁ…
そうなるとローグじゃなくなるけど、簡単に鍵と扉みたいな。
ちょっとした謎解きもできそう。
でもランダムの方が何かと簡単だし、2に一票かなぁ…
何も出来ないくせに提案するだけですがorz

お金みたいに何かを拾い集めるのっていいかも
クリスタルとか、厨房な設定でもいいし
レベルアップではなく、クリスタル一個毎に能力が少しずつ上がるとか
これの利点はモンスターにEXPを設定しなくて良い、
主人公パラメータにEXP管理がいらないということ
ダメな所はモンスター戦闘がダルくなる、
人によって成長度合いに差が出てしまうこと
モンスターを倒す度に最大HP+1とかならいいかもですが…

モンスター発生に関しては後者の案がなかなか(･∀･)ｲｲ!
強すぎる敵から逃げるという要素も生まれるし面白いかも。
でも強すぎるモンスターばっかり出現すると、
全くゲームにならない可能性があるので
ある程度は出現確率を操作できるプログラムがいいですね
レアモンスターなんかも設定できそう…
またしても提案だけですが_no orz

いっそLVの概念を捨てて能力はお金で上げる。SAVEは能力とｱｲﾃﾑを全てお金に換算した値(またはお金のみ)。LOADは金を引き継ぎにすればSAVEはすごい楽。
利点
ﾌﾟﾚｲ毎に能力を変えられる
保存が楽
欠点
ｱｲﾃﾑがなくなる。

でもITEMひとつひとつ保存させるのは大変だしなぁ

ﾓﾝｽﾀｰのバラまきは例えばﾓﾝｽﾀｰ毎にLVを1〜5まで決めて
R=abs(rand)%100
R<50ならLV1M
R<70なら
･
･
みたいにしてけばよさげ。もしくは(rand)%100+FUKASA*10にして奥に行くほど強くなるとか

流れと関係ない上に今更ですが、T=15and 240こういうこともできたんですね。まぁ、だからなにってこともないんですが…

こんなのどう？ﾛｰｸﾞにも使えると思う。
MS[i]にｾｰﾌﾞ内容代入、MNにMS[i]の要素数を代入、ｻﾌﾞﾙｰﾁﾝMS呼出でｾｰﾌﾞ。
するとｻﾌﾞﾙｰﾁﾝML呼出でML[i]にｾｰﾌﾞ内容が読み出される
これで分かると思う
｢実験用｣
MS[0]="00000" MS[1]="11111" MS[2]="22222" MS[3]="33333" MN=4
gosub "MS"
gosub "ML"
for i=0 to bn text(ML[i],0,12*i) next
input() exit #MultiSAVE#
｢MultiSAVE｣
label MS
mf=MS[0]
for i=1 to MN mf=mf+","+MS[i] next
save(mf)
return()

label ML
ls=load() tn=strlen(ls) bn=0 bfi=-1
for i=0 to tn-1
if strat(ls,i)="," then bn=bn+1 ML[bn]=substr(ls,bfi+1,bfn-bfi-1) bfi=bfn endif
bfn=bfn+1 next return()

名乗り忘れっorz
MS[i]のiは0からスタート、マイナスは非対応。
拡張しやすく作ったから要望が多ければマイナスと二次元配列変数の保存もつくるよ〜

>>NOBA氏
できればorとの違いを教えて頂きたく

>>14氏
え！セーブって
インデックス使えば何個も覚えさせる事が出来たんですか
こりゃやばい事になったぞ(;･∀･)スゴク…イイデス…

>>117氏
いや、いままで一個しか保存出来なかったから(見た目)複数個保存出来るようにした。
しかしsave()でどれくらい保存できるんだろう…？

二次元配列簡単に出来るとか言っちゃったけどやっぱり嘘だったことが判明(´･ω･`)
けどほしい人がいるならｶﾞﾝｶﾞﾙ(`･ω･´)ｼｬｷｰﾝ

100と240は16進で言うと64とF0で2進にすると01100100と11110000ですよね。でそれぞれの演算結果を2進でサラッと言うと
100and 240
01100000
100or 240
11110100
100xor 240
10010100
こんな感じです。ちなみに携帯BASICでの返り値は非ゼロなら1が返るのでどれも1になります。

ｹﾞ製作技術板｢ﾀﾞﾝｼﾞｮﾝ自動生成｣スレに書いてある中で一番簡単そうな
http://pc8.2ch.net/test/read.cgi/gamedev/1027084016/42
のアルゴリズムでダンジョン自動作成プログラム作ってみたけど･･･あんまり面白くないやorz
他のアルゴリズムも見てみたけど良く解らないし･･･見てる内に眠くなってzzz

>90-99のプログラムと同じフォルダに入れてから､｢TEST_本体｣の#マップ作成#の部分を#マップ作成2#に変えて使ってください
'｢マップ作成2｣'
'通路幅'
TW=2
'前処理'
MW=(MW-1)/(TW+1)*(TW+1)+1
MH=(MH-1)/(TW+1)*(TW+1)+1
'基礎部分'
MAP[1]="" for i=1 to MW MAP[1]=MAP[1]+"＃" next MAP[MH]=MAP[1]
a="" for i=1 to MW-2 a=a+"　" next
for y=2 to MH-1 MAP[y]="＃"+a+"＃" next
'迷路壁作成'
for yy=TW+2 to MH-(TW+1) step TW+1
for xx=TW+2 to MW-(TW+1) step TW+1
r=abs(rand)%3
for yp=-(r=0)*TW to (r=2)*TW
for xp=-(r=3)*TW to (r=1)*TW
x=xx+xp y=yy+yp a="＃" gosub "KAE"
next
next
next
next

今気づいた､
>>120のアルゴリズムじゃ閉じたエリアが出来る可能性があるから､キャラや階段を完全にランダムに配置しちゃ駄目だったorz

あと一文字までだったら変数名やラベル名に漢字とひらがな使えたんだね

なんか乗り遅れた気がしないでもないが……

複数の変数を保存するルーチンって需要ある？

ぜひ欲しい
元の変数名で取り出せるとさらにありがたい

CPUパワー3〜5割で動いてるせい(別スレッドで動作)なのか、
はたまた最適化が足りなさすぎるのか、
実験してみると>>115氏謹製より全然速度でねぇ……
しかも各ルーチン500バイト越えてるし……
おまけにめちゃくちゃメモリ消費するし……
かなりだめぽいorz

ルーチン見なおすか……。

save()変数が複数取り出せるようになったらどんなもの作りたい？
俺はやっぱり、モンスター捕獲型RPGを…

ていうか前スレの最後と現行スレの最初にだけ書き込んでるまとめ管理人氏って
もしかして偽者だったのか…？
全然更新されてないような気がするんだが

>>123
元の変数名で取り出したかったら
>>115氏のルーチンを使って
セーブする時に
MS[0]=a
MS[1]=b
MS[2]=c
MN=3
gosub "MS"
ロードする時は
gosub "ML"
a=ML[0]
b=ML[1]
c=ML[2]
とすれば出来る


所でモグラ方式のダンジョン自動作成プログラム書いてみたけど今一上手くいかない訳で･･･
13氏は何かプラン有りますか?

>126
ごめん花見が続いてなんも手つけてなかたよ
うまくいかないって閉じたｴﾘｱができちゃうこと？
ちと考えてみる。

>>125
残念ながら本人です｡
最近忙しかったのでｻﾎﾞってました…休みを下さいorz
向こうにも書いたのですが､明日あたりには一気に更新出来るかと思います。

すいません。
ブレインFとベーシックの違いを教えてください。 お願いします。

>>まとめ管理人
そうか、正直すまんかった
更新に期待

>>129
BrainFuckは「<>[],.」とかの記号だけでプログラムするんじゃなかったかな
何がどう動くとか何が面白いのかは知らん
文字限定されてるのにゲームとか作れるんだろうか？

風邪でぶっ倒れてました。まだ頭痛い…
複数保存に結構需要がありそうなのでしばらくこのネタでやろうかと考えています。
現在のルーチンだと区切りに,を使うんで,は保存できないっす。
,を保存したいときはルーチンいじってください。","の部分を使わない記号にすれば桶です。

>>131
エスケープシーケンス使ってみたらどうかな？
カンマ使いたいときは\.とか(iMona書き込みなためカンマ書くと改行しちまう…)
まぁぶっちゃけルーチン書き換えた方が早いし少ない命令でいい罠。戯れ事だと思ってスルーしてくれ。

A[0]=frect(0,0,240,240)
こうしたらエラーになってしまうんですが。
どうすれば配列を使ってfrectを表示できるのでしょうか？

βακα..._〆(ﾟ▽ﾟ*)

>>133
配列も変数だ。つまり入れられるのは文字か数値。

A[0]=240
frect(0.0.A[0].A[0])

やりたいのはこういうことなのでは？
※iMona改行回避のため、カンマがピリオドになってます

♂ありがとうございます
m(__)m

はっ!?寝てしまった…orz

>>137
イ�`。そしてオ�`

あげ

過疎ってますね

■カラーチェッカー(QVGA・非QVGA両対応)
soft1("QUIT")R=0r=0g=0b=0w=width h=height p=5
text("←R+,↑G+,→B+,↓RESET",2,15)
label 0lock()color(r,g,b)frect(0,20,w,h)color(255,255,255)frect(w-48,25,46,95)
color(0,0,0)text("R="+r,w-42,40)text("G="+g,w-42,60)text("B="+b,w-42,80)text("増減幅=",w-46,105)text(p,w-30,119)
unlock(1)
if r+p<256and scan=keyleft then r=r+p
elseif g+p<256and scan=keyup then g=g+p
elseif b+p<256and scan=keyright then b=b+p
elseif scan=keydown or scan=key0 then r=0g=0b=0
elseif scan=keysoft1 then exit
elseif r+p<256and scan=key1 then r=r+p
elseif g+p<256and scan=key2 then g=g+p
elseif b+p<256and scan=key3 then b=b+p
elseif r-p>-1and scan=key4 then r=r-p
elseif g-p>-1and scan=key5 then g=g-p
elseif b-p>-1and scan=key6 then b=b-p
elseif scan=key7 then p=10
elseif scan=key8 then p=5
elseif scan=key9 then p=1
elseif scan=keyast then r=255g=255b=255
elseif scan=keypound then R=r r=g g=b b=R
elseif scan=keyselect then gosub 1r=i g=j b=k endif
goto 0
label 1
i=abs(rand)%256j=abs(rand)%256k=abs(rand)%256return

■座標＆四角描画チェッカー

label 8c=1XX=20YY=20soft1("QUIT")soft2("RESET")
label 5lock()clear(0,0,240,300)frect(XX,YY,8,8)
text("座標X"+XX,70,20)text("座標Y"+YY,140,20)
text("移動幅"+c,70,40)text("決定キーで次へ",70,70)unlock()
if YY-c>-1and scan=keyup then YY=YY-c
elseif scan=keydown then YY=YY+c
elseif XX-c>-1and scan=keyleft then XX=XX-c
elseif scan=keyright then XX=XX+c
elseif scan=keyselect then X=20Y=20goto 0
elseif scan=keysoft1 then exit
elseif scan=keysoft2 then goto8
elseif scan=keypound then c=c+1
elseif c>1and scan=keyast then c=c-1
elseif scan=key0 then c=1endif goto 5
label 0lock()clear(0,0,240,300)frect(XX+X,YY+Y,8,8)
line(XX,YY,XX+X,YY+Y)rect(XX,YY,X,Y)
x=XX+X/2y=YY+Y/2line(x-3,y,x+3,y)line(x,y-3,x,y+3)
text("終点X"+X,70,20)text("終点Y"+Y,140,20)
text("移動幅"+c,70,40)
text("rect("+XX+","+YY+","+X+","+Y+")",70,70)unlock(1)
if Y-c>-1and scan=keyup then Y=Y-c
elseif scan=keydown then Y=Y+c
elseif X-c>-1and scan=keyleft then X=X-c
elseif scan=keyright then X=X+c
elseif scan=keysoft1 then exit
elseif scan=keysoft2 then goto8
elseif scan=keyselect then c=1X=20Y=20
elseif scan=keypound then c=c+1
elseif c>1and scan=keyast then c=c-1
elseif scan=key0 then c=1endif goto 0

忘れてたorz
四角描画チェッカーはQVGA用です。
非QVGAにも対応できるかも知れないけどとりあえずご容赦を。

カラーチェッカーは←↑→、1〜6キーでRGB増減、
7〜9キーでRGB増減値変更、↓と0キーはリセット、
*が裏リセット、#でお遊びです。決定キーでランダム色生成。

四角チェッカーは座標モードは方向キーで座標移動。
決定キーを押すとrectモードへ。
rectモードで決定キーを押すと
座標そのままでrectモード継続のセミリセット。
ソフトキー2で最初から。
両モード共通で、*,#で移動幅を増減、0キーでデフォルトの1になる。

とりあえず活気付き希望age

ごめんちょっと四角チェッカー修正

前 : text("終点X"+X,70,20)text("終点Y"+Y,140,20)
　↓
後 : text("終点X"+(X+XX),70,20)text("終点Y"+(Y+YY),140,20)


しかしVer.うｐこないね
べーしっ君さんに見限られちゃったかな…orz

for i=0 to 3
for j=0 to 3
if(i=j)then next endif
L=L+1
text(i+"　"+j,0,strheight*L)
input()
next
text("あ",100,strheight*L)
next
text("い",200,strheight*L)


おいおまいら！おしえてください。
iとjが等しいときだけ飛ばしたいわけなんだけど
if文の中にnextを入れるなんてことはできないの？

それとnextの後の命令が実行されない気がするんですけど。
この例だと"あ""い"が表示されない。

iとjが等しい時、処理を飛ばしたければ、こうすればいいんじゃないかな？

for i=0 to 3
for j=0 to 3
if i<>j then L=L+1 text(i+"　"+j,0,strheight*L) input() endif
next
text("あ",100,strheight*L)
next
text("い",200,strheight*L)
input()

↑「iとjが等しくない時処理を行なう」ようにしてみた。
最後にinput()をいれたのは"い"が表示されるのを確認できるようにするため。

ifの中にnext入れるのがダメなのかは分からないけど、確かに変になるよね…3つめのnextが無効になってるのかな…？

ifの中にnextは、BASIC言語の言語仕様として禁止されてなかったっけ？

a<>b ってのはaとbの値(文字列)が異なる時っていう条件式なのか
ずっと<>の使い方分からなかったから参考になった

a<=0 → aは0以下
a<0　→ aは-1以下
a>=0 → aは0以上
a>0　→ aは1以上
a<>0 → aは1以上もしくは-1以下(aは0と等しくない)
a=0　→ aは0と等しい

a<=0 とするより a<1とした方が1バイト節約できるんだな(ﾟ∀ﾟ)

プログラムコンテストみたいなことやりませんか(´･ω･`)

いいよ、じゃあ最初のお題はエアホッケーね。

面白そうだね
バウンサーデモとか前スレのNOBA氏のブロック崩しを参考にしてみよ

じゃあ簡単なルールと採点基準を決めとく？
投稿時はコテ必須。
プログラムが短ければ短いほど、処理が速ければ速いほどいい。
独創性と普遍性をを合わせ持つおもしろさがある。

あとなんかある？

エラーが出たら減点対象。-30点くらい。
画像が綺麗な物は評価＋。主観意見になりそうだけど。
プログラム技術は感嘆の声の数x5点とか。

投稿締切と同時に投票開始、投票締切→結果発表、って感じかな
とりあえず4月30日を締切として
5月8日まで投票期間にしてみる？

日程、採点方法に同意っす。
おもしろそう〜漏れもできたら参加する。テストあるから出来るか分からないけど(´･ω･`)

投票方法提案

投票は、その作者の最終版プログラムに対して行う。
投票資格はコンテスト作品を全てプレイした者。
一番素晴らしいと思ったプログラムに+5点を入れる。
技術賞プログラムに+2点。(処理速度、プログラムテクニックを評価)
アイデア賞プログラムに+2点。(ゲームや表現のアイデアを評価)
画像賞プログラムに+2点。(画像の美しさやレイアウトを評価)
その他の作品に3点を振り分ける。
(例:Aに2点、Bに1点/Aに3点/A,B,Cに1点ずつ等)

作者は自分のプログラムに加点できない。
ただし、投票したら作者投票参加点として自分に+3点。
他人を評価しないと損します。

後は投票に左右されないポイント。
ソースを一番短く書けた人+5pt、次いで+2pt、+1pt。以後+0pt。
エラーが出た場合は投票で報告。それ以前の報告は禁止。
報告時点で-20pt。複数報告があってもそれ以上はマイナスされない。
最初にプログラムを提出した人+5pt、次いで+2pt、+1pt。以後+0pt。
投稿作品の修正一回につき-8pt。投稿締切以降は修正不可。

総合得点で優勝を決定。
技術、アイデア、画像、ソース(の短さ)各賞を投票結果から決定。


折角楽しそうな企画なので↑の投票集計が面倒なら俺がやります

いや2chだけでこれをやるのは無理だよ。CGI作る必要があるし
ここだけでやるならそれぞれの作品について議論したりして決める方法が妥当か。

soft1("EXIT")g=2ve=-3x=50y=55V=4PY=40PY2=40color(20,0,140)frect(5,7,100,76)
label 0soft2(PL1+"vs"+PL2)
lock()color(20,0,140)farc(x-2,y-2,5,5)color(255,255,255)frect(0,4,6,82)frect(105,2,6,90)color(0,0,200)farc(106,PY2,3,10)
color(200,0,0)farc(2,PY,3,10)A=scan
if PY<73and A=keydown then PY=PY+3if V<8then V=V+1endif elseif PY>8and A=keyup then PY=PY-3if V>0then V=V-1endif
elseif A=keysoft1 then exit endif j=y-5if j<PY2 then PY2=PY2-3elseif j>PY2 then PY2=PY2+3endif
x=x+g y=y+ve if y<13then ve=ve-ve*2y=13elseif y>76then ve=ve-ve*2y=76endif if x>101then gosub 3
elseif x<9then gosub 4elseif 52<x and x<58then gosub 5endif color(250,200,0)farc(x-2,y-2,5,5)unlock(1)goto 0
label 3p=PY2+1w=PY2+9
if y<p or y>w then PL1=PL1+1PL2=0onvib()sleep(99)endif
if PL1=3then win="YOU WIN !"goto 7endif offvib()g=-3x=101ve=rand%5
color(20,0,140)frect(55,11,5,70)B=abs(rand)%63+13color(255,255,255)frect(55,B-2,5,5)return
label 4
gc()p=PY w=PY+10if y<p or y>w then PL2=PL2+1PL1=0onvib()sleep(99)endif
if PL2=3then win="YOU LOSE..."goto 7endif offvib()g=3x=9ve=rand%5
color(20,0,140)frect(55,11,5,70)B=abs(rand)%63+13color(255,255,255)frect(55,B-2,5,5)return
label 5if B-6<y and y<B+6then g=g*2ve=(rand)%3*3endif return
label 7
setfont("S")color(250,230,0)text(win,12,65)unlock(1)onvib()sleep(999)offvib()clearinput()input()

作ってみました。

「エアホッケーブラスト」
かなり効率の悪いプログラムです。制作時間約5時間。
処理速度の遅さを感じさせないゲームスピードとバランスの調整、
あと上端下端の壁をツィ〜〜とボールが伝う謎のバグ修正に
ちょっと時間がかかりました…いや単純な事だったんですがorz

ゲームスピード調整はうまく出来たつもりです。
上端下端での角度変化のve(角度の変数)=ve-ve*2というのはセルフ目から鱗でした


■操作方法
方向キー上下で自分のパック(左の赤い奴:シャ○専用です)を移動。ボールを打ち返していきます。
ボールを受け切れないと相手に得点が加算され、そのまま跳ね返って行きます。
(跳ね返り時、パックで受けても点を入れても(入れられても)角度はランダムになります…)
・連続で3pt取らないと勝てません。1ptでも取られると自分の得点が0になります。
・真ん中の白いアイテム?に当たると、速度が2倍になり、角度が変化して飛んで行きます。
ここがブラスト。

…それにしてもボールの動きが不自然過ぎるなぁ



>>155
無理かorz
じゃあ普通に品評会方式でいいかもね。

他の先生方の作品に期待しております

角度はve=-veてやれば一発だよ。俺も今作ってるけどなんかエアホッケーじゃなくなってきたよ…

>>158(NOBA氏)
うわぁああ…マジですかorz
感動しました、ありがとう

エアホッケーじゃない？どんなんだろ…なんか面白そう
NOBAさんの作品期待age(ﾟ∀ﾟ)

うまくできなかったけど…
label 1color(0,0,0)M=0X=99Y=36XV=0YV=0C=0P=0BX=-9frect(0,0,132,144)label 0lock()A=input(0)color(0,0,0)frect(X,Y,3,3)if BX<63then if A and keyup then R=0gosub 5elseif A and keyleft then R=1gosub 5endif
endif
if A and key1 then end endif
PX=X
PY=Y
if X>66then XV=XV-1else if BX>62and XV>-14and YV>20then R=(XV<-9)*2gosub 5endif
XV=XV+1endif
X=X+XV/8Y=Y+YV/8if X>132or X<0then XV=-XV endif
if Y>72then if X>64and PX<66then p=p+1M=1endif
if X<66and PX>65then c=c+1M=1endif
YV=YV-1else P=0YV=YV+3endif
if Y>142or Y<0then if X>66then c=c+1else p=p+1endif
M=1endif
color(255,255,255)frect(X,Y,3,3)line(0,72,132,72)line(66,0,66,72)frect(65,72,3,72)unlock(1)if M then text("PUSH ANY KEY",0,20)text(c+"-"+p,0,40)clearinput()input()goto 1endif
yield()goto 0label 5if Y>71and P=0then P=1frect(BX-9,BY,18,9)BX=X-4if R=1then BY=Y-4BX=X+4XV=XV-20YV=2-YV i=-8j=8elseif R=2then BY=Y-4XV=XV+20YV=2-YV i=8j=8else i=8j=0BY=Y YV=-YV-2endif
color(255,255,255)line(BX,BY,BX+i,BY+j)endif
return

自分は右側で上と左で打ち返す。球が横線より下に来ないと打てない。1で終了
クロスしたとこと画面下に重力があり球が上にとびたすか下に落ちるかネット(太い縦線)に当たると点が入る。
コンピュータは弱いです…あまりいじめないでください

一応作ったけど重力ネタで被っちゃった(´･ω･`)
残念ながら今回はホッケーは発表出来ない程の悪い出来。控えさせていただきますorz
代わりにホッケー作ったときの副産物置いておきます

｢ぐるぐる｣
w=width/2 h=height/2 soft1("exit") r=2 origin(w,h-50)
label 0
lock() clear(-w,-h+50,w*2,h*2)
for i=0 to 4 x[i]=r*cos(t+i*90)/5 y[i]=sin(t+i*90)/5 next
for j=0 to 50 step 50 for k=0 to 3 line(x[k],y[k]+j,x[k+1],y[k+1]+j) next next
for l=0 to 3 line(x[l],y[l],x[l],y[l]+50) next
if input(0)=keysoft1 then exit endif t=t+2 unlock(0)
goto 0

おお、きてる
NOBA氏の重力ホッケー(?)、30分近くハマってしまった…
ちゃんと放物線描いて動くし、中心に重力があるって仕組みもすごい
攻略しがいがある…しかも画像が渋くてカッコイー

14氏のぐるぐる、
渦巻を描く画像デモかな〜と思ったら何この神プログラム
激しくGJです


ぐるぐるみて思ったこと…
描画点４点を設定してその中を塗りつぶす命令、欲しいなぁ…
あとcls()で全消去、レイヤー機能などなど夢は広がる…

>>0.0.2
ですよね。いろいろほしくて自分でもプログラミングできるアプリ作ろうとしたんですが、9種類の図形描画と乱数の発生が限界でした。何度みても携帯BASICはよくできてます

>>0.02氏
塗り潰しをline重ねてやってはみたんですが激重でダメでした。あったらいいですねぇ>>四点で塗り潰し

って、ホッケー以外で騒いですいませんです…
ちなみにあれは楕円の関数を習ったんで思い付きでやってみたら、結構綺麗だったんで出しちゃいました。
ちょっとした出来心です…副産物であることは確かですが…反省しております

NOBA氏アプリ作れる技術あるのか…(;´Д｀)
すごいなぁ…もし公開作品あるなら見てみたい(ﾟ∀ﾟ)

しかし、基本的にJavaとBASICは違うのに
ここまで色々とできる携帯BASICはマジですごい。
もちろんNOBA氏のプログラム技術も毎度ながら参考になります。
字詰めとかきっちりだし、計算式も無駄が皆無だし…


14氏のぐるぐるは色を水色にしてクリスタル〜とか
いろいろ遊んでる。綺麗だし…何度見ても神のデキ。
これをRenderModeと別スレッドで走らせたら綺麗かも…
って、重くなりそうだけどorz

しかしながらこの技術を使ったホッケー、
機会があればぜひ未完でもいいのでどんなものか見てみたいです。

>>166
自分的にはR=(XV<-9)*2ってとこがいいなあなんて自分で思ってます。比較演算子は真なら1偽なら0を返すので
それを利用しました。ifでやるよりはマシなはずです。携帯BASICの
ソースは何度見てもよくできてんなー。の一言です。こんなん作れたらなー･･

>>NOVA氏
比較演算子にそういう使い方があったなんて目から鱗です。使わせてもらいます〜

>>0.02氏
rmode使い方さっぱり分からないんです(´･ω･`)教えていただけると有り難いです。変数がわけﾜｶﾒ
とかいいつつ無理矢理作った習作。実際使ってみても分からない…

src="ｱｲｳｴｵｶｷｸｹｺｻｼｽｾｿﾀﾁﾂﾃﾄﾅﾆﾇﾈﾉﾊﾋﾌﾍﾎﾏﾐﾑﾒﾓﾔﾕﾖﾗﾘﾙﾚﾛﾜｦﾝｧｨｩｪｫｬｭｮｯ"
setfont("T") p=strheight
l=5
for i=0 to l x[i]=abs(rand)%width y[i]=abs(rand)%20 next color(0,0,0) frect(0,0,500,500)
label 0
lock() rmode(0,255,255) color(0,255,0) for i=0 to l text(strat(src,abs(rand)%55),x[i],y[i]*p) y[i]=y[i]+1 if y[i]*p>height then y[i]=0 x[i]=(abs(rand)%width)-20 endif next
color(150,150,150) rmode(1,0,235) frect(0,0,500,500)
if input(0)=keysoft1 then exit endif
unlock(0) goto 0
フォントサイズとか変数lを端末にあわせていじってください

…肝心なホッケーつくってねぇ…orz

同じくNOBA氏の比較演算で真(1)偽(0)取得、感動しました。
これを応用すれば自分のプログラムもいくつか短くできそう。
ウォールアドベンチャー短くしてageてみるかなぁ。

>>14氏
rmodeは俺もよくわからんとです…
前スレで、
> ソース見たらrmode()は何もしない設定になってた
みたいな事を見かけたんで、Renderのソースから削除したら
全然普通に動作したのでそのままにしてます(-_-;
むしろ俺が知りたいですよ…謎だrmode orz
そういえば、color(R,G,B)って
プログラムの作り方　に載ってないですな…意外
載ってなくても大体わかるけど；

rmodeはドコモの特に限られた機種でしか使えないようです。最初の値は
0:色の置き換え
1:色の加算
2:色の減算
次は描画先のピクセルの色が反映される比率。
最後が描画するピクセルの色が反映される比率
のことで一度設定するとそれ以降の描画に適応されるようです。
つまり通常の描画はrmode(0,255,255)（置き換え,反映率100%,反映率100%）
ということになります。半透明で描きたい時はrmode(1,128,128)とかってやれば良いと思います。

>>NOVA氏
詳しい解説ありがとうございます。なるほど、これで関数の使い方が分かりました。

けど、限られた機種にしか使えないなら、あまり使わない方がいいか…
結構面白い表現とかも出来るのに残念です

このスレってなんだかんだでいま三人しかいないね。どうする？

うーん、入りづらいふいんき(なryなのかも知れないですねぇ。
それに携帯の世代とBASIC打ち込んで使うとかしたことある世代とは少し離れているし…
そもそも最近は自分で作らなくても面白いものいっぱいありますからね、作ることを楽しみとする人以外は離れていってしまう。ｶﾅｼｲﾅ
まぁ、こんなこといっててもしょうがない。とりあえずageますか

締切に間に合いそうもなく、ただあたふたしている俺について

ｲ�`

締切には間に合ってないけど、せっかく作ったので投下。
hs=load()soft1("ﾀｲﾄﾙ")soft2("終了")label 0clear(0,0,width,height)text("air hockey",0,12)text("win : "+hs%100,0,24)
text("lose: "+hs/100,0,36)origin((width-120)/2,(height-120)/2)pm=0 pe=0 h=0while h=0m=44e=m dx=50dy=20mx=-2my=1p=0
text("Press any key...",12,60)clearinput()input()clear(-width/2,-height/2,width,12)while p=0lock()
clear(0,0,120,120)rect(0,0,119,95)line(60,0,60,95)arc(5,m,4,8)arc(110,e,4,8)arc(dx,dy,6,6)text("score: "+pm+" - "+pe,12,120)
unlock(0)s=scan if s=keysoft2 then exit endif if m>0 then m=m-(s=keyup)*2endif if m<88 then m=m+(s=keydown)*2endif
dx=dx+mx dy=dy+my h1=(dx<9)*(dy>m-4)*(dy<m+12) h2=(dx>104)*(dy>e-4)*(dy<e+12) ht=h1+h2
mx=mx-mx*ht*2+((s=keyright)-(s=keyleft))*h1+(rand%4-2)*h2 my=my-my*((dy<2)+(dy>88))*2+((s=keydown)-(s=keyup))*h1+(rand%4-2)*h2
e=e+((dy>e)-(dy<e))*2if abs(mx)>4then mx=4*((mx>0)*2-1)endif if abs(my)>4then my=4*((my>0)*2-1)endif p=(dx<0)-(dx>114)
if s=keysoft1 then p=1pe=99endif wend pe=pe+(p=1) pm=pm+(p=-1) h=(pe>14)+(pm>14)wend
hs=(hs%100+(h<0))%100+(hs/100+(h>0))%100*100save(hs)sleep(200)origin(0,0)goto 0

左側がプレイヤーのパッド。右は適当なコンピュータ。
ルールや挙動は典型的すぎるぐらいの15点先取エアホッケー。
上下キーでパッド移動。
ヒット時に方向キーが入っていればその方向に加減速。
勝敗数は記録されます。
タイトルに戻ると逃亡扱いで１敗です。
突貫工事のため(^^;終了では１敗にはなりません。
コンピュータはかなり適当なルーチン(というのもおこがましい)です。
上下に振られると激弱です。
グラフィックを処理し切れず、画面外にごみが残ることがあります。
N2051ではけっこう遅くて難しかったです。
N901iCではかなり早くて難しかったです。
この他の機種での動作確認はしてません。
何度か実行すると、iBASICの動作がもっさりしたりします。その場合はiBASICの再起動で戻ります。

とりあえずこんなとこです。

とりあえず3作品だな。自分はどれがよかったか言っていこう。

ちなみに俺はちょっとアレだけど自分のに一票です。他のは俺の機種だと実行速度が遅いのとソースが二つになったからかな。

save()って変数を一つしか記憶できないんですか？

そうだよ

じゃあRPG作れないや(T_T)

複数保存を試みようとした奴のソースが前のほうにあるはず。

エアホッケー審査はどこにいったんだろう…

ギリギリまで待ったけど3作のみかあ…

うーん、やっぱNOBAさんには勝てないな。
グラフィック、アイデア、動作スピードがすごいです
独特の操作感覚が楽しかった

名無しさんの作品は…ごめんなさい動かなかったです…
パッドは動くけど跳ね返らない…
ただ、タイトル画面があるしかなりおしゃれなのはいいと思いました

自分の作品は荒削りだけど唯一アイテムの要素を取り入れたことが自慢です


振り返ってみて…かなり楽しい企画でしたので次回も楽しみです。

確かに名無しさんのはデザインが良かったし、やった後ほんとにアプリの処理が遅くなりました(笑)。
0.0.2さんのもターボを使うとは思はなかったです。ただ二人とももう少しスピードアップできたかもしれないですね。
参加者増加を願って次はもっと簡単なお題がいいですかね？

作る暇がなくて参加できませんでした。ドッヘル作者です。
採点に疑問があるのですが、画像入れたら起動かなり遅くなりますよね。動作速度と起動速度は違うのかな…？

もし時間あれば次回は参加したいと思います。作品評価は諸事情により出来ないです。すいませんm(__)m

動作速度は実行中の速度ですから違います。起動が遅くても絵のデザインがよければ問題ないんじゃないんですか？
とにかく次回参加してくれたらうれしいです。みんなはお題はなにがいいのかな？

ども。結局つくらなかったチキンな14です(´･ω･`)
私も採点は控えさせていただきます。みなさんすばらしい出来でした。
次回のお題か…思い付きで電卓とか言ってみる

寧ろぐるぐるの色付きバージョン（どんな立体でもよし）
※注：立体は色付きで！


一応スローガンとして、
『みんなで携帯BASICの限界にチャレンジだ！！』

ぐるぐる改良
クリスタルに見える予定。変数rをいじってみよう

｢激重クリスタルもどき｣
w=width/2 h=height/2 soft1("exit") r=8 a=5 origin(w,h)
label 0
lock() color(0,0,0) frect(-w,-h,w*2,h*2)
for i=0 to 6 x[i]=cos(t+i*60)/3 y[i]=sin(t+i*60)/r next
color(c,c,200) c=c+a if c>150 or c<5 then a=-a endif
for m=-30 to 30 step 60 for k=0 to 5 line(x[k],y[k]+m,x[k+1],y[k+1]+m) next for l=0 to 5 line(x[l],y[l]+m,0,m*2) next next
for l=0 to 5 line(x[l],y[l]-30,x[l],y[l]+30) next
if scan=keysoft1 then exit endif t=t+2 unlock(0)
goto 0

>>189
楕円媒介変数で作れる立体は正n角柱･錐、またはそれらの混合。
ほかの立体も作れなくはない。ただ三角関数がもう一段増えて楽しいぐらいに重くなること必至。
三角関数多用&表示に大きな画面が必要。だから携帯が限られてしまい、万人参加のコンテストには不向きだと思う。
ってことで、これで許して(´･ω･`)

じゃんけんとかどうかな
アイデアと演出を見るて感じで

日が経つと発動する、プログラムを作るにはどうしたら良いのでしょうか？

上昇

じゃあ次のお題はワンキーゲームね

ワンキーゲームとは犬と猿が出てくるゲームのことですか？

…ボタンを一つしか使わないゲームだよ。One key

>>197
せっかくボケたのにマジレスしないでくれｗ

いや、ボケなのか？と思ったけどおもしろくなかったからよくわかんなかったんだ。すまんね

>>199
犬＝ワン
猿＝キー

ボケの解説をするのも何だけどｗ

ボケついでに言うと昔、猿と犬が出てくる「ワンキーゲーム」と
いう名前のゲームをポケコンのBASICで作ったことがある。
文字通り1つしかキーを使わないゲームだったりするｗ

どっちにしてもボケきれてないんじゃね？

お？おまいらおもしろい話で盛り上がっていますね。

誰も居ぬ（犬）
みんな去る（猿）

Wizardryっぽいの作ろうと思って、せこせこ書いてるけど、3Dマップすらむずかしい…
ってか重い…orz

期待(ﾟ∀ﾟ)

たまにｱｹﾞ

3Dマップならずっと前にあったよ。かなーりおもかたけど

インボリュート曲線
いろんなグラフがあるもんだ。
w=width/2h=height/2PJ=36000label 0lock()if scan=2then end endif J=S*sin(S)+cos(S)*360K=sin(S)*360-S*cos(S)S=S+10line(w+J/1800,h+K/1800,w+PJ/1800,h+PK/1800)PJ=J
PK=K
unlock(1)yield()goto 0

３Ｄうんこ
color(128,0,0)for X=36 to 1314step 9
rect(width/2+(sin(X*2)-sin(X*100/48))*2/5,X/10,5*X/328,1+X/328)next
input()

せっかくスレにきたので、ワンキーゲームつくってみました。
即席なんで、ソースが恐ろしく長いです(´･ω･｀)

ﾀｲﾄﾙ『ダルマさん転んだ』

#AA#
setfont("L") Z=strheight W=255 origin(width/2-Z*5,height/2-Z*5) soft2("終了")

label 00
clearinput()
color(W,W,W) frect(-Z*5,0,Z*20,Z*10) color(0,0,0) text("だるまさんがころんだ",0,Z*3) color(0,0,W) text("ﾎﾞﾀﾝを押すと始まるよ",0,Z*5)
A=input() if A=keysoft2 then end endif
PX=0TJ=1TM=0

label 11
gc() clearinput()
if TM>29 then TJ=2 else TJ=1 endif
lock() color(W,W,W) frect(0,0,Z*10,Z*10) color(0,0,0)
for ZZ=1 to 5 text(P[PX%2][ZZ],(PX-12)*Z/6,Z*(3+ZZ)) text(T[TJ][ZZ],Z*15/2,Z*(3+ZZ)) next
text(substr(D,0,TM/3),Z*4,Z*3/2) text(substr(E,0,TM/3),Z,Z*5/2)
color(W,W,W) frect(-Z*5,0,Z*5,Z*10) frect(Z*10,0,Z*10,Z*5) frect(Z,Z*2,Z*3,Z) unlock(1)
A=input(1) if A=keysoft2 then goto 00 endif if A=keyselect then if TJ=2 then goto 22 endif PX=PX+1 if PX>30 then goto 33 endif endif
TM=TM+abs(rand%11) if TM>50 then TM=0 endif
goto 11
#勝敗#

ﾀｲﾄﾙ『勝敗』

Label 22
color(0,0,0)text("Σ",(PX-10)*Z/6,Z*5)sleep(500)
lock()color(W,W,W)frect(0,0,Z*10,Z*3)color(0,0,0)text(L[abs(rand%3)],Z*6,Z*5/2)color(0,0,W)text("負けちゃった……",Z,Z*10)unlock(1)
sleep(2000)input()
goto 00

label 33
lock()color(W,W,W)frect(0,0,Z*10,Z*10)color(0,0,0)
for ZZ=1 to 5 text(P[2][ZZ],(PX-12)*Z/6,Z*(3+ZZ))text(T[0][ZZ],Z*15/2,Z*(3+ZZ))next
text("ﾀｯﾁしたぞ",Z,Z*3)text("ｺﾞﾙｧ!",Z*2,Z*4)color(W,0,0)text("あなたの勝ち！！",Z,Z*10)unlock(1)
sleep(2000)
input()
goto 00

ﾀｲﾄﾙ『AA』

D="だるまさんが_____________"E="______ころんだ！！_______"
L[0]="ﾌﾟｹﾞﾗｯﾁｮ"L[1]="ﾆﾔﾆﾔ"L[2]="ｱ､ｳｺﾞｲﾀ!"

T[1][1]=" ∧＿"T[1][2]="(／⊃"T[1][3]=" |"T[1][4]=" |"T[1][5]=" ∪￣"
T[2][1]=" ∧＿"T[2][2]="(･∀･"T[2][3]=" |⊃"T[2][4]=" |"T[2][5]=" ∪￣"
T[0][1]=" ∧＿"T[0][2]="(´･ω"T[0][3]=" |⊃"T[0][4]=" |"T[0][5]=" ∪￣"
P[0][1]="　 ∧ ∧"P[0][2]="　(,ﾟДﾟ)"P[0][3]="　(　つつ"P[0][4]=" 〜　 ＿ヽ"P[0][5]="　 )ノ　`J"
P[1][1]="　　∧ ∧"P[1][2]="　 (,ﾟДﾟ)"P[1][3]="　 / つ つ"P[1][4]="〜(＿⌒ヽ"P[1][5]="　　)ノ`J"
P[2][1]="　　∧∧"P[2][2]="　 (,ﾟДﾟ)"P[2][3]="　⊂　　つ"P[2][4]="　〜　 |"P[2][5]="　 し`Ｊ"

〜遊び方〜

まんまダルマさんが転んだです。
ギコ猫を操作して右の奴にﾀｯﾁして下さい。
決定ボタンを押すと一歩ずつ進むことができます。
動いてるところを見られたらアウトです。
でも、そんなに難しくないので、あっさりクリアできると思います。

あ、もしかしたら、機種によっては、動作がはやすぎるかもしれません。
その時は、>>210の下の方にある、『abs(rand%11)』の数値を小さくしてみてください。ゲームスピードがゆっくりになるはずです。

WIZ LIKEはどのへんまでやったの？

まだ3Dダンジョンの部分を作ってます。他の部分(ｷｬﾝﾌﾟ、戦闘、町、イベントなど)は、ほとんど手付かずです。
一応3Dダンジョンの部分は、遅いながらも何とかなりそうな所まできました。

前スレものぞいてみようかな…なぜか落ちてないみたいだし。

3Dダンジョンを歩くやつです。
でも壁しかない上に、かなり重いです…。

ﾀｲﾄﾙ『3D』

soft2("終了")W=255HO=3PX=1PY=1H[1][1]="北"H[1][3]=-1H[2][1]="東"H[2][2]=1H[3][1]="南"H[3][3]=1H[4][1]="西"H[4][2]=-1
MAPA=0000000000110111111111111111111001000100000100000010111011011101010101100010000101001011111111001101
MAPB=0011011001001001111100100110010111111111011001110100100010010011010111011110101001101100100110111011
for XY=0 to 9 for XX=0 to 9 MAP[XX*2+1][XY*2]=substr(MAPA,XY*10+XX,1)MAP[XX*2][XY*2+1]=substr(MAPB,XY*10+XX,1)next next
label 01
gc()#i##i2#
label 02
K=scan if K=keysoft2 then end endif if K>0 then goto 01 endif goto 02

ﾀｲﾄﾙ『i』

if K=keydown then HO=HO+2 if HO>4 then HO=HO-4 endif elseif K=keyleft then HO=HO-1 if HO=0 then HO=4 endif elseif K=keyright then HO=HO+1 if HO=5 then HO=1 endif
elseif K=keyup and MAP[PX+H[HO][2]][PY+H[HO][3]]=1 then PX=PX+H[HO][2]*2 PY=PY+H[HO][3]*2 endif
X=H[HO][2]Y=H[HO][3]lock()color(0,0,0)frect(0,0,120,120)color(W,W,W)
for Z=0 to 2 if MAP[PX-Y*(Z-1)*2+X*5][PY+Y*5+X*(Z-1)*2]=0 then rect(24*(Z+1),48,24,24)endif next
if MAP[PX+Y+X*4][PY+Y*4-X]=0 then color(0,0,0)frect(36,36,12,48)color(W,W,W)line(36,36,48,48)line(36,36,36,84)line(48,48,48,72)line(36,84,48,72)endif
if MAP[PX-Y+X*4][PY+Y*4+X]=0 then color(0,0,0)frect(72,36,12,48)color(W,W,W)line(72,48,84,36)line(72,48,72,72)line(84,36,84,84)line(72,72,84,84)endif

ﾀｲﾄﾙ『i2』for Z=0 to 2 if MAP[PX-Y*(Z-1)*2+X*3][PY+Y*3+X*(Z-1)*2]=0 then color(0,0,0)frect(Z*48-12,36,48,48)color(W,W,W)rect(Z*48-12,36,48,48)endif next
if MAP[PX+Y+X*2][PY+Y*2-X]=0 then color(0,0,0)frect(18,18,18,84)color(W,W,W)line(18,18,36,36)line(18,18,18,102)line(36,36,36,84) line(18,102,36,84)endif
if MAP[PX-Y+X*2][PY+Y*2+X]=0 then color(0,0,0)frect(84,18,18,84)color(W,W,W)line(84,36,102,18)line(84,36,84,84)line(102,18,102,102)line(84,84,102,102)endif
for Z=0 to 2 if MAP[PX-Y*(Z-1)*2+X][PY+Y+X*(Z-1)*2]=0 then color(0,0,0)frect(Z*84-66,18,84,84)color(W,W,W)rect(Z*84-66,18,84,84)endif next
if MAP[PX+Y][PY-X]=0 then color(0,0,0)frect(0,0,18,120)color(W,W,W)line(0,0,18,18)line(0,120,18,102)line(18,18,18,102)endif
if MAP[PX-Y][PY+X]=0 then color(0,0,0)frect(102,0,18,120)color(W,W,W)line(102,18,120,0)line(102,102,120,120)line(102,18,102,102)endif
color(W,W,W)frect(120,0,66,120)frect(-66,0,66,120)frect(0,120,120,60)color(0,0,0)text("向き["+H[HO][1]+"]座標["+PX/2+"."+PY/2+"]",0,120+ascent)unlock(1)

AGE

もしかして…前スレ落ちた？

>>221
980を越えたら24時間レスがないと落ちる

>>222
そうなのか…ｻﾝｸｽ
色々勉強になったから、せめて1000になるまでは残っててほしかったな…、落ちる仕組みが分かっていれば、レスして落ちないようにできたのに…orz

ようやくネットがつながって，久々に来たけど，
Windows上で，画像ファイルを携帯Basicの画像にするソフトって誰か作ってる？

俺，途中まで作ってたけど，どうも忙しくてだめだ……．

暇を見てログ読みます．

囲碁つくって思ったけど対人シミュなら簡単だよね
FEとかゲームボーイウォーズみたいなやつ

お久しぶりです
FE作れる人まで出てきたのか…すごいなあ

最近カードゲームぽい要素を入れたRPG戦闘作ってます
出来たらうｐしますねぃ

ところでプログラムコンテストはどうなりましたかね(^_^;

最近は携帯BASICのPhase2版を改造してました。多分、より使いやすくなってると思います。公開したらとってみてください。

携帯BASIC改みつけました!SFCaveとかすごい
乙です

お久しぶりです。
NOBA氏改良乙であります。voda版もありますか？＞改
ちょっと見つからないのですが、見つけたら参戦いたします(暇があれば…)

ＤｏＣｏＭｏ板はナインでしか？

■□■□■□■□■□■□■人権擁護法反対大集会in日比谷公会堂■□■□■□■□■□■□■
【日時】６月 １９日　日曜日
【場所】東京都　東京都千代田区日比谷公園 1-3　日比谷公会堂にて
【時間】１２：３０〜１６：００ 　
【アクセス】http://www.tokyo-park.or.jp/hibiya/
http://www.mapfan.com/addreference.cgi?PA=iPcFLJaJKLdNOPQSgTU08_D9Mf2CJ

●を取って使ってください↓
大規模OFFスレ　　http://off3.2ch.net/test/read.cgi/offevent/11●18343157/

いよいよ最終決戦の幕開けだ！！
勇者達よ！
６月１９日　日曜日　日比谷公会堂に集え！！
「真の人権擁護を考える懇談会」の平沼赳夫会長が出席されます（拉致議連会長）。

詳細はこちら↓hを頭につけ●を取って使ってください↓
ttp://blog.goo.ne.●jp/jinken110

人権擁護法案？ハァ？って人は、↓hを頭につけ●を取って使ってください↓
アニメーション（ＦＬＡＳＨ）ttp://homepage2.nif●ty.com/save_our_rights/jinken001.swf　
サルでも分かる？人権擁護法案ttp://blog.live●door.jp/monster_00/
■□■□■□■□■□■□■人権擁護法反対大集会in日比谷公会堂■□■□■□■□■□■□■

gosubってどうゆうときに、どーやって使えばいいんですか？

Cでgotoを使うやつはプログラマ仲間に嫌われる？？

■ｶﾗｰﾁｪｯｶｰ改

f=6soft1("RESET")soft2("QUIT")y=1w=width h=height p=5label 0lock()color(r,g,b)
frect(0,23,w,h)color(255,255,255)frect(0,25,w,14)color(0,0,0)text("R:"+r+" G:"+g+" B:"+b+" ±"+p,0,37)
unlock(1)s=scan if s=key0 then r=0g=0b=0elseif scan=keysoft2 then exit
elseif r+p<256and s=key1 then r=r+p elseif g+p<256and s=key2 then g=g+p elseif b+p<256and s=key3 then b=b+p
elseif r-p>-1and s=key4 then r=r-p elseif g-p>-1and s=key5 then g=g-p elseif b-p>-1and s=key6 then b=b-p#cc2#

■cc2

elseif p>0and s=keydown then p=p-1elseif s=keyup then p=p+1elseif s=keysoft1 then x=0y=1color(255,255,255)
frect(0,0,w,22)elseif s=keyast then r=abs(rand)%256g=abs(rand)%256b=abs(rand)%256
elseif s=keypound then color(r,g,b)text("■",f*x,y*11)x=x+1
if (x+1)*f>w then x=0y=y+1if y=3then y=1endif endif endif goto 0

上下ｷｰ 色増減幅変更
1-6ｷｰ RGB増減
* ﾗﾝﾀﾞﾑ色
0 RGB=0(黒)
# 色ﾌﾟｯﾄ
ｿﾌﾄ1 色ﾌﾟｯﾄ欄ﾘｾｯﾄ
ｿﾌﾄ2 終わり

相変わらず人居ねーなーせっかく改造しても肝心のau使いがいなかった…

今の時代まぁドキュモが一番売れてるわけで

>>233
嫌われるって言うか，普通使わないんじゃない？
予備的にあるようなもんだし．

改だけど…へびにょろ
loadimg(A,"5,255,255,255,0,195,0,0,255,0,130,255,0,215,255,0,-1,8,8,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,1,2,2,2,2,1,0,1,2,0,2,2,3,3,1,1,2,2,2,2,4,3,1,1,2,2,3,4,4,3,1,1,3,3,3,3,3,3,1,0,1,1,1,1,1,1,0")
H=load()for(;M[IX=abs(rand)%16][IY=abs(rand)%16];)｢｣soft2("EXIT")Q=1M[KX=X=2][KY=Y=8]=S++label 0lock()A=input(0)>>12if(A==64){end}elsif((A==1||A==8)&&Q!=0){Q=0R=(A==1)?-1:1}elsif((A==2||A==4)&&R!=0){R=0Q=A-3}ZX[S]=Q
ZY[S]=R
if(X==IX&&Y==IY){L++for(;M[IX=abs(rand)%16][IY=abs(rand)%16];)｢｣gc()}else{clear(KX*8,KY*8,8,8)M[KX][KY]=0KX=(KX+ZX[S-L]+16)%16KY=(KY+ZY[S-L]+16)%16disvar(ZX[S-L])disvar(ZY[S-L])}
if(M[X=(X+Q+16)%16][Y=(Y+R+16)%16]==0){M[X][Y]=S++}else{T="GAME OVER"}drawimg(A,IX*8,IY*8,0)col(0xFF8000+S)frect(X*8,Y*8,8,8)unlock(1)
if(T!=0){col(255)text(T,66,52,3)text(L+"てん",66,72,3)save(H=max(H,L))text("最高"+H+"てん",66,92,3)sleep(2000)end}goto 0

↑ＤｏＣｏＭｏじゃ、ジャバロングエラーになるんだが…

改で作ったやつですからね。普通のでやる場合は専用の命令は使ってないから書き直せばできると思う。

今saveで複数保存をやろうとしているんですが…過去のをみても全然分かりません。
配列で各々のセーブデータを引き出すにはどうやったらよいのでしょうか？

>>115と>>122が既出の複数保存ルーチンだね。
実は前者は私がつくったんですけど、あれはデータを一つずつ,で区切って結合>保存、読出>分割で複数保存を達成してる

>>115を見たんですけど、訳分かりませんでした。

携帯BASICで7行プログラミング大会やらない？79文字×7行のやつ

詳細ｷﾎﾞﾝ

553文字以内でテトリスや圧縮プログラムを作るってやつです。ﾑ板で前にやってたはず。ただし携帯BASICですからそんな難しいのはできないだろうけど

携帯BASなので100×100にしたほうがいいのでは？

10000文字?逆に多過ぎないか？

ごめん…〇TL
100×10だった。

で偉そうな事言っておいてあつかましいんですが…
scanを二秒読み込んだら、
つぎのscan読み込みまで三秒必要みたいなことはどうしたら出来るんでしょうか？

1000あったら結構大がかりなものも作れるかも。
どのくらいの大きさか実感してみたかったからぐるぐる最適化してみたら300ちょいだった。
forと論理演算子うまく使えば結構減量できるな

｢軽量最適化ぐるぐる319byte｣
w=60 h=w soft1("exit") r=8 origin(w,h-25) label 0 lock() clear(-w,-h+25,w*2,h*2)
for i=0 to 3 x[i]=cos(t+i*90)/3 y[i]=sin(t+i*90)/r line(x[i],y[i],x[i],y[i]+50) next
for j=0 to 50 step 50 for k=0 to 3 line(x[k],y[k]+j,x[k+1-4*(k=3)],y[k+1-4*(k=3)]+j) next next
if scan=keysoft1 then exit endif t=t+2 unlock(0) goto 0

ここは質問しても答えが返ってこないｽﾚです

>>253
sokogaiinjanaika

>>254
消えろよ、お前。この板に相応しくない。

キャリア？毎に命令文が違ってるのがなぁ…
あとやっぱりプログラムの交換もちょっとめんどいよね…。
せめて、誰でも簡単にテキストボックスが扱えるような、携帯からでも入れる掲示板があれば…

今作ってる。まぁ、1000文字専用だけど…

>>257
乙です。
今までのレスを見ると、機種によっては1000文字（半角で？）までしかコピーできないのもあるみたいだから、ちょうどいいかと。

なんだかんだ言って、他力本願だな、俺…orz

ここは糞ｽﾚですか？

できました掲示板。急いで作ったからバグあるかも…
ttp://park21.wakwak.com/~kuri/BASIC.html

↑そのうp板に書き込めないんだけど。

早速バグありました…。すいません。直しときました

テキストボックスが出ません。直してくださいお願いします

ちゃんと出来ますた。ありがとうございマスタ。

携帯ベーシックで>>251みたいなことできるんですか？

よくわかんないけどできないんじゃない？

V3G対応おながいします

Willcomにしたいけど，携帯Basicに引き留められてる感じ．

残念だが無いだろう。最近の機種はアプリが作りづらいからな〜アプリで見たらDoCoMoが一番か

>>266
いや普通に出来るから

ソースアップ板使われてね〜…前やってたダンジョンプロジェクトとかやりやすくなると思うんだけど

たまにはage
またなんかつくろかな

■ばんのうライト

soft2("MODE")label 0onlight()
if input(59000)and keysoft2 then soft2("OFF")goto 2endif
goto 0label 2color(255,0,0)frect(0,0,240,300)onlight()
if input(500)and keysoft2 then exit endif
offlight()sleep(500)goto 2

1000文字でテトリスって無理かね？今度やってみようかな…

てかさぁこのスレ終わり

>>270
じゃあ教えてくれませんか？

>>276
おまいなんかに教えてやんね

label 0
if scan=key**** then **** input(2000)endif
goto 0


試してないがこういう事か？
休眠させると困るというなら操作系だけ別スレで走らせるとか

>>278
すいません。
休眠するというか、キーを何秒間か読み込んだら、キーを離して、またキーを押したときに
作動するようにしたいんです

時間内にボタンを押せば成功
決定キーで操作
やめるにはソフト２を押し続け

soft2("長押終")label 0soft1(s+"/"+c)c=c+1clear(0,0,width,height)text("まだだ…気を抜くな",0,12)
sleep(abs(rand)%5000+2000)
text("よし、2秒以内に押せ！",20,30)
if input(2000)and keyselect then goto 1elseif scan=keysoft2 then exit endif
text("失敗…",20,50)sleep(2000)goto 0
label 1text("成功！",20,50)s=s+1sleep(2000)goto 0

読み込んだりボタンを離したりがどんなことを指すのかいまいちわからない(;´Д`)
どんなゲームを作りたいの？

ｽﾏｿ
こっちで頼む
ちなみに決定キー以外を押すと失敗扱い
ソフト１のガイド部分に成功率(成功数/挑戦数)が表示される

soft2("長押終")label 0soft1(s+"/"+c)c=c+1clear(0,0,width,height)text("まだだ…気を抜くな",0,12)
sleep(abs(rand)%5000+2000)
lock()text("よし、2秒以内に押せ！",20,30)unlock(1)clearinput()
if scan=keysoft2 then exit elseif input(2000)and keyselect then goto 1endif
text("失敗…",20,50)sleep(2000)goto 0
label 1text("成功！",20,50)s=s+1sleep(2000)goto 0

スーパーマリオワールドの、ジャンプを実現したいのです。

それならば、地面についているか否かの判定をした方がいいと思う。
もし段差を作りたい場合とか、機能拡張が楽だからね
どうしても、と言うならやっぱり別スレッドで操作系を走らせるのがｲｲかも。
操作系だけ休眠させて、本体ではジャンプの処理。
でもそれだと操作系とうまく同期が取れなかった場合に、空中ジャンプができてしまうことがあるかも。

過去にNOBAさんがどっとあくしょん！というジャンプゲームを作ってたと思うんだけど…参考になると思う。

別スレって#どっと#みたいにやるんですか？

thread("操作系ソース名","適当に変数名をあてがう")
→thread("キースレッド","kyth")
こんな感じだったと思う
threadのところに来ると、指定ソースが平行して起動する
その分、携帯BASICの負担は大きくなり、もっさりの原因にもなるが
キー操作系くらいなら影響も少ないかも
あとは…操作系と本体で共通の変数情報を扱う場合、変数名は大文字の英字にしないとダメ
操作系側でボタンを押すとAが0から1になる、
それを本体側で参照して反映したい場合など

アップ板にテトリスあげました。

そのアップ板だけど携帯だとコピれない。

機種はなんですか？

NOBAさんのソースアップ板は基本Au用なのかな
DoCoMoのi-modeブラウザだとテキストエリアは表示されない…
なぜかはわからないんだけどuic掲示板とかのテキストエリアは表示される…

さてと、べーしっ君さん携帯BASICのﾊﾞｰｼﾞｮﾝｱｯﾌﾟをまだまだ待ち続けるぞ(´･ω･`)

ドコモか…まさか512バイトまでしか入力できないとかじゃないですよね？<TEXTAREA>はドコモでも使えるはずなんですが…

細かいことは分かりませんが機種はN900iです

俺のD901iも表示されなかった。

で質問なんですが…配列って
十個ぐらいしか扱えないのですか？

ちょっと試してみただけだけど、
1.有効なform内(どうやら<form action="">でokっぽい)に入れる
2.内部の特殊文字はちゃんと処理する
で表示できるっぽいよ。(手元のN901iCにて確認)
特に前者が重要っぽい。後者だけ処理しても表示できなかったから。

知らなかった…。一応やってみたけどうまくいってる？

N901iC、表示できるようになったのを確認しました。
ただ、特殊文字の処理がなされてないような。。。
機種によっては読み込み容量の問題が出るとは思いますが、
< >は< >に、&は&にきちんと処理したほうがよいのでは？
基本的に、端末のIMEが読み込んだときにはちゃんと1文字になるはずですし。

<蛇足>
dammyじゃなくてdummy。
</蛇足>

ミスった。。。

○　< >は&lt; &gt;に、&は&amp;に。

俺のD901はまだ見れないよ〜(ToT)

特殊文字すら表示できないんですか？ドコモって…
じゃあ記号系は全部アウトなんですか？

N900iP900iはＯＫであります

D901ではまったく見えない状態です。
最初と同じ

>>299
いや、別に処理しなくても表示できてるみたいだけどね。
ただ、こういうのはちゃんと処理してやるのがベターじゃないかな、ってだけの話。

N2102Vでは、ちゃんとテキストボックスが表示されるようになりました(･∀･)

だいたい大丈夫みたいですね。テトリスはどうですか？

テトリス激しくモッサリだねw

今キー読取りの実験したんだけど…同時キー習得って2つしか出来ないんですね…

オイ返事はナインかい

テトリスは…ごめん、俺D900iだけど512文字までしかコピれなかったorz
キー取得は…DoCoMoなら仕様。SHTで斜め移動しながら弾撃てない、とか。
他社ケータイも似たようなもんじゃないかな

べーしっ君さん、もう見てくれてないのかな…
ぜひNOBAさんのEZp2版と互換できるのを作って欲しいんだけど(´･ω･`)
あと…セーブ関数増加とかリクエストは諸々あるのだが(以下ry)としておきま

>>307
そんなのみんなもう知ってるからだよ。付け加えるとキーの相性によっては3つまで受け付けるよ。

>>308
バージョンアップは
高速化が最優先だな
あとはそなたが言った通り、セーブの件だな。

ゴメンサゲ忘れたm(__)m

>>309
相性ってなんですか？

特定の組み合わせによってはってことだよ。
携帯BASICの高速化なら今はauだけだけどもうされてるよ2〜3倍は出る
http://keez.net/soft/

特定の組み合わせって例えば何ですか？

それは機種によって違うと思うからわかんないけど、そんなに気にすることじゃないと思う。

いやどこもじゃダメだろ。今試したけど一通りもみっから無かった。

またドコモか…中途半端だよ。ドコモは、

いやＤｏＣｏＭｏ最強！！Kﾀ-------凸(-_-メ)----!

今日は海の日

ついにドコモも高速化された模様。
http://keez.net/soft/

確かに1.5倍という数値は妥当ですね。
実機はN900iですが、携帯BAS+で顕著なスピードうｐはみられませんでした。

A=abs(rand)%100+1で、今の数値が2だとすると次はかならず、101>A、0<Aの状態のままで、
A>2もしくはA<2、要するに前の数値以外の数値を取るようにするにはどうしたらいいのでしょうか？

インデックスを使ってみるとか
abs(rand)を通るたびにB=B+1するようにしてはどうだろう

label 0
B=B+1
A[B]=abs(rand)%100+1
if A[B]=A[B-1]then goto 0endif
描画処理〜

それともビンゴマシーンみたいに一度出た数は出ないようにしたいのか？
それなら

label 0
A=abs(rand)%100+1
if B[A]=1then goto 0endif
B[A]=1
描画処理〜

でどうかな

>>323
有難うございました。
下のが使えました。
ビンゴゲームというか、椅子取りゲームですね。

と思ったら。今実験したら、三回目に同じ数値が出てきました(T_T)

それは作りが悪いのでは？

>>325
いっぺんフローチャートなり、あるいは日本語でもいいけど、
とにかくプログラムがどう動いているか逐一書き出してみることをオススメする。
その際、項目は可能な限り細かくばらして書くこと。
「既出数字以外の乱数をだす」なんてまとめて書いたら意味ないからな。

こんなのは？
s="0123456789"
for i=0to 9
n=abs(rand)%(10-i)
v[i]=strat(s,n)
s=substr(s,0,n)+substr(s,n+1,10-i)
next
これなら10回の繰り返しで確実に0〜9の異なる乱数が得られると思うけど

遅レスすいません。
とりあえず自己解決しました。御騒がせしてすいませんでした。

三角関数をわかってればこんな図形も描ける。
｢花｣
color(255,0,255)origin(66,72)label 1lock()clear(-51,-51,102,102)for T=G to G+288step 72for I=41to 140step 4line(0,0,cos(T+I+180)*sin(I)/(200+abs(I-90)*2),sin(T+I+180)*sin(I)/(200+abs(I-90)*2))next next G=G+20unlock(1)if input(0)>0then end endif goto 1

sleep(100)これを一つ目のスレッドでやると何故かもう一方のスレッドでも反映してしまいます。
どうしてでしょうか？

>>331
すまん、いろいろ試したが分からんかった…
sleep(a1)って全スレッドで実行するもんなのかな？そのスレッドのみだと思ったんだが…

●メイン
thread("サブ","sub")label 0lock()clear(0,0,100,12)a=a+1text(a,0,12)unlock(1)goto 0

●サブ
label 1if input()and keyselect then text("sub th.停止中",0,24)sleep(3000)clear(0,13,120,12)elseif input()and keysoft2 then exit endif goto 1

もっかい試してみる

サブにいろいろ付けてみたが正常だった。

●サブ
soft2("QUIT")label 1K=scan if K=keyselect then y=y+3origin(0,y)color(250,0,0)
text("sub th.停止中",0,24)sleep(3000)clear(0,13,120,12)elseif K=keysoft2 then exit endif yield()goto 1

色と描画原点はそのスレッドのみで反映したぞ。もちろんsleep(a1)も。
携帯BASIC+で確認。
一回ソース晒してみたらみんなも添削とかアドバイスとかしやすいかと思われ

しかし携帯BASIC+ってD900iで使うとシャア専用くらい速いな

まさかjoin()で回すとやばとかですか？

相手が動きだすのを待っててやるとは、おまいって実は優しいんだな。

join()は確か、その命令にきた時点で指定スレッド(仮にA)を起動し
Aが終了(プログラムが途切れるかkill()でスレッドAを指定)するまでメインスレッドを《休眠》させるとかだった気が。多分。

うーむ、そりゃメインスレッドも止まって見えると思われ…

今からでも遅くない、組み直すんだ(っД`)

どうでもいいが…join使うなんて高度な技使いまつね…俺使ったことないorz

ラベルとゴートゥーの文を使うより処理速度が若干早くなるんでジョインを使っていました。
確かに言われてみればある意味優しいですよねww
スレッドが終了するまで待機って、sleep()も…単純ミスでしたOTL
スレ汚しすいませんでした

ドンジャラみたいなの作ってみませんか

決めること
・テーマ
・デザイン、レイアウト
・ルール

作るもの
・基本ルーチン
・牌(絵かテキストか)
・役

リバーシのルーチン作って皆で戦わせないか？

まずは少しでも形が見えればみんなも乗ると思う。もう少しつっこんだとこまで決めちゃった方がいいかと

おなじみハノイの塔。SPALMで作成。A,B,C3つの塔がありM枚の円盤をAからCへ移します。ただし小さな円盤の上に大きな円盤は置けない。というのを自動でやります。再帰処理の勉強にでもどうぞ
M=6
for(i=1;i<M+1;i++){frect(0,144-i*4,40-i,4)P[0][i-1]=i}input()
T(N[0]=M,0,1,2)
input()func T(A,B,C,D){
A[++L]=A
B[L]=B
C[L]=C
D[L]=D
if(A[L]==1){
P(B[L],D[L])
}else{
T(A[L]-1,B[L],D[L],C[L])
L--
P(B[L],D[L])
T(A[L]-1,C[L],B[L],D[L])
L--
}
}
func P(fr,to){lock()clear(fr*44,144-N[fr]*4,44,4)P[to][N[to]++]=P[fr][--N[fr]]P[fr][N[fr]]=0frect(to*44,144-N[to]*4,40-P[to][N[to]-1],4)unlock(1)}

>>341
SPALMが公開されてないのに…意味ないだろ

30×25のフロアに3〜4個の部屋を作り各部屋を通路でつなげたようなマップを自動生成したいのですが高速なアルゴリズムが思いつきません。アイディアのある人はいますか？いたら教えてください。

SPALM用
loadimg(H,"6,0,0,0,40,0,0,80,0,0,160,0,0,210,0,0,255,0,256,0,12,12,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,2,2,2,2,1,1,0,0,0,1,1,2,3,3,3,3,2,1,1,0,0,1,2,3,4,4,4,4,3,2,1
,0,1,2,3,4,4,5,5,4,4,3,2,1,1,2,3,4,5,5,5,5,4,3,2,1,1,2,3,4,5,5,5,5,4,3,2,1,1,2,3,4,4,5,5,4,4,3,2,1,0,1,2,3,4,4,4,4,3,2,1,0,0,1,1,2,3,3,3,3,2,1,1,0,0,0,1,1,2,2,2,2,1,1,0,0,0,0,0,0,1,1,1,1,0,0,0,0")
lock()for(;I<9;I++){makeimg(A[I],112,36)trgt(A[I])origin(56,18)frect(-66,-72,132,144)for(A=0,B=B-5;A>-8;A--){drawimg(H,cos(A*45+B)/2,sin(A*45+B)/8,3)}}
trgt(off)frect(0,0,width,height)unlock(0)label 0drawimg(A[C++%9],width/2,height/2,3)if(scan){end}goto 0

ちょい改造。RPGの魔法とかに使ってくれ
改行は自分で消してね
loadimg(H,"6,0,0,0,40,40,40,80,80,80,160,160,160,210,210,210,255,255,255,0,12,12,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,2,2,2,2,1,1,0,0,0,1,1,2,3,3,3,3,2,1,1,0,0,1,2,
3,4,4,4,4,3,2,1,0,1,2,3,4,4,5,5,4,4,3,2,1,1,2,3,4,5,5,5,5,4,3,2,1,1,2,3,4,5,5,5,5,4,3,2,1,1,2,3,4,4,5,5,4,4,3,2,1,0,1,2,3,4,4,4,4,3,2,1,0,0,1,1,2,3,3,3,3,2,1,1,0,0,0,1,1,2,2,2,2,1
,1,0,0,0,0,0,0,1,1,1,1,0,0,0,0")lock()for(;I<9;I++){makeimg(A[I],width,36)gc()trgt(A[I])origin(width/2,18)for(A=0,B=B-5;A>-8;A--){drawimg(H,cos(A*45+B)/2,sin(A*45+B)/8,3)}}
trgt(off)frect(0,0,width,height)clip(0,height/2-18,width,36)label 0lock()clear(0,height/2-18,width,36)drawimg(A[++C%9],width/2,height/2+P=P-(C>71),3)if(scan||C>120){end}unlock(1)goto 0

trgt()これは使わないでくれ。iアプリとの互換性がなくなる

「light」
soft2("Exit")
label 0
a=10
x=20
origin(0,0)
color(0,0,0)
frect(0,0,255,255)
origin(120,0)
y=0
p=rand%x
q=rand%x
label 1
#light1#
label 2
#light2#

「light1」
k=a+abs(rand)%8
color(196,98,196)
line(p-2,y,q-2,y+k)
line(p+1,y,q+1,y+k)
color(255,196,255)
line(p,y,q,y+k)
p=rand%x
y=y+k
if input(0) and keysoft2 then exit endif
if y>128 then x=10 endif
goto 2

「light2」
k=a+abs(rand)%8
color(196,98,196)
line(q-1,y,p-1,y+k)
line(q+2,y,p+2,y+k)
color(255,196,255)
line(q,y,p,y+k)
q=rand%x
y=y+k
if input(0) and keysoft2 then exit endif
if y>255 then goto 0 else goto 1 endif

以前から作ってみたかった落雷プログラムです
改良したら、もうちょいリアルな雷になりそう

なんとか1000文字に詰めたSPALM用リバーシです
`="の番です"_="そこには置けません"soft1("パス")soft2("終")@(M,"黒","白")origin(width/2-64,0)label 1for(T=E=a=0;a<8;a++){copy(B,0,B[a],0,8)}B[3][3]=B[4][4]=1B[4][3]=B[3][4]=2
col(0x8000)frect(0,0,128,128)col(0)for(a=0;a<9;a++){line(0,a<<4,128,a<<4)line(a<<4,0,a<<4,128)}for(a=0;a<4;a++){col((a<3&a>0)*0xFFFFFF)farc(51+(a%2)*16,51+(a/2)*16,11,11)}
label 0lock()col(0)rect(X<<4,Y<<4,16,16)if(64==A=input(0)>>12){end}elsif(A&2){X=X-(0<X)}elsif(A&4){X=X+(7>X)}if(A&1){Y=Y-(0<Y)}elsif(A&8){Y=Y+(7>Y)}elsif(A==16){if(B[X][Y]){T=_}else{
for(OK=i=0;i<9;i++){i==4&&i++;H=U+1P=X Q=Y C(i%3-1,i/3-1)}if(_!=T=OK?M[U=!U].`:_;){if(++E==60){for(a=0;a<64;T[B[a%8][a++/8]]++){}T=M[T[0]>T[1]]."の勝ち"}}}}elsif(A==32){T=M[U=!U].`}col(0xC0FF)rect(X<<4,Y<<4,16,16)
unlock(1)if(T){col(0)text(T,0,129,0)clearkey()input()clear(0,129,128,25)if(strat(T,2)=="勝"){goto 1}T=0}goto 0func C(x,y){while(B[P=P+x][Q=Q+y]+H==3){}if(abs(P-X)>1|abs(Q-Y)>1&&B[P][Q]==H){col((H-1)*0xFFFFFF)
while(X!=P||Y!=Q){B[P=P-x][Q=Q-y]=H farc(P*16+OK=3,3+Q*16,11,11)}}}

所々間違えてた…修正版&短くした
`="の番です"_="そこには置けません"soft1("パス")soft2("EXIT")@(M,"黒","白")origin(width/2-64,0)label 1for(G=T=E=a=0;a<8;a++){copy(B,0,B[a],0,8)}B[3][3]=B[4][4]=1B[4][3]=B[3][4]=2
col(0x8000)frect(0,0,128,128)col(0)for(a=0;a<9;a++){line(0,a<<4,128,a<<4)line(a<<4,0,a<<4,128)}for(a=0;a<4;a++){col((a<3&a>0)*0xFFFFFF)farc(51+(a%2)*16,51+(a/2)*16,11,11)}
label 0lock()col(0)rect(X<<4,Y<<4,16,16)if(64==A=input(0)>>12){end}X=X-(A&2&&0<X)+(A&4&&7>X)Y=Y-(A&1&&0<Y)+(A&8&&7>Y)if(A==16){if(B[X][Y]){T=_}else{for(OK=i=0;i<9;i++){i==4&&i++;H=U+1P=X
Q=Y C(i%3-1,i/3-1)}if(_!=T=OK?M[U=!U].`:_;){if(++E==60){for(a=0;a<64;T[B[a%8][a++/8]]++){}G=T=M[T[2]>T[1]]."の勝ち"}}}}elsif(A==32){T=M[U=!U].`}col(0xC0FF)rect(X<<4,Y<<4,16,16)unlock(1)
if(T){col(0)text(T,0,129,0)clearkey()input()clear(0,129,128,25)if(G){goto 1}T=0}goto 0func C(x,y){while(B[P=P+x][Q=Q+y]+H==3){}if(abs(P-X)>1|abs(Q-Y)>1&&B[P][Q]==H){col((H-1)*0xFFFFFF)
while(X!=P||Y!=Q){B[P=P-x][Q=Q-y]=H farc(P*16+OK=3,3+Q*16,11,11)}}}

☆AI対戦型ロボットバトル｢ロボ魂｣☆
ふたつのプログラムを戦わせるプログラムです。ｷｰ操作は禁止。AIはP1とP2で、自分がどっちなのかは変数jを見るとわかります。
j=0→P1
j=1→P2
戦い方は4つの関数を呼び出し移動,回転,弾発射,シールドを使い分けて戦います。またHPは初期で10000ありますが移動やシールドでもHPが減ります。
☆関数☆
I(kaku,kyori)…kaku度にkyoriだけ進む。またHPからkyoriの2乗ずつ引かれる。
R(kaku)…kakuだけ砲頭を回す。
F(num)…弾を発射。弾は3発まで撃てるが、画面外に消えるまでは撃てない。弾は当たると200のダメージになる。撃つ弾番号をnumで指定する
S()…呼び出す度にシールドのオン･オフを切り替える。ただしシールドを張っている間は毎回10ずつHPが引かれ、ダメージを40％に減らせる
☆プログラムの決まり☆
本体で使われている変数は使えません。ただし、参照だけなら可能です。敵の位置などによって動きを変えられます。主な変数は下です
E[]…HP
T[]…向き(度)
X[]Y[]…座標
BX[j.0〜2]BY[j.0〜2]…弾の座標
S[]…シールドのON･OFF
弾の座標は字数節約のためプレイヤー番号と弾番号を文字列連結したものをindexとします。

ほんとはもっといろいろつける予定でしたが処理速度とめんどくささのためにやめました。その結果オセロに続きこれも1000文字に収まりました。いろいろAI考えてみてください。

「ロボ魂」
w=width h=height r=w/20setfont("L")text("ロボ魂!!",w/2,h/4,3)setfont("S")text("PUSH START",w/2,h*3/4,3)input()E[0]=E[1]=10000@(T,0,180)@(X,w/4,w*3/4)@(Y,h/2,h/2)label 0lock()col(0)
clear(j=i=0,0,w,h)#P1#j=1#P2#while(i<2){E2[i]=E[i]for(j=0;j<3;j++){if(BY[i.j]){arc(BX[i.j]=BX[i.j]+(cos(BT[i.j])*r>>7),BY[i.j]=BY[i.j]+(sin(BT[i.j])*r>>7),r/3,r/3)BY[i.j]=BY[i.j]*(BY[i.j]>0&&BY[i.j]<h&&BX[i.j]>0&&BX[i.j]<w)
if(pow(BX[i.j]-X[!i],2)+pow(BY[i.j]-Y[!i],2)<r*r*4/9){E[!i]=E[!i]-200BY[i.j]=0C[!i]=0xFF0000}}}i++}for(j=0;j<2;j++){if(S[j]){C[j]=C[j]|S[j]*255if(i=E2[j]-E[j]){E[j]=E2[j]-i*2/5}E[j]=E[j]-10}col(C[j])arc(X[j]-r/2,Y[j]-r/2,r,(C[j]?C[j]=0:0;)+r)
text(E[j],j*w/2,0,0)}unlock(1)if(E[0]<1|E[1]<1||scan){text((E[0]<E[1])+1."の勝ち",w/2,h/2,3)input()end}goto 0func F(n){if(!BY[j.n]){BT[j.n]=T[j]BX[j.n]=X[j]BY[j.n]=Y[j]E[j]--}}func R(n){T[j]=T[j]+n}
func I(n,O){O>40?O=40:0;if(w>X[j]&&X[j]>0){X[j]=X[j]+cos(n)*O/100}if(h>Y[j]&&Y[j]>0){Y[j]=Y[j]+sin(n)*O/100}E[j]=E[j]-O*O}func S(){S[j]=!S[j]}

srand()これって何の命令ですか？

ランダムに種を与えてよりランダムになるようにする命令。あんま意味無い

だれもいないお(つД`)
淋しいお。

誰かおもしろそうなプロジェクト立ててくれないかな…(´･ω･`)

SPALMでローグライクなんてどう？


















本当の気持ち


たのむお。みんなで何か創ろうお(つД`)
氷河期なんてもうやだお。みんな何処いっちゃったんだお…･｡ﾟ(つД`)ﾟ｡･

うちvodaで、新しいBASICのプログラムとかについていけなかった。

携帯BASICはいくつかプログラムを保存してるせいで、一つのプロジェクト作るにも時間かかりすぎて…
結果、スレは覗いてるけどプログラムは放置って感じになってます(;´д｀)ｺﾞﾒﾝﾖ

なんつーか暇だし、なんかつくるなら手伝うべ

ビットシフトってなんですか？

何人か集まりそうだしなんかみんなでつくろうか

>>361
数値をnビットずらすこと。言い換えると2のn乗倍の値で数値を割ったりかけたりすることです。
普通に/とか*でやるよりは早い
>>362
その言葉を待ってた!!

俺もローグライク作りたい。よって参戦したい。

少し形になってるからアップしてみた。
ttp://park21.wakwak.com/~kuri/cgi-bin/pbbs.cgi?mode=source&no=0
ttp://park21.wakwak.com/~kuri/cgi-bin/pbbs.cgi?mode=source&no=1
使えるかな？ポイントは画像使ってるけど、スクロールが速いとこなんだけど

時々かくかくと動くのは仕様か、それと部屋も四つしかなくね？
それにしてもGJ!だぜ

かくかくはしないはずです。部屋は位置と大きさが微妙に変わるだけで大まかな位置も数も変わりません。通路にいたっては毎回同じです。まぁ、これが限界かと。

あと、ちなみにどれくらいなめらかに動いてますか？

いや途中でカクカクするぜ。スクロールは確かに早いが、プレイヤーの歩くスピードが途中でかわるのがなぁ…

もしかしてはじっこに行ったときスピードが変わるやつですか？だったらどうにもなりません。はじっこではスクロール処理が無い分速いですから

func A(a,b){arc(a,b,5,5)A==b+a}
こういう式をA(a,b)の形で書き出して、
例えばA(20,50)A(50,20)と、やると図形は描画されるんだが…A==b+aが反映されない。誰かなんでだか教えてくれれぇぇぇ〜(ﾟД`)

ちなみに端の方で遅くなった。

>>371
A=b+aじゃない？==じゃ等値比較だけで代入がされないから。
>>372
ますます意味がわからない…

それでもできなかった

え？じゃあなにがしたいんですか？

なんかまた人が少なくなったな

そもそもSPALMの存在に気づいてない椰子が多いのでは

ところでcol()って赤を出すときはcol(255000000)って書くのか？

おまいそんなのもわからんのか、でわわたすぃが教えてしんぜよう‥












実は私にもわからない…













てのは嘘でcol(0xFF0000) だしょ？汗

col(0xRRGGBB)、か…ありがとん
16進しか指定できないんだな

しかしいろいろ機能拡張してて楽しいな
bgm使いたい

おぬしは何処も？ユーザーかね？

別に10進でもできるけど…
16711680

そりやとメンドクセーダニィ

DoCoMoだよ
悪評高きD900i

そろそろ機種変か

まぁわいもN900iだし、かわりないだすぅー

ローグライクみんなで再始動だにぃー。SPALMでツクルダニィー。

みんなの携帯だとアップ板にあるアクションてゲーム何FPSぐらい出てる？ちなみに俺のは7.5強位なんだけど、遅い？

なんか創ろうぜ

画像を使った奴がいいです

90氏後輪願う。そしてローグライクをパワーアップさせようじゃないか。

誰もいないんかいっ
(υﾟωﾟυ)

みんないい加減ローグに飽きたからじゃない？

あきたとかないからっ(笑

SPALMやるぞゴラ

そして誰もいなくなった

SH700iでiBASIC動かせている人居ます?
やってみたいなあと思って落としたけど
起動するときに「αエラーが発生しました」とでて起動できません。
自分もしてみたい・・・

すいません
http://naoya.stargroove.jp/ibasic/
こちらで落とさせてもらったら出来ました。

>>396
俺と一緒にゲームを作りませんか？

いいですね。
とりあえずがんばって色々試したりして覚えてみます!

でもまた何でiBASICなんですか？

iBASIC大好き人間だったんだけど、ソフト二つも保存すりゃ、
容量満タンになるんで萎えてたら、携帯BASICってのがあるの知った。
明日から休み時間とか使ってなんか作ってみよう。
目標は弾幕

さらにSPALMと言う手もあるぞ、まあそんなにBASIC が好きなら別だが。。

>>401
あのあとスレざくっとよんで、試してみました。
関数定義できたり、{ }でくくったりで使いやすいので移行ー。
そしていざ自機狙い弾を作ろうとしたら、平方根も求められないし、tanの逆（横と縦から角度）も無いのね・・・
仕方ないから16方向の角度算出関数を自作。判定値は定数（おは
しばらくはどこまで重くなってもゲームになるか検討しながら3way弾とかいろいろやってみようと思う。

func at16(ah,aw){

ah2=max(abs(ah),1) aw2=max(abs(aw),1)
if((0<=ah)&&(0<=aw)){t1=ah2*100/aw2 t2=0
}elsif((0<=ah)&&(aw<0)){t1=aw2*100/ah2 t2=90
}elsif((ah<0)&&(aw<0)){t1=ah2*100/aw2 t2=180
}else{t1=aw2*100/ah2 t2=270
}

if(t1<=19){re=t2
}elsif(t1<=62){re=t2+22
}elsif(t1<=148){re=t2+45
}elsif(t1<=470){re=t2+67
}else{re=t2+90
}
return re
}

>>402
君は高校生かい？
ちなみに俺は浪人生
＿|￣|〇
このスレには俺等しかいない気がする…

>>404
です。　ほうｗ勉強がんばって！
俺もそう思う。俺自身携帯basicのサイトみるまで（スレ以前に）この板を知らなかったorz
ひっそり活動するっぺさ。

昔シューティング作ろうと思って作ったこっちに弾撃ってくるプログラム。よく考えればatan無くてもできる。
label 2A=B=-20C=abs(rand)%100+16D=abs(rand)%90+16H=rand%5I=rand%5if(!H){H=2}if(!I){I=-3}X=64Y=120label 0lock()col(0)frect(0,0,132,144)if(abs(X-C)<16&&abs(Y-D)<16){goto 1}G=scan
if(G==16384&&X<121){X=X+4}if(G==8192&&X>8){X=X-4}if(G==4096&&Y>8){Y=Y-4}if(G==32768&&Y<133){Y=Y+4}if(G==2){end}C=C+H
D=D+I
if(abs(66-C)>57){H=-H}if(abs(72-D)>63){I=-I}col(0xFFFFFF)frect(X-8,Y-8,16,16)col(255)frect(C-8,D-8,16,16)if(abs(66-A/5)>66||abs(72-B/5)>72){A=C*5B=D*5E=(X*5-A)/((abs(X*5-A)+abs(Y*5-B))/20)F=20-abs(E)
if(Y-B/5<0){F=-F}}else{A=A+E B=B+F col(0xFF8000)frect(A/5-1,B/5-1,3,3)if(abs(X-A/5)<9&&abs(Y-B/5)<9){goto 1}}unlock(1)goto 0label 1unlock(1)col(255<<16)text("GAMEOVER",42,66,32)input(100)goto 2

G==は
G&に
したほうがいいと思うが‥どうだ？

それにしても中々のできGJ!!

>>406
意味の理解にしばらくかかったorz。
総移動距離中の横の割合を求めて、それを4倍[px]。それで残りの分を縦の移動速度　ってことですね。
うあーっ　インチキ座標系っぽいのにちゃんと見える！すげぇ！！そして３人目だわーい
>>407
やっぱ斜め移動で速度1.4倍が熱いよね（違う

上下移動の画面はみ出し防止判定って、
やっぱキー入力と次の移動で出ないかのandとるべきですか？
キー判定の後はみだしぶん押し込める　ってやってるけど・・・

はみ出し防止判定って何？てかドットの粕みたいなもの？

>>410
x、y、横幅、縦幅を持つ矩形の判定が、一定領域から出ないようにするときのチェック。
自機が画面からはみ出さないようにする処理。同じく、弾がはみ出たかどうか判定する処理。
移動後にはみ出てたら座標を戻す方法か、移動したらはみ出るかどうかをチェックしてから移動する方法か迷う。

そこまで玉が飛ばないようにすればいいんじゃねぇww？

>>412
その処理のやり方だよｗ
�@
if(x+vx>w){ die() }else{ x=x+vx }
�A
x=x+vx if(x>w){ die() }
どっちがよいのか・・・んで、さらに、カーソルキーで操作する処理になると
�@
if( 『右が押されている』 ){
if(x+vx>w){
die()
}else{ x=x+vx }
}
�A
if( 『右が押されている』 ){
x=x+vx
}
if(x>w){
die()
}
どっちが軽いのか。もっと重要な軽量化部分もあるかもしれんが。

elseって意外に重いんじゃねぇの？

最初のは
(x=x+xv)>w&&die();
次のは
(『右が押されている』&&x=x+vx,x>w)&&die();
てやればそこそこ軽い。更にこれをどっかの式に影響無く含めるとより軽い。

>>415みたく比較式にしたほうがいいぜ！

俺なら、
　x = x + (([右押] & (x < [右端])) - ([左押] & (x > [左端]))) * [移動量]
を毎回のループに入れるな。
&は*のが軽いならそっちで。
毎回の計算量が一定＝フレームレートがばらつかないという利点もある。

行きすぎたら押し戻すやり方は、移動量が変動する場合に意味があるな。

>>415 >>417
最初、へ？と思ったが・・・・　すげえええええっ　比較式にしてスルーさせるのか！
これ他の言語でも仕様しだいで使えそうだ。勉強になるぅー。ありがとうございます。
次の作品に活用してみようと思いまっすっすすすす

blib て名前で保存してください　�@
func at32(ah,aw){
ah2=max(abs(ah),1) aw2=max(abs(aw),1) if((0<=ah)&&(0<=aw)){t1=ah2*100/aw2
t2=0}elsif((0<=ah)&&(aw<0)){t1=aw2*100/ah2
t2=90}elsif((ah<0)&&(aw<0)){t1=ah2*100/aw2 t2=180}else{t1=aw2*100/ah2 t2=270}
if(t1<=9){re=t2}elsif(t1<=29){re=t2+11}elsif(t1<=51){re=t2+22}elsif(t1<=78){re=t2+33}elsif(t1<=119){re=t2+45}elsif(t1<=173){re=t2+56}elsif(t1<=290){re=t2+67}elsif(t1<=814){re=t2+78}else{re=t2+90
}
return re}

func make(an,ax,ay,avx,avy){
re=-1 for(ii=0;ii<B;ii++){if(bn[ii]==0){bn[ii]=an bx[ii]=ax by[ii]=ay bvx[ii]=avx bvy[ii]=avy)re=ii break}}return re
}
func die(ai){
bn[ai]=0 bx[ai]=0 by[ai]=0 bvx[ai]=0 bvy[ai]=0 bc[ai]=0 bi[ai]=0
}
func gfar(){
switch(abs(rand)%4){case 0: tmx=abs(rand)%(W*10-S) tmy=-S break; case 1: tmx=abs(rand)%(W*10-S) tmy=H*10 break; case 2: tmy=abs(rand)%(H*10-S) tmx=-S break; case 3: tmy=abs(rand)%(H*10-S) tmx=W*10 break;}
R[0]=tmx R[1]=tmy
}

blib ２
func shot0100(){
gfar() tmi=make(1,R[0],R[1],0,0) tma=at32(my-by[tmi],mx-bx[tmi]) bvx[tmi]=cos(tma)*D*5/100 bvy[tmi]=sin(tma)*D*5/100 bc[tmi]=0xDD5555
}
func shot0101(ax,ay){
tmi=make(1,ax,ay,0,0) tma=at32(my-by[tmi],mx-bx[tmi]) bvx[tmi]=cos(tma)*D*10/100 bvy[tmi]=sin(tma)*D*10/100 bc[tmi]=0xAA44AA
}
func shot0102(ax,ay){
tmi=make(1,ax,ay,0,0) tma=at32(my-by[tmi],mx-bx[tmi]) bvx[tmi]=cos(tma-20)*D*7/100 bvy[tmi]=sin(tma-20)*D*7/100 bc[tmi]=0xCC8844
tmi=make(1,ax,ay,0,0) bvx[tmi]=cos(tma+20)*D*7/100 bvy[tmi]=sin(tma+20)*D*7/100 bc[tmi]=0xCC8844}
func shot0103(ax,ay){
tmi=make(1,ax,ay,0,0) tma=at32(my-by[tmi],mx-bx[tmi]) bvx[tmi]=cos(tma-30)*D*6/100 bvy[tmi]=sin(tma-30)*D*6/100 bc[tmi]=0xAAAA44
tmi=make(1,ax,ay,0,0) bvx[tmi]=cos(tma)*D*6/100 bvy[tmi]=sin(tma)*D*6/100 bc[tmi]=0xAAAA44
tmi=make(1,ax,ay,0,0) bvx[tmi]=cos(tma+30)*D*6/100 bvy[tmi]=sin(tma+30)*D*6/100 bc[tmi]=0xAAAA44
}
func shot0200(){
gfar() tmi=make(2,R[0],R[1],0,0) tma=at32(my-by[tmi],mx-bx[tmi]) bvx[tmi]=cos(tma)*D*4/100 bvy[tmi]=sin(tma)*D*4/100 bc[tmi]=0x5555DD
}
func shot0300(){
gfar() tmi=make(3,R[0],R[1],0,0) tma=at32(my-by[tmi],mx-bx[tmi]) bvx[tmi]=cos(tma)*D*3/100 bvy[tmi]=sin(tma)*D*3/100 bc[tmi]=0x44AAAA
}
func shot0400(){
gfar() tmi=make(4,R[0],R[1],0,0) tma=at32(my-by[tmi],mx-bx[tmi]) bvx[tmi]=cos(tma)*D*2/100 bvy[tmi]=sin(tma)*D*2/100 bc[tmi]=0x55DD55
}

blib　３　汚いソースだ
goto "esc"
label m0 return
label m1
bx[i]=bx[i]+bvx[i] by[i]=by[i]+bvy[i] if((bx[i]<-S)||(by[i]<-S)||(bx[i]>W*10)||(by[i]>H*10)){die(i)}
gosub 444
return
label m2
bx[i]=bx[i]+bvx[i] by[i]=by[i]+bvy[i] bi[i]=bi[i]+D l=150 if(l<=bi[i] && bi[i]<l+D){shot0101(bx[i],by[i]) die(i)}
if((bx[i]<-S)||(by[i]<-S)||(bx[i]>W*10)||(by[i]>H*10)){die(i)}
gosub 444
return
label m3
bx[i]=bx[i]+bvx[i] by[i]=by[i]+bvy[i] bi[i]=bi[i]+D l=250 if(l<=bi[i] && bi[i]<l+D){shot0102(bx[i],by[i]) die(i)}
if((bx[i]<-S)||(by[i]<-S)||(bx[i]>W*10)||(by[i]>H*10)){die(i)}
gosub 444
return
label m4
bx[i]=bx[i]+bvx[i] by[i]=by[i]+bvy[i] bi[i]=bi[i]+D l=350 if(l<=bi[i] && bi[i]<l+D){shot0103(bx[i],by[i]) die(i)}
if((bx[i]<-S)||(by[i]<-S)||(bx[i]>W*10)||(by[i]>H*10)){die(i)}
gosub 444
return
label 444
if((bx[i]<mx+S)&&(by[i]<my+S)&&(bx[i]+S>mx)&&(by[i]+S>my)){O=1}
return
label esc

本体　（ファイル名はなんでも)

label 2
#blib#
soft2("Exit") W=width H=height S=100 D=10 M=80 B=12 C=0 E=50 P=0 O=0 mx=W*10/2 my=H*10/2 @(bac,0,0,0,0) for(i=0;i<B;i++){die(i) }
label 0
omx=mx omy=my K=scan if(K & 262144){end} if((K & 4096)&&(0<(my-M))){my=my-M} if((K & 32768)&&((my+M)<H*10-S)){my=my+M}
if((K & 8192)&&(0<(mx-M))){mx=mx-M} if((K & 16384)&&((mx+M)<W*10-S)){mx=mx+M} if((omx==mx)&&(omy==my)){P++}
for(i=0;i<B;i++){gosub "m".bn[i]}if(O>0){goto 3}for(i=0;i<4;i++){bac[i]=bac[i]+abs(rand)%D} C++ if(C==E){C=0 D++ if(D==20){goto 506}}
if(bac[0]>=100){shot0100() bac[0]=0 P=P+10}if(bac[1]>=150){shot0200() bac[1]=0 P=P+20}if(bac[2]>=250){shot0300() bac[2]=0 P=P+50}if(bac[3]>=400){shot0400() bac[3]=0 P=P+100}
lock()
col(0) frect(0,0,W,H)col(0xFFFFFF) rect(mx/10,my/10,S/10,S/10)for(i=0;i<B;i++){if(bn[i]>0){ col(bc[i]) rect(bx[i]/10,by[i]/10,S/10,S/10) }}
col(0xFFFFFF)text("レベル".(D-9)."/10",W-10,10,24) text("スコア".P,W-10,30,24) rect(10,10,E*2,10) frect(10,10,C*2,10)
unlock(0)
goto 0
label 3
K=scan if(K & 262144){end}if(K & 65536){goto 2}
lock()
col(0) frect(0,0,W,H)col(0xFFFFFF) rect(mx/10,my/10,S/10,S/10) for(i=0;i<B;i++){if(bn[i]>0){ col(bc[i]) rect(bx[i]/10,by[i]/10,S/10,S/10) }}
col(0xFFFFFF)text("レベル".(D-9)."/10",W-10,10,24) text("スコア".P,W-10,30,24)text("ゲームオーバー",10,30,20)
unlock(0)
goto 3
label 506
K=scan if(K & 262144){end}if(K & 65536){goto 2}
lock()
col(0) frect(0,0,W,H)col(0xFFFFFF) rect(mx/10,my/10,S/10,S/10)for(i=0;i<B;i++){if(bn[i]>0){ col(bc[i]) rect(bx[i]/10,by[i]/10,S/10,S/10) }}
col(0xFFFFFF)text("CLEAR!",W-10,10,24) text("スコア".P,W-10,30,24)text("おめでとう！",10,30,20)
unlock(0)
goto 506

がんばってクリアしてみてください。FPS2ぐらいな悪寒がしますが、なんとか操作してｗｗｗｗ
速度の話してるわりにはなんじゃこの無駄は！と　思う人もいると思いますが、　はやく遊びたかった&公開したかった　ので　すいません。
高速化はあとまわ（死）　自作アークたんは32方向にグレードアップ。
しかし、パソコンに送ってみたら気付いた。なんだこのテキスト量・・・携帯ってけっこうパワーあるんだな・・・

糞ｵｿｽwwwでもアイディアとしてはいいね！
いきなり分裂するアークとか、いきなりスピードアップする奴とか結構面白いが、サクサクできないのが難点か‥

遅いでしょｗｗｗｗけっこう面白い嬉しすｗｗ
静止中はスコアが貰えるので狙ってみてくださいな。俺クリアできないけど。
B=12ってところを減らすと圧倒的に早くなるんだけど、これ最大弾数なんだよね・・・ｗ

確かにwwBをこれ以上増やしたらoutofmemoryが出ちまいそうだもんなwwwちなみレベルは8迄いった

>>425
うむｗｗ出なくても鬼スローｗｗおｗあとちょっとでクリア！　
2Way＋3Wayではさまれたところに高速がくると死ねる

俺の単純ミスはww自キャラ見失ってﾜﾛｽ(^Д^)
という教訓をもとに自キャラはfrectにしたＷＷ
俺もなんか作ろうかな‥

確かに見失うかもｗ
おー　作りましょうーｗ　スレに活気を。そしてネタがない。

ヒント：爆弾ww

>>429
ふむ　なんか考えてみる

プログラム来い！

第２回プログラムコンテスト！

･SPALMもしくはBASICシリーズでのプログラムのコンテストをします。
･今回のお題はマリオ型アクションゲーム。ブロックの中を進んでいくタイプならOK
･プログラムはKURIさんのところのアップ板かここに書き込んで投稿。できればKURIさんのとこが間違いがないのでそっちにアップして欲しい。
･期限は２週間後。がんばって作ろう

>>432
お　爆弾思いつかないところに。
・・・壁の多いテーマだ　がんばろう

ここまでできたぞ！マップ切り替え型で行くことにした。
H=8makeimg(B,128,128)for(;I<H;I++){makeimg(B[I],16,128)trgt(B[I])for(i=0;i<8;i++){if(M[I+i*H]='!abs(rand%4)'strat("0000000000001110000100000010000010000000010000000000010011111111",I+i*H)){frect(0,i<<4,16,16)}}}
gc()trgt(B)for(i=0;i<8;i++){drawimg(B[i],i<<4,0,0)}trgt(off)soft1("EXIT")label 0lock()if(16==A=scan>>13){end}(j||t=0)&&++t>8&&t=j=0;drawimg(B,0,0,0)col(255<<16)x=X>>4y=Y>>4
frect(X=X+(((A&2)&&(X%16||!M[x+1+y*H]&&(Y%16==0||!M[x+1+H+y*H])))-((A&1)&&X>0&&(X%16||!M[x-1+y*H]&&(Y%16==0||!M[x-1+H+y*H]))))*4,(x=X>>4,Y=Y+(J=(!j&&112>Y&&(Y%16||!M[x+y*H+H]&&(X%16==0||!M[x+y*H+H+1]))))*4
-(j=(!J&&(A&8)&&Y%16||!M[x+y*H-H]&&(X%16==0||!M[x+y*H-H+1])))*4),16,16)unlock(1)goto 0

>>434
すげー。なんだこの軽さ。しかもほとんどの構文が論理式だけで書いてあって解読無理す。レベル高いな・・・。
どうやってもこの処理速度に勝てないから、部分再描画式にしてなんとか速度うｐ
地形当たり判定はまだ作ってない。そしてマップ切り替え被ったｗ
どーすればおもしろいか考え中。そもそもマリオってどこが面白いのか文にできん。

なんとかマップ切り替えとか、敵の処理とかまで出来たけどさすがにちょっと遅くなってきた…。
あとはボスとｽﾃｰｼﾞデータと画像だな。データ量の割にはすぐにクリアできてしまうかもしれないので、
色々考える必要がありそうだ。うぅ…頭イタイ、、、

>>422
今更だが弾幕おもしろい。携帯では動きそうにないからPCで見たが確かにかなり長いソースで軽く5kﾊﾞｲﾄ越えてた。
そんでスコープごとにタブ入れたりreturnに;つけたりしてみたら、なんだこれ…
まるでPC用のプログラム。これが携帯で動くのだから最近の携帯の性能には驚かされる。
atanもよくできていてPCのエミュで動かしたらちょうどいいスピードで軽くハマった。422氏のこれからが楽しみになった。
422氏のように用意された文を駆使する人もいるかと思えば434氏のように大半を演算子で作って最低限の命令に抑える人もいてプログラマの個性があるのは見てておもしろい。
これからもこのスレでいろいろな特徴あるプログラマ(キャラ)が生まれて欲しいと思う今日この頃…

やっとこのスレ見つけた…
昔はよくプログラム組んで書き込んだものだ。ぐるぐるとかMultiSAVEとか…

>>436
ボス、敵って！マジすか。マップ処理と移動だけでゲームにするつもりですｗｗｗｗ
>>437
うほ。反応嬉しい。
今作で演算子構文しようとしてるんですが、判定がもーいみわからん
結局ifと&&がごちゃごちゃになってますｗ
>>438
>>432コンテスト中らしいです。参加しませう！

>>ALL
画面サイズって、自分の携帯にいっぱいいっぱいで作っていいん？
P900ivなんだけど、みんな503対応で作ってる人多いですよね？

安心しろ。俺なんてP901iだ！

ちなみにheight、widthを使いながら書くと互換性が生まれる…
って知ってるかwwとりあえず俺はスクロール型を作るわ

ステージ2までしかないけどマリオできたからやってみて
ttp://park21.wakwak.com/~kuri/cgi-bin/pbbs.cgi?mode=list&page=0
速い機種なら最高だろう。

>>440
おぉ　一個上でつか　height widthは>>422で使ったけど、
マップの当たり判定は拡大縮小すると、小数部分で誤差がでそうなのでやらなかった。
自機の判定、ピクセルですよｗｗｗｗｗｗｗ
スクロールかー。すごいなぁ。あのー、タイルが半分だけでる時とかの処理を想像してやめたというｗ
>>442
うおぉぉぉ　軽さが驚異的だ・・・
しかも踏む処理orz　すごすぎる。
難易度も、クリアがおもろいぐらいでお手ごろ！

今見て気づいたけどステージ少なくなかった…？直しといたんでヨロ

＞あのー、タイルが半分だけでる時とかの処理を想像してやめたというｗ
substrで一つ先のマップチップを読み込ませることで平気でない？

>>444
あ　なんか話と食い違うと思ったらそういうことか。地上と地下だっ！
むむむ。この少ないデータ量で請ったマップを・・・　全部罠にはまったぜｗｗｗ
読み込み画面をうまく使ってるなー。。。
クリア後に和みな雰囲気の楽しさが。いいねこれ。
>>445
戻りも考えると、両端に一個多く読むだけか？そういわれると簡単な気も・・・
でも、改行のない配列で、ある列だけを各行から読むってのが難しそう・・・

3連休は「ちまっとした暇」がないから携帯プログラミングはしない俺ｗｗｗ

自分的には２面の３マップ目で上からクリアする方法と４マップ目で敵を踏んでクリアするところがアクションぽくて好き
まあ、厳しいけどもうちょい高速化してみる

せっかくトリップつけたのにいきなり名前書き忘れたｗ
2-3上から行けたのか！今５回ぐらい挑戦してやっとできたｗ
上から行くと楽じゃのう。
高速化がんばってください。あと敵の動きが不思議。落下と往復だけなのに、トリッキーに見える。

お題とは違うけど、SPALM習作、MultiSAVE移植版
一元配列でSAVEで複数保存を可能にする。
保存したい内容をMS[i]に代入した後、MS([保存要素数])呼び出し。
読込はML()で。保存されている要素数が帰り値になってる。保存内容がML[i]に格納されている
携帯B+より格段に早くなってるなぁ…

MultiSAVE
t=tick;@(MS,"000","111","222","333")
MS(4)
n=ML()
for(i=0;i<n;i++){text(ML[i],20,12*i+12,3)} text(tick-t."msec",50,24,0);input();end

func MS(MN){mf=MS[0].",";for(i=1;i<MN;i++){mf=mf.MS[i].","};save(mf)}
func ML(){ls=load();tn=strlen(ls);bn=-1;bfi=-1;
for(i=0;i<tn;i++){if(strat(ls,i)==","){bn=bn+1;ML[bn]=substr(ls,bfi+1,i-bfi-1);bfi=i}}
return bn+1}

>>448
やっぱ高速化無理でした…。
変わりにクッパステージを増やしてクッパも作ったがあんまおもろくならなかったから
俺の作品はアップ版にあるやつで完成ということで
>>449
セミコロンは出来るだけ使わないで式も簡単にすればまだまだ高速化できる。
bn=-1;bfi=-1;は、、、
bn=bfi=-1
bn=bn+1;は、、、
bn++とか
そしてアクションを作って！

>>450
アクションって何ですか?
あと、>>と~の使い方もよくわからないとです…
ご教授願います

>>451
今プログラムコンテストのお題がマリオ型アクションだからさ。
>>と~はビット演算だからそれを理解すればいい。
コンピュータは2進で数字を表現してる。そしてSPALMでは32BITの数値を扱えるわけで…
00000000000000000000000000000001
1の時はこうなってるが>>1すると各BITが右に一個ズレて全部0になる。これを10進で書くと
1/2=0
てこと
~はBITの0と1が反転するから
1111111…0となって-2になる。
後は自分で調べな

おまいらsubstr(a1,a2,a3)で
a3を抜かすと最初から全部読み込むはずなのに、読み込まないような伎ガスるんだが、こんなの俺だけか？

間違えだ
a2から最後までだった

ていうかみんなゲーム作ってんの？俺はそれが気になってしょうがないんだが…

>>455
俺は作ってるよ。マップ生成と当たり判定、移動（ジャンプも）　までできた。
これからゲーム要素を突っ込めば完成。３連休に仕上げようと。

解した

キー入力がうまく行かない…
input()とscanの使い方教えて下さい
携帯BASICと変わりすぎてて分かんない



@(a,"赤","青","緑","黄","愛","友情","青春","季節")

label 0
clear(0,0,width,12)
b=abs(rand)%4
b2=abs(rand)%4+4
c=abs(rand)%101
text(a[b]."色の".a[b2].c."パーセント",0,0,0)

if(input()==1){exit}endif
goto 0

俺も違いは良く知らんけど
K=scan if(K and 1){ ' おされとるがな！ ' }　
みたいにキーコードとandして、Trueなら押されてるってことになるよ
キーコードのor値が入ってるから、==だと同時押しがウムムな結果に。

inputとscanの違いはこれでわかるはず。
while(scan!=1){lock()clear(0,0,60,50)text(input(0),0,0,0)text(scan,0,16,0)unlock(1)}
0キーで終了ね

お二方ありがとうございました
おかげでなんとかキー取得出来るようになりました
exit命令がendになってるのに気づかなかった…
あと、SPALMは二つのキー取得が簡単にできますね

@(a,"赤","青","緑","黄","愛","友情","青春","季節")
label 0
b=abs(rand)%4
b2=abs(rand)%4+4
c=abs(rand)%101
text(a[b]."色の".a[b2].c."ﾊﾟｰｾﾝﾄ!",0,0,0)
if(scan!=1){lock()text("ｷｰﾊﾞｯﾌｧ".input(0),0,50,0)unlock(1)text("ｽｷｬﾝ".scan,0,66,0)}else{end}endif input()
clear(0,0,width,100)
goto 0

また分からない時はご教授願います

@()命令でかなり使いやすいね
でももしかして@(a[0],0,1,2,3,4)
とかのインデックス付き変数は入れられないのかな
上の例でいえばb=a[0][2]でbに2が代入されるような事ができなかったんですが(;´Д`)

>>462
ポインタとかの参照型が無いみたいだから、二次元配列も使えないんじゃね？
俺もそれは困った。マップで・・・

できるよ。copyでも

funcについてなんですが
func ****(a,b){a++ b++} と
func ****(){a++ b++} では何が違ってくるんですか？
引数ってよくわからない…
関数名([引数])から勉強しなおすべきなのか

copy()使ったけどやはり無理みたいです…。
copy(a1,a2,a3,a4,a5)のa5もわからない…

読み込みたいのはこれ↓
'ｷｬﾗ
@(a[0],(´∀｀),ﾓﾅｰ,2,2)
@(a[1],(´･ω･`),ｼｮﾎﾞｰﾝ,5,2)
@(a[2],(･∀･),ｼﾞｴﾝ,0,2)
'出撃設定
@(b,0,2)
'ﾕﾆｯﾄ枠読込
for(u=0;u<2;u++){for(s=0;s<3;s++){c[u][s]=a[b[u]][s]text(c[u][s],u*60,s*16,0)}}

>>465
(a,b)の所に(2,3)と代入したとする、{a++ b++}が2++3++となる
copyは一回ぐらいしか使ったことないから分からない。

func A(a,b){a++b++}
はA(5,8)と呼び出したとするとaに5、bに8が代入されa++b++でaという変数は6に、bという変数は9になる。

copy(A[0],2,B,0,9)
これはA[0][2]からA[0][10]までの値をB[0]からB[8]までにコピーすること

'ｷｬﾗ'
@(a[0],"(´∀｀)","ﾓﾅｰ",2,2)
@(a[1],"(´･ω･`)","ｼｮﾎﾞｰﾝ",5,2)
@(a[2],"(･∀･)","ｼﾞｴﾝ",0,2)
'出撃設定'
@(b,0,2)
'ﾕﾆｯﾄ枠読込'
for(u=0;u<2;u++){
for(s=0;s<3;s++){
text(c[u][s]=a[u*2][s],u*60,s*16,0)
}
}でいけるかと思ったがだめだね

メモリを仮想的に作ってみればいいと思った。
@(all,"(´∀｀)","モナー",2,2,"(´・ω・`)","ショボーン",5,2,"(・∀・)","ジエン
",0,2)
@(pos,0,4,8)
for(u=0;u<3;u++){for(s=0;s<4;s++){
cell=all[pos[u]+s]　
text(cell,u*70,s*16,0)
}}
input()
動作したけど、コレじゃダメ？
あと、引数ってのは、その関数の中でのその変数の値をきめられる。
ただし、funcが定義された位置（つまりfuncの外全部）でa、bを初期化してる場合、引数が来ないときは、
関数からa、bを参照できるから、結果的に同じことになっちゃうだけ。
ようは、func foo(a,b){}の中での、a、bは、fooの中のローカル変数で、外部からは参照できないのに対して、(読み込まれるのはfooの外のa、b)
func foo2(){}の中から、a、bを参照した場合は、foo2の外のローカル変数だから、変更すれば外部から参照したとき変更されてる。
ってのが一般的な考え方・・・かな？

皆さん丁寧にありがとうm(__)m

@(CH,"ｶﾞﾝﾀﾞﾑ",130,12,7,30,1,"ｶﾞﾝｷｬﾉﾝ",135,15,1,22,2,"ｶﾞﾝﾀﾝｸ",140,10,1,8,3,"ｼﾞﾑ",100,8,0,18,1,"ｺｱﾌｧｲﾀｰ",50,4,5,40,2,"ｺｱﾌﾞｰｽﾀｰ",80,5,1,48,2,"ｶﾞﾝﾀﾞﾑMC",150,17,10,40,1,
"ｻﾞｸI",60,10,0,18,1,"ｻﾞｸII",80,10,0,20,2,"ｻﾞｸIIS",130,13,7,40,1,"ｸﾞﾌ",115,11,0,23,2,"ﾄﾞﾑ",135,12,0,33,2,"ﾘｯｸﾄﾞﾑ",130,12,1,34,2,"ｷﾞｬﾝ",130,15,0,35,1,
"ｹﾞﾙｸﾞｸﾞ",120,10,0,35,2,"ｴﾙﾒｽ",140,5,10,30,4,"ｼﾞｵﾝｸﾞ",180,14,10,38,3,"ｽﾞｺﾞｯｸS",120,10,8,30,2,"ｹﾞﾙｸﾞｸﾞS",135,10,9,35,2,"ﾋﾞｸﾞ･ｻﾞﾑ",200,9,0,18,4)

@(ST,0,1,2,3,9,10,11,17,18,19)
soft1("")soft2("QUIT")
text("機体名",0,0,0)text("耐久力",0,12,0)text("攻撃力",0,24,0)text("ＮＴ値",0,36,0)text("機動力",0,48,0)text("射程",6,60,0)
label 0lock()clear(42,0,100,100)for(LL=0;LL<6;LL++){text(CH[(ST[L])*6+LL],42,12*LL,0)}unlock(1)input()if(scan==16384&L<9){L++}elsif(scan==8192&0<L){L--}elsif(scan==262144){end}goto 0



読み込みは無事成功しました
関数も詳しい解説ありがとうございます
あとは頑張ってゲームになるよう頑張ります

>>470
おぉ〜。うまくいってよかったっす。がんばってー！

@(A[0],0,1,2,3,4,5)

二次元配列使えるようになったっぽい？
まだ試してないけど作者GJ！

switchについて質問があります


switch(A[B][C]){
case 1|3:D[B][C]="はずれ"break;
case 2:D[B][C]="正解"break;}


switchの条件式は変数の中身を見るだけでも成立する？
caseの数値はorしてもいい？
defaultはなくてもいい？
switchの効果的な使い方とは？

どなたか解説お願いします

>switchの条件式は変数の中身を見るだけでも成立する？
変数一つでもそれは式なので成立する。
>caseの数値はorしてもいい？
caseで使える値は数値単体か文字列単体のみ、演算はできない。
>defaultはなくてもいい？
OK
>switchの効果的な使い方とは？
if-elseでいくつもの数値などと比較するよりはテーブルジャンプしてるswitchの方が速い。
というだけなので使いどころは少ないかもしれない。

ありがとうございますー
orが使えないのは残念だけど高速実行というのはいいなあ
こないだのデータ読み込みと同じように、必要な画像データだけ読み出すルーチンを作ってるんで
時間短縮になりそうでいいですね

…今思いついたけどcaseはbreakしないと次も実行してしまうって事は
case 1:;
case 3:命令 break;
とかは使えますか？orのかわりにはなりそう…

case 1:
case 3:
…
break;

ていうのはあり。switch文てJAVAとかでもそういう命令だからね。

おー、やっぱりそれでいけるんだ…どうもです
case 1:のあとの;はいらないんですね(´･ω･`)breakにつけるのか…

ｾﾝﾀｰまでの残り時間わかるやつ作って｡
秒単位でお願い｡

まだ時間関数拡張されてないからなぁ

そういえばプログラムコンテスト終わってたね…結局俺だけだったか。

ほひょい　誰も触れないと思ったらｗ
最後の日月にこってり忘れて放置プレイ。
できてたところまで明日うｐするわ。

タイトルのとこが空白でリンク開けなかったorz

soft1("リセット") soft2("終了")mpw=20 mph=12 mps=12 mx=mps/2 my=mph/2*mps-mps/2
mjs=1 mjc=mjm=10 mep=0 mem=40 M=4 ang=1 AK=BK=CK=0
col(0xFF0000)frect(0,0,width,height)
func hit(dx,dy){r=1
if((0<dy)&&(dy<mph*mps)&&(0<dx)&&(dx<mpw*mps)){i=dy/mps*mpw+dx/mps
r=(!(strat(map,i)))}return r}func setchar(str,i,char){l=strlen(str)
f=substr(str,0,i) e=substr(str,i+1) return f.char.e}func makemap(){map="1"
for(i=0;i<mpw*mph;i++){if(abs(rand)%100<kpm){map=map."0"}else{map=map."1"}}cchip(mx,my,"1")for(i=0;i<mpw*mph;i++){col(0xFFFFFF*strat(map,i))frect(i%mpw*mps,i/mpw*mps,mps,mps)}}func
dchip(dx,dy){i=dy/mps*mpw+dx/mps i=max(min(i,mpw*mph-1),0)
col(0xFFFFFF*strat(map,i))frect(i%mpw*mps,i/mpw*mps,mps,mps)}func
cchip(dx,dy,c){if((0<dy)&&(dy<mph*mps)&&(0<dx)&&(dx<mpw*mps)){i=dy/mps*mpw+dx/mps
map=setchar(map,i,c) dchip(dx,dy)}}
func s1(){cchip(mx,my-mps,"1")cchip(mx,my+mps,"1")cchip(mx+mps*ang,my,"1")}func
s2(){cchip(mx,my-mps,"1")cchip(mx,my-mps*2,"1")cchip(mx,my-mps*3,"1")cchip(mx,my-mps*4,"1")cchip(mx,my+mps,"1")cchip(mx,my+mps*2,"1")cchip(mx,my+mps*3,"1")cchip(mx,my+mps*4,"1")}func
s3(){cchip(mx+mps*ang,my,"1")cchip(mx+mps*2*ang,my,"1")cchip(mx+mps*3*ang,my,"1")cchip(mx+mps*4*ang,my,"1")cchip(mx+mps*5*ang,my,"1")cchip(mx+mps*6*ang,my,"1")cchip(mx-mps*ang,my,"1")cchip(mx-mps*2*ang,my,"1")}
label 1 col(0xFF0000) frect(0,0,width,height) mx=mps/2 my=mph/2*mps-mps/2 mep=0
kpm=abs(rand)%40+20 makemap()

label 0 omx=mx omy=my K=scan if(K & 262144){end}if(K & 131072){goto 1}
if(((mjs==0))&&(!(hit(mx,my+M)))){mjs=1 mjc=mjm}
if((mjs==1)&&(mjc==mjm)){if(!(hit(mx,my+M))){my=my+M}else{mjs=0 mjc=0}}
((mjs==0)&&(K & 4096)&&(mjs=1))>0
if((mjs==1)&&(mjc<mjm)){if((!(hit(mx,my-M)))&&(K & 4096)){my=my-M
mjc++}else{mjc=mjm}}
((K & 8192)&&(! hit(mx-M,my))&&(mx=mx-M)&&(ang=-1))>0((K & 16384)&&(!
hit(mx+M,my))&&(mx=mx+M)&&(ang=1))>0 if(K & 1024){AK++}else{AK=0}if(K &
1){BK++}else{BK=0}if(K & 2048){CK++}else{CK=0}
if((AK==1)&&(mep>=mem)){s1() mep=mep-mem}if((BK==1)&&(mep>=mem*2)){s2()
mep=mep-mem*2}if((CK==1)&&(mep>=mem*3)){s3() mep=mep-mem*3}if(mep<mem*3){mep++}
lock()dchip(omx,omy)col(0x559999)frect(mx-2,my-2,4,4)col(0)frect(5,5+mph*mps,mep,10)col(0xFFFFFF)frect(5+mep,5+mph*mps,mem*3-mep,10)rect(5,5+mph*mps,mem,10)rect(5+mem,5+mph*mps,mem,10)rect(5+mem*2,5+mph*mps,mem,10)unlock(0)
goto 0

V3G対応ﾏﾀﾞｰ??ﾁﾝﾁﾝ

ボオダなんかには対応せんだろＤｏＣｏＭｏが神なんだから

>>422
おー！なんだできてたんじゃないすか
どっとアクションを彷彿とさせるようなつくりだぁ
期間終わったからって投げないで最後まで作ればおもしろいのができそうな希ガス

うむ。できてたのだ。
落下死亡と、右端から次のマップロード
と、あとタイムアタックつければゲームになりそうなのよね。
技の範囲と貯め時間の判断がアクションパズルっぽいかも

書き忘れてたけど、カーソルで移動と * 0 #　で技ね

楽しみだね。
でもひとつ、iMonaから見てるからソース写すのがキツかった…2chにやるときはできれば一つカキコの文字数を減らしてほしい。
ちなみに1000文字が限界ぽい。そしてできればアップ板に投稿してほしかった。

そういえばアップ板にあったタイトルが空白のやつって422さん？

>>489
あーごめん。自分はパソで専ブラで見てから携帯に転送してるから、文字数は板の制限しか意識してなかった。
うむ。最初うｐ板使おうとしたらめちゃくちゃ重くて・・・　中断して、あ　失敗したな。と思ってた。
今気付いたけどタイトルなしで投稿されてたのね。ブラウザじゃクリックできないから気付かなかった。orz

次のプログラムコンテストのお題の難易度は上中下だとどれぐらいがいい？

ローグライクがいいとおもわ(ry

マップ固定なら出来なくはなさそうだな
ランダム生成を持ち出すとキリがない

てかむしろそれはみんなでやるべきだ。
俺はアイテムや敵キャラ案なら出せるが。エンジン部分は頭の良い連中にパス

ゴメンエンジン部分なら担当したい。

誰か教えてくれランダムな数値をsubstrで読み込むときはどうすればいいの？
AA=abs(rand)%2000
substr(AA,1,1)とやっても無理だった…やっぱAA="254122000"こんなんでないと駄目？

AA=abs(rand)%5+2.abs(rand)%5+2.abs(rand)%5+2.abs(rand)%5+2.abs(rand)%5+2.abs(rand)%5+2.abs(rand)%5+2.abs(rand)%5+2.abs(rand)%5+2.2.3.2.3.2.3.2.3.2.3.2.3
こんな感じで一様うまくいったが、もう一つabs(rand)%5+2を付けるとバグがでる。＿/￣|〇

すごい単純なミスだった…2147483647以上になったからエラー吐かれたのか

まあ何にせよ作るならそれにしかない要素や人の感情を動かせるストーリーなどがないと普通の人には"つまらない"ものになっちゃう
こないだのムリオも自分ではおもしろいかと思ったが友人にはつまらなかったようだし

まあそういう部分は人に任せるとして俺は技術的なとこ手伝うよ

ストーリーをここに書き込んでいいですか？

ローグライクのだろ？
ぉk。燃料come

こんな自分好みのストーリーですが聞いてください。
ある日、いつものように家に帰る途中の事だった。
いつものようにいじめっ子にいじめられ近道をして家に帰るはずだった。
しかし時計の針が九時を回っていた事もあって、いつも近道にしていた森の中で迷ってしまった。
そして気が付いたら、いつもなら何もない通り道に、ポッカリと不気味に穴を空けた洞窟があった。
さすがに恐くなったのでその場を立ち去ろうとした。
その時鬱蒼とした森の中に不気味な声がこだました。
『お前は弱い人間なんだな』自分は不気味な声がしたにも関わらず妙に納得してしまったのだ…
その次の瞬間また不気味な声がした『でも本当は誰よりも強い…そうだろ？お前はただ自分の力が暴走してしまうのに恐れているのだけだ』
自分は改めてその声の正体の、えもいえないおぞましさを感じた。
そう…あれは子供の頃、定かな記憶ではないが憶えている。
自分は今と変わらずいじめられていた。
ある日いつもの様にいじめられていた‥
その日は特にひどく…殴る蹴る挙げ句は木にがんじがらめに縛られて、自分では解く事もできない。
本当はあの時死んでいたのだろう

長すぎる…orz

後全角10000文字位あるので…このぐらいにさせてもらいます

早っ
後がきになる…かっこいい系？ファンタジー系？ミステリー？
でも10000文字はきつ

アドベンチャー系。
最終的には死のカードを手に入れて死ぬ。
が命の大樹により復活させられ、魔王(声の主)を倒しに行く。
イェンダーアミュレットの変わりにカードを十枚探す。

で最後に、その冒険の出来事は夢だと気付く。
そして森の記憶だと気付く…実は命の大樹が主人公を導きそして今日を作らせた
五万年前の超古代文明の魔王大戦によって本当は全てが魔王により破壊されるわけだったが
一人の勇者によって食い止められた
でも魔王の魂は現代まで生き続け主人公に、復活に必要なカードを探させる
で復活可能なカードが揃ったら死のカードを最後に探させ命を絶たせる。
何故大樹が主人公を蘇らせたかと言うと
主人公が五万年前にいた勇者の魂を持って生まれた少年だったからだ
ちなみにその大樹は超古代文明の象徴。
古代文明の遺跡=洞窟(無理矢理ですが)要するに現代まで息を潜めていた
それと何故魔王が主人公を最後に消したかというと
主人公があの勇者の魂を持った人間だということを知っていたから
長文すいません。

システムでちょい提案だけど、ダンジョンの初めで最強状態からスタートして塔を上っていくごとに(時間が経つごとに)弱くなっていくっていうのどうだろうか。だめか…

で、ローグライクについて詳しく

武器防具腕輪アイテム等ののシステムはあるが全て"〜のカード"という名前になる。
店はシレン風な感じで
十枚の魔法のカード(前者とは異なる)を集め最後に魔王を倒すのが目的。
能力値のレベルアップは経験値が貯まると、
一定値のポイント(例：＋20)等がもらえ自由にステータスに加えられる。
ダンジョンは1部屋以上九部屋まで。
すいません本当自分勝手で。

能力値を自由に振り分けて尚且つ武器防具…
なんか物凄くバランス調整が大変そうなので、
やっぱ能力値は完全に武器防具等のアイテム依存でいきたいです。
レベルアップで増えるステータスはヒットポイントのみということで。

プログラム的にはどうする？マップ初期化関数とメインループと戦闘は別ループだよね？それと店とかシナリオ部分とか切り分けりゃいいよね。
どこ担当したいですか？

label 0
'メインループ(移動とか)'
goto 0
func Update(){'マップ初期化'}
label 戦
'戦闘処理'
goto"戦"
label 店
'買い物処理'
goto"店"
label ｼﾅ
'シナリオ進行'
goto"ｼﾅ"
label 他
'メニューとか'
goto"他"

あまり…と言うか全く知識が無いんですがシナリオがいいです
それとマップ生成なんです一部屋だけ作りました。

マップ生成の件なんですが…
一部屋つくり主人公が必ずその部屋の中に入るようにできたんですが
その後どうやって後の部屋＋通路を作れば良いのか分かりません
なんかいい方法知りませんか？

マジでこれログ読むべき雰囲気？
全然会話が付いていけない
とりあえず、変数管理とかちゃんときめれば、>>511みたいにすれば、分担作業で作れそうだけど

ああ、意味がわかった・・・　　　　　　　　　　↓いまここね
コンテストお題何？→ローグライク→みんなで作ろう
じゃぁ俺メッセージウィンドウ表示関数とか作ってみるか
とりあえず画面の縦横のピクセル幅だけきめようよ

1000×1000位がいいです

縦横でした(汗

で誰か通路をつくるにはどうしたらいいのですか？
部屋から部屋までにつなぐ方法が全くもって分かりません

ダンジョンてスクロールさせんの？

読み込みとか低性能機を考慮してゼルダ式でいいんじゃないかな

>>518
部屋Aの縁から
１：距離を乱数でとる
２：方向を乱数でとる
３：そのラインを空間にする
４：終着点から１〜３をする
これを適度に繰り返す
部屋Bの縁から
空間にぶち当たるまで１〜４を繰り返す
どうかな
もしくわ、ひたすら１〜４ででたらめに線を引きまくってから、
適当な位置をでかく空けて部屋にするとか。
まぁ携帯じゃ無理か

>>519さん
主人公は完全固定させ、ダンジョンという図形を動かす感じにしたいと思っています。
>>521さん
前者のアイディアを使わせてもらいます。
てか今シレンやっていますw

主人公が壁を掘れるようにするのもいいかもね
もちろん制限は必要だと思うけど

>>522
がんばってくだちい

一つマップデータの管理に関して思いついた。
通過可能/不可能部分を1bit目、主人公存在/非存在を2bit目、
敵Aを3bit目、敵Bを4bit目、とか規定して数値で保存する。
で、メインループで、マップデータ解析→制御オブジェクトデータ抽出　とかを毎行動でループさせれば、
マップ表示だけ作ったよ〜　とかから付け足しやすくなりそう
わかりにくくてスマ

今部屋が二つになったけど、strやsubstrとか使わなくても平気ですよね？

>>522
どんなアルゴリズムで表示するん？処理速度が気になってしょうがない…
そしてできれば非QVGAの俺にも親切な設計だと喜ぶ

どういう風に作ってるのか気になるなぁ
俺も基本システム作ってみるか

>>526
うおｗだぶった

randで箱を生成しました主人公は完全に動きません。

label 0if(scan&8){end}A=abs(rand)%4A==3&&b=b-20;A==2&&b=b+20;A==1&&a=a+20;A==0&&a=a-20;col(0)frect(a+120,b+120,20,20)goto 0
通路はこんな感じで乱数とって良いんですか？

>>530
その、20ってのも5〜30の乱数にしてみるといいかも

今　仮想二次元配列ラッパー関数郡　製作中
デフォルトの機能で使えばいい気がしてならないが製作中・・・

うー
条件式分岐法を使うとき、代入文の返り値、代入値が0だと偽になるの気付いてなくてめっちゃ手間取ってた・・・
マイナスになりえない数値なら+1すればいいけど、そうじゃない場合ってどうすりゃいいんだろ

おもったんだけど
if(DA==1000){break}みたいな事はできないの？

そらできるよ。それできなかったらbreakの意味がない

func ・(a){return 1}
っての定義して条件式中の代入文を囲ってみた。なかなか便利。(関数名は半角の・　携帯だとあった
二次元配列ラッパー、だいぶできました。あとは自作二次元配列間の矩形転送も作ったら公開します。
マジで意味あるかわからんが・・・

"3,255,255,255,0,0,0,110,0,0,0,10,10,0,0,0,0,1,0,0,0,0,0,0,0,0,1,2,1,0,0,0,0,0,0,0,1,2,2,1,0,0,0,0,0,1,1,1,1,1,0,0,0,0,1,2,2,2,2,2,1,0,0".
",0,1,2,2,2,2,2,1,0,0,0,1,1,1,1,1,1,1,0,0,1,2,2,2,2,2,2,2,1,0,1,2,2,2,2,2,2,2,1,0,1,1,1,1,1,1,1,1,0,0"

で　↑は何？？

1000文字ｼﾘｰｽﾞ｢ぶちょぶちょ｣
下左右で操作。連鎖を組むことだけが目的。連鎖数は自分で数える　つーか誰か高速化して…

for(;a<11;A[-1][a]=A[6][a]=A[a++-2][11]=-1){}origin(width/2-36,height/2-72)rect(-1,-1,73,133)soft1("EXIT")B(X=9)@(c,255<<16,0xFF00,255,0xFFFF00,0x800080)label 0lock()clear(X*12,Y*12,12,12)col(c[t])
farc(12*X=X-(A&(m=1)&&!A[X-1][Y])+(A&2&&!A[X+1][Y]),12*Y=Y+((A&4||++g==16)&&(!A[X][Y+1]&&!g=0)||m=0),12,12)unlock(1)if(16&A=scan>>13){end}goto!m&&!B();label 1lock()for(J=I=0;I<6;I++){
copy(Z,0,C[I],0,11)}for(W=N=i=0;i<6;i++){for(j=0;j<11;j++){A[i][j]&&!C[i][j]&&(++N,R=a=!H=A[i][j],A(i,j),R>3&&J=W[W++]=N)}}if(W){clear(0,0,72,132)for(i=0;i<6;i++){for(k=!j=10;j>=0;j--){
for(I=0;I<W&&C[i][j];I++){if(W[I]==C[i][j]){copy(A[i],-1,A[i],0,j+1+k++)}}}for(j=0;j<11;j++){if(f=A[i][j]){col(c[f-1])farc(i*12,j*12,12,12);}}}}unlock(1)goto!!J
func A(x[a],y[a]){for(C[x[a]][y[a]]=N,I[a]=1;I[a]>-2;I[a]=I[a]-2){if(!C[n=x[a]+I[a]][y[a]]&&A[n][y[a]]==H){A(n,y[a++])}if(!C[x[a]][n=y[a]+I[a]]&&A[x[a]][n]==H){A(x[a++],n)}}R++a--}func B(){A[X][Y]=t+1X=2Y=g=0t=abs(rand)%5}

前にあったぐるぐるは三角関数上の4点をつないでただけで全然3DじゃなかったけどこれはZ座標まであって行列で回す本当の3Dぐるぐる。
ただし重くならないように三角錐を回してます。
abcがXYZ軸の回転角度、これを直接操作できるようにするとおもしろいかもしれない

@(X,0,50,-50,0)@(Y,-48,38,38,38)@(Z,0,-38,-38,48)A=rand%10B=rand%10C=rand%10origin(width/2,height/2)label 0lock()col(0)frect(-width/2,-height/2,width,height)for(a=a+A,b=b+B,c=c+C,i=0;i<4;
z1=(sin(a)*Y[i]+cos(a)*Z[i])/100,z2=(sin(b)*X[i]+cos(b)*z1)/100,y2=(cos(a)*Y[i]-sin(a)*Z[i])/100,x2=(cos(b)*X[i]-sin(b)*z1)/100,x2[i]=(cos(c)*x2-sin(c)*y2)/100,y2[i]=(sin(c)*x2+cos(c)*y2)/100,z2[i]=z2,i++){}
col((CO<65535&&CO=CO+1285,CO))for(i=0;i<4;i++){line(x2[i],y2[i],x2[(i+1)%4],y2[(i+1)%4])}line(x2[1],y2[1],x2[3],y2[3])line(x2[0],y2[0],x2[2],y2[2])unlock(1)if(input(0)){end}goto 0

自分でもやってみたかったから操作できる版作った。上下左右とｾﾝﾀｰｷｰとソフト1で回す

soft2("EXIT")@(X,0,50,-50,0)@(Y,-48,38,38,38)@(Z,0,-38,-38,48)origin(66,72)label 0lock()clear(-66,-72,132,144)if(64&S=scan>>12){end}(S&1&&a=a+10,S&8&&a=a-10,S&2&&b=b-10,S&4&&b=b+10,S&16&&c=c+10,S&32&&c=c-10)
for(i=0;i<4;z1=(sin(a)*Y[i]+cos(a)*Z[i])/100,z2=(sin(b)*X[i]+cos(b)*z1)/100,y2=(cos(a)*Y[i]-sin(a)*Z[i])/100,x2=(cos(b)*X[i]-sin(b)*z1)/100,x2[i]=(cos(c)*x2-sin(c)*y2)/100,
y2[i]=(sin(c)*x2+cos(c)*y2)/100,z2[i]=z2,i++){}for(i=0;i<4;i++){line(x2[i],y2[i],x2[(i+1)%4],y2[(i+1)%4])}line(x2[1],y2[1],x2[3],y2[3])line(x2[0],y2[0],x2[2],y2[2])unlock(1)goto 0

文字列の結合どうやるんですか

. でつなげる

A="1"."2"."3"."4"."5"
text(A,0,0,0)input()

長すぎる画像データとかを分けて連結とかに使える

vodaの携帯BASIC使ってるんだが文字の大きさ変更できる？
何度やっても出来ないんだが｡

ローグらいくキボンヌ

ほんとにSPALMでローグなんて作れんのかな…なんか自信なくなってきたよ。まぁ俺は作ってないけど

｢(*/+-)｣
四則演算の文字列から値を出すプログラム。式文字列はAにそれと同じ式をANSに代入すると二式の結果が表示されます。使えるのは*/+-()と数字のみ
A="(50-9)*2+((-6)*8+16)/2"
A=A."E"
'答え'
ANS=(50-9)*2+((-6)*8+16)/2
N=token()
func token(){while(1){if(scan){end}if(index("0123456789",strat(A,p))>=0){for(p2=p+1;index("0123456789",strat(A,p2))>=0;p2++){}T[N++]=substr(A,p,p2-p)p=p2}if(index("*/+-()",C=strat(A,p))>=0){p++T[N++]=C}if(strat(A,p)=="E"){T[N]="E"break}}}
func ad(){g[n]=fc()M=1while(M){switch(T[N]){case"+":g[n]=g[n]+fc(N++)break;case"-":g[n]=g[n]-fc(N++)break;default:M=0}}return g[n]}
func fc(){h[n]=ex()L=1while(L){switch(T[N]){case"*":h[n]=h[n]*ex(N++)break;case"/":h[n]=h[n]/ex(N++)break;default:L=0}}return h[n]}
func ex(){r=0if(T[N]=="("){i[n++]=ad(N++)n--N++r=i[n]}if(index("0123456789",strat(T[N],0))>=0){r=T[N++]}return r}
text("計算結果 ".ad(),0,0,0)
text("　正解　 ".ANS,0,20,0)
input()

ぐあ　急に流れが
ぶちょぶちょはなんか、一個目が落ちて、底辺についてからニマス移動するタイミングでエラー
つい最近まで試験だったから何もやってないや

エラーって何エラー？こっちでは何も出ないけど…
俺は試験中の投稿orz...

俺も出なかった
N900iで実験

精度最悪な平方根求める関数｡sqr(数字)と使う。こちらの携帯では√90000=300までは1秒以内に値が返りました。
func sqr(varx){while(varP*varP<varx){varP++}return varP}

対数を求めるプログラム。log(底,真数)と使う。log(2,scan)とすると押したボタンの番号を直接得られる。
func log(w,x,P){while(pow(w,P++)<x){}return P-1}

階乗も作ってください

ほい
func fact(x){for(P=1,i=x;i>0;P=P*x--,--i){}return P}

>>549
もう少し長くなってもいいから精度と速さを向上お願いできます？

精度高めたら遅くなりますよ？

なんだかんだで作成。10000倍の精度にアップ。速度落ちた。sqr2(2)で14142が返ります。
func sqr2(x,P){for(i=0;i<5;x=x*100,P=P*10-10,++i){while(P*P<=x){++P}}return P/10}

あとひとつ。for文のi<5を1大きくすれば精度は10倍になりますが、遅くなる上に大きな数の平方根を求めようとすると負になったりします。
そこは自分で調整してください。

携帯BASICの階乗は、膨大な数を計算できるみたいだけど‥あれはどうなってるんですか？

平方根自前とかすっげーー！

数学関数シリーズ
極めつけはArcTan。
２点(x1,y1)(x2,y2)があるとするとatan(x2-x1,y2-y1)で(x1,y1)から見た(x2,y2)の角度がわかります。
三角関数を出すだけなら簡単ですが今回はtanから角度を出すことにこだわってみました。十字ｷｰで点を動かすと角度を出して線が動く。

soft1("EXIT")origin(66,72)label 0lock()if(32==A=scan>>12){end}clear(-66,-72,132,144)frect(-1+X=X-!!(A&2)*4+!!(A&4)*4,-1+Y=Y-!!(A&1)*4+!!(A&8)*4,3,3)line(0,0,cos(T=atan(X,Y)),sin(T))text(T."ﾟ",0,0,0)unlock(1)goto 0
func atan(x,y){if(x){for(t=abs(100*y/x),i=-1;t>tan(i=i+10);){}for(i=i-10;t>tan(i);++i){}y<0^x<0&&i=-i;x<0&&i=180+i;}else{i=Y<0?270:90;}return i}

うぉう　すげぇ・・・
三角関数って、やっぱ中の人は普通に計算してるのねorz

…とまぁ、無駄に名無しで投稿させてもらいました。平方根からatanまであったら便利な関数群ができたのでこれで色々なおもしろいプログラムが作れるはずです。
もっと他の人のプログラムが見たい…

func mborgsqrt(i,j){k=32768do{}while(j=j^k,j*j>i&&j=j^k,k=k>>1)return j}
たぶんこの平方根関数が最強

ァｿﾚｿﾚ
∧∧
(ﾟωﾟ)

あ〜りゃりゃらこりゃら〜

アニ横か！？

放送日age

l=9m=(-3)c=250soft1("EXIT")soft2("CLEAR")for(i=0;i<l;i++){x[i]=abs(rand)%width y[i]=abs(rand)%20}
label 1color(0,0,0)frect(0,0,240,270)label 0lock()color(0,c,0)for(i=0;i<l;i++){text(abs(rand)%10,x[i],y[i]*12,0)y[i]++if(y[i]*12>height){y[i]=0 x[i]=abs(rand)%width-3}}
gc()unlock(1)if(input(0)==131072){end}elsif(scan==262144){goto 1}c=c+m if(c<60|c>252){m=-m}goto 0

勝手に作ってｽﾏｿ

おまいらお願いですからiBASICで動くコード書いてくださいです(´・ω・｀)

俺もそう思ったけど時代の流れかと思いSPALM覚えた…
機能、処理ともに格段に上だが直感的に作りやすいのは携帯BASIC+なんだよな…

急激な言語の変化もここが過疎った原因の一つかと
携帯BASICもまだまだ価値ありだよな

SPALMってどこにあるの？　ドコモで動く？

>>313からいける

一応、iBASICの強化版である携帯BASICの高速処理版…携帯BASIC+も落とせるよ
ちなみに携帯BASIC+とSPALMは基本的に文法が違う

上げとくか┗(*´Д`)┛よいしょ

>>571�d！　早速試してみる

>>572
キモイ

なんかいいお題無い？

思考系パズルとか。
問題作ってみんなで遊べるとかね
アクションの面をエディットできる奴でもいいな。

NOBAさん見てくれていないだろうか…

ローグライクキボンヌ

カラータイル
@(imgCOL,"190,0,0,255,0,0,255,200,200","0,190,0,0,255,0,200,255,200","0,0,190,0,0,255,200,200,255")for(;A<3;++A){loadimg(A[A],"4,".imgCOL[A].",255,255,255,-1,16,16,0,1,1,1,1,1,1,1,1,1,1,1,2,2,1,0,0,0,".
"1,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,2,1,1,1,1,1,1,1,1,1,1,2,1,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2,1,1,2,3,3,3,2,2,1,1,1,1,0,0,0,2,1,1,2,2,2,2,2,1,1,1,0,1,0,0,0,2,1,1,2,2,2,1,1,1,1,".
"1,0,1,0,0,0,2,1,1,2,2,1,1,1,1,1,0,0,1,0,0,0,2,1,1,1,1,1,1,1,1,1,0,0,1,0,0,0,2,1,1,1,1,1,1,1,1,1,0,0,1,0,0,0,2,1,1,1,1,1,1,1,1,1,1,0,1,0,0,0,2,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2,1,1,1,".
"0,0,0,0,0,1,1,1,1,0,0,0,2,1,1,0,0,0,0,0,0,0,1,0,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0")}lock()for(;i<64;++i){drawimg(A[i%3],i%8<<4,i>>3<<4,0)}unlock(1)input()

■線上のありゃ〜
□[1]角A,Bﾗﾝﾀﾞﾑ　[0]ｸﾘｱ　[S2]終了

xm=2ym=5label 1color(0,0,0)frect(0,0,240,270)soft2("QUIT")label 2ax=abs(rand)%240ay=abs(rand)%240bx=abs(rand)%240by=abs(rand)%240
label 0color(r%250,g%250,b%250)line(ax%240,ay%240,bx%240,by%240)line(ax%240,ay%240,x,y)farc(x-3,y-3,7,7)if(scan==1){goto 1}elsif(scan==262144){end}elsif(scan==2){goto 2}
ax=ax+2ay=ay+4bx=bx+6by=by+5r=r+5g=g+7b=b+2x=x+xm y=y+ym if(x>240|x<0){xm=-xm}if(y>240|y<0){ym=-ym}goto 0

>>578
>>579
しょうもないものつくるなクズ

じゃあなにならいいですか？レースですかそうですか

クズよばわりはひでぇや(っД`)
という訳で新しくまともなものを制作途中なのにすでに7KBを越える勢いだ
アプリメーカーズみたいに通信でうｐできるといいのにな

俺みたいにしっかりとしたRPGなどを作れと言いたい。
俺もここにアップしたいけど20000文字ぐらいあるからちと無理。
それにアップしないのにアゲんな

晒してない≒作ってない、だろが
これ以上過疎スレにする気か

作っていない＝スレの価値が無い

激しくしょぼいが…
複雑なコースの中を通ってゴールに着くまでにかかったフレーム数の少なさを
競うゲーム。ちなみに俺は186だった(1で終了)

@(X,110,88,110,86,104,80,86,72,68,58,66,48,68,52,78,78,82,98,74,90,50,38,38,16,36,14)@(Y,128,128,108,108,88,96,76,96,74,90,66,66,60,48,62,44,66,62,78,90,80,100,44,44,32,32)makeimg(B,132,144)trgt(B)lock()
for(i=0;i<24;++i){line(X[i],Y[i],X[i+2],Y[i+2])line(X[++i],Y[i],X[i+2],Y[i+2])}text("GOAL",14,32,32)trgt(off)X=100Y=122label 0R++lock()drawimg(B,0,0,0)if(A=scan,x=X,y=Y,X=X+!!(A&16384)-!!(A&8192),Y=Y+!!(A&32768)-!!(A&4096)
,A(G,G+2)){X=x Y=y}if(A(G+1,G+2)){++G}elsif(A(G,G+1)){--G}frect(X-1,Y-1,3,3)if(A&2){end}if(Y<33){soft2(R)clearkey()input()end}unlock(1)goto 0func A(a,b){
return(X[b]==X[a])?(X[a]<x)^(X[a]<X):(Y>(m=Y[b]-Y[a])*X/(n=X[b]-X[a])+Y[a]-m*X[a]/n)^(y>m*x/n+Y[a]-m*X[a]/n);}

ごめん
ちょい修正。

@(X,110,88,110,86,104,80,86,72,68,58,66,48,68,52,78,78,82,98,74,90,50,38,38,16,36,14)@(Y,128,128,108,108,88,96,76,96,74,90,66,66,60,48,62,44,66,62,78,90,80,100,44,44,32,32)
makeimg(B,132,144)trgt(B)lock()for(i=0;i<24;++i){line(X[i],Y[i],X[i+2],Y[i+2])line(X[++i],Y[i],X[i+2],Y[i+2])}text("GOAL",14,32,32)trgt(off)X=100Y=122label 0lock()
drawimg(B,0,0,0&(++R,A=scan,x=X,y=Y,X=X+!!(A&16384)-!!(A&8192),Y=Y+!!(A&32768)-!!(A&4096),A(G,G+2)&&(X=x,Y=y)))frect(X-1,Y-1,3,3)if((A(G+1,G+2)&&++G)||A(G,G+1)&&--G,G==24&&E(),A&2){end}
unlock(1)goto 0func A(a,b){return X[b]==(c=X[a])?c<x^c<X:(Y-Y[a])*(n=X[b]-c)>(m=Y[b]-Y[a])*(X-c)^(y-Y[a])*n>m*(x-c);}func E(){unlock(1)soft2(R)clearkey()input()end}

何のカキコもないな…orz
俺的には結構すげーと思ったんだけど



つーかイライラ棒みたいなゲームにすりゃよかったかな？

面白かった。勃起した
やはりプログラムはあげてなんぼ
俺もやる気出た

そんなに興奮したのか…
これからも新しい技術考えるばい

みんなどうやってソース作ってんの？BASIC？てか良く作れるな〜……

591
うざい?

スレ立てた。
2chｽﾚ

http://hobby7.2ch.net/test/read.cgi/appli/1134721274/
↑だっけ？↑

連レススマソ。ソース作成出来ないくせして連レスすまん。…てかソース作成難すぎる……ＲＰＧ作成とかぜってー無理……

長文スマソ。……

a="=1=,=1="=
"=ｸ=ｿ=ｹ=ﾞ=ｰ"=
O=P=無=し=
I=I=�U=
I=V=�W=
V=I=I=I=�[=
ど=う=か=な=？=


当たり前にエラーだった(笑)

func H(q){C[q]=!C[q];}soft2("QUIT")@(PX,0,4,34,64,4,34,64,4,34,64)@(PY,0,4,4,4,34,34,34,64,64,64)frect(0,0,width,height)
color(250,250,250)origin(2,2)rect(0,0,93,93)for(x=3;x<64;x=x+30){for(y=3;y<64;y=y+30){rect(x,y,27,27)}}for(n=1;n<10;n++){C[n]=abs(rand)%2}goto 1label 0
i=input()if(i&2){H(1)H(2)H(4)goto 1}elsif(i&4){H(1)H(2)H(3)H(5)goto 1}elsif(i&8){H(2)H(3)H(6)goto 1}elsif(i&16){H(1)H(4)H(5)H(7)goto 1}
elsif(i&32){H(2)H(4)H(5)H(6)H(8)goto 1}

elsif(i&64){H(3)H(5)H(6)H(9)goto 1}elsif(i&128){H(4)H(7)H(8)goto 1}elsif(i&256){H(5)H(7)H(8)H(9)goto 1}elsif(i&512){H(6)H(8)H(9)goto 1}
elsif(i&262144){end};label 1lock()for(n=1;n<10;n++){if(C[n]==1){color(150,230,150)frect(PX[n],PY[n],23,23)P++}
elsif(C[n]==0){color(0,0,0)frect(PX[n],PY[n],23,23)}}unlock(1)if(P==9){color(250,250,0)text("CLEAR!",31,115,0)clearkey()input()end}P=0goto 0

ライトアウツって何？良く作ったね〜！

あんまり意味無いけど
ﾗｲﾄｱｳﾄ短縮版。手数がカウントできる

func H(q,r){C[i%3+q][i/3+r]=!C[i%3+q][i/3+r]}soft2("QUIT")frect(0,0,width,height)col(0xFAFAFA)origin(2,2)rect(0,0,93,93)for(n=0;n<9;C[n%3][n++/3]=abs(rand)%2){rect(3+n%3*30,3+n/3*30,27,27)}goto 1
label 0i=log(input())if(i&&i<10){--i H(0,0)H(-1,0)H(0,-1)H(1,0)H(0,1)T++goto 1}elsif(i==18){end}label 1lock()for(n=0;n<9;++n){if(1==c=C[n%3][n/3]){col(0x9AE69A)frect(4+n%3*30,4+n/3*30,23,23)++P}
elsif(!c){col(0)frect(4+n%3*30,4+n/3*30,23,23)}}unlock(1)if(P==9){col(0xFAFA00)text("CLEAR!",31,98,0)text(T."手",31,112,0)clearkey()input()end}goto P=0func log(x,p){while(pow(2,++p)<x){}return p}

誰か基礎から教えてください(__)ﾍﾟｺﾘ
http://hobby7.2ch.net/test/read.cgi/appli/1134721274/

何か書け$OT

NG推奨ID:GxUuyUQDO

最強?BASIC
何かBASICの作って$OH

いまさらだがﾌｧﾝｸｼｮﾝ便利だな
色替えとかバイブさせるテキストツール作ってた椰子いたよな…

なんか教えてm(≧Ｕ≦)m

>>605
ああ、FTSYSだっけ？あれも開発続けたら面白かったろうに

思ったんだけど前スレ見たいって人いる？
html持ってるからいいあぷろだあればあげるかもなんだけど…
結構面白い事書いてあるしプログラムも全部携帯BASICのだからいいんじゃない？

神が！

個人的には見たい(`･ω･´)

>>608
前スレって982で終わってるの？

そうそうあの982で保守失敗の…


で、自分にはあぷろだの捜索能力がないんでいいとこあったら紹介してもらえます？
もしかしたらZIP化するかも

ｼﾚﾝ風の作り方教えて下しぃ。自機:voda
使用アプリ:携帯BASIC 1.0.5

↑ゆういちキタすwwwバカスwww

過疎ｽﾚだしゆういちでも全然歓迎

ゆういち、メール欄には sage って書かんと悪徳業者や厨房が現れるからそこだけ頼むぜ
よし、まずは8*8のマップを自由に歩けるプログラムを作ってみろ

自機教えりゃバレたな。８×８マップ:作れない
移動:悪い。分かんね。俺はBASICユーザー辞めたがいいか？辞めたがいいよな…

X=4Y=4
label 0
lock()
clear(0,0,width,height)
text("人",X*12,Y*12)
unlock(1)
if input()and keyup and X>1then X=X-1
elseif scan=keydown and X<8then X=X+1
elseif scan=keyleft and Y>1then Y=Y-1
elseif scan=keyright and Y<8then Y=Y+1
goto 0

悪い、こっちな



X=4Y=4
label 0
lock()
clear(0,0,width,height)
text("人",X*12,Y*12)
unlock(1)
if input()and keyup and Y>1then Y=Y-1elseif scan=keydown and Y<8then Y=Y+1
elseif scan=keyleft and X>1then X=X-1elseif scan=keyright and X<8then X=X+1endif
goto 0

ありがとざいあす！ところでgoto 0って……

617さん
この恵まれ無い私にお教えありがとうございます！
もう神で決定したいな。

初めてのage

んでもってマジのｼﾚﾝやってた。

3Dの作り方ない？

努力の様子が伺えない現段階じゃ絶対に無理だと言い切れるな。
ただ頭が弱いだけならまだしも努力しねーんだもん、そら無理だよ。

＞ただ頭が弱いだけ
ﾌﾟｹﾞﾗ

ダンジョン自動生成型探索プログラム。ファイルは2つ。
タイトル｢init｣
迷路を生成し、初期化

label 1for(w=width,h=height,N="北東南西",H[3]=H[0]=-H[1]=H[2]=1,V=!P[1]=P[0]=i=0;i<105;M[1][i%15][i/15]=M[0][i/15][i++%15]="B"){}MAKEMAZE(15,7)M[1][14][6]=M[0][6][14]="C"x=y=-1000origin(w/2,h/2)
func MAKEMAZE(W,H){for(i=1;i<W;i=i+2){for(j=1;j<H;M[1][i][j]=M[0][j][i]="A",j=j+2){while(M[1][i+x=rand%2][j+y=x?0:(rand&1)*2-1;]=="A"){}M[1][i+x][j+y]=M[0][j+y][i+x]="A"}}}soft1("EXIT")

タイトル｢ダジョン｣
左右で向きを変える。上で前進
座標(14,6)につくとメッセージウィンドウが表示されるので1か2で降りるかを選択

#init#label 0lock()col(0x400040)if(1<<17&A){end}if(B&&M[1][P[1]][P[0]]=="C"){clear(-27,-15,54,30)rect(-28,-16,55,31)text("1.おりる",-24,0,32)text("2.やめる",-24,1,0)if(A&2){B=0goto 1}elsif(A&4){B=0}}else{
clear(-w/2,-h/2,w,h)if(1&A=A>>12){k=M[j=V&1][P[j]+H[V]][P[1-j]]if("B"==k||"C"==k){P[j]=P[j]+H[V]B=1}}elsif(A&2||(A&4)){V=1+V+A&3}text("方位:".strat(N,V).";座標(".P[1].",".P[0].")",-66,-72,0)for(i=0;i<4;++i){
line(62*H[i+1&3],62*H[i],0,0)}for(i=0;i<5;++i){j=16+i*24K=V&1l=M[K][P[K]+i*H[V]][P[1-K]]if("B"==l||"C"==l){for(k=0;k<2;++k){l=M[K][P[K]+i*H[V]][P[1-K]+H[k]*(1-(V>>1<<1))]if("B"==l||"C"==l){
rect(x/(j+12*H[k]+12),y/(j+24),-x/(j+24)-x/j,-y*2/(j+24))}}rect(x/j,y/j,2000/j,2000/j)}else{frect(x/j,y/j,2000/j,2000/j)break}}farc(-10,40,20,5)col(0x80FE)frect(-8,12,16,30)}unlock(1)A=input()goto 0

sugeeeeeeee!!
大迷路思い出した(wizではないのがﾐｿ)

神よ、&&とか||の使い方を教えて下さい
なんとなくキー関連が短縮できそうな気がしてます

神の教えてくれた手で色んな奴出来るよ。たとえば｢主人公動かし処理｣←普通｢敵動かし処理｣←出来る？｢スライム動かし処理｣←難い？
スライム動かし処理はtext(" ∧ ",20,20) text(" (･ ･) ",20,30) text(" ￣",20,40) 後は動かす処理等で…
神>敵の作り方もしくは戦いを教えて下さい！師匠(?)！

配列もわからん馬鹿に教えるかヴォケww少しは自分で考えろ。

そこまで分かってるなら出来るだろ



soft1("進化")soft2("終了")h=" 人"X=4Y=4label 0lock()clear(0,0,width,height)text(h,X*12,Y*12)text("(･･)",X*12,Y*12+10)text(" ￣",X*12,Y*12+21)
unlock(1)if input()and keyup and Y>1then Y=Y-1elseif scan=keydown and Y<8then Y=Y+1elseif scan=keyleft and X>1
then X=X-1elseif scan=keyright and X<8then X=X+1 elseif scan=keysoft2 then exit elseif scan=keysoft1 then h=" �V"endif goto 0

>>630
与え厨は(･А･)ｲｸﾅｲ

>>328
スライムでも見てろ。
5,255,255,255,0,255,255,0,0,0,255,0,0,0,160,160,5,16,16,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,
0,0,0,0,0,0,0,1,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,0,1,1,1,1,1,1,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,0,0,1,1,1,1,0,0,1,1,1,0,1,1,1,0,2,2,0,1,1,0,2,2,0,1,1,1,1,1,
1,0,2,2,0,1,1,0,2,2,0,1,1,1,1,1,1,1,0,0,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,3,1,1,1,1,3,1,1,1,1,4,0,1,1,1,1,3,3,3,3,3,3,1,1,1,4,0,0,0,1,1,1,1,3,3,3,3,1,1,4,4,0,0,0,0,0,0,1,1,1,1,1,4,4,4,0,0,0,0

あれ…もしかしてSPALMって複数スレッド動かせないのか？

>>633
イエス！
マルチスレッドなし

マジですかあ…今構想中の物は作れないやorz
まあ工夫してやってみるかな

情報thx



ところでkeez rabの携B+落とそうとすると504になるのは俺だけかな

ごめん、Keez lab で 404 だった

携帯コンテンツ
http://hobby7.2ch.net/chakumelo/

次はこの板でしないか？

ゲームじゃないし

アプリ=ゲーム
ではない

ソースアップ板にプログラム上げてる奴、ゆういちか？
だとしたらｶﾏﾄﾄやめてなんか作れ

>>639
雷キック・オフ
ただのＭＡＰ？表示
ただの文字表示は、たぶんゆういちだろうな。
ホントあんなもんアップするなと。ちなみに404は俺もなった。
俺もスレッド使いたかった‥

>1-640
プログラミングｺﾝﾃｽﾄ
･SPALMか携帯BASICのみ｡
･今回のお題は[レースゲーム]で｡
･期間は１週間。
･ではスタート！

>641
プログラミングｺﾝﾃｽﾄね。よっしゃ〜！やる気でたぜ〜！
>632
は何？

自演すんだったら自分で立てたとこでやれよ…。

>>641
てめーはクルクルパーだな

ダンジョンRPGのアイテムと言えば何があんの？つーか何が欲しい？
参考にしたいので教えて

>645
え〜と……？
何が欲しいかとゆうと……
奇跡の腕輪
･一回行動したらたまにHPを5回復させる。

ローグライクきぼーん

ローグではないのかもだけど、今不思議のダンジョンＲＰＧ作ってんのよ。
今は
アイテム
セーブ･ロード機能
ダンジョン生成･表示
と細かいのがいくつか実装済みなのよ。
これからバトルとかパラメータ系整えば完成しそう

あ、シナリオも必要か…一人でやるけどね

>>648
＞不思議『の』ダンジョン
分かってるねぇ(^O^)

戦闘はエンカウント方式でいくわけだが
敵キャラを決めにゃならん
画像では容量重いし、図形でも手間がかかる…よって顔文字でいくことにした。
どんなのがいい？
【顔文字】
【戦法】

>650
顔文字.(･U･)ﾉｼ
戦法.1:(Ｕ･)〓〓〇−☆2:(･３･)〓〓３

ちょっと細かいこと言うと敵AAは一つでよくて行動コマンドは攻撃･魔法･回復･防御の4つ
ｽﾃｰﾀｽは強さ･防御力･魔力･精神力･素早さ･運がある。
これをふまえて書いてくれ

ステータスとかも書けばいいのか？

攻撃ばっかとか回復重視とか

うp汁

今はまだゲームになってないくせにファイルが５個もあるからめんどい
トラップ床実装完了。
バトル画面はちょこっとポケモン風でいく。全体的に画面レイアウトがきつきつ

そして…
非　Ｑ　Ｖ　Ｇ　Ａ 用

俺もコマンドバトル作ってみよっと
非QVGAでやってみる

めんどくても、うpしる、じゃないと本当に作ってるかどうかも分からんし、アドバイスもできん

｢本体｣
#init#origin(width/M[1][14][6]=2,height/2)soft1("EXIT")soft2("MENU")label 1if(1<<18&A){gosub"図"}lock()if(CL()+C()+1<<17&A){end}B=0if(1&A=A>>12){if(M[j=V&1][P[j]+H[V]][P[1-j]]){P[j]=P[j]+H[V]B=1}}
elsif(A&14){V=1+V+A+A/8&3}text("方位:".strat(N,V).";座標(".P[1].",".P[0].")",-66,-72,0)line(-62,-62,62,62)line(-62,62,62,-62)for(i=0;i<5;++i){if(j=H[4+i],M[K=V&1][P[K]+i*H[V]][P[!K]]){for(k=i>>2<<1;k<2;++k){
if(M[K][P[K]+i*H[V]][P[!K]+H[k]*(1-(V>>1<<1))]){rect(-H[4+i+k],-l=H[5+i],l+j,l+l)}}rect(-j,-j,j+j,j+j)}else{frect(-j,-j,j+j+1,j+j)break}}farc(-10,40,20,5)col(0x80FE)frect(-8,12,16,30)unlock(1)
if(I=M[1][P[1]][P[0]],B&&I==1){if(abs(rand)%2000<EN){gosub"戦"}elsif(D[22]&1){D[7]=D[7]-HP/100}if(D[7]<1){goto"死"}}I<3&&A=input();goto I label 2if(!B){goto 1}
clear(-27,-15,54,30)C()rect(-28,-16,55,31)text("1.おりる",-24,0,32)text("2.やめる",-24,1,0)unlock(1)B=0while(!(A=input()&6)){}goto A>>2label図lock()drawimg(M,-61,-71,CL(C()))
for(i=0;i<6;++i){text(substr("Lv HP EXPFLRGLDTIM",i*#sub##sub3#

｢init｣
labelｰif(!load()){@(D,5,5,5,5,5,5,1,300,0,1,0,0,2,2)SAVE()}k=load()for(j=-1;i<24;D[i++]=substr(k,++j,-j+j=index(k,",",j))){}@(H,-1,1,1,-1,62,25,15,11,8)
@(IM,"ﾎﾟｰｼｮﾝ","万能薬","破砕ｸﾞﾗﾌﾞ","鉄壁","水晶玉","ﾏﾓﾉ餌","TNT爆弾","見透しの巻物","透明ﾏﾝﾄ","幸せの風")@(IP,1,3,4,4,6,6,10,10,10,200)makeimg(M,122,58)get=tick/1000-D[11]V=-1frect(C(),0,width,height)w=132h=144N="北東南西"--D[9]LV=D[6]
HP=LV*LV+237*LV+362>>1label 0gc()if(m=++D[9]%10==0&&V>=0){gosub 9}EN=100for(P[V=1]=P[0]=B=i=0;i<105;M[1][i%15][i/15]=M[0][i/15][i++%15]=1){}for(i=1;104>i=i+1+abs(rand)%40;M[1][i%15][i/15]=3+(rand&1)){}
for(i=1;i<15;i=i+2){for(j=1;j<7;M[1][i][j]=M[0][j][i]=0,j=j+2){while(!M[1][i+x=rand%2][j+y=x?0:(rand&1)*2-1;]){}M[1][i+x][j+y]=M[0][j+y][i+x]=0}}trgt(M)lock()clear(0,0,122,58)C()rect(0,0,121,57)for(i=0;i<120;i=i+8){
for(j=0;j<56;j=j+8){switch(M[1][i>>3][j>>3]){case 0:frect(i+1,j+1,8,8)break;case 3:frect(i+3,j+3,4,4)frect(i+4,j+2,2,6)clear(i+4,j+3,1,3)}}}trgt(off)

｢sub｣
3,3).":".D[i+6],0,i*12-12,0)text(strat("強耐魔精早運",i).":".D[i],-64,i*12-12,0)}text("ST",-64,60,0)for(i=0;i<4;++i){if(D[22]&1<<i){text(strat("毒沈闇混",i),-52+i*12,60,0)}}text("MaxHP:".HP,0,60,0)soft1("SAVE")soft2("ITEM")
C()while(64!=(j=input(0)>>12)&&(j&32&&j=SAVE(D[11]=k),1)){lock()clear(P[1]*8-60,P[0]*8-70,8,8)clear(24,48,42,12)col(0xFFFFFF)rect(-65,-13+12*a=D[23],12,12)C()rect(-65,-13+12*D[23]=a+(j&8&&5>a)-(j&1&&a>0),12,12)
text((k=tick/1000-get)/3600.":".k/60%60.":".k%60,24,48,0)farc(P[1]*8-60,P[0]*8-70,8*i=!i,8)unlock(1)}m=0label 9soft1(m?"買う":"使う";)soft2("戻る")lock()CL()C()for(i=1;i<11;++i){text(IM[i-1],-52,i*12-72,0)}
text(m?"ＳＨＯＰ":"ＩＴＥＭ";,0,-72,i=1)line(-66,-60,66,-60)text(D[10],66,60,8*m)k=0while(64!=j=input(0)>>12){lock()clear(-66,-59,12,131)text("＊",-65,-60+12*k=k+(j&8&&9>k)-(j&1&&k>0),0)if(j&32){if(m&&0<=j=D[10]-IP[k]*50){
D[k+12]++clear(0,60,66,12)text(D[10]=j,66,60,8)}elsif(D[k+12]*!m){D[k+12]--i=1switch(k){case 1:D[22]=0break;case 4:#sub2#

｢sub2｣
D[3]=D[3]+D[3]*BT/2case 2:case 3:D[j=k-2]=D[j]+D[j]*BT/2break;case 6:K=V&1BT||M[1][x=P[1]+K*H[V]][y=P[0]+!K*H[V]]>2&&IT(x,y);T[0]=0break;case 0:(D[7]=D[7]+200)>HP&&D[7]=HP;break;case 7:trgt(M)C()
for(j=1+200*STA=BT;j<104;++j){if(M[1][a=j%15][b=j/15]==4){farc(a*8+1,b*8+4,8,4)}}trgt(off)origin(width/2,height/2)break;case 8:EN=EN>>BT BT=0break;case 5:EN=EN<<BT break;case 9:for(D[22]=j=0;j<6;++D[j++]){}}}}
clear(30,-59,36,119*i)for(j=-5;i&&j<5;++j){text(m?IP[j+5]*50:D[j+17];,66,j*12,8)}i=0unlock(1)}soft1("EXIT")soft2("MENU")return;func CL(){clear(-66,-72,w,h)}func C(){col(0x400040)}label 3
for(i=0;i<10&&10-i<abs(rand)%15;++i){}D[j=10*!i+!!i*11+i]=D[j]+(i?1:j=abs(rand)%501;)IT(P[1],P[0],1)text((i?IM[i-1]:j."GLD";)."を手に入れた!",0,-6,1)input()goto 1label 4switch(2+j=rand%3){case 0:case 4:
MS=(j-2?(j=5,"金"):"HP";)."半減！"D[j+5]=D[j+5]>>1break;case 3:case 1:(D[9]=D[9]+j*(1+abs(rand)%10))<1&&D[9]=0;MS=D[9]+1."階へワープ！"break;case 2:MS="ｽﾃｰﾀｽ異常！"D[22]=15}

｢sub3｣
IT(P[1],P[0],1)text(MS,0,-6,1)sleep(1500)goto!(abs(j)==1)func SAVE(){for(_="",j=0;j<24;_=_.D[j++].","){}save(_)}label戦BT=1S=CL()C()frect(MX=-66,-72,w,h)TY=-MY=30BG=0xECD6B4while(BT){lock()clear(-66,-36,w,72)
switch(S){case 0:S=!TX=-1*MX=MX+6break;case 1:sleep(3000)BT=0break;}col(BG)text("(`･ω･´)",TX,TY,0)text("たたかう",0,36,1)text("ぼうぎょ　まほう　",0,48,1)text("アイテム",0,60,1)col(BG>>1)text("( ﾟД ﾟ",MX,MY,40)
unlock(1)}return;func IT(X1,Y1,W1){C()frect(-67,-10,w+2,20*W1)clear(-66,-9,w,18*W1)trgt(M)clear(X1*8+1,Y1*8+M[1][X1][Y1]=1,8,8)trgt(off)origin(width/2,height/2)}
label死C()frect(-66,-72,w,h)col(0xFFFFFF)text("You are deleted",0,-12,1)text("from this world...",0,0,1)save(0)goto"ｰ"

ｽﾏｿ操作方法忘れてた…orz

ダンジョン表示画面
上…前進
左右…向き替え
下…後ろ向き

メニュー画面
上下…集中的に鍛えたいｽﾃｰﾀｽを選択
マップ…四角が壁。コインマークがアイテム。見透しの巻物を使うとトラップの所に落とし穴がでる
ｽﾃｰﾀｽ…異常があると表示されます。

アイテム画面
上下…選択
ソフト１…使用
ﾎﾟｰｼｮﾝ…HP200回復
万能薬…ｽﾃｰﾀｽ異常回復
破砕ｸﾞﾗﾌﾞ…攻撃UP
鉄壁…防御UP
水晶玉…魔･精UP
TNT爆弾…前のアイテム･トラップ破壊
見透しの巻物…トラップがマップで表示される
透明ﾏﾝﾄ…エンカウント半減
ﾏﾓﾉ餌…エンカウント2倍
幸せの風…ｽﾃｰﾀｽUP+ｽﾃｰﾀｽ異常回復

死ぬと完全に初期化されて1階に戻る

戦闘画面で停止しますた

画面を切り替えるタイミングでは処理が遅くなりがちだからちょっとまったりすれば動くかも

>434氏
すげーな。
携帯BASICで出来るか気になるが。

すげーが俺も止まるんだが

>434氏
>で1とかは
>>1でいいよ？

>>,<<,&&,||
これの使い方がよくわからん…

バトルで止まるってどういう風に？操作きかないってこと？
ちなみにバトルは始まると敵が出てきて何かボタンを押すと数秒後にダンジョンに戻るはずだけど

とりあえず戦闘シーンは描画されるが操作不能

initのEN=100というところを0にするとエンカウント率0になるよ

どうですかこれ

やっぱすげーよ。
>434氏
は天才かも？もしくは本物のＰＧさん？

本物のPGはこんなんやらんだろ、多分。

曲のロードの仕方教えて。
>434氏

auのみ
bgm("タイトル",繰り返し回数)

>434氏優しいですね〜！

俺と>434氏しかいないのか？

ﾉ

今ゲームシステム練ってる

>>681
簡単でもいいから一通り決めといた法がいいですよ。途中から考えるのは大変だしorz

にしてもSPALMってすげぇスパゲッティプログラムになるよな…

ここは携帯BASICの板でつか？SPALMの板でつか？

簡単な惑星待ち受け。関数Heavenly呼び出しで画面中央に指定半径の木星みたいなのを描画。かなり時間がかかるがきれい

frect(0,0,width,height)func Heavenly(R){origin(width/2,height/2)for(Y=-R;Y<=R;++Y){for(CL=abs(rand)&255,X=R;X--;){
if(0<p=R*R-X*X-Y*Y){
color(c=CL*sqr(p)/R,c,c)line(-X,Y,X,Y)}}}}func sqr($,P){while(P*P++<=$){}return P-2}
lock()Heavenly(20)unlock(1)input()

携帯BASICの初心者ですo

frect(80,MAX) input()
みぢかソース

またサイトの解説を読めない人がきたみたいですね…
なんで解説読まないんだ？

間違えた

frect(20,80,20,50) input()

>>685.687
ゆういちか

魔法エフェクト4種完成。これが一番おもしろかったかも…
それとソースもかなり長くなりそうだがその説明もかなり長くなりそう
説明ってどこまで必要？

端的で結構

OK

ドコモってfoval関数使えるよね？

イエス

fovalテスト
col(0x808080)frect(0,0,width,height)@(A,1,1,2,3,2)origin(66,72)label 0lock()if(input(0)){end}col(0xFFFF)foval(-60,-60,120,120,0,180)col(0x80FF)farc(-60,-30,120,60)for(i=0;i<5;++i){
if(++A[i]%4==0){A[i]=0while(X=X[i]=rand%54,Y=Y[i]=-abs(rand)%54,X*X+Y*Y>2809){}}}col(0xCFFFFF)for(i=0;i<5;++i){farc(X[i]-X[i]*A[i]/4-7,Y[i]-Y[i]*A[i]/4-7,14,14)}unlock(1)goto 0

黒い四角の中に緑の四角を表示する処理
soft2("END")
label 0
color(0,0,0)rect(5,5,200,200)color(0,255,0)frect(50,50,100,100)color(50,50,50)text("2chｻｲｺｰ!!",28,28) if input(0)=keysoft2 then exit endif
goto 0

遊んでたら触手ができた。
soft1("EXIT")origin(w=width/2,h=height/2)X=60D=6col(0xFF00FF)label 0if(32&S=scan>>12){end}lock()clear(-w,-h,w+w,h+h)arc(X=X+(!!(S&4)-!!(S&2))*10,Y=Y+(!!(S&8)-!!(S&1))*10,7,7)for(H=atan(X,Y),C=0;C<D;++C){
for(B=5-10*(H>179?1-V():V();),A=C;A<D;T[A]=T[A]+B,++A){}}for(A=0;A<D;X[A+1]=X[A]+cos(T[A])/12,Y[A+1]=Y[A]+sin(T[A])/12,++A){farc(X[A],Y[A],8,8)}unlock(1)goto 0func atan(x,y){if(x){
for(t=abs(100*y/x),i=-1;t>tan(i=i+10);){}for(;t<tan(i);--i){}(y<0^x<0&&i=360-i,x<0&&i=540+i)}else{i=y<0?270:90;}return i%360}func V(){return(H+180)%360<(t=(T[C]%360+360)%360)^t>H}

ちなみに腕の長さは最初の方のD=6ってとこを変えればいけます

んで。SPAML用かい？

BASIC用
【無題】
lock()color(250,250,100)frect(100,130,25,25)frect(95,140,35,10)color(0,0,0)frect(95,155,35,20)frect(90,160,45,10)frect(100,155,25,35)frect(95,180,35,20)frect(100,140,10,5)frect(115,140,10,5)color(255

,255,255)frect(90,165,10,15)color(155,155,155)frect(90,165,5,5)frect(85,165,5,15)if input(abs(rand)%100+1/1000) and keyselect thencolor(255,0,0)

続き
frect(120,165,10,5)frect(125,175,5,5)frect(115,160,5,5)elsecolor(255,0,0)farc(50,50,200,200)endifsoft1("終わり")label 0if input(0) and keysoft1 then exit endifgoto 0

seHJbzcCO
お前もう少し勉強してからこい！

label 0
farc(50,80,80,50)line(20,20,50,50)frect(0,50,50,30)
soft2("ＥＮＤ") if input(0)=keysoft2 then exit endif
goto 0

こんぐらいしろよ

遊んでたらこんなんできたが？
【落とし穴？】
label 0
soft2("Exit")
farc(50,50,80,20)if input(0)=key then exit endif
goto 0

( `ノﾟＡﾟ)ﾋｿﾋｿ

>>703
おまいのアイキュー15

>434氏は昔マリオとゆうかムリオとゆうか……を作ったんですね。

>>706
消えろ

はいはい！！消えますよ〜だ！！(この板は優しい奴居ねーのか？すぐ｢消えろ｣とか｢氏ね｣とか｢マジレス！○は氏んでよし！｣とかゆう奴ばっか。氏ねとか言った奴は警察に捕まれってんだよ)

氏ねとは言わないが(言ってないが)、他のスレに行ってくれ。おまいは迷惑だ

if q<1then n=2endif

q=rand%n

うめ

うめ

ID:ReGWapAcO 釣り下手すぎて笑えん

ヴァイブ
label 0
if input(0)=key2 then onvib() endif if input(0)=key1 then offvib() endif if input(0)=key3 then exit endif
goto 0
ランダム数値
soft2("EXIT")
A=abs(rand)B=abs(rand)C=abs(rand)a=abs(rand)b=abs(rand)c=abs(rand)
label 0
text(A+"/"+a,0,12)text(B+"/"+b,0,28)text(C+"/"+c,0,42)if input(0)=keysoft2 then exit endif
goto 0

>>715
くだらんものアップするな

ログ読んだ。ゆういちとかゆうくそがいるみてえだがもう居ねーよな？

>>717
ゆういちはお前だろ。糞なソースアップしやがって

まあ…ゆういちにしては頑張った方だと思う

ゆういち、そのランダム数値を利用してRenderModeが作られているのがわかるか？

>>719
そうか？
てかSPALMにrmode()がないのが痛い。

もっと勉強して戻ってきます。

>>雄一
あんなもんいちいちうpすんな!!!!
普通の人ならあんなのただの通過点

>>722
たぶん自分では凄いと思っていたんだろうな。
プログラムアップ板にも馬鹿ゆういち製の、糞なプログラムのがあった。

soft2("EXIT")
label 0
R=abs(rand)%255G=abs(rand)%255B=abs (rand)%255
text("select...四角表示",0,12)if input(0)=keyselect then clear(50,50,50,50)color(R,G,B)frect(50,50,50,50) endif if input(0)=keysoft2 then exit endif
goto 0

うむ、ゆういちも少し分かって来たんじゃないだろうか

次はそのカラーチェッカーのRGBを自分で調整できるようにしてみろ。

俺以外のボーダの人いないかな。

>>726
あげんな。虫けら

今んとこプログラム＋セーブデータで7500byteぐらいでメモリの占有率は俺の携帯で400Kbyte超
もうギリギリ…ストーリー的なとこもつけようとおもってたんだけど厳しいからいらないよね？エンドレスってことで、、、
とりあえずこっちで100階までやってエラーなかったらうpるわ

soft2("END")
label 0
R=0r=0g=0b=0
text("■",0,12)text("R="+r,0,28)text("G="+g,0,42)text("B="+b,0,58)if input(0)=keyselect then r=abs(rand)%255g=abs(rand)%255b=abs(rand)%255color(r,g,b)text("R="+r,0,28)text("G="+g,0,42)text("B="+b,0,58) endif if input(0)=keysoft2 then end endif
goto 0

自分でRGB調整は出来ないけどRGBの表示は可能。だけどselectを押すたびにどんどん数字が埋まるのですが…どうしたら良いでしょうか…

>>729
才能無いからプログラミングなんてやめろ

{ｨｬﾀ"…何時間もかけて作ったのを認められない世の中なんて…死のう…こんな世の中なんて…一切無しになれば良いのに…死のう…川に飛び込むか首吊りで…もうこんな人生！！

でもまだ死なない…人生最後まで生きぬいて…最後まで…よし！決めた…折れはプログラマーになってやる…

> 何時間もかけて作ったのに……
そんなこと言ってる時点でおまいはマに向いてない。
やめといたほうがいい。地獄をみるぞ。

てな事言う割に他人のプログラムのパクリじゃないか
何が何時間も掛かっただよ

努力は認めるが、重なる文字をclear()で消してtext()、
もしくは背景色でfrect()で上書きした上にtext()くらい思いつかんとな

label cls
rmode(0,255,255)
color(0,0,0)
frect(0,0,width,height)
rmode(1,255,255)if input(0)=keyselect then end endif
goto "cls"

やっと出来た〜…

X=0Y=12soft2("END")
label 0
color(0,0,0)text("□",X,Y)if input(0)=keydown then Y=24color(255,255,255)text("□",0,12) endif if input(0)=keyup then Y=12color(255,255,255)text("□",0,24) endif if input(0)=keysoft2 then end endif
goto 0

シレンぽいものも作ったけど結構重いし敵の体力減らないし…

違うんだよゆういち。
下キーを押すたびにYが12増えるようにするんだ。
Y=Y+12　って具合に。
もしくはtext("□",X,Y*12)ってして、Y=Y+1　でもいい。

ここまでマスター出来たら、□の新しい位置描画、それまでの□位置の消去、そしてlock()unlock()の使い方を勉強するといい。

最=15現=15HP=8X=HP2=8X=20Y=12x=20y=58攻=abs(rand)%8功=abs(rand)%3soft2("END")
label 0
color(0,0,0)text("HP:"+最+"/"+現,0,80)text("主人公",X,Y)text("敵",x,y)text("敵HP:"+HP+"/"+

HP2,0,150)if input(0)=keydown then Y=24y=44color(255,255,255)text("主人公",20,12)text("敵",20,58) endif if input(0)=keyselect then text("主人公の攻撃！"+"敵に"+攻+"のダメージ！",0,255) endif if input(0)=keysoft2 then end endif
goto 0

>738-739
これが問題のシレンぽいやつ

>>741
2次元配列も知らんやつに作れるかよﾎﾞｹ茄子

>725さんの言ってたRGB操作できる版
r=0g=0b=0soft2("END")
label 0
text("■",0,58)if input(0)=keyup then r=r+10color(r,g,b)text("■",0,58) endif if input(0)=keyright then g=g+10color(r,g,b)text("■",0,58) endif if input(0)=keyleft then b=b+10color(r,g,b)text("■",0,58) endif if input(0)=keysoft2 then end endif
goto 0

おっと名前載せ忘れてた｡(sageもww

>742
2次元配列はしらんが配列はこうやろ？
変数 [index]
こうやろ？ちゃんとサイト見てきたもん！

700超したソース作ったけどエラーで強制終了…また作り直しかよ…

>>745
お前は屑で馬鹿で間抜けだな。
しかも、テメー、なんかタメ口だし本当に屑やろうだな。
ただの配列を二次元配列とかいってやがるﾌﾟｹﾞﾗｯﾁｮww
本当プログラマーにならない方がいいよあんた。
こういっちゃなんだけどプログラマーとしての才覚がない。
まずセンスが無い、それといちいち愚痴を溢すなマジで、10時間なんて当たり前。
皆努力してるのにお前は何様だ。
あと訳もわからずあげんな

俺の気持ちも知らずにズケズケベラベラズケズケベラベラと〜！！とここで怒ってもしょうがないので…他でやろ〜ね〜(｀〜´)

>747
荒すなら他でやれや！あんゴルァ$OT

iro[0]=40
iro[1]=80
iro[2]=120
iro[3]=160
iro[4]=200
iro[5]=240

label 0
s=scan
color(iro[R],iro[G],iro[B])
text("■■■ ＠色成分 R"+iro[R]+"/G"+iro[G]+"/B"+iro[B],20,20)

if input()and key1 and R<5 then R=R+1
elseif s=key4 and R>0 then R=R-1

endif
goto 0


上の6行が二次元配列。
どうやって使ってるか理解してみれ。

そうさ…俺は人のコピーしてやって面白かったら保存しっ放しで…そう…俺はクズ人間なんだ…面白くなかったら消し…やれなかっても消し…もう謝るよ…こんな人生に生まれて来てすいません！！

すまんな、こっちで。

iro[0]=40
iro[1]=80
iro[2]=120
iro[3]=160
iro[4]=200
iro[5]=240

label 0
s=scan
clear(0,0,width,height)
color(iro[R],iro[G],iro[B])
text("■■■ ＠色成分 R"+iro[R]+"/G"+iro[G]+"/B"+iro[B],20,20)

if input()and key1 and R<5 then R=R+1
elseif s=key4 and R>0 then R=R-1

endif
goto 0

下から4行目くらいのところ、一部iMonaでは
半角の　＞０　が　＞１　になるみたいだ
すまんが自分で書き換えてくれ

>>751
まさにその通りだ、今のお前ではなんの飛躍も無く終わるだろうな。

何もそこまで言わんでいいがな…
>>750
それは一次元配列。二次元配列ていうのは
X[i][j]
↑こういうのを言う。つまり[]の数がその配列の次元
ちなみにSPALM/携帯BASICでは何次元配列でも可能。もちろん少ない方が処理は軽い。[]内が数字じゃなくても可。

>>755
唯一、まともにプログラミング出来そうな方ですね。
自分なら二次元配列を使ってRPG系ゲームのアイテム管理等に使います。
でも確かに使う場所を選びますね、動作速度に影響が出るのが一番恐いので‥

>>756
うわ…やっちまったorz
携帯BASICは久しく触ってなかったから思い違いしてた
フォローありがトン

というわけでゆういち、すまんかった。忘れてくれ…
携帯Bで配列は難しいな…

間違えた…

×　>>756
○　>>755

RGBが789でも操作できる版
r=0g=0b=0soft2("END")
label 0
text("■■■",0,12)text("←B+↑R+→G+○ﾘｾｯﾄ↓RGB-",0,28)text("7Rmax8Gm

ax9Bmax",0,42)if input(0)=keyup then r=r+20color(r,g,b)text("■■■",0,12) endif if input(0)=keyright then g=g+20color(r,g,b)text("■■■",0,12) endif if input(0)=keyleft then b=b+20color(r,g,b)text("■■■",0,12) endi

f if input(0)=keydown then r=r-20g=g-20b=b-20color(r,g,b)text("■■■",0,12) endif if input(0)=keyselect then r=0g=0b=0color(r,g,b)text("■■■",0,12) endif if input(0)=key7 then r=255color(r,g,b)text("■■■",0,12) endif if input(0)=

key8 then g=255color(r,g,b)text("■■■",0,12) endif if input(0)=key9 then b=255color(r,g,b)text("■■■",0,12) endif if input(0)=keysoft2 then end endif
goto 0

3/3のはずが4/4になってしまった…

間違えてた
×
text("■■■",0,12)text("←B+↑R+→G+○ﾘｾｯﾄ↓RGB-",0,28)text("7Rmax8Gmax9Bmax",0,42)
○
color(r,g,b)text("■■■",0,12)color(0,0,0)text("←B+↑R+→G+○ﾘｾｯﾄ↓RGB-",0,28)color(0,0,0)text("7Rmax8Gmax9Bmax",0,42)

×のままやると7と8と9を押したら何もなくなります。(○を押したらすぐ治るけどww

ここまで書き込みがないのに驚いたので100ﾍｪね。所でうp板のブロック崩し FOR 携帯BASIC ってだれがうpしたの？

>>764
お前物凄く偉そうだよな、それが人に物を聞く態度かと言いたい。

じゃあ｢所でうp板のブロック崩し FOR 携帯BASIC は誰がうpしたのですか？優しい方は答えてください。お願いします。｣でいいんですかそうですか。

>>766
まだ足りない。
お前の様な能無し愚民は、もっと我々高等人類様に尊敬の意を示せ。

『でいいんですかそうですか』自己解釈してるお前は、まさに進歩しない人間の典型。

じゃあ｢聞きたいことが在るんですけど…皆様うp板にブロック崩し FOR 携帯BASIC をうpした人を知りませんか？このクズで虫けらな俺に教えてくれださい！お願いします！｣でいいんですかそうですか。

>お前の様な能無し愚民
この言い方は酷い｡あと高等人類と自分の事を言うようなやつの方が能無し愚民だと思う｡逆に人間を怒らしたらどうなるか知らないような人間はお前の方だと思う｡

>人間を怒らしたらどうなるか知らないような人間はお前の方だと思う｡
これは言い過ぎた｡

>>769
てか今思ったんだけど、お前は人間に質問するな。

>772
偉そうにしてんのはお前じゃねーの？俺は携帯BASIC初心者なんだぞ？優しい心が一つもねーな。せめて
>お前の様な能無し愚民
これは言い過ぎた｡
ぐらいいえよ｡お前､大統領じゃないくせして偉そうにして､お前優しくしたことね〜だろ？$OT$OT

>1を見ろ！>1を！
ろぐだが>823ｾﾝｾは優しかったみてーだな…>823ｾﾝｾが残ってたらな〜…まぁムリオを作った>434氏が残ってただけでうれしいぜ

大統領なら言ってもいいのか‥
まあ、その様な解釈しか出来ないお前は、もはや愚民とも言えない。
お前は言葉を話せる真菌類だ。

てか真菌類に失礼だったな。
ここを借りて、改めて謝る。すまない真菌類の諸君。
こいつは、愚の塊。

>お前は言葉を話せる真菌類だ｡
ついでにお前は言葉を話せ､携帯もってて､2ch来てる真菌類だ｡にして

お前はこれ迄アゲ荒らし行為、自作自演等をしてきたが、今までの書き込みでの話し方を改め謙虚になるのなら、普通に会話してもいい。

もう何でもいいがこれ以上スレを荒らすんだったらよそでやってくれ、ここのﾚﾍﾞﾙが下がる…

ちなみにブロック崩しは俺ね

謙虚になるかもな。

>>779
不快な思いをさせてすいませんでした。
PG板に戻ります。
でも>>138もかなりの荒らしだと思います。

>779
ほんとにすいませんでした。
>781
ほんとすまねぇ……

>781
>ほんとすまねぇ……
間違った
本当にすまなかった…だった

所でPG板て？

soft2("END")
label 0
text("■",0,12)text("R="+r,0,28)text("G="+g,0,42)text("B="+b,0,58)if input(0)=keyselect th