Rambler's Top100
  Навигация :
  Оглавление
  Новости (Архив)
  Об этом проекте
  О программе GM
  Скачать
  Документация
  Русский Help
  Обучение
 
Примеры
  Ресурсы
  Ссылки
  Прямая связь
  Статьи:
  Platform
  Platform v4.2
  Maze    
  Статистика :



Избранные фрагменты кода Game Maker: Часть II


Автор © 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");
    }
    }


Это пока все! Продолжение следует...


[ Вернуться в основной раздел ]

© 2002 Simple Life & World