Hangman's escape
You know Hangman! Don't you? Well in this game you play Hangman and don't want to get hanged so you run away. This platformer is rather difficult and has 5 Levels.(NO Mario clone)

/////////////////////////////////////////////////////////////// //name: // Hangman's escape // //script type: // one script game // //autor: // Ben Strasser alias Dr.Voodoo // //remarque: // Put this script in the room creation code, creation event, // begin/end step event, step event, game start event, room // start event or the draw event (only in one) // //remarque2: // Use standard GM settings // //copyright: // Ben Strasser // /////////////////////////////////////////////////////////////// game_end(); full_screen=1; screen_width=monitor_width; screen_height=monitor_height; scale_full=100; show_score=false; show_cursor=false; tun=2; end_loop=1; pre_seconde=current_second; fps_counter=0; fps_loop=1; pre_time=current_time; state='Main'; cursor_type='normal'; // while(end_loop) { if keyboard_check(vk_escape) { state='Gameend'; io_clear(); io_handle() }; if keyboard_check(vk_shift) { end_loop=0 }; fps_counter+=1; if pre_seconde!=current_second { fps_loop=fps_counter; fps_counter=0; }; pre_seconde=current_second; pre_time=current_time; //***Main*** if state=='Main' { brush_color=c_black; pen_color=c_black; draw_rectangle(0,0,screen_width,screen_height); font_size = screen_width/1024*80; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; draw_text(screen_width/2,Y,"Hangman's escape"); Y+=string_height('M'); font_size = screen_width/1024*20; draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo'); Y+=string_height('M'); font_size = screen_width/1024*50; draw_text(screen_width/2,Y,'Start Game'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Web'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Exit'); font_size=screen_width/1024*80; Y=5+string_height('M'); font_size=screen_width/1024*20; Y+=string_height('M'); font_size=screen_width/1024*50; if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Start Game'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Gameini' }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help'); if mouse_check_button(mb_left) { state='Help'; mouse_clear(mb_left) }; } Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Web'); if mouse_check_button(mb_left) { file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL=http://www.oocities.org/de/ben0032003/');file_close(); execute_shell(temp_directory+'\URL.url',''); end_loop=0 }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Exit'); if mouse_check_button(mb_left) end_loop=0; } if mouse_check_button(mb_left) mouse_clear(mb_left) }; //***Gameend*** if state=='Gameend' { cursor_type='normal'; //scale_full=100; screen_width=monitor_width; screen_height=monitor_height; state='Main'; }; //***Help*** if state=='Help' { brush_color=c_black; pen_color=c_black; draw_rectangle(0,0,screen_width,screen_height); font_size = screen_width/1024*25; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,"Hangman doesn't want to get hanged so he's running away. Use the left and right arrow keys to run, the up arrow key to jump, space to show or hide the fps and ESC to end the game. After some levels his escape will be discovered and people will start looking for him. You can only try to avoid them.#Hangman's escape is designed to run at a speed of 32fps#Hangman's escape © Ben Strasser 2003.#This program was written by Ben Strasser.#Gamemaker © Mark Overmars 1999-2002.#www.gamemaker.nl",string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } }; //***Gameini*** if state=='Gameini' { screen_width=640; screen_height=480; cursor_type='none'; show_fps=1; clouds=0; cols=0; x=0; y=1000; hspeed=0; vspeed=0; faster=2; max_speed=10; friction=1; gravity=0.5; wall[0,0]=0; door_X=0; door_Y=0; monsters=0; level=1; X=0; Y=0; door_X=0; door_Y=0; state='Game' }; //***Game*** if state=='Game' { //levels data begin if (X==door_X&&Y==door_Y)||y>480 { X=0; Y=0; repeat(20*15) { wall[X,Y]=0; X+=1; if X==20 { X=0; Y+=1 } }; if y<=480 level+=1; if level==6 level=1; if level==1 { //---level1--- monsters=0; x=32*4+8; y=32*11+32-24; hspeed=0; vspeed=0; faster=2; max_speed=10; friction=1; gravity=0.5; wall[0,0]=0; wall[1,12]=1; wall[2,12]=1; wall[3,12]=1; wall[4,12]=1; wall[5,12]=1; wall[6,12]=1; wall[7,12]=1; wall[8,12]=1; wall[9,12]=1; wall[10,12]=1; wall[11,12]=1; wall[12,12]=1; wall[13,12]=1; wall[14,12]=1; wall[15,12]=1; wall[16,12]=1; wall[17,12]=1; wall[18,12]=1; wall[4,2]=1; wall[5,2]=1; wall[6,2]=1; wall[9,4]=1; wall[10,4]=1; wall[11,4]=1; wall[16,5]=1; wall[17,5]=1; wall[18,5]=1; wall[10,7]=1; wall[11,7]=1; wall[12,7]=1; wall[3,8]=1; wall[4,8]=1; wall[5,8]=1; wall[7,10]=1; wall[8,10]=1; wall[9,10]=1; door_X=5; door_Y=1; //---Level1--- }; if level==2 { //---level2--- monsters=0; x=32*18+8; y=32*11+32-24; hspeed=0; vspeed=0; faster=2; max_speed=10; friction=1; gravity=0.5; wall[1,12]=1; wall[2,12]=1; wall[3,12]=1; wall[4,12]=1; wall[5,12]=1; wall[6,12]=1; wall[7,12]=1; wall[8,12]=1; wall[9,12]=1; wall[10,12]=1; wall[11,12]=1; wall[12,12]=1; wall[13,12]=1; wall[14,12]=1; wall[15,12]=1; wall[16,12]=1; wall[17,12]=1; wall[18,12]=1; wall[1,9]=1; wall[2,9]=1; wall[3,9]=1; wall[11,7]=1; wall[12,7]=1; wall[13,7]=1; wall[16,4]=1; wall[17,4]=1; wall[18,4]=1; door_X=17; door_Y=3; //---Level2--- }; if level==3 { //---level3--- monsters=0; x=32*17+8; y=32*1+32-24; hspeed=0; vspeed=0; faster=2; max_speed=10; friction=1; gravity=0.5; wall[1,2]=1; wall[2,2]=1; wall[3,2]=1; wall[6,2]=1; wall[7,2]=1; wall[8,2]=1; wall[11,2]=1; wall[12,2]=1; wall[13,2]=1; wall[16,2]=1; wall[17,2]=1; wall[18,2]=1; wall[3,5]=1; wall[4,5]=1; wall[5,5]=1; wall[6,5]=1; wall[8,5]=1; wall[9,5]=1; wall[10,5]=1; wall[11,5]=1; wall[13,5]=1; wall[14,5]=1; wall[15,5]=1; wall[16,5]=1; wall[4,11]=1; wall[5,11]=1; wall[6,11]=1; wall[3,13]=1; wall[4,13]=1; wall[5,13]=1; wall[6,13]=1; wall[7,13]=1; door_X=5; door_Y=12; //---Level3--- }; if level==4 { //---level4--- monsters=5; monster_x[1]=32*8+8; monster_y[1]=32*11+32-24; monster_hspeed[1]=3; monster_actif[1]=1; monster_x[2]=32*8+8; monster_y[2]=32*11+32-24; monster_hspeed[2]=-3; monster_actif[2]=1; monster_x[3]=32*7+8; monster_y[3]=32*9+32-24; monster_hspeed[3]=3; monster_actif[3]=1; monster_x[4]=32*11+8; monster_y[4]=32*6+32-24; monster_hspeed[4]=3; monster_actif[4]=1; monster_x[5]=32*10+8; monster_y[5]=32*3+32-24; monster_hspeed[5]=3; monster_actif[5]=1; x=32*4+8; y=32*11+32-24; hspeed=0; vspeed=0; faster=2; max_speed=10; friction=1; gravity=0.5; wall[0,0]=0; wall[1,12]=1; wall[2,12]=1; wall[3,12]=1; wall[4,12]=1; wall[5,12]=1; wall[6,12]=1; wall[7,12]=1; wall[8,12]=1; wall[9,12]=1; wall[10,12]=1; wall[11,12]=1; wall[12,12]=1; wall[13,12]=1; wall[14,12]=1; wall[15,12]=1; wall[16,12]=1; wall[17,12]=1; wall[18,12]=1; wall[4,2]=1; wall[5,2]=1; wall[6,2]=1; wall[9,4]=1; wall[10,4]=1; wall[11,4]=1; wall[16,5]=1; wall[17,5]=1; wall[18,5]=1; wall[10,7]=1; wall[11,7]=1; wall[12,7]=1; wall[3,8]=1; wall[4,8]=1; wall[5,8]=1; wall[7,10]=1; wall[8,10]=1; wall[9,10]=1; door_X=5; door_Y=1; //---Level4--- }; if level==5 { //---level5--- monsters=7; monster_x[1]=32*5+8; monster_y[1]=32*10+32-24; monster_hspeed[1]=3; monster_actif[1]=1; monster_x[2]=32*7+8; monster_y[2]=32*8+32-24; monster_hspeed[2]=3; monster_actif[2]=1; monster_x[3]=32*9+8; monster_y[3]=32*6+32-24; monster_hspeed[3]=-3; monster_actif[3]=1; monster_x[4]=32*11+8; monster_y[4]=32*4+32-24; monster_hspeed[4]=3; monster_actif[4]=1; monster_x[5]=32*13+8; monster_y[5]=32*2+32-24; monster_hspeed[5]=3; monster_actif[5]=1; monster_x[6]=32*16+8; monster_y[6]=32*4+32-24; monster_hspeed[6]=3; monster_actif[6]=1; monster_x[7]=32*17+8; monster_y[7]=32*6+32-24; monster_hspeed[7]=3; monster_actif[7]=1; x=32*3+8; y=32*12+32-24; hspeed=0; vspeed=0; faster=2; max_speed=10; friction=1; gravity=0.5; wall[2,13]=1; wall[3,13]=1; wall[4,13]=1; wall[4,11]=1; wall[5,11]=1; wall[6,11]=1; wall[6,9]=1; wall[7,9]=1; wall[8,9]=1; wall[8,7]=1; wall[9,7]=1; wall[10,7]=1; wall[10,5]=1; wall[11,5]=1; wall[12,5]=1; wall[12,3]=1; wall[13,3]=1; wall[14,3]=1; wall[15,5]=1; wall[16,5]=1; wall[17,5]=1; wall[16,7]=1; wall[17,7]=1; wall[18,7]=1; wall[14,9]=1; wall[15,9]=1; wall[16,9]=1; door_X=15; door_Y=8; //---Level5--- } }; //levels data end while(pre_time==current_time) { pre_time=current_time; sleep(1); }; brush_color=make_color(0,0,124); pen_color=brush_color; draw_rectangle(0,0,screen_width,screen_height); temp=1; repeat(clouds) { pen_color=c_black; brush_color=c_white; draw_ellipse(cloud_x[temp],cloud_y[temp],cloud_x[temp]+cloud_size[temp],cloud_y[temp]+cloud_size[temp]/2); cloud_x[temp]+=cloud_speed[temp]; if cloud_x[temp]>screen_width { temp2=temp; repeat(clouds-temp) { cloud_x[temp2]=cloud_x[temp2+1]; cloud_y[temp2]=cloud_y[temp2+1] cloud_speed[temp2]=cloud_speed[temp2+1]; cloud_size[temp2]=cloud_size[temp2+1]; temp2+=1 }; clouds-=1 } else temp+=1 }; temp=1; repeat(cols) { pen_color=c_black; brush_color=c_green; draw_triangle(col_x[temp],col_y[temp],col_x[temp]-(screen_height-col_y[temp]),screen_height+1,col_x[temp]+(screen_height-col_y[temp]),screen_height+1); col_x[temp]+=col_speed[temp]; if col_x[temp]-(screen_height-col_y[temp])>screen_width { temp2=temp; repeat(cols-temp) { col_x[temp2]=col_x[temp2+1]; col_y[temp2]=col_y[temp2+1] col_speed[temp2]=col_speed[temp2+1]; temp2+=1 }; cols-=1 } else temp+=1 }; if floor(random(24*tun))==0 { clouds+=1; cloud_size[clouds]=floor(random(40))+10; cloud_y[clouds]=floor(random(screen_height-cloud_size[clouds]/2)) cloud_x[clouds]=-cloud_size[clouds]; cloud_speed[clouds]=cloud_size[clouds]/8 }; if floor(random(35*tun))==0 { cols+=1; col_y[cols]=floor(random(screen_height/2))+screen_height/2; col_x[cols]=-col_y[cols]; col_speed[cols]=6; }; //blocks X=0; Y=0; repeat(20*15) { if wall[X,Y] { brush_color=make_color(70,69,60); pen_color=brush_color; draw_rectangle(X*32,Y*32,(X+1)*32,(Y+1)*32); if X!=0 if wall[X,Y-1]==0 { brush_color=make_color(0,124*1.5,0); pen_color=brush_color; draw_rectangle(X*32,Y*32,(X+1)*32,Y*32+10); } }; X+=1 if X==20 { X=0; Y+=1 } }; //door brush_color=c_black; pen_color=c_black; X=door_X*32; Y=door_Y*32; draw_ellipse(X,Y,X+32,Y+32); draw_rectangle(X,Y+16,X+32,Y+32); //monsters temp=1; repeat(monsters) { if monster_actif[temp]==1 { X=floor((monster_x[temp]+8)/32); if X<0 X=0; if X>19 X=19; Y=floor((monster_y[temp])/32); if Y<0 Y=0; if Y>14 Y=14; if wall[X,Y+1]==false monster_hspeed[temp]=-monster_hspeed[temp]; pen_color=c_black; draw_line(monster_x[temp],monster_y[temp]+24,monster_x[temp]+8,monster_y[temp]+16) draw_line(monster_x[temp]+8,monster_y[temp]+16,monster_x[temp]+16,monster_y[temp]+24) draw_line(monster_x[temp]+8,monster_y[temp]+16,monster_x[temp]+8,monster_y[temp]+8) draw_line(monster_x[temp],monster_y[temp]+16,monster_x[temp]+8,monster_y[temp]+8) draw_line(monster_x[temp]+8,monster_y[temp]+8,monster_x[temp]+16,monster_y[temp]+16) brush_color=make_color(255,0,0) draw_rectangle(monster_x[temp]+4,monster_y[temp]+8,monster_x[temp]+12,monster_y[temp]); monster_x[temp]+=monster_hspeed[temp]; if x+8>monster_x[temp]-4&&x+8<monster_x[temp]+20&&y+8>monster_y[temp]+7&&y+8<monster_y[temp]+16 y=1000 }; temp+=1; }; //player pen_color=c_black; draw_line(x,y+24,x+8,y+16) draw_line(x+8,y+16,x+16,y+24) draw_line(x+8,y+16,x+8,y+8) draw_line(x,y+16,x+8,y+8) draw_line(x+8,y+8,x+16,y+16) brush_color=make_color(255,128,0) draw_rectangle(x+4,y+8,x+12,y); x+=hspeed; y+=vspeed; X=floor((x+8)/32); if X<0 X=0; if X>19 X=19; Y=floor((y)/32); if Y<0 Y=0; if Y>13 Y=13; if wall[X,Y+1] { if abs(hspeed)>friction { hspeed-=friction*sign(hspeed) } else hspeed=0; if keyboard_lastkey==vk_left { hspeed-=faster; if hspeed<-max_speed hspeed=-max_speed }; if keyboard_lastkey==vk_right { hspeed+=faster if hspeed>max_speed hspeed=max_speed }; vspeed=0; y=Y*32+32-24 if keyboard_lastkey==vk_up vspeed=-9 } else vspeed+=gravity; if keyboard_key==vk_nokey keyboard_lastkey=vk_nokey; if keyboard_check(vk_space) { show_fps=!show_fps; keyboard_clear(vk_space); io_handle() }; if show_fps { brush_color=c_white; pen_color=c_black; font_name='Arial'; font_size=10; font_color=c_black; font_align=fa_left; draw_rectangle(0,0,string_width('fps='+string(fps_loop)+' Level='+string(level)+' Hit ESC to exit.')+10,string_height('M')+10) draw_text(5,5,'fps='+string(fps_loop)+' Level='+string(level)+' Hit ESC to exit.') } }; if cursor_type=='normal' { brush_color=make_color(100,100,100) pen_color=c_black; draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+20,mouse_y+40) brush_color=make_color(200,200,200); draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20) brush_color=make_color(150,150,150); draw_triangle(mouse_x+20,mouse_y+40,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20); }; screen_refresh(); };
Hit CTRL+A to select all the code then copy it into GM

