コメント

このコメントは、【トピック】スプライトへのコメントです。

コメントの内容

002 1 mini ugonight(投稿日：2011/09/17 00:09/17/11)
わざわざ試してくれたんですねぇ～ありがとうございます!
うぅ…せっかく感動的なゾンビが出てくると思ったのに…

一応イベントのコードです 
speak("椅子の下に何やら装置が!!")
speak("パスワードを入力してください")

deleteAllSprite()
deleteTextAll()
drawCanvas()
hideImage()
speak("キーボードで入力してください。")
pasu = createArray()
pasu[0] = "251" #パスワード1
pass = 1 #パスワードの数
keta = 3 #パスワードの桁数
su = 0 #何文字目かを表す変数
#ここから下はキーボードのキーの設定
k = createArray()
k[0] = "0";k[1] = "1";k[2] = "2";k[3] = "3";k[4] = "4"k[5] = "5";k[6] = "6";k[7] = "7";k[8] = "8";k[9] = "9"k[10] = "Q";k[11] = "W";k[12] = "E";k[13] = "R"k[14] = "T";k[15] = "Y";k[16] = "U";k[17] = "I";k[18] = "O";k[19] = "P";k[20] = "A";k[21] = "S";k[22] = "D";k[23] = "F";k[24] = "G";k[25] = "H";k[26] = "J";k[27] = "K";k[28] = "L";k[29] = "Z";k[30] = "X";k[31] = "C";k[32] = "V";k[33] = "B";k[34] = "N";k[35] = "M"
#キーの設定ここまで
#↓入力箇所の表示
t = createText(250, 250, 400, 200)
ki = createArray()
i = 0
while i < keta
  ki[i] = "-"
  i = i + 1
end
setText(t, ki,"\nキーボードで入力してください。")

startInput()
loop = true#ループの開始
while loop
  if hasInput()
    takeInput()
    i = 0
    while i < 36 #すべてのキーを調べる
      if isKeyDown(k[i])
        ki[su] = k[i]
        su = su + 1
        setText(t, ki,"\nキーボードで入力してください。")        if su == keta
          loop = false
        end
      end
      i = i + 1
    end
  end
  waitTime(10)
end
endInput()
deleteTextAll() #表示を消す
#↓入力をひとつの変数に入れる
p = ""
i  = 0
while i < keta
        p = p + ki[i]
        i = i + 1
end
        i = 0
answer = false
while i <  pass
        if p == pasu[i]
                if i == 0
                   #パスワード1に合っていたときの処理
