Code: Select all
use uo;
program textcmd_test (me, text)
var aGumpPiece1 := array;
var aGumpPiece2 := array;
var aGumpPiece3 := array;
var aGumpLayout1 := array;
var aGumpLayout2 := array;
var aGumpLayout3 := array;
var aGumpData := array;
var iGumpChoice := 0;
aGumpPiece1 := {
"page 0",
"resizepic 50 50 2620 150 150"
};
aGumpPiece2 := {
"gumppic 60 60 14",
"gumppic 60 90 16"
};
aGumpPiece3:= {
"gumppic 60 120 18"
};
// Method 1
aGumpLayout1 := aGumpPiece1;
aGumpLayout1.append (aGumpPiece2);
aGumpLayout1.append (aGumpPiece3);
SendSysMessage(me, "Gump1: " + aGumpLayout1);
iGumpChoice := SendDialogGump (me, aGumpLayout1, aGumpData);
//Method 2
aGumpLayout2 := aGumpPiece1 + aGumpPiece2 + aGumpPiece3;
SendSysMessage(me, "Gump2: " + aGumpLayout2);
iGumpChoice := SendDialogGump (me, aGumpLayout2, aGumpData);
//Method 3
aGumpLayout3 := aGumpPiece1;
foreach item in aGumpPiece2;
aGumpLayout3[len(aGumpLayout3 + 1)] := item;
endforeach
aGumpLayout3[len(aGumpLayout3 + 1)] := aGumpPiece3;
SendSysMessage(me, "Gump3: " + aGumpLayout3);
iGumpChoice := SendDialogGump (me, aGumpLayout3, aGumpData);
endprogramAnyone have any thoughts?