The Towers of Hanoi
In this game you have to move all disks from one pile to another. Sort of puzzle.

/////////////////////////////////////////////////////////////// //name: // The Towers of Hanoi // //script type: // one script game // //autor: // Ben Strasser alias Dr.Voodoo // //remarque: // Put this script in the room creation code, creation event, // begin/end step event, step event, game start event, room // start event or the draw event (only in one) // //remarque2: // Use standard GM settings // //copyright: // Ben Strasser // /////////////////////////////////////////////////////////////// background_color=c_black; screen_width=monitor_width; screen_height=monitor_height; full_screen=true; show_cursor=false; show_score=false; level=5; state='Main'; c[1]=c_red; c[2]=c_blue; c[3]=c_white; c[4]=c_yellow; c[5]=c_fuchsia; c[6]=c_navy; c[7]=c_olive; c[8]=c_purple; c[9]=c_teal; end_loop=1; while(end_loop) { //***Main*** if state=='Main' { font_size = screen_width/1024*60; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; draw_text(screen_width/2,Y,'The Towers of Hanoi'); Y+=string_height('M'); font_size = screen_width/1024*20; draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo'); Y+=string_height('M'); font_size = screen_width/1024*40; draw_text(screen_width/2,Y,'Start Game'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Set Level'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Web'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Exit'); font_size=screen_width/1024*60; Y=5+string_height('M'); font_size=screen_width/1024*20; Y+=string_height('M'); font_size=screen_width/1024*40; if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Start Game'); if mouse_check_button(mb_left) { tower1=''; temp=1; repeat(level) { tower1=string(temp)+tower1 temp+=1 }; tower2=''; tower3=''; pick=0; mouse_clear(mb_left); state='Game' } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Set Level'); if mouse_check_button(mb_left) { temp=get_integer('Type a nummber between 3 and 9',level); if temp<3||temp>9 show_message('Nummber is not between 3 and 9!') else level=temp } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help'); if mouse_check_button(mb_left) { state='Help'; mouse_clear(mb_left) } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Web'); if mouse_check_button(mb_left) { file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL=http://www.oocities.org/de/ben0032003/');file_close(); execute_shell(temp_directory+'\URL.url',''); end_loop=0 } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Exit'); if mouse_check_button(mb_left) end_loop=0 }; }; //***Game*** if state=='Game' { font_size=screen_width/1024*60; font_color=c_white; font_align=fa_center; font_style=fs_bold; font_name='Comic Sans MS'; draw_text(screen_width/2,5,'Score = '+string(floor(power(10,level/2)-score))) Y=string_height('M'); height=screen_height-string_height('M')-50; width=screen_width/30; //tower1 X=(((screen_width/3)*1)-(screen_width/3)/2); temp_tower=tower1; Y_temp=Y+height; repeat(string_length(temp_tower)) { pen_color=c_black; temp=real(string_copy(temp_tower,1,1)) temp_tower=string_delete(temp_tower,1,1) brush_color=c[temp]; draw_ellipse(X-(temp*width)/2,Y_temp+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-(((temp*width)/2)/7)*3) pen_color=brush_color; draw_rectangle(X-(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1); pen_color=c_black; draw_line(X-(temp*width)/2,Y_temp,X-(temp*width)/2,Y_temp-height*0.1); draw_line(X+(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1); draw_ellipse(X-(temp*width)/2,Y_temp-height*0.1+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-height*0.1-(((temp*width)/2)/7)*3) Y_temp-=height*0.1 }; height_temp=height*(10-string_length(tower1))/10; pen_color=c_black; brush_color=make_color(101,44,1); draw_ellipse(X-(0.5*width)/2,Y_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-(((0.5*width)/2)/7)*3) pen_color=brush_color; draw_rectangle(X-(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp); pen_color=c_black; draw_line(X-(0.5*width)/2,Y_temp,X-(0.5*width)/2,Y_temp-height_temp); draw_line(X+(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp); draw_ellipse(X-(0.5*width)/2,Y_temp-height_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-height_temp-(((0.5*width)/2)/7)*3) //tower2 X=(((screen_width/3)*2)-(screen_width/3)/2); temp_tower=tower2; Y_temp=Y+height; repeat(string_length(temp_tower)) { pen_color=c_black; temp=real(string_copy(temp_tower,1,1)) temp_tower=string_delete(temp_tower,1,1) brush_color=c[temp]; draw_ellipse(X-(temp*width)/2,Y_temp+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-(((temp*width)/2)/7)*3) pen_color=brush_color; draw_rectangle(X-(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1); pen_color=c_black; draw_line(X-(temp*width)/2,Y_temp,X-(temp*width)/2,Y_temp-height*0.1); draw_line(X+(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1); draw_ellipse(X-(temp*width)/2,Y_temp-height*0.1+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-height*0.1-(((temp*width)/2)/7)*3) Y_temp-=height*0.1 }; height_temp=height*(10-string_length(tower2))/10; pen_color=c_black; brush_color=make_color(101,44,1); draw_ellipse(X-(0.5*width)/2,Y_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-(((0.5*width)/2)/7)*3) pen_color=brush_color; draw_rectangle(X-(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp); pen_color=c_black; draw_line(X-(0.5*width)/2,Y_temp,X-(0.5*width)/2,Y_temp-height_temp); draw_line(X+(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp); draw_ellipse(X-(0.5*width)/2,Y_temp-height_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-height_temp-(((0.5*width)/2)/7)*3) //tower3 X=(((screen_width/3)*3)-(screen_width/3)/2); temp_tower=tower3; Y_temp=Y+height; repeat(string_length(temp_tower)) { pen_color=c_black; temp=real(string_copy(temp_tower,1,1)) temp_tower=string_delete(temp_tower,1,1) brush_color=c[temp]; draw_ellipse(X-(temp*width)/2,Y_temp+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-(((temp*width)/2)/7)*3) pen_color=brush_color; draw_rectangle(X-(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1); pen_color=c_black; draw_line(X-(temp*width)/2,Y_temp,X-(temp*width)/2,Y_temp-height*0.1); draw_line(X+(temp*width)/2,Y_temp,X+(temp*width)/2,Y_temp-height*0.1); draw_ellipse(X-(temp*width)/2,Y_temp-height*0.1+(((temp*width)/2)/7)*3,X+(temp*width)/2,Y_temp-height*0.1-(((temp*width)/2)/7)*3) Y_temp-=height*0.1 }; height_temp=height*(10-string_length(tower3))/10; pen_color=c_black; brush_color=make_color(101,44,1); draw_ellipse(X-(0.5*width)/2,Y_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-(((0.5*width)/2)/7)*3) pen_color=brush_color; draw_rectangle(X-(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp); pen_color=c_black; draw_line(X-(0.5*width)/2,Y_temp,X-(0.5*width)/2,Y_temp-height_temp); draw_line(X+(0.5*width)/2,Y_temp,X+(0.5*width)/2,Y_temp-height_temp); draw_ellipse(X-(0.5*width)/2,Y_temp-height_temp+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y_temp-height_temp-(((0.5*width)/2)/7)*3) //pick if pick!=0 { Y=string_height('M'); X=mouse_x; pen_color=c_black; brush_color=c[pick]; draw_ellipse(X-(pick*width)/2,Y+(((pick*width)/2)/7)*3,X+(pick*width)/2,Y-(((pick*width)/2)/7)*3) pen_color=brush_color; draw_rectangle(X-(pick*width)/2,Y,X+(pick*width)/2,Y-height*0.1); pen_color=c_black; draw_line(X-(pick*width)/2,Y,X-(pick*width)/2,Y-height*0.1); draw_line(X+(pick*width)/2,Y,X+(pick*width)/2,Y-height*0.1); draw_ellipse(X-(pick*width)/2,Y-height*0.1+(((pick*width)/2)/7)*3,X+(pick*width)/2,Y-height*0.1-(((pick*width)/2)/7)*3) draw_ellipse(X-(0.5*width)/2,Y-height*0.1+(((0.5*width)/2)/7)*3,X+(0.5*width)/2,Y-height*0.1-(((0.5*width)/2)/7)*3) }; //step if tower1=''&&tower2=''&&pick==0 { screen_refresh(); show_message('Congratulation, you solved the puzzle with a score of '+string(floor(power(10,level/2)-score))); state='Main' }; if mouse_check_button(mb_left) { mouse_clear(mb_left); tower_temp=floor((mouse_x/screen_width)*3); if pick==0 { if tower_temp==0 { score+=1; pick=real(string_copy(tower1,string_length(tower1),1)); tower1=string_delete(tower1,string_length(tower1),1) }; if tower_temp==1 { score+=1; pick=real(string_copy(tower2,string_length(tower2),1)); tower2=string_delete(tower2,string_length(tower2),1) }; if tower_temp==2 { score+=1; pick=real(string_copy(tower3,string_length(tower3),1)); tower3=string_delete(tower3,string_length(tower3),1) }; } else if pick!=0 { if tower_temp==0 { if real(string_copy(tower1,string_length(tower1),1))>pick||string_copy(tower1,string_length(tower1),1)=='' { tower1+=string(pick) pick=0 } }; if tower_temp==1 { if real(string_copy(tower2,string_length(tower2),1))>pick||string_copy(tower2,string_length(tower2),1)=='' { tower2+=string(pick) pick=0 } }; if tower_temp==2 { if real(string_copy(tower3,string_length(tower3),1))>pick||string_copy(tower3,string_length(tower3),1)=='' { tower3+=string(pick) pick=0 } }; } }; }; //***Help*** if state=='Help' { font_size = screen_width/1024*30; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,'Towers of Hanoi is an ancient game of strategic puzzle solving. The goal is to move the stack of discs from one pole to another. The difficulty here is that you can only place a disc on top of a larger one. This is where it becomes a mind-bender. How do you move the stack over, if you can only place a smaller disc on a larger one? Try to do so in as few moves as possible.##Towers of Hanoi © Ben Strasser 2003.#This program was written by Ben Strasser using Gamemaker which was written by Mark Overmars#Gamemaker © Mark Overmars 1999-2002.#www.gamemaker.nl',string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } } //draw_cursor brush_color=make_color(100,100,100) pen_color=c_black; draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+20,mouse_y+40) brush_color=make_color(200,200,200); draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20) brush_color=make_color(150,150,150); draw_triangle(mouse_x+20,mouse_y+40,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20); //refresh if keyboard_check(vk_escape) state='Main'; screen_refresh(); io_clear(); io_handle(); pen_color=c_black; brush_color=c_black; draw_rectangle(0,0,screen_width,screen_height) }; game_end()
Hit CTRL+A to select all the code then copy it into GM