playSound(84277)
speak("???「正解でぇ～す」")
speak("???「では、準備をしますので今しばらくお待ちください」")
showLeftImage(47864)
speak("好太郎「ん…? 準備…? どういうことだ…」")
fadeOutMusicFadeIn(1000, 82229, 1000)
waitTime(2000)
hideLeftImage()
showLeftImage(47879)
speak("好太郎「ま…また…!?」")
hideLeftImage()
waitTime(1000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(3000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(2000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
playSound(84351)
waitTime(2000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(2000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(1000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(1000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(2000)
playSound(82231)
fadeOut(0, 0, 0)
fadeOutMusicStop(2000)
waitTime(3000)
showImage(9404)
playSound(84356)

#画像スプライト 
deleteAllSprite() 
#最初に使う前にキャンバスをキレイにしておく 
drawCanvas() 
setCanvasVisible(true) 

#準備 
x =0
y =0
w =150
h =150
xx=0
yy=0
ww=150
hh=150 


img_id_01 = createSprite(84357)
 setSpriteRect(img_id_01, x,y,w,h, xx,yy,ww,hh)
img_id_02 = createSprite(84364)
 setSpriteRect(img_id_02, x,y,w,h, xx,yy,ww,hh)
img_id_03 = createSprite(84371) 
setSpriteRect(img_id_03, x,y,w,h, xx,yy,ww,hh) 
img_id_04 = createSprite(84378) 
setSpriteRect(img_id_04, x,y,w,h, xx,yy,ww,hh) 
img_id_05 = createSprite(84385) 
setSpriteRect(img_id_05, x,y,w,h, xx,yy,ww,hh) 

#表示する座標の設定
soto_x = -200
soto_y = -200
naka_x = 0
naka_y = 0

#まずは、すべての画像を画面外に表示
setSpritePosition(img_id_01, soto_x, soto_y)
setSpritePosition(img_id_02, soto_x, soto_y)
setSpritePosition(img_id_03, soto_x, soto_y)
setSpritePosition(img_id_04, soto_x, soto_y)
setSpritePosition(img_id_05, soto_x, soto_y)

#アニメーションさせる
  i = 0 
while i < 5
   view_id = "" #アニメーションで表示する画像のID
   hide_id = "" #アニメーションで隠す画像のID    
#それぞれのIDをセットする  
  case i 
    when 0
         view_id = img_id_01
         hide_id = img_id_05
    when 1
         view_id = img_id_02
         hide_id = img_id_01
    when 2
         view_id = img_id_03
         hide_id = img_id_02
    when 3
         view_id = img_id_04
         hide_id = img_id_03
    when 4
         view_id = img_id_05
         hide_id = img_id_04
  end

     #セットされたIDをもとに、座標を決定する
  setSpritePosition(view_id, naka_x, naka_y)
  setSpritePosition(hide_id, soto_x, soto_y)
    drawCanvas()
     i = i + 1
   waitTime(100)
   end


end
end
end

if !answer
speak("パスワードが違います。\n入力:",p)
end


画像9404っていうのは黒い画面でこれじゃないかとにらんだのですが…でも前やった時には普通に表示されてました…

コメントの内容(一番最初の投稿)

002 1 mini ugonight(投稿日：2011/09/17 00:09/17/11)
わざわざ試してくれたんですねぇ～ありがとうございます!
うぅ…せっかく感動的なゾンビが出てくると思ったのに…

一応イベントのコードです 
speak("椅子の下に何やら装置が!!")
speak("パスワードを入力してください")

deleteAllSprite()
deleteTextAll()
drawCanvas()
hideImage()
speak("キーボードで入力してください。")
pasu = createArray()
pasu[0] = "251" #パスワード1
pass = 1 #パスワードの数
keta = 3 #パスワードの桁数
su = 0 #何文字目かを表す変数
#ここから下はキーボードのキーの設定
k = createArray()
k[0] = "0";k[1] = "1";k[2] = "2";k[3] = "3";k[4] = "4"k[5] = "5";k[6] = "6";k[7] = "7";k[8] = "8";k[9] = "9"k[10] = "Q";k[11] = "W";k[12] = "E";k[13] = "R"k[14] = "T";k[15] = "Y";k[16] = "U";k[17] = "I";k[18] = "O";k[19] = "P";k[20] = "A";k[21] = "S";k[22] = "D";k[23] = "F";k[24] = "G";k[25] = "H";k[26] = "J";k[27] = "K";k[28] = "L";k[29] = "Z";k[30] = "X";k[31] = "C";k[32] = "V";k[33] = "B";k[34] = "N";k[35] = "M"
#キーの設定ここまで
#↓入力箇所の表示
t = createText(250, 250, 400, 200)
ki = createArray()
i = 0
while i < keta
  ki[i] = "-"
  i = i + 1
end
setText(t, ki,"\nキーボードで入力してください。")

startInput()
loop = true#ループの開始
while loop
  if hasInput()
    takeInput()
    i = 0
    while i < 36 #すべてのキーを調べる
      if isKeyDown(k[i])
        ki[su] = k[i]
        su = su + 1
        setText(t, ki,"\nキーボードで入力してください。")        if su == keta
          loop = false
        end
      end
      i = i + 1
    end
  end
  waitTime(10)
end
endInput()
deleteTextAll() #表示を消す
#↓入力をひとつの変数に入れる
p = ""
i  = 0
while i < keta
        p = p + ki[i]
        i = i + 1
end
        i = 0
answer = false
while i <  pass
        if p == pasu[i]
                if i == 0
                   #パスワード1に合っていたときの処理
playSound(84277)
speak("???「正解でぇ～す」")
speak("???「では、準備をしますので今しばらくお待ちください」")
showLeftImage(47864)
speak("好太郎「ん…? 準備…? どういうことだ…」")
fadeOutMusicFadeIn(1000, 82229, 1000)
waitTime(2000)
hideLeftImage()
showLeftImage(47879)
speak("好太郎「ま…また…!?」")
hideLeftImage()
waitTime(1000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(3000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(2000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
playSound(84351)
waitTime(2000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(2000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(1000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(1000)
showImage(9404)
playSound(82230)
waitTime(100)
hideImage()
waitTime(2000)
playSound(82231)
fadeOut(0, 0, 0)
fadeOutMusicStop(2000)
waitTime(3000)
showImage(9404)
playSound(84356)

#画像スプライト 
deleteAllSprite() 
#最初に使う前にキャンバスをキレイにしておく 
drawCanvas() 
setCanvasVisible(true) 

#準備 
x =0
y =0
w =150
h =150
xx=0
yy=0
ww=150
hh=150 


img_id_01 = createSprite(84357)
 setSpriteRect(img_id_01, x,y,w,h, xx,yy,ww,hh)
img_id_02 = createSprite(84364)
 setSpriteRect(img_id_02, x,y,w,h, xx,yy,ww,hh)
img_id_03 = createSprite(84371) 
setSpriteRect(img_id_03, x,y,w,h, xx,yy,ww,hh) 
img_id_04 = createSprite(84378) 
setSpriteRect(img_id_04, x,y,w,h, xx,yy,ww,hh) 
img_id_05 = createSprite(84385) 
setSpriteRect(img_id_05, x,y,w,h, xx,yy,ww,hh) 

#表示する座標の設定
soto_x = -200
soto_y = -200
naka_x = 0
naka_y = 0

#まずは、すべての画像を画面外に表示
setSpritePosition(img_id_01, soto_x, soto_y)
setSpritePosition(img_id_02, soto_x, soto_y)
setSpritePosition(img_id_03, soto_x, soto_y)
setSpritePosition(img_id_04, soto_x, soto_y)
setSpritePosition(img_id_05, soto_x, soto_y)

#アニメーションさせる
  i = 0 
while i < 5
   view_id = "" #アニメーションで表示する画像のID
   hide_id = "" #アニメーションで隠す画像のID    
#それぞれのIDをセットする  
  case i 
    when 0
         view_id = img_id_01
         hide_id = img_id_05
    when 1
         view_id = img_id_02
         hide_id = img_id_01
    when 2
         view_id = img_id_03
         hide_id = img_id_02
    when 3
         view_id = img_id_04
         hide_id = img_id_03
    when 4
         view_id = img_id_05
         hide_id = img_id_04
  end

     #セットされたIDをもとに、座標を決定する
  setSpritePosition(view_id, naka_x, naka_y)
  setSpritePosition(hide_id, soto_x, soto_y)
    drawCanvas()
     i = i + 1
   waitTime(100)
   end


end
end
end

if !answer
speak("パスワードが違います。\n入力:",p)
end


画像9404っていうのは黒い画面でこれじゃないかとにらんだのですが…でも前やった時には普通に表示されてました…