2010年09月03日

内部プログラムは・・

playSound(34812)


a = createArray()
a[0] = "1 "
a[1] = "2"
a[2] = "3"
a[3] = "4"
a[4] = "Hint"
a[5] = "Repeat"
case speakWithSelectArray(a, " 1 Lions. \n 2 Elephants.\n 3 Monkeys.\n 4 Penguins.")

when 0
playSound(33176)
playSound(34790)
setVariable("Points", getVariable("Points") - 100)
deleteTextAll()

textID = createText(400, 0, 220, 220)
setText(textID,"", getVariable("Points"),"Points")


when 1
playSound(33176)
playSound(34790)
setVariable("Points", getVariable("Points") - 100)
deleteTextAll()

textID = createText(400, 0, 220, 220)
setText(textID,"", getVariable("Points"),"Points")


when 2
playSound(33176)
playSound(34790)
setVariable("Points", getVariable("Points") - 100)
deleteTextAll()

textID = createText(400, 0, 220, 220)
setText(textID,"", getVariable("Points"),"Points")

when 3
playSound(33187)
speak("Good")
playSound(33188)
speak(" You got 150 points!")
setVariable("Points", getVariable("Points") + 150)
deleteTextAll()

textID = createText(400, 0, 220, 220)
setText(textID,"", getVariable("Points"),"Points")

when 4
playSound(34790)
setVariable("Points", getVariable("Points") - 90)
deleteTextAll()

textID = createText(400, 0, 220, 220)
setText(textID,"", getVariable("Points"),"Points")

speakFullScreen(true, "Melissa is studying education at a college in California.\n\nShe loves children, so she wants to be a kindergarten teacher in the future.\n\nLast month, she went to a kindergarten to practice teaching.\n\nMrs. Dalton was the teacher there.\n\nMelissa watched Mrs. Dalton for one week.\n\nThen, Melissa taught the children for two weeks.\n\nOn the first day, she read book about lion, and then\n\nshe sang a song with the class.\n\nIt was her first time to teach, so she was very nervous.\n\nMrs. Dalton told her , \"Don't worry. The children like you.\"\n\nOne day, the class visited a zoo.\n\nMelissa went there with the children.\n\nThey asked her many questions.\n\nA little boy said, \"I like elephants. What's your favorite animal?\"\n\nMelissa answered, \"I like penguins the best.\"\n\nThe next day, Mrs. Dalton told Melissa, \n\n\"You will be a good teacher.\"\n\nMelissa was very happy. ")

speakFullScreen(true, "[Hint]\n\nkindergarten:幼稚園\n\neducation:教育")


changeChapter("chapter17")
when 5
playSound(34790)
setVariable("Points", getVariable("Points") - 50)
deleteTextAll()

textID = createText(400, 0, 220, 220)
setText(textID,"", getVariable("Points"),"Points")

playSound(34801)
waitTime(80000)
changeChapter("chapter17")

end
playSound(34801)
speakFullScreen(true, "Melissa is studying education at a college in California.\n\nShe loves children, so she wants to be a kindergarten teacher in the future.\n\nLast month, she went to a kindergarten to practice teaching.\n\nMrs. Dalton was the teacher there.\n\nMelissa watched Mrs. Dalton for one week.\n\nThen, Melissa taught the children for two weeks.\n\nOn the first day, she read book about lion, and then\n\nshe sang a song with the class.\n\nIt was her first time to teach, so she was very nervous.\n\nMrs. Dalton told her , \"Don't worry. The children like you.\"\n\nOne day, the class visited a zoo.\n\nMelissa went there with the children.\n\nThey asked her many questions.\n\nA little boy said, \"I like elephants. What's your favorite animal?\"\n\nMelissa answered, \"I like penguins the best.\"\n\nThe next day, Mrs. Dalton told Melissa, \n\n\"You will be a good teacher.\"\n\nMelissa was very happy. ")

playSound(34808)

speakFullScreen(true, "[Question]\n\nWhy does Melissa want to be a teacher?")
speakFullScreen(true, "[Answer]\n\n 1 She likes children a lot.")

playSound(34809)

speakFullScreen(true, "[Question]\n\nHow long did Melissa teach the class?")
speakFullScreen(true, "[Answer]\n\n 2 For two weeks.")

playSound(34810)
speakFullScreen(true, "[Question]\n\nMelissa was nervous because・・・?\n")
speakFullScreen(true, "[Answer]\n\n 2 it was her first time to teach.")
playSound(34811)
speakFullScreen(true, "[Question]\n\nWho went to the zoo with Melissa?")
speakFullScreen(true, "[Answer]\n\n 3 The kindergarten class.")
playSound(34812)
speakFullScreen(true, "[Question]\n\nWhat is Melissa's favorite animal?")
speakFullScreen(true, "[Answer]\n\n 4 Penguins.")


changeChapter("chapter18")

こんなのを20個くらい作ってゲームを作成しています。
慣れたら、簡単ですよ。
posted by くにお at 21:54| 高知 ☁| Comment(0) | TrackBack(0) | game | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
この記事へのトラックバックURL
http://blog.seesaa.jp/tb/161452281

この記事へのトラックバック
ブログランキング・にほんブログ村へ
にほんブログ村




×

この広告は1年以上新しい記事の投稿がないブログに表示されております。