Lost in the Lost Maze
In this 3D game you must find your way out of a maze. The maze is randomly generated. Several Levels exist.

/////////////////////////////////////////////////////////////// //name: // Lost in the Lost Maze // //script type: // one script game // //autor: // Ben Strasser alias Dr.Voodoo // //remarque: // Put this script in the room creation code, creation event, // begin/end step event, step event, game start event, room // start event or the draw event (only in one) // //remarque2: // Use standard GM settings // //copyright: // Ben Strasser // /////////////////////////////////////////////////////////////// game_end(); background_color=c_black; screen_width=monitor_width; screen_height=monitor_height; full_screen=true; show_cursor=false; state='Main'; end_loop=1; cursor='normal'; while(end_loop) { //Main begin if state=='Main' { cursor='normal'; font_size = screen_width/1024*60; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; draw_text(screen_width/2,Y,'Lost in the Lost Maze'); Y+=string_height('M'); font_size = screen_width/1024*20; draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo'); Y+=string_height('M'); font_size = screen_width/1024*40; draw_text(screen_width/2,Y,'Start Game'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Web'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Exit'); font_size=screen_width/1024*60; Y=5+string_height('M'); font_size=screen_width/1024*20; Y+=string_height('M'); font_size=screen_width/1024*40; if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Start Game'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Level select' } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help'); if mouse_check_button(mb_left) { state='Help'; mouse_clear(mb_left) } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Web'); if mouse_check_button(mb_left) { file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL=http://www.oocities.org/de/ben0032003/');file_close(); execute_shell(temp_directory+'\URL.url',''); end_loop=0 } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Exit'); if mouse_check_button(mb_left) end_loop=0 }; }; //Main end //Level select begin if state=='Level select' { cursor='normal'; font_size = screen_width/1024*60; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; font_size = screen_width/1024*40; draw_text(screen_width/2,Y,'Which level do you want?'); Y+=string_height('M'); font_size = screen_width/1024*40; draw_text(screen_width/2,Y,'Sucker'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Easy'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Normal'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Hard'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help! Where am I?'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Back'); Y=5+string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Sucker'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Game ini'; x_width=10; y_width=10; maps=1; doors=1 } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Easy'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Game ini' x_width=20; y_width=20; maps=2; doors=1 } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Normal'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Game ini' x_width=50; y_width=50; maps=3; doors=1 } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Hard'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Game ini' x_width=80; y_width=80; maps=4; doors=2; } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help! Where am I?'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Game ini' x_width=200; y_width=200; maps=10; doors=1; } }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Back'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Main' } }; }; //Level select end //Help begin if state=='Help' { font_size = screen_width/1024*25; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,'As the name already says you are lost in a lost maze so nobody can help you. You must find your own way to the door. On your way you can find a map. Use the ARROW KEYS to move and turn, ENTER to pick up an object or to go throw a door and SPACE to use the map (if you have found one). To quit the map view hit ESC. Hitting ESC during the game will end the game and return to the main menu.##Lost in the Lost maze © Ben Strasser 2003.#This program was written by Ben Strasser using Gamemaker which was written by Mark Overmars#Gamemaker © Mark Overmars 1999-2003.#www.gamemaker.nl',string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } } //Help end //Congratulations begin if state=='Congratulations' { cursor='normal'; font_size = screen_width/1024*40; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,'Congratulations you found the door!',string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } } //Congratulations end //Game ini begin if state=='Game ini' { font_size = screen_width/1024*30; font_color = c_white; font_align = fa_center; font_style = fs_bold; brush_color=c_black; pen_color=c_black; draw_rectangle(0,0,screen_width,screen_height) draw_text(screen_width/2,5,'Loading...#Please wait#On slow computers and#difficult levels this can take a while.') screen_refresh(); cursor='none'; state='Game' X=screen_width/4; Y=screen_height/4; tempx=0; tempy=0; repeat((x_width+1)*(y_width+1)) { map[tempx,tempy]=0; tempx+=1; if tempx==x_width+1 { tempx=0; tempy+=1 } }; map[1,1]=2; map_get=0; man_x=1; man_y=1; repeat(5) { tempx=0; tempy=0; repeat(x_width*y_width) { if map[tempx,tempy]==2 { //map[tempx,tempy]=1; if floor(random(4))!=0 if tempx+2<x_width if map[tempx+2,tempy]==0 { map[tempx+1,tempy]=1; map[tempx+2,tempy]=2; } if floor(random(4))!=0 if tempy-2>0 if map[tempx,tempy-2]==0 { map[tempx,tempy-1]=1; map[tempx,tempy-2]=2; } if floor(random(4))!=0 if tempx-2>0 if map[tempx-2,tempy]==0 { map[tempx-1,tempy]=1; map[tempx-2,tempy]=2; } if floor(random(4))!=0 if tempy+2<y_width if map[tempx,tempy+2]==0 { map[tempx,tempy+1]=1; map[tempx,tempy+2]=2; } } tempx+=1; if tempx==x_width { tempx=0; tempy+=1 } }; }; free=0 tempx=0; tempy=0; repeat(x_width*y_width) { if map[tempx,tempy]==2 map[tempx,tempy]=1; if map[tempx,tempy]==1 free+=1 tempx+=1; if tempx==x_width { tempx=0; tempy+=1 } }; if free<=(doors+maps)*2 { state='Game ini' } else { repeat(maps) { temp_x=floor(random(x_width)); temp_y=floor(random(y_width)); while(map[temp_x,temp_y]!=1) { temp_x=floor(random(x_width)); temp_y=floor(random(y_width)); }; map[temp_x,temp_y]=2 } repeat(doors) { temp_x=floor(random(x_width)); temp_y=floor(random(y_width)); while(map[temp_x,temp_y]!=1) { temp_x=floor(random(x_width)); temp_y=floor(random(y_width)); }; map[temp_x,temp_y]=3 } man_direction=0; image_counter=0; text=''; } } //Game ini end //Game begin if state=='Game' { brush_color=c_blue; pen_color=c_blue; draw_rectangle(0,0,screen_width,screen_height/2); brush_color=c_green; pen_color=c_green; draw_rectangle(0,screen_height/2,screen_width,screen_height); brush_color=c_white; pen_color=c_black; temp_x=man_x; temp_y=man_y; temp_X=X*1.6; temp_Y=Y*1.6; if man_direction==0 { while(map[temp_x,temp_y]) { if map[temp_x,temp_y-1]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() }; if map[temp_x,temp_y+1]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() }; temp_x+=1; temp_X/=2; temp_Y/=2; }; draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_end(); temp_x-=1; temp_X*=2; temp_Y*=2; while(map[temp_x,temp_y]&&temp_x>=man_x) { if map[temp_x,temp_y]==2 { temp=temp_X/4*(image_counter-1); brush_color=c_white font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Map') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } if map[temp_x,temp_y]==3 { temp=temp_X/4*(image_counter-1); brush_color=make_color(128,64,0); font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Door') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } temp_x-=1; temp_X*=2; temp_Y*=2; } }; if man_direction==1 { while(map[temp_x,temp_y]) { if map[temp_x-1,temp_y]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() }; if map[temp_x+1,temp_y]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() }; temp_y-=1; temp_X/=2; temp_Y/=2; }; draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_end(); temp_y+=1; temp_X*=2; temp_Y*=2; while(map[temp_x,temp_y]&&temp_y<=man_y) { if map[temp_x,temp_y]==2 { temp=temp_X/4*(image_counter-1); brush_color=c_white font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Map') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } if map[temp_x,temp_y]==3 { temp=temp_X/4*(image_counter-1); brush_color=make_color(128,64,0); font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Door') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } temp_y+=1; temp_X*=2; temp_Y*=2; } }; if man_direction==2 { while(map[temp_x,temp_y]) { if map[temp_x,temp_y+1]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() }; if map[temp_x,temp_y-1]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() }; temp_x-=1; temp_X/=2; temp_Y/=2; }; draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_end(); temp_x+=1; temp_X*=2; temp_Y*=2; while(map[temp_x,temp_y]&&temp_x<=man_x) { if map[temp_x,temp_y]==2 { temp=temp_X/4*(image_counter-1); brush_color=c_white font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Map') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } if map[temp_x,temp_y]==3 { temp=temp_X/4*(image_counter-1); brush_color=make_color(128,64,0); font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Door') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } temp_x+=1; temp_X*=2; temp_Y*=2; } } if man_direction==3 { while(map[temp_x,temp_y]) { if map[temp_x+1,temp_y]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2-temp_X,screen_height/2-temp_Y); draw_polygon_end() }; if map[temp_x-1,temp_y]==false { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() } else { draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2+temp_Y); draw_polygon_vertex(screen_width/2+temp_X,screen_height/2-temp_Y); draw_polygon_end() }; temp_y+=1; temp_X/=2; temp_Y/=2; if keyboard_check(vk_escape) { end_loop=false; exit } }; draw_polygon_begin(); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2-temp_Y*2); draw_polygon_vertex(screen_width/2-temp_X*2,screen_height/2+temp_Y*2); draw_polygon_vertex(screen_width/2+temp_X*2,screen_height/2+temp_Y*2); draw_polygon_end(); temp_y-=1; temp_X*=2; temp_Y*=2; while(map[temp_x,temp_y]&&temp_y>=man_y) { if map[temp_x,temp_y]==2 { temp=temp_X/4*(image_counter-1); brush_color=c_white font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Map') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } if map[temp_x,temp_y]==3 { temp=temp_X/4*(image_counter-1); brush_color=make_color(128,64,0); font_color=c_black; font_align=fa_center; font_size=30/1024*(temp_X*4); if X*1.6<=temp_X*2 draw_text(screen_width/2,screen_height/2-temp_Y/2,'Door') draw_rectangle(screen_width/2+temp,screen_height/2-temp_Y/3+temp_Y/2,screen_width/2-temp,screen_height/2+temp_Y/2+temp_Y/2) } temp_y-=1; temp_X*=2; temp_Y*=2; } }; if keyboard_check(vk_left) { man_direction+=1; if man_direction==4 man_direction=0; keyboard_clear(vk_left); io_handle() } if keyboard_check(vk_right) { man_direction-=1; if man_direction==-1 man_direction=3; keyboard_clear(vk_right); io_handle() }; if keyboard_check(vk_up) { text=''; if man_direction==0&&map[man_x+1,man_y] man_x+=1; if man_direction==1&&map[man_x,man_y-1] man_y-=1; if man_direction==2&&map[man_x-1,man_y] man_x-=1; if man_direction==3&&map[man_x,man_y+1] man_y+=1; keyboard_clear(vk_up) }; if keyboard_check(vk_down) { text=''; if man_direction==0&&map[man_x-1,man_y] man_x-=1; if man_direction==1&&map[man_x,man_y+1] man_y+=1; if man_direction==2&&map[man_x+1,man_y] man_x+=1; if man_direction==3&&map[man_x,man_y-1] man_y-=1; keyboard_clear(vk_down) }; if keyboard_check(vk_enter)&&map[man_x,man_y]!=0&&map[man_x,man_y]!=1 { if map[man_x,man_y]==2 { map[man_x,man_y]=1; text='Map picked up'; map_get=1 } if map[man_x,man_y]==3 { map[man_x,man_y]=1; text='You found the exit'; } keyboard_clear(vk_enter) }; if keyboard_check(vk_space)&&map_get { font_size=30/1024*screen_width; font_align=fa_left; draw_text(0,0,text); screen_refresh(); pixel_width=screen_width/(x_width+1); pixel_height=screen_height/(y_width+1); tempx=0; tempy=0; repeat((x_width+1)*(y_width+1)) { brush_color=map[tempx,tempy]*c_white; if map[tempx,tempy]>1 brush_color=c_white; if tempx==man_x&&tempy==man_y brush_color=c_yellow; pen_color=brush_color; draw_rectangle(pixel_width*tempx,pixel_height*tempy,pixel_width*(tempx+1),pixel_height*(tempy+1)); //draw_pixel(tempx,tempy) tempx+=1; if tempx==x_width+1 { tempx=0; tempy+=1 } }; screen_refresh(); while(keyboard_check(vk_escape)==false) {a=0}; keyboard_clear(vk_escape); keyboard_clear(vk_space) }; if keyboard_check(vk_space) keyboard_clear(vk_space); image_counter+=0.005; if image_counter>=2 image_counter=0; font_size=30/1024*screen_width; font_align=fa_left draw_text(0,0,text); if text=='You found the exit' { state='Congratulations'; } } //Game End if cursor=='normal' { brush_color=make_color(100,100,100) pen_color=c_black; draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+20,mouse_y+40) brush_color=make_color(200,200,200); draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20) brush_color=make_color(150,150,150); draw_triangle(mouse_x+20,mouse_y+40,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20); }; screen_refresh(); brush_color=c_black; pen_color=c_black; draw_rectangle(0,0,screen_width,screen_height) if keyboard_check(vk_escape) { state='Main'; keyboard_clear(vk_escape) } }
Hit CTRL+A to select all the code then copy it into GM

