В поисках сокровищ Рават Полина 6 “В” класс

В поисках сокровищ
Рават Полина
6 “В” класс
Мбоу лит
Цель : Познакомиться со странами и
узнать их достопримечательности.
Идея проекта: В конце игры
предлагается небольшой подарок,
который спрятан в сундуке. А чтобы
найти сундук нужно заполучить три
ключа, которых можно заработать,
выполнив три небольших задания.
При работе с проектом
использованы программы такие, как
Adobe Photoshop и Paint.
Описание проекта
Титульный лист
На меню расположены три страны:
Франция, Нидерланды, Индия.
Франция
Информация о
стране.
Перечисление главных
достопримечательностей Франции.
Затем предлагается собрать мозаику фотографии
одной из достопримечательности Франции и в
текстовом поле написать её название. Проверка
мозаики осуществляется по координатам. После
правильного выполнения вы получаете золотой ключ
и возвращаетесь на меню.
Нидерланды
Информация о
стране.
Перечисление главных
достопримечательностей Франции.
Затем предлагается выполнить небольшую
викторину, где используется проверка
нескольких
переключателей.
После
правильного выполнения вы получаете
золотой ключ и возвращаетесь на меню.
Индия
Информация о
стране.
Перечисление главных
достопримечательностей Франции.
Затем
нужно
расставить
фотографии
достопримечательностей к их описаниям. При
этом происходит проверка соответствия
местоположения черепашки – изображения с
нужным полем по координатам. После
правильного выполнения вы получаете
золотой ключ и возвращаетесь на меню.
Если мы получили все
три ключа, то мы
можем выполнить
итоговый тест. После
правильного
выполнения теста,
где проверяется
правильность
введённой
информации в
текстовых полях по 6
вопросам,
пользователь
открывает сундук с
сокровищами. И
получает при этом
сюрприз – просмотр
небольшого видео о
трёх этих странах.
Листинг программы
Главная программа
to startup
лист2
presentationmode
end
Меню
to prover8
make "j :d + :r + :g
ifelse :j = 3 [getproject "тест.mwx] [announce [Ты ещё не выполнил все задания!]] if :j
= 3 [setтекст2 " setтекст3 " setтекст4 " setтекст5 " setтекст6 " setтекст7 " setтекст8 "
setтекст9 "]
end
Франция
to mazayka
ч1, setpos [ -3 -24 ]
ч3, ht
ч4, ht
ч5, ht
ч6, ht
ч7, ht
ч1, setsize 41 st wait 10 ht
ч3, st setpos [ -306 140 ]
ч4, st setpos [ 311 162 ]
ч5, st setpos [ -322 -121 ]
ч6, st setpos [ 287 -3 ]
ч7, st setpos [ 253 -198 ]
end
to prover1
make "a 0
make "f 0
make "d 0
ч3, ifelse (and ycor < 90 ycor > 55 xcor < -110 xcor > -135 )[make "a :a + 1] [setpos [ 306 140 ]]
ч6, ifelse ( and ycor < -74 ycor > -116 xcor < -100 xcor > -135 ) [make "a :a + 1] [setpos
[ 287 -3 ]]
ч5, ifelse (and ycor < -10 ycor > -40 xcor < 150 xcor > 120 )[make "a :a + 1]
[setpos [ -322 -121 ]]
ч4, ifelse ( and ycor < 90 ycor > 55 xcor < 30 xcor > 0 ) [make "a :a + 1] [setpos [ 311
162 ]]
ч7, ifelse ( and ycor < -74 ycor > -116 xcor < 40 xcor > 15 ) [make "a :a + 1] [setpos
[253 -198 ]]
ifelse :a = 5 [make "p :p + 1] [announce [неправильно!]]
if :p = 1 [announce [Молодец! А теперь напиши название этой
достопримечательности внизу.]]
if :a = 5 [make "f :f + 1]
if текст1 = "лувр [make "f :f + 1]
if :f = 2 [make "d 1]
if :d = 1 [ getproject "странымира.mwx]
end
to prover2
make "a 0
make "f 0
make "d 0
make "l 0
ifelse текст1 = "лувр
[announce [Молодец!]][announce [Неправильно. Попробуй ещё раз!]]
ч3, ifelse (and ycor < 90 ycor > 55 xcor < -110 xcor > -135 )[make "a :a + 1] [setpos [ 306 140 ]]
ч6, ifelse ( and ycor < -74 ycor > -116 xcor < -100 xcor > -135 ) [make "a :a + 1] [setpos
[ 287 -3 ]]
ч5, ifelse (and ycor < -10 ycor > -40 xcor < 150 xcor > 120 )[make "a :a + 1]
[setpos [ -322 -121 ]]
ч4, ifelse ( and ycor < 90 ycor > 55 xcor < 30 xcor > 0 ) [make "a :a + 1] [setpos [ 311
162 ]]
ч7, ifelse ( and ycor < -74 ycor > -116 xcor < 40 xcor > 15 ) [make "a :a + 1] [setpos
[253 -198 ]]
if :a = 5 [make "f 1]
if текст1 = "лувр [make "l 1]
if (and :f = 1 :l = 1) [make "d 1]
if :d = 1 [ч10, st ]
if :d = 1 [announce [ Ты заработал ключ! ]]
if :d = 1 [ getproject "странымира.mwx]
end
to startup
лист1
make "a 0
make "f 0
make "d 0
make "p 0
end
Нидерланды
to startup
make "r 0
лист1
end
to проверка
make "a 0
make "r 0
ifelse pop = 2 [make "a :a + 1] [make "a :a - 1]
ifelse po = 3 [make "a :a + 1] [make "a :a - 1]
ifelse po1 = 1 [make "a :a + 1] [make "a :a - 1]
ifelse po2 = 3 [make "a :a + 1] [make "a :a - 1]
ifelse po3 = 3 [make "a :a + 1] [make "a :a - 1]
ifelse :a = 5 [announce [Молодец!] make "r 1] [announce [Ты ошибся!]]
if :a = 5 [ч2, st]
if :a = 5 [announce [Ты заработал ключ!]]
if :a = 5 [getproject "странымира.mwx]
end
Индия
to startup
лист1
end
Индия игра
to startup
ч1, setpos [-303 -112]
ч2, setpos[-305 -238]
ч3, setpos[-305 251]
ч4, setpos[-289 134]
ч5, setpos[-301 17]
end
to проверка
make "a 0
make "g 0
ч1, ifelse (and ycor < 241 ycor > 227 xcor > -157 xcor < -97)[make "a :a + 1] [setpos [303 -112]]
ч2, ifelse (and ycor < 144 ycor > 118 xcor > -157 xcor < -97) [make "a :a + 1] [setpos[305 -238]]
ч3, ifelse (and ycor < 22 ycor > -12 xcor > -157 xcor < -97) [make "a :a + 1] [setpos[-305
251]]
ч4, ifelse (and ycor < -100 ycor > -128 xcor > -157 xcor < -97) [make "a :a + 1] [setpos[289 134]]
ч5, ifelse (and ycor < -212 ycor > -252 xcor > -157 xcor < -97) [make "a :a + 1] [setpos[301 17]]
if :a = 5 [make "g 1]
ifelse :a = 5 [ announce [Молодец! Ты получил ключ!]ч8, st getproject
"странымира.mwx] [announce [Ты ошибся!]]
end
Итоговый тест
to prover3
make "a 0
if (and текст2 = "Голландия
текст3 = "Индия текст4 = "Франция
текст5 = "Кейкенхов текст6 = "Тадж текст7 = "Махал текст8 = "Эйфелева текст9 =
"башня ) [make "a :a + 1]
if (and текст2 = "Нидерланды
текст3 = "Индия текст4 = "Франция
текст5 = "Кейкенхов текст6 = "Тадж текст7 = "Махал текст8 = "Эйфелева текст9 =
"башня ) [make "a :a + 1]
ifelse :a = 1 [announce [Молодец! Ты нашел сокровище- это те знания, которые ты
получил в процессе поиска золотых ключей. Ведь знания - это и есть самое
большое сокровище! А еще для тебя есть небольшой сюрприз!] лист2] [announce
[Неправильно, попробуй ещё раз!]]
end
to startup
лист1
end