Code: Select all
use uo;
include ":gumps:gumps";
include ":gumps:gumps_ex";
program test( mobile )
SetObjProperty( mobile, "#CloseGumpPID", GetPid() );
//Initialize the gump
var gump := GFCreateGump();
GFResizePic( gump, 275, 230, GFGetCfgConst( "BackGrounds", "GOLDTRIM" ), 250, 100 );
var close_gump := GetObjProperty( mobile, "#CloseGumpPID" );
var result := CloseGump( mobile, close_gump, 0x10 );
broadcast( result );
//And now we need to know the answer...
var input := GFSendGump( mobile, gump );
if( input[0x10] )
return 0;
endif
return 1;
endprogram
POL098 RC2