Mind Master
Mind Master is a copy of the well known Master Mind Game. Here you must crack a color code with a limited number of tries. To help you are being told in how far your try was correct.

/////////////////////////////////////////////////////////////// //name: // Mind Master // //script type: // one script game // //autor: // Ben Strasser alias Dr.Voodoo // //remarque: // Put this script in the room creation code, creation event, // begin/end step event, step event, game start event, room // start event or the draw event (only in one) // //remarque2: // Use standard GM settings // //copyright: // Ben Strasser // /////////////////////////////////////////////////////////////// game_end(); full_screen=1; screen_width=monitor_width; screen_height=monitor_height; show_score=false; show_cursor=false; chances=12; color[1]=c_red; color_name[1]='red' color[2]=c_blue; color_name[2]='blue' color[3]=c_yellow; color_name[3]='yellow' color[4]=c_silver; color_name[4]='silver' color[5]=c_green; color_name[5]='green' color[6]=c_teal; color_name[6]='teal' color[7]=c_fuchsia; color_name[7]='fuchsia' color[8]=c_maroon; color_name[8]='maroon' color_solution[1]=c_red; color_solution[2]=c_white; cursor_type='normal'; state='Main'; end_loop=1; while(end_loop) { //***Game*** if state=='Game ini' { chance=1; r=min(screen_width/5,screen_height/12)/2; X=screen_width/2-r*5; Y=screen_height/2-(r*chances*2)/2; number_size=1000; font_size=number_size; while(string_height('M')>r*2) { number_size-=1 font_size=number_size; }; code[0]=string(floor(random(8))+1)+string(floor(random(8))+1)+string(floor(random(8))+1)+string(floor(random(8))+1); temp=1; repeat(chances) { code[temp]='0000' temp+=1 }; code_solution[0]=1 temp=1; repeat(chances) { code_solution[temp]='0000' temp+=1 }; state='Game' }; if state=='Game' { brush_color=c_silver; draw_button(X,0,X+r*2-1,screen_height-2,0); draw_button(X+r*2,0,X+r*2*5-1,screen_height-2,1); draw_button(X+r*2*5,0,X+r*2*6-1,screen_height-2,0); mouse=-1; temp=1; repeat(chances) { pen_color=c_black; brush_color=color[real(string_copy(code[temp],1,1))]; if brush_color!=0 draw_circle(1*r*2+X+r,(temp-1)*r*2+r+Y,r); if mouse_x>1*r*2+X&&mouse_x<2*r*2+X&&temp==code_solution[0] mouse=1; brush_color=color[real(string_copy(code[temp],2,1))]; if brush_color!=0 draw_circle(2*r*2+X+r,(temp-1)*r*2+r+Y,r); if mouse_x>2*r*2+X&&mouse_x<3*r*2+X&&temp==code_solution[0] mouse=2; brush_color=color[real(string_copy(code[temp],3,1))]; if brush_color!=0 draw_circle(3*r*2+X+r,(temp-1)*r*2+r+Y,r); if mouse_x>3*r*2+X&&mouse_x<4*r*2+X&&temp==code_solution[0] mouse=3; brush_color=color[real(string_copy(code[temp],4,1))]; if brush_color!=0 draw_circle(4*r*2+X+r,(temp-1)*r*2+r+Y,r); if mouse_x>4*r*2+X&&mouse_x<5*r*2+X&&temp==code_solution[0] mouse=4; if temp<code_solution[0] { brush_color=color_solution[real(string_copy(code_solution[temp],1,1))]; if brush_color!=0 draw_circle(X+r/2,(temp-1)*r*2+r/2+Y,r/2) brush_color=color_solution[real(string_copy(code_solution[temp],2,1))]; if brush_color!=0 draw_circle(X+r*1.5,(temp-1)*r*2+r/2+Y,r/2) brush_color=color_solution[real(string_copy(code_solution[temp],3,1))]; if brush_color!=0 draw_circle(X+r/2,(temp-1)*r*2+r*1.5+Y,r/2) brush_color=color_solution[real(string_copy(code_solution[temp],4,1))]; if brush_color!=0 draw_circle(X+r*1.5,(temp-1)*r*2+r*1.5+Y,r/2) }; if temp<9 { brush_color=color[temp]; draw_circle(5*r*2+X+r,(temp-1)*r*2+r+Y,r); if mouse_x>5*r*2+X&&mouse_x<6*r*2+X&&mouse_y>(temp-1)*r*2+Y&&mouse_y<(temp-1)*r*2+r+r+Y mouse=4+temp; }; if temp==9 { font_color=c_green; font_align=fa_center; font_name='Wingdings'; font_size=number_size; if mouse_x>5*r*2+X&&mouse_x<6*r*2+X&&mouse_y>(temp-1)*r*2+Y&&mouse_y<(temp-1)*r*3+Y mouse=13; draw_text(5*r*2+X+r,(temp-1)*r*2+Y,chr(67)) }; temp+=1 }; if mouse>4&&mouse<13&&mouse_check_button(mb_left) { cursor_type=string(mouse-4) }; if mouse!=-1&&mouse<5&&mouse_check_button(mb_left)&&cursor_type!='normal' { code[code_solution[0]]=string_delete(code[code_solution[0]],mouse,1); code[code_solution[0]]=string_insert(string(cursor_type),code[code_solution[0]],mouse); cursor_type='normal' }; if mouse==13&&mouse_check_button(mb_left)&&string_pos('0',code[code_solution[0]])==false { if code[code_solution[0]]==code[0] { cursor_type='normal'; screen_refresh(); show_message('Congratulations you solved the puzzle.'); state='Main' }; code_solution[code_solution[0]]=''; temp=code[code_solution[0]]; if string_copy(temp,1,1)==string_copy(code[0],1,1) { code_solution[code_solution[0]]+='1'; temp=string_delete(temp,1,1); temp=string_insert('0',temp,1) }; if string_copy(temp,2,1)==string_copy(code[0],2,1) { code_solution[code_solution[0]]+='1'; temp=string_delete(temp,2,1); temp=string_insert('0',temp,2) }; if string_copy(temp,3,1)==string_copy(code[0],3,1) { code_solution[code_solution[0]]+='1'; temp=string_delete(temp,3,1); temp=string_insert('0',temp,3) }; if string_copy(temp,4,1)==string_copy(code[0],4,1) { code_solution[code_solution[0]]+='1'; temp=string_delete(temp,4,1); temp=string_insert('0',temp,4) }; if string_pos(string_copy(code[0],1,1),temp) { code_solution[code_solution[0]]+='2'; }; if string_pos(string_copy(code[0],2,1),temp) { code_solution[code_solution[0]]+='2'; }; if string_pos(string_copy(code[0],3,1),temp) { code_solution[code_solution[0]]+='2'; }; if string_pos(string_copy(code[0],4,1),temp) { code_solution[code_solution[0]]+='2'; }; code_solution[0]+=1; if code_solution[0]>chances { cursor_type='normal'; screen_refresh(); show_message('Game over.#It was '+color_name[real(string_copy(code[0],1,1))]+' '+color_name[real(string_copy(code[0],2,1))]+' '+color_name[real(string_copy(code[0],3,1))]+' '+color_name[real(string_copy(code[0],4,1))]) state='Main' } }; if mouse_check_button(mb_right) { cursor_type='normal'; mouse_clear(mb_right); io_handle() } if mouse_check_button(mb_left) { mouse_clear(mb_left); io_handle() } }; //***Main*** if state=='Main' { font_size = screen_width/1024*80; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; draw_text(screen_width/2,Y,'Mind Master'); Y+=string_height('M'); font_size = screen_width/1024*20; draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo'); Y+=string_height('M'); font_size = screen_width/1024*50; draw_text(screen_width/2,Y,'Start Game'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Web'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Exit'); font_size=screen_width/1024*80; Y=5+string_height('M'); font_size=screen_width/1024*20; Y+=string_height('M'); font_size=screen_width/1024*50; if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Start Game'); if mouse_check_button(mb_left) { mouse_clear(mb_left); state='Game ini' }; } Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help'); if mouse_check_button(mb_left) { state='Help'; mouse_clear(mb_left) }; } Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Web'); if mouse_check_button(mb_left) { file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL=http://www.oocities.org/de/ben0032003/');file_close(); execute_shell(temp_directory+'\URL.url',''); end_loop=0 }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Exit'); if mouse_check_button(mb_left) end_loop=0; } if mouse_check_button(mb_left) mouse_clear(mb_left) }; //***Help*** if state=='Help' { font_size = screen_width/1024*30; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,"Mind Master is a game of codes. The goal is simple crack a 4 postion code. Each position has 8 posibileties. Each time you enter a code you will be told how many positions are right (little red points) and how many postions are at the wrong place (little white points). To enter a code pick a color from the right (by clicking it) and click in the middle row to enter. On the right bottom there is a button to definatly enter the code.#Mind Master © Ben Strasser 2003.#This program was written by Ben Strasser.#Gamemaker © Mark Overmars 1999-2002.#www.gamemaker.nl",string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } }; if cursor_type=='normal' { brush_color=make_color(100,100,100) pen_color=c_black; draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+20,mouse_y+40) brush_color=make_color(200,200,200); draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20) brush_color=make_color(150,150,150); draw_triangle(mouse_x+20,mouse_y+40,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20); }; if cursor_type!='normal' { brush_color=color[real(cursor_type)]; draw_circle(mouse_x,mouse_y,r); }; screen_refresh(); pen_color=c_black; brush_color=c_black; draw_rectangle(0,0,screen_width,screen_height); if keyboard_check(vk_escape) { state='Main'; keyboard_clear(vk_escape); io_handle() } };
Hit CTRL+A to select all the code then copy it into GM

