/*
WinMessage(str,caption,bouton,icon)
arg0: str
arg1: caption
arg2: bouton
arg3: icone
*/

/*
Les boutons
OK
OKCANCEL
ABORTRETRYIGNORE
YESNOCANCEL
YESNO
RETRYCANCEL
CANCELRETRYCONTINUE
*/

/*
Les îcones
NONE
ERROR
QUESTION
EXCLAMATION
INFORMATION
BLANK
*/

/*
La fonction retourne:
OK=1
CANCEL=2
ABORT=3
RETRY=4
IGNORE=5
YES=6
NO=7
CONTINUE=8
*/

//declaration des variables
var MessageBox,dll,bouton,icon,val;

//EMPLACEMENT DE LA DLL
//A MODIFIER SI SST.DLL N'EST PAS DANS LE REPERTOIRE DU JEU
dll=working_directory+"\SST.dll";

//Initialisation des variables
MessageBox = external_define(dll,"SST_MessageBox",dll_cdecl,ty_real,3,ty_string,ty_string,ty_real);

//definition bouton
switch (argument2)
{
case "OK": bouton=0; break;
case "OKCANCEL": bouton=1; break;
case "ABORTRETRYIGNORE": bouton=2; break;
case "YESNOCANCEL": bouton=3; break;
case "YESNO": bouton=4; break;
case "RETRYCANCEL": bouton=5; break;
case "CANCELRETRYCONTINUE": bouton=6; break;
default: bouton=0; break;
}

//definition icône
switch (argument3)
{
case "NONE": icon=0; break;
case "ERROR": icon=16; break;
case "QUESTION": icon=32; break;
case "EXCLAMATION": icon=48; break;
case "INFORMATION": icon=64; break;
case "BLANK": icon=128; break;
default: icon=0; break;
}

//execution du script
val =execute_string("external_call("+string(MessageBox)+",argument0,argument1,"+string(bouton)+"|"+string(icon)+");");

//synchronisation des valeurs
switch (val)
{
case 10: val=4; break;
case 11: val=8; break;
}

//resultat
return val;