【初心者】課題をクリアしていくスレ【講習会】

【初心者】課題をクリアしていくスレ【講習会】at GAMEDEV

【初心者】課題をクリアしていくスレ【講習会】 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

159:名前は開発中のものです。
 04/06/26 21:34 jYUMekjC.net
Ruby/SDLインストール方法（Windows） 
 
１．とりあえずコレをダウンロード 
http://www.kmc.gr.jp/~ohai/rubysdl/rubysdl-0.9.2-win32bin-pack.lzh 
 
２．解凍して適当なフォルダにコピー 
 
３．[コピーしたフォルダ]\usr\local\binにパスを切る 
（たとえばc:\ruby\usr\local\binなど) 
 
以上でインストール終了。 
 
スクリプトをテキストファイルとして保存して（拡張子は.rbが一般的） 
ruby [ファイル名]として実行 
（たとえばruby sosu.rbなど） 
 
公式サイト 
http://www.kmc.gr.jp/~ohai/index.html 
チュートリアル 
http://www.kmc.gr.jp/~ohai/rubysdl_intro.html

160:名前は開発中のものです。
 04/06/26 23:23 VAfJSjue.net
宣伝？

161:名前は開発中のものです。
 04/06/26 23:49 PaYEz6W8.net
キー入力、Delphiです 
TApplicationEventsとQD3のDDIDEX使ってます 
 
  private 
    Chara:  TPoint; 
 
procedure TForm1.ApplicationEvents1Idle(Sender: TObject; 
  var Done: Boolean); 
begin 
  DDIDEX1.Scan(DI_KEYB); 
  Chara.X:=Chara.X+DDIDEX1.Stick.X; 
  Chara.Y:=Chara.Y+DDIDEX1.Stick.Y; 
  if (Chara.X<0) or (Chara.X>319) then begin 
    Chara.X:=Chara.X-DDIDEX1.Stick.X; 
  end; 
  if (Chara.Y<0) or (Chara.Y>239) then begin 
    Chara.Y:=Chara.Y-DDIDEX1.Stick.Y; 
  end; 
  Canvas.Brush.Color:=clBlack; 
  Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight)); 
  Canvas.Brush.Color:=clRed; 
  Canvas.FillRect(Rect(Chara.X,Chara.Y,Chara.X+320,Chara.Y+240)); 
  Sleep(5); 
  Done:=False; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  DoubleBuffered:=True; 
  ClientWidth:=640; 
  ClientHeight:=480; 
end;

次ページ