Minefield
Minefield is a 1 script version of the well-known Minesweafer (I hope I spelled that right). Here you have to clear a field from mines. If you click on a part you are told how many mines there are in the region. If you click one a mine... then good luck in heaven ;-)

/////////////////////////////////////////////////////////////// //name: // Minefield // //script type: // one script game // //autor: // Ben Strasser alias Dr.Voodoo // //remarque: // Put this script in the room creation code, creation event, // begin/end step event, step event, game start event, room // start event or the draw event (only in one) // //remarque2: // Use standard GM settings // //copyright: // Ben Strasser // /////////////////////////////////////////////////////////////// screen_width=monitor_width; screen_height=monitor_height; full_screen=true; show_score=false; width=screen_width; height=screen_height; Y_number=11; X_number=15; box_side=min(width/X_number,height/Y_number); X=0; mines=25; number_size=1000; font_size=number_size; while(string_height('M')>box_side*0.75) { number_size-=1 font_size=number_size; }; c[1]=c_blue; c[2]=c_green; c[3]=c_red; c[4]=c_purple; c[5]=make_color(125,0,0); c[6]=c_navy; c[7]=c_olive; c[8]=468724; c[9]=c_teal; // state='Main'; end_loop=1; while(end_loop) { //***Main*** if state=='Main' { pen_color=c_black; brush_color=c_black; draw_rectangle(0,0,screen_width,screen_height); font_size = screen_width/1024*80; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; draw_text(screen_width/2,Y,'Minefield'); Y+=string_height('M'); font_size = screen_width/1024*20; draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo'); Y+=string_height('M'); font_size = screen_width/1024*50; draw_text(screen_width/2,Y,'Start Game'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Set number of mines'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Set the board'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Web'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Exit'); font_size=screen_width/1024*80; Y=5+string_height('M'); font_size=screen_width/1024*20; Y+=string_height('M'); font_size=screen_width/1024*50; if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Start Game'); if mouse_check_button(mb_left) { pen_color=c_black; brush_color=c_black; draw_rectangle(0,0,screen_width,screen_height); x=0; y=0; repeat(Y_number*X_number) { mine[x,y]=0; see[x,y]=0; see_back[x,y]=0; x+=1; if x>=X_number { x=0; y+=1 } }; //put mines repeat(mines) { ok=true; while(ok) { x=floor(random(X_number)) y=floor(random(Y_number)) if mine[x,y]!=9 { mine[x,y]=9; ok=false } } } //put numbers x=0; y=0; repeat(Y_number*X_number) { if mine[x,y]!=9 { temp=0; if x>0&&y>0 if mine[x-1,y-1]==9 temp+=1; if y>0 if mine[x,y-1]==9 temp+=1; if y>0&&x<X_number-1 if mine[x+1,y-1]==9 temp+=1; if x>0 if mine[x-1,y]==9 temp+=1; if x<X_number-1 if mine[x+1,y]==9 temp+=1; if x>0&&y<Y_number-1 if mine[x-1,y+1]==9 temp+=1; if y<Y_number-1 if mine[x,y+1]==9 temp+=1; if x<X_number-1&&y<Y_number-1 if mine[x+1,y+1]==9 temp+=1; mine[x,y]=temp }; x+=1; if x==X_number { x=0; y+=1 } }; first_step=1; mouse_clear(mb_left); state='Game' }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Set number of mines'); if mouse_check_button(mb_left) { mines=abs(get_integer('How many mines should there be on the board?',mines)); if mines>(Y_number*X_number)/2 { mines=(Y_number*X_number)/2 show_message('To many') } mouse_clear(mb_left) }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Set the board'); if mouse_check_button(mb_left) { X_number=abs(get_integer('How many fileds should there be on the width?',X_number)); Y_number=abs(get_integer('How many fileds should there be on the height?',Y_number)); box_side=min(width/X_number,height/Y_number); number_size=1000; font_size=number_size; while(string_height('M')>box_side*0.75) { number_size-=1 font_size=number_size; }; mouse_clear(mb_left) }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help'); if mouse_check_button(mb_left) { state='Help'; mouse_clear(mb_left) }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Web'); if mouse_check_button(mb_left) { file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL=http://www.oocities.org/de/ben0032003/');file_close(); execute_shell(temp_directory+'\URL.url',''); end_loop=0 }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Exit'); if mouse_check_button(mb_left) end_loop=0; } if mouse_check_button(mb_left) mouse_clear(mb_left) }; //***Game*** if state=='Game' { win=true; mouse_X=-1; mouse_Y=-1; x=0; y=0; repeat(Y_number*X_number) { pen_color=c_black; brush_color=c_silver; if see[x,y]==1&&see_back[x,y]==0 { brush_color=c_silver-100 draw_rectangle(box_side*x-1,box_side*y-1,box_side*(x+1),box_side*(y+1)); if mine[x,y]==9 { pen_color=c_black; brush_color=c_black; draw_ellipse(box_side*x,box_side*y,box_side*(x+1)-1,box_side*(y+1)-1); screen_refresh(); show_message('Boommme! Wrong step.'); state='Main' }; if mine[x,y]<9&&mine[x,y]>0 { font_style=fs_bold; font_align=fa_center; font_color=c[mine[x,y]]; font_size=number_size; draw_text(box_side*x+box_side/2,box_side*y,string(mine[x,y])) }; }; if see[x,y]==0&&mine[x,y]!=9 { win=false }; if see[x,y]==0&&(first_step||see_back[x,y]!=0) { draw_button(box_side*x,box_side*y,box_side*(x+1)-1,box_side*(y+1)-1,0); }; if see[x,y]==2&&see_back[x,y]!=2 { draw_button(box_side*x,box_side*y,box_side*(x+1)-1,box_side*(y+1)-1,0); brush_color=c_red; draw_triangle(box_side*(x+1)-(5/640*screen_width),box_side*y+2, box_side*(x+1)-(5/640*screen_width),box_side*(y+1)-1-box_side/2, box_side*x+3,box_side*(y+1)-1-box_side/2); draw_line(box_side*(x+1)-(5/640*screen_width),box_side*(y+1)-1-box_side/2, box_side*(x+1)-(5/640*screen_width),box_side*(y+1)-3) }; if see[x,y]==3&&see_back[x,y]!=3 { draw_button(box_side*x,box_side*y,box_side*(x+1)-1,box_side*(y+1)-1,0); font_style=fs_bold; font_align=fa_center; font_color=c_blue; font_size=number_size; draw_text(box_side*x+box_side/2,box_side*y,'?') }; if mine[x,y]==0&&see[x,y]==1&&see_back[x,y]!=see[x,y] { if x>0&&y>0 see[x-1,y-1]=1; if y>0 see[x,y-1]=1; if y>0 see[x+1,y-1]=1; if x>0 see[x-1,y]=1; see[x+1,y]=1; if x>0 see[x-1,y+1]=1; see[x,y+1]=1; see[x+1,y+1]=1 }; see_back[x,y]=see[x,y]; if mouse_x>=box_side*x&&mouse_x<=box_side*(x+1)&&mouse_y>=box_side*y&&mouse_y<=box_side*(y+1) { mouse_X=x; mouse_Y=y }; x+=1; if x==X_number { x=0; y+=1 } }; if win { screen_refresh(); show_message('Congratulations you have solved the puzzle.'); state='Main' }; if mouse_check_button(mb_left) { if mouse_X!=-1 if see[mouse_X,mouse_Y]==0 see[mouse_X,mouse_Y]=1; mouse_clear(mb_left); io_handle() }; if mouse_check_button(mb_right) { if mouse_X!=-1 if see[mouse_X,mouse_Y]!=1 { if see[mouse_X,mouse_Y]=0 see[mouse_X,mouse_Y]=2 else if see[mouse_X,mouse_Y]=2 see[mouse_X,mouse_Y]=3 else if see[mouse_X,mouse_Y]=3 see[mouse_X,mouse_Y]=0 } mouse_clear(mb_right); io_handle() }; first_step=0 }; //***Help*** if state=='Help' { pen_color=c_black; brush_color=c_black; draw_rectangle(0,0,screen_width,screen_height); font_size = screen_width/1024*30; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,"Minefield is a game of bombs. The field is mined and you must find out where all the mines are and survive so it's not very good if they explode. Click on a field to go on it you will then now if there is a bomb or not. To help you find the bombs each field has the number of the mines in the area written on it#Minefield © Ben Strasser 2003.#This program was written by Ben Strasser.#Gamemaker © Mark Overmars 1999-2002.#www.gamemaker.nl",string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } } screen_refresh(); if keyboard_check(vk_escape) { state='Main'; keyboard_clear(vk_escape); io_handle() } }; game_end()
Hit CTRL+A to select all the code then copy it into GM

