создание игры типа "Кто хочет стать миллионером"
| |
Amigo | Дата: Понедельник, 18.10.2010, 10:55 | Сообщение # 1 |
ламер
Группа: Пользователи
Сообщений: 7
Награды: 0
Репутация: 1
Статус: Offline
| я полный профан ...но мне поручили создать эту игрулину под уроки Физики в нашей школе. с чего лучше начать написание программы? естественно, что основные данные из учебников я уже подчерпнул
|
|
| |
Spidy | Дата: Понедельник, 18.10.2010, 12:30 | Сообщение # 2 |
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
| Вот простая схема этапов создания приложения "Кто хочет стать миллионером" 1. Скачай какой-нить простой пример где отрисовывается графика 2. Поменяй картинки на отвечающие тематике (поиск в гугле по запросу "Кто хочет стать миллионером") 3. Создание простой логики (жмем на квадратик - появляется галочка ПРАВИЛЬНО/НЕ ПРАВИЛЬНО) 4. Подготовка базы вопросов 5. Отладка и доработка по мере возможности Полезные ссылки: справочник урок исходник с менюшкой (не очень простой)
Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
|
|
| |
Amigo | Дата: Понедельник, 18.10.2010, 14:57 | Сообщение # 3 |
ламер
Группа: Пользователи
Сообщений: 7
Награды: 0
Репутация: 1
Статус: Offline
| Спасибо большое!!! маленький ещё такой вопросик.... Spidy 1. Скачай какой-нить простой пример где отрисовывается графика а где (тыкните носом если можно) где скачать....это будет последняя просьба))
|
|
| |
Spidy | Дата: Вторник, 19.10.2010, 15:39 | Сообщение # 4 |
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
| За основу можешь взять этот исходник Думаю, разобраться в нем будет не очень трудно. Если что - спрашивай
Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
|
|
| |
Amigo | Дата: Понедельник, 15.11.2010, 12:05 | Сообщение # 5 |
ламер
Группа: Пользователи
Сообщений: 7
Награды: 0
Репутация: 1
Статус: Offline
| ;demo10-08.bb - Demonstrates drawing a mouse cursor Graphics 800,600,0,2 HidePointer ;IMAGES ;Load the background and the mouse cursor backgroundimage = LoadImage("56.png") mouseimage = LoadImage("mouseimage.png") ;MAIN LOOP While Not KeyDown(1) ;Set default drawing surface to back buffer SetBuffer BackBuffer() Cls DrawImage backgroundimage, 0, 0 ;Print out text Text 0,0, "Mouse is easier to find now, huh" ;Print X and Y coordinates Text 0,12, "MouseX: " + MouseX() Text 0,24, "MouseY: " + MouseY() ;draw the mouse image DrawImage mouseimage,MouseX(),MouseY() ;Slow it down Delay 20 ;Flip front and back buffers Flip Wend ;End of Main loop у меня теперь ....есть фон, есть курсор, двигающийся свободно по экрану...а вот теперь как мне привязать вопросы и сделать так, чтобы на правильной кнопке были правильные ответы не допру
|
|
| |
Spidy | Дата: Понедельник, 15.11.2010, 12:41 | Сообщение # 6 |
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
| Code Graphics 800,600,0,2 SetBuffer BackBuffer() HidePointer
backgroundimage = LoadImage("56.png") mouseimage = LoadImage("mouseimage.png")
fntArial=LoadFont("Arial",24,False,False,False) SetFont fntArial
Global a=0, b=0
While Not KeyDown(1)
Cls
DrawImage backgroundimage, 0, 0
If a>0 Then a=a-1 If b>0 Then b=b-1
If a>0 Then Color 250,240,130 : Text 340,0, "Правильно!" End If
If b>0 Then Color 255,10,10 : Text 340,0, "Не правильно!" End If
Color 255,255,255 Text 12,300, "Кто такой Достоевский?"
Color 50,200,50 Rect 10,330,350,30 Color 240,240,240 Rect 11,331,349,29 Color 20,20,20 Text 12,332, "1. Президент Бангладеша"
Color 50,200,50 Rect 10,400,350,30 Color 240,240,240 Rect 11,401,349,29 Color 20,20,20 Text 12,402, "2. Японский парашутист"
Color 50,200,50 Rect 400,330,350,30 Color 240,240,240 Rect 401,331,349,29 Color 20,20,20 Text 402,332, "3. Русский писатель-мыслитель"
Color 50,200,50 Rect 400,400,350,30 Color 240,240,240 Rect 401,401,349,29 Color 20,20,20 Text 402,402, "4. Известный хирург-доцент"
If MouseHit(1) Then If RectsOverlap (10,330,350,30,MouseX() ,MouseY(),15,15) Then b=20 If RectsOverlap (10,400,350,30,MouseX() ,MouseY(),15,15) Then b=20 If RectsOverlap (400,330,350,30,MouseX() ,MouseY(),15,15) Then a=20 If RectsOverlap (400,400,350,30,MouseX() ,MouseY(),15,15) Then b=20 End If
Color 255,255,255 Text 0,2, "MouseX: " + MouseX() Text 0,18, "MouseY: " + MouseY()
DrawImage mouseimage,MouseX(),MouseY() Delay 20 Flip
Wend ;End of Main loop
Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
|
|
| |
Amigo | Дата: Понедельник, 15.11.2010, 14:30 | Сообщение # 7 |
ламер
Группа: Пользователи
Сообщений: 7
Награды: 0
Репутация: 1
Статус: Offline
| а если всё это дело подгружать из txt файла??в котором будет вопрос
|
|
| |
Spidy | Дата: Понедельник, 15.11.2010, 15:11 | Сообщение # 8 |
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
| да мой повелитель, я все переделаю, только не бейте Code Graphics 800,600,0,2
SetBuffer BackBuffer()
HidePointer
backgroundimage = LoadImage("56.png") mouseimage = LoadImage("mouseimage.png")
fntArial=LoadFont("Arial",24,False,False,False) SetFont fntArial
Global a=0, b=0
filein = ReadFile("question.txt") Read0$ = ReadLine( filein ) Read1$ = ReadLine( filein ) Read2$ = ReadLine$( filein ) Read3$ = ReadLine$( filein ) Read4$ = ReadLine$( filein ) ReadN$ = ReadLine( filein ) CloseFile( filein )
While Not KeyDown(1)
Cls
DrawImage backgroundimage, 0, 0
If a>0 Then a=a-1 If b>0 Then b=b-1
If a>0 Then Color 250,240,130 : Text 340,0, "Правильно!" End If
If b>0 Then Color 255,10,10 : Text 340,0, "Не правильно!" End If
Color 255,255,255 Text 12,300, Read0$
Color 50,200,50 Rect 10,330,350,30 Color 240,240,240 Rect 11,331,349,29 Color 20,20,20 Text 12,332, "1. "+Read1$
Color 50,200,50 Rect 10,400,350,30 Color 240,240,240 Rect 11,401,349,29 Color 20,20,20 Text 12,402, "2. "+Read2$
Color 50,200,50 Rect 400,330,350,30 Color 240,240,240 Rect 401,331,349,29 Color 20,20,20 Text 402,332, "3. "+Read3$
Color 50,200,50 Rect 400,400,350,30 Color 240,240,240 Rect 401,401,349,29 Color 20,20,20 Text 402,402, "4. "+Read4$
If MouseHit(1) Then If RectsOverlap (10,330,350,30,MouseX() ,MouseY(),15,15) Then If ReadN$="1" Then a=20 Else b=20 End If End If If RectsOverlap (10,400,350,30,MouseX() ,MouseY(),15,15) Then If ReadN$="2" Then a=20 Else b=20 End If End If If RectsOverlap (400,330,350,30,MouseX() ,MouseY(),15,15) Then If ReadN$="3" Then a=20 Else b=20 End If End If If RectsOverlap (400,400,350,30,MouseX() ,MouseY(),15,15) Then If ReadN$="4" Then a=20 Else b=20 End If End If End If
Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
|
|
| |
Spidy | Дата: Понедельник, 15.11.2010, 15:12 | Сообщение # 9 |
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
| продолжение Code Color 255,255,255 Text 0,2, "MouseX: " + MouseX() Text 0,18, "MouseY: " + MouseY() DrawImage mouseimage,MouseX(),MouseY()
Delay 20
Flip
Wend текстовый файл question.txt Code Кто такой Достоевский? Президент Бангладеша Японский парашутист Русский писатель-мыслитель Известный хирург-доцент 3
Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
|
|
| |
Amigo | Дата: Понедельник, 22.11.2010, 14:18 | Сообщение # 10 |
ламер
Группа: Пользователи
Сообщений: 7
Награды: 0
Репутация: 1
Статус: Offline
| Сасибо большое!!! сттистику прикрутил, плюс подсказки....мне осталось только подцепить перед началом игры менюшку с 3 строчками..новая игра...введите ник и статистика...как это прицепить к коду выше... п.с. как будет готова игра..выложу тут
|
|
| |
|