コメント - Rmake

このコメントは、【トピック】カスタムメニューで図鑑を表示させたいのですが…へのコメントです。

コメントの内容

池ちゃん(翡翠ヶ池)(投稿日：2012/11/18 14:11/18/12)

setCustomParamMenuEnable(true)
setCustomParamMenuName("a")

setVariable("testParamValue", 1)
setVariable("testaParamValue", 28)

def onShowCustomParameter()

  setCustomParamName(0, "test")
  setCustomParamValue(0, getVariable("testParamValue"))
  setCustomParamName(1, "testa")
  setCustomParamValue(1, getVariable("testaParamValue"))

  setCustomParamName(2, "delete")
  setCustomParamValue(2, 30)
  deleteCustomParam(2)

  drawCustomParam()

  imageHandle =  showImagePosition(300, 32, 74)

#開始スクリプトなどで設定 
setVariable("項目",createArray()) # ５項目ある図鑑をすべて？？？にする 
i = 0 
while i < 5 
 getVariable("項目")[i]= "？？？" #ゲットしていない物を？？？という項目にする 
i = i + 1
end

setVariable("説明文",createArray()) #説明文を考える
getVariable("説明文")[0] = "アイテム１"
getVariable("説明文")[1] = "アイテム２"
getVariable("説明文")[2] = "アイテム３"
getVariable("説明文")[3] = "アイテム４"
getVariable("説明文")[4] = "アイテム５"

#図鑑を参照したとき（本棚にイベントをはっつけるなど）
i = 0
while i < 1
case speakWithSelect(6, getVariable("項目")[0], getVariable("項目")[1],
getVariable("項目")[2], getVariable("項目")[3],
getVariable("項目")[4], "やめる",#都合により無駄に改行してます
"参照したい項目を選んでね")
when 0
n = 0
when 1
n = 1
when 2
n = 2
when 3
n = 3
when 4
n = 4
when 5
speak("図鑑を閉じた")
i = 1
end
if i == 0
if getVariable("項目")[n] == "？？？"
speak("まだ参照できません")
else
speak(getVariable("説明文")[n])
end
end
end

speak("カスタムパラメーター長 ",
getCustomParamLength())

speak("getCustomParamMenuEnable = ",
getCustomParamMenuEnable(),
"\ngetCustomParamMenuName = ",
getCustomParamMenuName())

end

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

池ちゃん(翡翠ヶ池)(投稿日：2012/11/18 14:11/18/12)

setCustomParamMenuEnable(true)
setCustomParamMenuName("a")

setVariable("testParamValue", 1)
setVariable("testaParamValue", 28)

def onShowCustomParameter()

  setCustomParamName(0, "test")
  setCustomParamValue(0, getVariable("testParamValue"))
  setCustomParamName(1, "testa")
  setCustomParamValue(1, getVariable("testaParamValue"))

  setCustomParamName(2, "delete")
  setCustomParamValue(2, 30)
  deleteCustomParam(2)

  drawCustomParam()

  imageHandle =  showImagePosition(300, 32, 74)

#開始スクリプトなどで設定 
setVariable("項目",createArray()) # ５項目ある図鑑をすべて？？？にする 
i = 0 
while i < 5 
 getVariable("項目")[i]= "？？？" #ゲットしていない物を？？？という項目にする 
i = i + 1
end

setVariable("説明文",createArray()) #説明文を考える
getVariable("説明文")[0] = "アイテム１"
getVariable("説明文")[1] = "アイテム２"
getVariable("説明文")[2] = "アイテム３"
getVariable("説明文")[3] = "アイテム４"
getVariable("説明文")[4] = "アイテム５"

#図鑑を参照したとき（本棚にイベントをはっつけるなど）
i = 0
while i < 1
case speakWithSelect(6, getVariable("項目")[0], getVariable("項目")[1],
getVariable("項目")[2], getVariable("項目")[3],
getVariable("項目")[4], "やめる",#都合により無駄に改行してます
"参照したい項目を選んでね")
when 0
n = 0
when 1
n = 1
when 2
n = 2
when 3
n = 3
when 4
n = 4
when 5
speak("図鑑を閉じた")
i = 1
end
if i == 0
if getVariable("項目")[n] == "？？？"
speak("まだ参照できません")
else
speak(getVariable("説明文")[n])
end
end
end

speak("カスタムパラメーター長 ",
getCustomParamLength())

speak("getCustomParamMenuEnable = ",
getCustomParamMenuEnable(),
"\ngetCustomParamMenuName = ",
getCustomParamMenuName())

end