1175029
Tonyu BBS
[再読み込み] [ホームページ] [使いかた] [ワード検索] [管理用]

おなまえ

Eメール
題  名  
コメント(http(s)://などのURLが含まれていると投稿できないことがあります)
添付プログラム
※プログラムに関する質問は、そのプログラムを添付して送ると対応が早くできます
添付方法...
削除キー (自分の記事を削除時に使用。英数字で8文字以内)
文字色
上下左右 投稿者 : suraimu(YahooBB218113076013.bbtec.net)
- 2004/08/28(Sat) 21:17 No.6945
 


ランダムにオブジェクトを上下左右に動かすにはどうすればいいのでしょうか。


Re: 上下左右 投稿者 : suraimu(YahooBB218113076013.bbtec.net)
- 2004/08/28(Sat) 21:19 No.6946
 
すみません
プログラムを添付しわすれていました。
extends SpriteChar;

vx=2; // 進行方向
a=newAnimation(); // AnimationAdapterを作成
a.loop($pat_NKAjV+0,$pat_NKAjV+4,10); // 敵の2つのパターンを往復するアニメーション
while (1) {
  if ($map.getAt(x+vx,y)==$pat_+0) { // 進行方向のマップパターンを調べ、ブロックのパターンだったら
    a.pause(); // 待機前にアニメーションを止める
    updateEx(30); // 30フレーム待機
    a.resume(); // 待機後にアニメーション再開
    vx=-vx; // 進行方向を反転する
  }
  x+=vx; // 進行方向へ進む
  if (vx<0) f=1; else f=0; // vx が負(左向き)なら反転
  
    while (1) {
      if ($map.getAt(y+vy,x)==$pat_Block+0) { // 進行方向のマップパターンを調べ、ブロックのパターンだったら
        updateEx(30); // 30フレーム待機
        vy=-vy; // 進行方向を反転する
      }
      y+=vy; // 進行方向へ進む
      
     update();
    }
  }
  この状態では上下左右にも動かずアニメーションだけうごきます。


Re: 上下左右 投稿者 : suraimu(YahooBB218113076013.bbtec.net)
- 2004/08/28(Sat) 21:24 No.6947
 
すみません
プログラムを添付しわすれていました。
extends SpriteChar;

vx=2; // 進行方向
a=newAnimation(); // AnimationAdapterを作成
a.loop($pat_NKAjV+0,$pat_NKAjV+4,10); // 敵の2つのパターンを往復するアニメーション
while (1) {
  if ($map.getAt(x+vx,y)==$pat_+0) { // 進行方向のマップパターンを調べ、ブロックのパターンだったら
    a.pause(); // 待機前にアニメーションを止める
    updateEx(30); // 30フレーム待機
    a.resume(); // 待機後にアニメーション再開
    vx=-vx; // 進行方向を反転する
  }
  x+=vx; // 進行方向へ進む
  if (vx<0) f=1; else f=0; // vx が負(左向き)なら反転
  
    while (1) {
      if ($map.getAt(y+vy,x)==$pat_Block+0) { // 進行方向のマップパターンを調べ、ブロックのパターンだったら
        updateEx(30); // 30フレーム待機
        vy=-vy; // 進行方向を反転する
      }
      y+=vy; // 進行方向へ進む
      
     update();
    }
  }
  この状態では上下左右にも動かずアニメーションだけうごきます。


Re: 上下左右 投稿者 : kenji(YahooBB220010104063.bbtec.net)
- 2004/08/29(Sun) 14:21 No.6948
  HomePage
こんなかんじです.

rndomize(); //rnd()で返す値をバラバラにする
speed=3;    //一回の移動距離
change=30;  //移動方向を変える頻度(0に近いほど頻繁に変わります)
...
...
while(1) {
...
  a=rnd(change);
  if (change==0) shift=rnd(4);
  if (shift==0) x+=speed;
  if (shift==1) x-=speed;
  if (shift==2) y+=speed;
  if (shift==3) y-=speed;
...
}


Re: 上下左右 投稿者 : suraimu(YahooBB218113076013.bbtec.net)
- 2004/09/02(Thu) 21:12 No.6999
 
久しぶりにみました。
いつのまにか答えていただいてありがとうございました。
ここまでしてもらってもまだ疑問が残っているので書きます。

   rnd()だけではだめなのでしょうか。
   ↓
>rndomize(); //rnd()で返す値をバラバラにする
>speed=3;    //一回の移動距離
>change=30;  //移動方向を変える頻度(0に近いほど頻繁に変わり>ます)
>...
>...←この「・・・」は何ですか??
>while(1) {
>...
>  a=rnd(change);
>  if (change==0) shift=rnd(4);
>  if (shift==0) x+=speed;
>  if (shift==1) x-=speed;
>  if (shift==2) y+=speed;
>  if (shift==3) y-=speed;
>...
>} 


Re: 上下左右 投稿者 : ごま太郎(i218-44-122-204.s02.a001.ap.plala.or.jp)
- 2004/09/03(Fri) 06:25 No.7002
 
ためしにrndだけでやってみると、いつも同じ方向に動いてしまいます。
「ランダム」というのは名ばかりで、多くのプログラミング言語ではrndで返す値は常に同じになります。
(例:一回目〜1592847390 二回目〜1592847390 三回目も同じ)

rndomize();によってこのrndの計算の基になるものをOSのシステムタイムだったかから取ってくることによって、毎回違うrndの結果が出るようになります。

シューティングについて 投稿者 : 爆(f10client25.across.or.jp)
- 2004/09/01(Wed) 21:22 No.6985
 


Download:6985.zip 6985.zip えーっと、
>「1つのスレッドにつきトピック(質問)1つ」を守ってください
と書いてありますが分割すると大量になるので1つのスレに書きます。許してください。

・stamaがなぜか最初から出てきてしまいます。
・弾を打ち分けたいと思って
while(1) {
  i++;
  if (getkey(32)>1 && i>20 && $score<$time) {
    appear(new tama(x,y,$pat_Sample+39));
    i=0;
  }
  if (getkey(32)>1 && i>20 && $score>$time) {
    appear(new stama(x,y,$pat_Sample+63));
    i=0;
  }
 update();
}
と書きましたが何も起きません(弾が変わらないので上と似ていますが。)。
・敵のUFOとtekitamaの当たり判定が無効になってしまっています。

ちなみにstamaの当たり判定等未完成の所は指摘しないで下さい。未完成なので。


Re: シューティングについて 投稿者 : JAM(218.223.182.230.eo.eaccess.ne.jp)
- 2004/09/01(Wed) 22:45 No.6987
 
まず最初に,ページが複数あるときはなるべくどのページで
問題が起こっているかはっきり書くようにしましょう.
返信をもらえる率が上がります.
以下はindex4.cmml で問題が起きているとして書きます.

とりあえずtimeでプログラム内を検索しますと,
  if (getkey(32)>1 && i>20 && $score<$time) {
  if (getkey(32)>1 && i>20 && $score>$time) {
の2行しか出てきません.
使われていない変数を条件文に使っているので問題が起きています.
$time を $text_time.nokori にするか,
text_time の nokori を $time にするかしましょう.

次に当たり判定.
UFOでfunction atariHantei() { 
で関数を作ってますが使われていません.
使いましょう.

最後にやっぱり質問は分けましょう.
後に検索する人のためです.


Re: シューティングについて 投稿者 : 爆(f8client211.across.or.jp)
- 2004/09/02(Thu) 07:26 No.6995
 
>最後にやっぱり質問は分けましょう.
>後に検索する人のためです.
そうでしょうか?3つも一気に作るのがなんかまずいような気がしていたので。

>次に当たり判定.
>UFOでfunction atariHantei() { 
>で関数を作ってますが使われていません.
>使いましょう.

>とりあえずtimeでプログラム内を検索しますと,
>  if (getkey(32)>1 && i>20 && $score<$time) {
>  if (getkey(32)>1 && i>20 && $score>$time) {
>の2行しか出てきません.
>使われていない変数を条件文に使っているので問題が起きていま
>す.
>$time を $text_time.nokori にするか,
>text_time の nokori を $time にするかしましょう.
そうでしたか。ごめんなさい。そのようなものも自分で見つけられなくて(汗

とりあえず、JAMさん、こんな知識のない僕にいつも付き合ってくれてありがとうございます。

RPG 投稿者 : タツヤ(61-27-134-204.rev.home.ne.jp)
- 2004/09/02(Thu) 05:41 No.6993
 


TonyuでRPGツクールのようなRPGは作れるのですか?


Re: RPG 投稿者 : ごま太郎(i218-224-174-140.s02.a001.ap.plala.or.jp)
- 2004/09/02(Thu) 07:07 No.6994
  HomePage
作れます。なお、このような質問は掲示板のNG質問です。注意書きを読んでみてください。なお、作る際の問題点は、
1、プログラムがめんどい
2、効果音のもたつきがいらつく
3、現在はBGMのバグあり
の三点が個人的なネックです。アップ板に上げてあるTonyu De RPG!!企画のサンプルがツクールに比べて貧弱なのは、動作速度を上げるために描写関係の命令でウィンドー処理を行っているからです。
次回作ではウィンドーサイズを小さくして画像を増やすことで、見栄えだけはツクールに近づけようかと思います。

http://www12.plala.or.jp/goma_goma_deth/tonyu/tonyu_de_rpg.html
を参考にどうぞ。

無題 投稿者 : ごま太郎(i219-167-130-118.s02.a001.ap.plala.or.jp)
- 2004/08/31(Tue) 22:26 No.6979
 


プログラムの編集中に、五百行目あたりからスクリプトを編集することができなくなりました。
行数を減らすとまた普通に編集できるようになることから、一定行数以上のファイルは編集不可になるのかな…と思ったのですが、仕様としてはどうなっているのでしょうか?
一定行数以上の編集が不可になる場合、どの程度までが限界なのかをお願いいたします。


Re: 無題 投稿者 : Ryota(EAOcf-379p254.ppp15.odn.ne.jp)
- 2004/08/31(Tue) 23:00 No.6980
 
おそらく、エディタ部に使用されているDelphiのTMemoコントロールがWindows9x系では16bitコントロールなので、64KBまでしかメモリを使えないというOS側の仕様によるものかと思います。
ですので、現時点ではファイルを分けるぐらいしか対処法はないと思います。


Re: 無題 投稿者 : ごま太郎(i219-165-138-146.s02.a001.ap.plala.or.jp)
- 2004/09/01(Wed) 06:54 No.6981
  HomePage
なるほど、分かりました。とりあえずは改行を減らし、できる限り他のオブジェクトに動作を任せることにします。
ありがとうございました。

質問です 投稿者 : ana(ranma.interq.or.jp)
- 2004/08/31(Tue) 18:01 No.6975
 


http://ppp02.kake.info.waseda.ac.jp/html/HID00000010.htm
のページの「弾を撃つ」というところの
「スペースを押すと弾が出る」
extends SpriteChar;

while(1) {
 if (getkey(39)>0 && x<$screenWidth ) x=x+3;
 if (getkey(37)>0 && x>0) x=x-3;
  if (getkey(32)==1) appear(new Tama(x,y,$pat_Sample+1));
update();
}
をそのまま実行すると
エラーがでてしまいフリーズしてしまいます
どうすればよいでしょうか?
初心者でスイマセン;;


Re: 質問です 投稿者 : ごま太郎(i220-220-188-232.s02.a001.ap.plala.or.jp)
- 2004/08/31(Tue) 18:08 No.6976
 
Tamaというクラス名、または、$pat_Sampleという画像ファイルがロードされていない可能性があります。

$Tamaというオブジェクトを作成し、$pat_Sampleという二つ以上の絵を入れた画像をロードしたうえで実行するというのをお試しください。

.
[直接移動] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [48] [49] [50] [51] [52] [53] [54] [55] [56] [57] [58] [59] [60] [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78] [79] [80] [81] [82] [83] [84] [85] [86] [87] [88] [89] [90] [91] [92] [93] [94] [95] [96] [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108] [109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120] [121] [122] [123] [124] [125] [126] [127] [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139] [140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151] [152] [153] [154] [155] [156] [157] [158] [159] [160] [161] [162] [163] [164] [165] [166] [167] [168] [169] [170] [171] [172] [173] [174] [175] [176] [177] [178] [179] [180] [181] [182] [183] [184] [185] [186] [187] [188] [189] [190] [191] [192] [193] [194] [195] [196] [197] [198] [199] [200] [201] [202] [203] [204] [205] [206] [207] [208] [209] [210] [211] [212] [213] [214] [215] [216] [217] [218] [219] [220] [221] [222] [223] [224] [225] [226] [227] [228] [229] [230] [231] [232] [233] [234] [235] [236] [237] [238] [239] [240] [241] [242] [243] [244] [245] [246] [247] [248] [249] [250] [251] [252] [253] [254] [255] [256] [257] [258] [259] [260] [261] [262] [263] [264] [265] [266] [267] [268] [269] [270] [271] [272] [273] [274] [275] [276] [277] [278] [279] [280] [281] [282] [283] [284] [285] [286] [287] [288] [289] [290] [291] [292] [293] [294] [295] [296] [297] [298] [299] [300] [301] [302] [303] [304] [305] [306] [307] [308] [309] [310] [311] [312] [313] [314] [315] [316] [317] [318] [319] [320] [321] [322] [323] [324] [325] [326] [327] [328] [329] [330] [331] [332] [333] [334] [335] [336] [337] [338] [339] [340] [341] [342] [343] [344] [345] [346] [347] [348] [349] [350] [351] [352] [353] [354] [355] [356] [357] [358] [359] [360] [361] [362] [363] [364] [365] [366] [367] [368] [369] [370] [371] [372] [373] [374] [375] [376] [377] [378] [379] [380] [381] [382] [383] [384] [385] [386] [387] [388] [389] [390] [391] [392] [393] [394] [395] [396] [397] [398] [399] [400] [401] [402] [403] [404] [405] [406] [407] [408] [409] [410] [411] [412] [413] [414] [415] [416] [417] [418] [419] [420] [421] [422] [423] [424] [425] [426] [427] [428] [429] [430] [431] [432] [433] [434] [435] [436] [437] [438] [439] [440] [441] [442] [443] [444] [445] [446] [447] [448] [449] [450] [451] [452] [453] [454] [455] [456] [457] [458] [459] [460] [461] [462] [463] [464] [465] [466] [467] [468] [469] [470] [471] [472] [473] [474] [475] [476] [477] [478] [479] [480] [481] [482] [483] [484] [485] [486] [487] [488] [489] [490] [491] [492] [493] [494] [495] [496] [497] [498] [499] [500] [501] [502] [503] [504] [505] [506] [507] [508] [509] [510] [511] [512] [513] [514] [515] [516] [517] [518] [519] [520] [521] [522] [523] [524] [525] [526] [527] [528] [529] [530] [531] [532] [533] [534] [535] [536] [537] [538] [539] [540] [541] [542] [543] [544] [545] [546] [547] [548] [549] [550] [551] [552] [553] [554] [555] [556] [557] [558] [559] [560] [561] [562] [563] [564] [565] [566] [567] [568] [569] [570] [571]
- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

- Joyful Note -