{---プログラム掲示板投稿フォーム--- 【ソフト名】キャラ移動(バージョン 1.00) 【作 成 者】くある (連絡先:pino@koalanet.ne.jp) 【種　　別】フリーソフトウェア 【ひまわりのバージョン】ver.1.14 【転　　件】可(転載条件:作者にメールで連絡すること) 【ひまわり本体への梱包】可 【実行時に利用作成するファイル】無 【コメント】 初めての投稿です。もしかしたら、もうすでに、どなたかかがこれと似た プログラムを投稿してるかもしれませんが…；(そうであればスミマセン；) キャラがスムーズに動けば良いなと思って作りました。なので　かなりつまらないです； やたらと画面が小さいしイベントも決まった所にしか発生しません； 乱数を使おうとも思ったのですが 確立がやたらと低いものしか出来ないので使いませんでした。 どなたか確立を高くする方法を知っていたらおしえてください； ---投稿フォームここまで---} 母艦の　幅を　100に　設定。 母艦の　高さを　200に　設定。 ＊キャラ 文字サイズは　15。 Xは　10 Yは　30 (X,Y)へ　移動。 「◆」を　表示。 CX=0; CY=0; 'キャラクターの座標 母艦の、キー押した時を、キーイベントに、設定。 ＊キー取得 左キー = 37 上キー = 38 右キー = 39 下キー = 40 ＊マップ描画 塗り色は、灰色。ペン色は、灰色。 (11,30)から,(81,149)へ,四角形。 ＊動き X=X+CX Y=Y+CY (X,Y)へ　移動。 「◆」を　表示。 待機。 ＊キーイベント もし　押されたキーが　上キーなら(CX=0。CY=-5。) もし　押されたキーが　下キーなら(CX=0。CY=+5。) もし　押されたキーが　左キーなら(CX=-5。CY=0。) もし　押されたキーが　右キーなら(CX=+5。CY=0。) ＊壁 もし　Y+CYが　25以下なら(CY=0) もし　X+CXが　5以下なら(CX=0) もし　X+CXが　65以上なら(CX=0) もし　Y+CYが　135以上なら(CY=0) ＊イベント発生 もし　X+CXが　20なら(もし　Y+CYが　60なら (戦闘へ　飛ぶ。)) もし　X+CXが　50なら(もし　Y+CYが　120なら (戦闘へ　飛ぶ。)) もし　X+CXが　55なら(もし　Y+CYが　50なら (戦闘へ　飛ぶ。)) もし　X+CXが　25なら(もし　Y+CYが　95なら (拾うに　飛ぶ。)) マップ描画へ　飛ぶ。 ＊戦闘 「モンスターだ！！」と　言う。 マップ描画へ　飛ぶ。 ＊拾う 「お金を拾った。」と　言う。 マップ描画へ　飛ぶ。