Skip to content

Instantly share code, notes, and snippets.

View PoppyWorks's full-sized avatar

Poppy Works PoppyWorks

4 followers · 0 following
View GitHub Profile
@PoppyWorks
PoppyWorks / draw_fade_color
Last active July 23, 2018 16:58
GML script. Will fade the screen to the chosen color. Returns true when done. This can be used to change rooms when it returns. Line 6 can be un-commented to do the fade to color in steps, to simulate old-school style color fading.
///draw_fade_color(color,speed/alplha)
alert(0,"Fading..." + "(" + (string(color_fade_alpha)) +"). Cannot pause game." )
can_pause = false;
depth = -100000
var snapped = color_fade_alpha//= floor(color_fade_alpha * 10)/10
draw_set_colour(argument0)
draw_set_alpha(snapped);
draw_rectangle(0, 0, view_xview [0] + view_wview[0], view_yview[0] + view_hview[0], false);
draw_set_blend_mode_ext(bm_src_colour,bm_zero);
@PoppyWorks
PoppyWorks / audio_play
Created July 23, 2018 01:34
GML Script. By using this after our setup_listeners(); gist, you can play audio on any listener, fade over time, and loop.
///audio_play(listener,snd_filename,fade in time[ms],loop?)
var listener = argument0;
var sfx = argument1;
var time = argument2;
var loop = argument3;
if gamepad_is_connected(listener)
{
sfx = audio_play_sound_on(listener, sfx, loop, 0);
}
else if listener == noone || listener == -1
@PoppyWorks
PoppyWorks / tileset.scm
Last active July 18, 2018 03:28 — forked from MobiDevelop/tileset.scm
GIMP script that adds a bleed and margin to an existing tilesheet/spritesheet. Very useful!
(define (script-fu-respace-tiles-addMarginSpacing inImage inLayer tileSize)
(let* (
(margin 1)
(spacing 2)
(duplicatePadding TRUE)
(theWidth (car (gimp-drawable-width inLayer)))
(theHeight (car (gimp-drawable-height inLayer)))
(theMarginX (* 2 margin))
(theMarginY (* 2 margin))