BEGIN ~gcmdwar1~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN FirstTalk
SAY @1000
IF ~~ THEN REPLY @1001 GOTO T2
IF ~~ THEN REPLY @1002 DO ~SetNumTimesTalkedTo(0)~ EXIT
END

IF ~~ THEN BEGIN T2
SAY @1003
IF ~~ THEN REPLY @1004 GOTO T3 
IF ~~ THEN REPLY @1005 GOTO T4
END

IF ~~ THEN BEGIN T3
SAY @1012
IF ~~ THEN DO ~StartStore("gcmstore",LastTalkedToBy(Myself))~ EXIT
END

IF ~~ THEN BEGIN T4
SAY @1006
IF ~~ THEN REPLY @1007 GOTO T3
IF ~~ THEN REPLY @1008 EXIT
END

IF ~NumTimesTalkedToGT(0)~ THEN BEGIN T5
SAY @1009
IF ~~ THEN REPLY @1010 GOTO T3
IF ~~ THEN REPLY @1011 EXIT
END