Push&Pull
In this isometric game you have to push all button. Sounds stupid? Well it's harder than you might think.

/////////////////////////////////////////////////////////////// //name: // Push&Pull // //script type: // one script game // //autor: // Ben Strasser alias Dr.Voodoo // //remarque: // Put this script in the room creation code, creation event, // begin/end step event, step event, game start event, room // start event or the draw event (only in one) // //remarque2: // Use standard GM settings // //copyright: // Ben Strasser // /////////////////////////////////////////////////////////////// screen_width=monitor_width; screen_height=monitor_height; full_screen=true; show_cursor=false; show_score=false; end_loop=true; pos_X=0; pos_Y=0; width=screen_width; height=screen_height; bloc_height=80/480*screen_height; bloc_color=c_red; r=bloc_color mod 256; g=(bloc_color div 256) mod 256; b=bloc_color div 65536; state='Main'; while end_loop { //***Main*** if state=='Main' { font_size = screen_width/1024*80; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; draw_text(screen_width/2,Y,'Push&Pull'); Y+=string_height('M'); font_size = screen_width/1024*20; draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo'); Y+=string_height('M'); font_size = screen_width/1024*50; draw_text(screen_width/2,Y,'Start Game'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Web'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Exit'); font_size=screen_width/1024*80; Y=5+string_height('M'); font_size=screen_width/1024*20; Y+=string_height('M'); font_size=screen_width/1024*50; if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Start Game'); if mouse_check_button(mb_left) { score=0; ontopX=-1; ontopY=-1; push[0,0]=0;push[1,0]=0;push[2,0]=0; push[0,1]=0;push[1,1]=1;push[2,1]=1; push[0,2]=0;push[1,2]=0;push[2,2]=1; mouse_clear(mb_left); state='Game' }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help'); if mouse_check_button(mb_left) { state='Help'; mouse_clear(mb_left) }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Web'); if mouse_check_button(mb_left) { file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL=http://www.oocities.org/de/ben0032003/');file_close(); execute_shell(temp_directory+'\URL.url',''); end_loop=0 }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Exit'); if mouse_check_button(mb_left) end_loop=0; } if mouse_check_button(mb_left) mouse_clear(mb_left) }; //***Game*** if state=='Game' { font_size = screen_width/1024*40; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text(5,5,'score='+string(score)); ontopX=-1; ontopY=-1; X=0; Y=0; repeat(9) { x=width/2; y=0; x-=((width/3)/2)*X; x+=((width/3)/2)*Y; y+=(((height-bloc_height)/3)/2)*X; y+=(((height-bloc_height)/3)/2)*Y; result=1; dir1=point_direction(x+(width/3)/2,y+((height-bloc_height)/3)/2,x,y); dir2=point_direction(x+(width/3)/2,y+((height-bloc_height)/3)/2,mouse_x,mouse_y); if dir1>=dir2 result=0; dir1=point_direction(x+(width/3)/2,y+((height-bloc_height)/3)/2,x,y+(height-bloc_height)/3); dir2=point_direction(x+(width/3)/2,y+((height-bloc_height)/3)/2,mouse_x,mouse_y); dir3=point_direction(x+(width/3)/2,y+((height-bloc_height)/3)/2,mouse_x,mouse_y)+180; if dir1<=dir2||dir1>=dir3 result=0; dir1=point_direction(x-(width/3)/2,y+((height-bloc_height)/3)/2,x,y+(height-bloc_height)/3); dir2=point_direction(x-(width/3)/2,y+((height-bloc_height)/3)/2,mouse_x,mouse_y); dir3=point_direction(x-(width/3)/2,y+((height-bloc_height)/3)/2,mouse_x,mouse_y)+180; if dir1>=dir2&&dir1<=dir3 result=0; dir1=point_direction(x-(width/3)/2,y+((height-bloc_height)/3)/2,x,y); dir2=point_direction(x-(width/3)/2,y+((height-bloc_height)/3)/2,mouse_x,mouse_y); dir3=point_direction(x-(width/3)/2,y+((height-bloc_height)/3)/2,mouse_x,mouse_y)-180; if dir1<=dir2&&dir1>=dir3 result=0; if result { ontopX=X; ontopY=Y; }; if push[X,Y] { brush_color=make_color(r,g,b); draw_polygon_begin(); draw_polygon_vertex(x,y); draw_polygon_vertex(x+(width/3)/2,y+((height-bloc_height)/3)/2); draw_polygon_vertex(x,y+(height-bloc_height)/3); draw_polygon_vertex(x-(width/3)/2,y+((height-bloc_height)/3)/2); draw_polygon_end(); brush_color=make_color(r+20,g+20,b+20); draw_polygon_begin(); draw_polygon_vertex(x+(width/3)/2,y+((height-bloc_height)/3)/2); draw_polygon_vertex(x,y+(height-bloc_height)/3); draw_polygon_vertex(x,y+(height-bloc_height)/3+bloc_height); draw_polygon_vertex(x+(width/3)/2,y+((height-bloc_height)/3)/2+bloc_height); draw_polygon_end(); brush_color=make_color(r+40,g+40,b+40); draw_polygon_begin(); draw_polygon_vertex(x,y+(height-bloc_height)/3); draw_polygon_vertex(x-(width/3)/2,y+((height-bloc_height)/3)/2); draw_polygon_vertex(x-(width/3)/2,y+((height-bloc_height)/3)/2+bloc_height); draw_polygon_vertex(x,y+(height-bloc_height)/3+bloc_height); draw_polygon_end(); } else { brush_color=make_color(r+20,g+20,b+20); draw_polygon_begin(); draw_polygon_vertex(x,y+bloc_height); draw_polygon_vertex(x+(width/3)/2,y+((height-bloc_height)/3)/2+bloc_height); draw_polygon_vertex(x,y+(height-bloc_height)/3+bloc_height); draw_polygon_vertex(x-(width/3)/2,y+((height-bloc_height)/3)/2+bloc_height); draw_polygon_end(); }; if ontopX==X&&ontopY==Y { pen_color=c_yellow; draw_line(x,y+1,x+(width/3)/2,y+((height-bloc_height)/3)/2-1); draw_line(x+(width/3)/2,y+((height-bloc_height)/3)/2-1,x,y+(height-bloc_height)/3-1); draw_line(x,y+(height-bloc_height)/3-1,x-(width/3)/2+1,y+((height-bloc_height)/3)/2); draw_line(x-(width/3)/2+1,y+((height-bloc_height)/3)/2,x,y+1); pen_color=c_black }; X+=1; if X==3 { Y+=1; X=0; } }; if push[0,0]==0&&push[1,0]==0&&push[2,0]==0&&push[0,1]==0&&push[1,1]==0&&push[2,1]==0&&push[0,2]==0&&push[1,2]==0&&push[2,2]==0 { screen_refresh(); show_message('Congratulation, you solved the puzzle with a score of '+string(score)); state='Main' }; if mouse_check_button(mb_left) { mouse_clear(mb_left); if ontopX!=-1&&ontopY!=-1 { score+=1; push[ontopX,ontopY]=!push[ontopX,ontopY]; if ontopX-1!=-1 push[ontopX-1,ontopY]=!push[ontopX-1,ontopY]; if ontopX+1!=3 push[ontopX+1,ontopY]=!push[ontopX+1,ontopY]; if ontopY-1!=-1 push[ontopX,ontopY-1]=!push[ontopX,ontopY-1]; if ontopY+1!=3 push[ontopX,ontopY+1]=!push[ontopX,ontopY+1]; } }; io_handle() }; //***Help*** if state=='Help' { font_size = screen_width/1024*30; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,'The goal is simple: Try to get all blocks into a "down" position. You do this by pushing a block down, or pulling a block up by clicking it. This will also alter the state of each ajoining block. If a block was up, it will move down. If the block was down, it will move up. Your score is the number of moves you made. Try to get all blocks in the down position, in as few moves as possible. Good luck.#Push&Pull © Ben Strasser 2003.#This program was written by Ben Strasser.#Gamemaker © Mark Overmars 1999-2002.#www.gamemaker.nl',string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } } //draw_cursor brush_color=make_color(100,100,100) pen_color=c_black; draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+20,mouse_y+40) brush_color=make_color(200,200,200); draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20) brush_color=make_color(150,150,150); draw_triangle(mouse_x+20,mouse_y+40,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20); //refresh if keyboard_check(vk_escape) { state='Main'; keyboard_clear(vk_escape) } screen_refresh(); io_handle(); pen_color=c_black; brush_color=c_black; draw_rectangle(0,0,screen_width,screen_height) }; game_end()
Hit CTRL+A to select all the code then copy it into GM

