;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@ChangeFlagShape]
{
#IF
IsGuildMaster

#SAY
These changes will cost you 100,000 Gold\
<[ Change Style ]/@GuildFlagShapeChange>\
<[ Change Colour ]/@GuildFlagColorChange>\
<[ Exit ]/@exit>\


#ELSESAY
You must be a guild leader to change the Flag\
<[ Exit ]/@exit>\

[@GuildFlagColorChange]
#ACT
movr D1 16
movr D2 16
movr D3 16
goto @ResultFlag

[@GuildFlagShapeChange]
#IF
checkgold 100000

#SAY
Please select a Design\
<[ 0 ]/@FLAGnum(0)>, <[ 1 ]/@FLAGnum(1)>, <[ 2 ]/@FLAGnum(2)>\
<[ 3 ]/@FLAGnum(3)>, <[ 4 ]/@FLAGnum(4)>, <[ 5 ]/@FLAGnum(5)>\
<[ 6 ]/@FLAGnum(6)>, <[ 7 ]/@FLAGnum(7)>, <[ 8 ]/@FLAGnum(8)>\
<[ 9 ]/@FLAGnum(9)>, <[ 10 ]/@FLAGnum(10)>, <[ 11 ]/@FLAGnum(11)>\


#ELSESAY
You do not have enough Gold!\
<[ Exit ]/@exit>\

[@FLAGnum()]
#ACT
mov D0 %ARG(1)
movr D1 16
movr D2 16
movr D3 16
goto @ResultFlag

[@ResultFlag]
#ACT
TestFlag %D0 %D1 %D2 %D3

#SAY
Flag Style: <$OUTPUT(D0)>\
<$GUILDNAME> GuildMaster <$USERNAME>\
Red:___<$OUTPUT(D1)>\
Green:_<$OUTPUT(D2)>\
Blue:__<$OUTPUT(D3)>\
<[ Change Style ]/@GuildFlagShapeChange>\
<[ Change Colour ]/@GuildFlagColorChange>\
<[ Purchase New Flag ]/@ThanksColor> - Costs 100,000 Gold\
<[ Exit ]/@exit>\

[@ThanksColor]
#IF
checkgold 100000

#SAY
Changes Saved\
<[ Exit ]/@exit>\

#ACT
take Gold 100000
ApplyFlag %D0 %D1 %D2 %D3

#ELSESAY
You do not have enough Gold!\
<[ Exit ]/@exit>\

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;