Автор © 23.09.2002 Ryan
Перевод и адаптация © 2002 Игорь Князев
Я снова имею честь предожить Вашему вниманию еще несколько избранных фрагментов кода для Game Maker, взятых мною из разных мест, некоторые сделал лично я.
[ Код 'Пауза в игре' ]
{
// запомнить текущие значения
__font_color = font_color;
__font_size = font_size;
__font_style = font_style;
__font_name = font_name;
__font_align = font_align;
// нарисовать текст, перерисовать экран и ждать
font_color = argument0;
font_size = 16;
font_style = fs_bold;
font_name = 'Arial';
font_align = fa_center;
draw_text(screen_width/2,100,'Пауза. Нажмите любую клавишу.');
screen_refresh();
keyboard_wait();
io_clear();
// восстановить установки
font_color = __font_color;
font_size = __font_size;
font_style = __font_style;
font_name = __font_name;
font_align = __font_align;
}
[ Заставить объект следовать за мышью ]{
ball.x=mouse_x
ball.y=mouse_y
}
* Замените (ball) иным объектом.
[ Беспорядочное Появление Объектов ]repeat (5) instance_create(random(400),random(400),ball);
* Снова, замените (ball) любым объектом.
[ Что-то происходит при нажатии Клавиатуры ]if keyboard_check(vk_control)&&keyboard_check(vk_alt)
{
instance_create(x,y,bullet);
}
* Этот код создает объект пули, при нажатии клавиш Alt и Ctrl.
[ Загрузить Фоновое изображение ]
{
fname=get_open_filename('BMP files(*.BMP)*.BMP','')
background_replace(fname,DBG);
}
[ Открыть видео ]{
fname = get_open_filename('file(*.avi)|*.avi','')
show_video(fname,false,0);
}
[ Создать Файлы Сохранения ]{
SaveAs = get_save_filename('Saved Games *.sav|*.sav','Untitled.sav');
mouse_clear(mb_left);
if (file_exists(SaveAs))
{
if not(show_question('Warning!'+chr(13)+SaveAs+' Already exists!'+chr(13)+'Do you want to overwrite it?'))
{
mouse_clear(mb_left);
exit;
}
}
game_save(SaveAs);
}
[ Команды Печати ]{
if (show_question("Напечатай вопрос прямо здесь "))
{
file_open_write("file.txt");
file_write_string("Page");
file_writeln();
file_write_string("Напечатайте то что хотите ");
file_writeln();file_writeln();file_writeln();file_writeln();
file_writeln();file_writeln();file_writeln();file_writeln();
file_write_string("");
file_close();
execute_shell("C:\WINDOWS\NOTEPAD.EXE","/p file.txt");
}
}
Это пока все! Продолжение следует...