Cubes
This game is a bit like Tetris. But instead of avoiding that the screen gets filled up your, you start with a filled one and have to clear it.

/////////////////////////////////////////////////////////////// //name: // Cubes // //script type: // one script game // //autor: // Ben Strasser alias Dr.Voodoo // //remarque: // Put this script in the room creation code, creation event, // begin/end step event, step event, game start event, room // start event or the draw event (only in one) // //remarque2: // Use standard GM settings // //copyright: // Ben Strasser // /////////////////////////////////////////////////////////////// screen_width=monitor_width; screen_height=monitor_height; full_screen=true; show_cursor=false; show_score=false; end_loop=1; width=screen_width; height=screen_height; block_side=min(width/10,height/13); X=width/2-block_side*5; cr[1]=255; cg[1]=0; cb[1]=0; cr[2]=0; cg[2]=255; cb[2]=0; cr[3]=0; cg[3]=0; cb[3]=255; cr[4]=255; cg[4]=255; cb[4]=0; col_temp=1; repeat(10) { col[col_temp]=''; repeat 13 col[col_temp]+=string(floor(random(4))+1); col_temp+=1 }; col[col_temp]=''; state='Main'; while(end_loop) { //***Game*** if state=='Game' { push_pos=-1; push_col=-1; push_type=-1; col_temp=1; repeat(10) { pos_temp=1; repeat 13 { type_temp=real(string_copy(col[col_temp],pos_temp,1)); if type_temp!=0&&type_temp!=5 { brush_color=make_color(cr[type_temp],cg[type_temp],cb[type_temp]); pen_color=make_color(cr[type_temp]/2,cg[type_temp]/2,cb[type_temp]/2); draw_rectangle(X+block_side*(col_temp-1),height-block_side*pos_temp,X+block_side*col_temp,height-block_side*(pos_temp-1)) if mouse_check_button(mb_left) if mouse_x>X+block_side*(col_temp-1)&&mouse_x<X+block_side*col_temp&&mouse_y>height-block_side*pos_temp&&mouse_y<height-block_side*(pos_temp-1) { push_pos=pos_temp; push_col=col_temp; push_type=type_temp; mouse_clear(mb_left); io_handle() } }; pos_temp+=1 }; col_temp+=1 }; ok=false if push_pos!=-1 if push_pos!=1 if push_pos!=10 if real(string_copy(col[push_col],push_pos+1,1))==push_type|| real(string_copy(col[push_col],push_pos-1,1))==push_type|| real(string_copy(col[push_col-1],push_pos,1))==push_type|| real(string_copy(col[push_col+1],push_pos,1))==push_type ok=true; if push_pos!=-1 if push_pos==1 if real(string_copy(col[push_col],push_pos+1,1))==push_type|| real(string_copy(col[push_col-1],push_pos,1))==push_type|| real(string_copy(col[push_col+1],push_pos,1))==push_type ok=true; if push_pos!=-1 if push_pos==10 if real(string_copy(col[push_col],push_pos-1,1))==push_type|| real(string_copy(col[push_col-1],push_pos,1))==push_type|| real(string_copy(col[push_col+1],push_pos,1))==push_type ok=true; if ok=true { col[push_col]=string_delete(col[push_col],push_pos,1); col[push_col]=string_insert('5',col[push_col],push_pos); ok=1; while ok { ok=0; col_temp=1; repeat(10) { pos_temp=1; repeat 13 { if real(string_copy(col[col_temp],pos_temp,1))==push_type { if real(string_copy(col[col_temp],pos_temp+1,1))==5|| real(string_copy(col[col_temp],pos_temp-1,1))==5 { ok=1; col[col_temp]=string_delete(col[col_temp],pos_temp,1); col[col_temp]=string_insert('5',col[col_temp],pos_temp); }; if col_temp-1!=0 if real(string_copy(col[col_temp-1],pos_temp,1))==5 { ok=1; col[col_temp]=string_delete(col[col_temp],pos_temp,1); col[col_temp]=string_insert('5',col[col_temp],pos_temp); }; if col_temp+1!=11 if real(string_copy(col[col_temp+1],pos_temp,1))==5 { ok=1; col[col_temp]=string_delete(col[col_temp],pos_temp,1); col[col_temp]=string_insert('5',col[col_temp],pos_temp); }; } pos_temp+=1 }; col_temp+=1 }; } }; col_temp=1; repeat(10) { if col[col_temp]=='' if col_temp+1!=11 { col[col_temp]=col[col_temp+1]; col[col_temp+1]='' }; if col[col_temp]=='' if col_temp+1==11 { col[col_temp]='' }; col_temp+=1 }; col_temp=1; repeat(10) { if is_string(col[col_temp]) if string_pos('5',col[col_temp]) { col[col_temp]=string_delete(col[col_temp],string_pos('5',col[col_temp]),1) }; col_temp+=1 }; blocks_left=0; col_temp=1; repeat(10) { if is_string(col[col_temp]) blocks_left+=string_length(col[col_temp]); col_temp+=1 }; font_size = screen_width/1024*40; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text(5,5,'Cubes#left:#'+string(blocks_left)); text_Y=5+string_height('M#M#M'); draw_text(5,text_Y,'Give up'); if mouse_x<X&&mouse_y>text_Y&&mouse_y<text_Y+string_height('M') { font_color=c_red draw_text(5,text_Y,'Give up'); if mouse_check_button(mb_left) { state='Main'; mouse_clear(mb_left); show_message('You had only '+string(blocks_left)+' left.') } }; if blocks_left==0 { screen_refresh(); state='Main'; show_message('Congratulation, you solved the puzzle!') } } //***Main*** if state=='Main' { font_size = screen_width/1024*80; font_color = c_white; font_align = fa_center; font_style = fs_bold; font_name = 'Comic Sans MS'; Y=5; draw_text(screen_width/2,Y,'Cubes'); Y+=string_height('M'); font_size = screen_width/1024*20; draw_text(screen_width/2,Y,'by Ben Strasser alias Dr.Voodoo'); Y+=string_height('M'); font_size = screen_width/1024*50; draw_text(screen_width/2,Y,'Start Game'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Help'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Web'); Y+=string_height('M'); draw_text(screen_width/2,Y,'Exit'); font_size=screen_width/1024*80; Y=5+string_height('M'); font_size=screen_width/1024*20; Y+=string_height('M'); font_size=screen_width/1024*50; if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Start Game'); if mouse_check_button(mb_left) { col_temp=1; repeat(10) { col[col_temp]=''; repeat 13 col[col_temp]+=string(floor(random(4))+1); col_temp+=1 }; mouse_clear(mb_left); state='Game' }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Help'); if mouse_check_button(mb_left) { state='Help'; mouse_clear(mb_left) }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Web'); if mouse_check_button(mb_left) { file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL=http://www.oocities.org/de/ben0032003/');file_close(); execute_shell(temp_directory+'\URL.url',''); end_loop=0 }; }; Y+=string_height('M'); if mouse_y>Y&&mouse_y<Y+string_height('M') { font_color=c_red; draw_text(screen_width/2,Y,'Exit'); if mouse_check_button(mb_left) end_loop=0; } if mouse_check_button(mb_left) mouse_clear(mb_left) }; //***Help*** if state=='Help' { font_size = screen_width/1024*30; font_color = c_white; font_align = fa_left; font_style = fs_bold; font_name = 'Comic Sans MS'; draw_text_ext(20,5,"Cubes is a game of Cubes. Click groups of two or more of the same-color cubes to make them explode. Any cubes above the gap created will then fall down. If any gaps are created between columns, the cubes to the right of the gap will slide over to the left. The goal is to clear all cubes and attain a score of 0. It's not as impossible as it looks to be a champion block breaker!#Cubes © Ben Strasser 2003.#This program was written by Ben Strasser.#Gamemaker © Mark Overmars 1999-2002.#www.gamemaker.nl",string_height('M'),screen_width-40) if mouse_check_button(mb_left) { state='Main' mouse_clear(mb_left) } } //draw_cursor brush_color=make_color(100,100,100) pen_color=c_black; draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+20,mouse_y+40) brush_color=make_color(200,200,200); draw_triangle(mouse_x,mouse_y,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20) brush_color=make_color(150,150,150); draw_triangle(mouse_x+20,mouse_y+40,mouse_x+20,mouse_y+20,mouse_x+40,mouse_y+20); screen_refresh(); pen_color=c_black; brush_color=c_black; draw_rectangle(0,0,screen_width,screen_height) if keyboard_check(vk_escape) { state='Main'; keyboard_clear(vk_escape); io_handle() } }; game_end()
Hit CTRL+A to select all the code then copy it into GM

Your script
Have a one script game?
Want to see it in this list?
Well then if it's:
a) a GML 1 script
b) it runs in room creation code
Sent it to me and I'll perhaps put it up.