Open URL
Opens a website in the defaut browser. Unlike execute_shell() this seams to work on all computers
You can call it like this:
open_URL("http://www.gamemaker.nl")
//argument0 = URL file_open_write(temp_directory+'\URL.url'); file_write_string('[InternetShortcut]');file_writeln(); file_write_string('URL='+argument0);file_close(); execute_shell(temp_directory+'\URL.url','');
Hit CTRL+A to select all the code

Create Shortcut
Creats a shortcut to a program on a local disk.
You can call it like this:
creat_shortcut("C:\new_shortcut.lnk","C:\windows\paint.exe")
/////////////////////////////////////////////////////////////// //name: // creat_shortcut // //script type: // function script // //autor: // Ben Strasser alias Dr.Voodoo // //argument0: // The path to the place of the shortcut // //argument1: // The path to the target of the shortcut. Note that this file must exist. // //remarque: // This script creats shortcuts using js but some Anti-virus programs // simply block all script or ask for confirmation from the user. // The game will freeze until the Anti-virus program is finished. // In most cases this gives a little hicup an the shortcut is not created // If the Anti-virus program ask for confirmation by the user the // game will freeze until the user has made his chose. This script is // no virus even if some Anti-virus say it could be. // //remarque2: // The script returns if it has been sucsessful. // //remarque3: // It wont work if the windows directory is not X:\windows\ (where // X is an uperclase letter (so also A, C, E, Z, etc)). // //copyright: // Ben Strasser // //web: // http://www.oocities.org/de/ben0032003/ // /////////////////////////////////////////////////////////////// var argument0_bak,temp,wscript,System_directory; argument0_bak=argument0; //check argument0 if string_copy(argument0,string_length(argument0)-3,4)!='.lnk' argument0+='.lnk'; if string_copy(argument0,2,1)!=':' argument0=working_directory+'\'+argument0; if string_pos(argument0,'\\') { show_error('create shortcut script : error in argument0; Please check if the path is legal',false); return(false) }; temp=1; repeat(string_length(argument0)) { if string_copy(argument0,temp,1)=='\' { argument0=string_insert('\',argument0,temp); temp+=1 }; temp+=1 }; //check argument2 if file_exists(argument1)==false { show_error("create shortcut script : error in argument1; File doesn't exsit!",false); return(false) }; temp=1; repeat(string_length(argument1)) { if string_copy(argument1,temp,1)=='\' { argument1=string_insert('\',argument1,temp); temp+=1 }; temp+=1 }; //search for Wscript registry_set_root(1); wscript=registry_read_string_ext('\SOFTWARE\Microsoft\Windows Scripting Host\Locations','WScript') //search for windows directory System_directory='C:\Windows\'; if file_exists('C:\Windows\NOTEPAD.EXE')==false System_directory='no windows'; temp=ord('A'); repeat(26) { if System_directory=='no windows' if file_exists(chr(temp)+':\Windows\NOTEPAD.EXE') System_directory=chr(temp)+':\Windows\'; temp+=1 }; if System_directory=='no windows' { show_error('create shortcut script : unable to find windows directory',false); exit }; //convert Wscript path wscript=string_replace(wscript,'%SystemRoot%',System_directory) //writing js script file_open_write('temp.js'); file_write_string('var WSHShell = WScript.CreateObject("WScript.Shell");');file_writeln(); file_write_string('var Path1 = "'+argument0+'";');file_writeln(); file_write_string('var Path2 = "'+argument1+'";');file_writeln(); file_write_string('var MyShortcut = WSHShell.CreateShortcut(Path1);');file_writeln(); file_write_string('MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(Path2);');file_writeln(); file_write_string('MyShortcut.Save()');file_writeln(); file_close(); //executing js script using wscript execute_program(wscript,'temp.js',true); //removing tem files file_delete('temp.js'); if file_exists(argument0_bak) return(true); return(false)
Hit CTRL+A to select all the code

Change the base of a number
With this script you can convert any number from any base to any base with the figures you want.
You can call it like this:
convert_number("51","0123456789","01")
/* argument0=input number as string argument1=input figures argument2=output figures Returns arguent0 converted from a argument1 base to a argument2 base. For example DEC to BIN ------------BIN to DEC ------------HEX to BIN etc arguent1 and 2 are strings that contain figure from that base so for example DEC is "0123456789" Bin is "01" HEX is "0123456789ABCDEF" but you can use what ever you want like for example "hrtbnecqay" is a base 10 (decimal) system where the first figure is "h" the second "r" etc. So if we convert "453472" from a "0123456789" system to a "hrtbnecqay" system we get "nebnqt" Each figure may of course only exist once in a system So to convert for example a DEC to BIN we use: BIN=convert_number(DEC,"0123456789","01")//BIN and DEC are strings This script was written by Ben Strasser alias Dr Voodoo ben04_01@freenet.de http://www.oocities.org/de/ben0032003/ */ if is_real(argument0)||is_real(argument1)||is_real(argument2) { show_error("Error in convert_number : Wrong type of arguments",0) return("") } if argument1==''||argument2=='' { show_error("Error in convert_number : Impossible to create a base 0 system",0) return("") } var input_chrs,output_chrs,input_chr,output_chr,dec_value,temp_chr,out_length,argument0_error_search; input_chrs=0; argument0_error_search=argument0; repeat(string_length(argument1)) { input_chr[input_chrs]=string_copy(argument1,1,1); argument1=string_delete(argument1,1,1); if string_pos(input_chr[input_chrs],argument1) { show_error("Error in convert_number : in argument1 the figure "+input_chr[input_chrs]+" exists more than once",0) return("") }; argument0_error_search=string_replace_all(argument0_error_search,input_chr[input_chrs],"") input_chrs+=1 }; if argument0_error_search!='' { show_error("Error in convert_number : unknown figure(s) "+argument0_error_search+" in argument0",0) return("") }; output_chrs=0; repeat(string_length(argument2)) { output_chr[output_chrs]=string_copy(argument2,1,1); argument2=string_delete(argument2,1,1); if string_pos(output_chr[output_chrs],argument2) { show_error("Error in convert_number : in argument2 the figure "+output_chr[output_chrs]+" exists more than once",0) return("") } output_chrs+=1 }; // dec_value=0; repeat(string_length(argument0)) { temp_chr=0; repeat(input_chrs) { if string_copy(argument0,1,1)==input_chr[temp_chr] { dec_value+=temp_chr*power(input_chrs,string_length(argument0)-1); argument0=string_delete(argument0,1,1) break } temp_chr+=1 } }; out_value=""; out_length=floor(logn(output_chrs,dec_value)); repeat(out_length+1) { out_value+=output_chr[floor(dec_value/power(output_chrs,out_length))]; dec_value=dec_value mod power(output_chrs,out_length); out_length-=1 } return(out_value)
Hit CTRL+A to select all the code

Set file association
With this script you can associate a program to an extension. This mean for example the extension "txt" is associated with Notepad. You can associate an extension to a GM program. This is a very powerful script so please only use it if you know what you are doing!
You can call it like this:
set_file_association('.aaa','aaa files','C:\blablabla\exe.ico','C:\blablabla\prog.exe','')

///////////////////////////////////////////////////////////////////////////////////////////////////// //Name: // set_file_association // // //Introduction: // (Read this if you don't know associating a file to an exe is) // There are more than 1 ways of executing a program: // You can doubble click on the exe of the program or // you can doubble click on an a associated file. // To which program a file is associated depends on it's extension. // *.txt is associated to Notepad, *.doc is associated to Word, *.gmd is associated to Gamemaker,... // If you doubble click on a *.txt-file (file with an extension of *.txt) Notepad.exe will be opened // and this program will now open our *.txt-file (the same for Word, GM, ...) // // With this script you can associat a file with a program (can be done in GM but must not). // Here's an example: // set_file_association('.aaa','aaa files','C:\icone.ico','C:\program.exe','') // // You can make the program to which the file should be associated in GM. You are probably wondering // how. Well if you use the first of the 2 methods above parameter_string(1) will return an empty // string but if the second is used parameter_string(1) will return the path to the file from which // the program was executed! // // //Arguments: // argument0=extension (you must inclued the dot) // argument1=name of the file type // argument2=the full path to the icone (GM compatibal icones work) // argument3=the full path to the exe file // argument4=parameter (give an empty string if none) // // //Notes: all arguments must be strings! // Returns if was sucessful or not! // // //Remarques: // If the associated program is executed from a file with the extension argument0 // (after this script was called) then: // parameter_string(1) will be the path to the file from which the program was executed // parameter_string(2) will be argument4 // // If you executed the program by doubble clicking on the exe file no effect will ocure // (It will be executed as if you wouldn't have assosiated a file to it meaning // parameter_string(1) and parameter_string(2) will return empty strings) // // //Credits: // written by Ben Strasser alias Dr Voodoo // // //Please: // Please do not use this script to change very basic extension (like *.txt or *.doc) (in the most // cases the user doesn't want that). If you are not sure if the extension you would like to use // is already used by another program use extensions that have more than 3 chr ex:(*.mygame, // *.nooneusedthisextension, ...) //**************************************************************************************************** //VERY IMPORTANT NOTE : I (Ben Strasser) am not responcable for any damage this script can cause to //your computer or any other one's!!!! //**************************************************************************************************** ////////////////////////////////////////////////////////////////////////////////////////////////////// registry_set_root(2); if is_real(argument0) { show_error('set_file_association:extension must be a string!;arg0='+string(argument0),false); return(false) }; if is_real(argument1) { show_error('set_file_association:name must be a string!;arg1='+string(argument0),false); return(false) }; if is_real(argument2) { show_error('set_file_association:path of the icone must be a string!;arg2='+string(argument0),false); return(false) }; if is_real(argument3) { show_error('set_file_association:path of the exe must be a string!;arg3='+string(argument0),false); return(false) }; if is_real(argument4) { show_error('set_file_association:path of the exe must be a string!;arg4='+string(argument0),false); return(false) }; if string_copy(argument0,1,1)!='.' { show_error('set_file_association:extension must includ "."!;arg0='+argument0,false); return(false) }; if file_exists(argument2)==false return(false); if file_exists(argument3)==false return(false); registry_write_string_ext(argument0,'',argument1); registry_write_string_ext(argument1+'\DefaultIcon\','',argument2+',0'); registry_write_string_ext(argument1+'\shell\open\command\','',argument3+' "%1"'+' "'+argument4+'"'); return(true)
Hit CTRL+A to select all the code

Mirror Sprite
With these scripts you can mirror or rotate around 90° any sprite during gameplay

Download scripts

data key script
With these scripts you can write to a file like to the registery

Download scripts