20150923 - the bigg - test mod

BACKUP ~test/backup~
AUTHOR ~tb~

BEGIN ~dialogue tests~

<<<<<<<< test.d

APPEND shank
	IF WEIGHT #-100 ~True()~ THEN BEGIN a0
	SAY ~Hello!~
	IF ~~ THEN DO ~SetGlobal("tb#shank","GLOBAL",1)~ REPLY ~E~ EXIT
	IF ~~ THEN DO ~SetGlobal("tb#shank","GLOBAL",2)~ REPLY ~C~ EXTERN carbos C
	IF ~~ THEN DO ~SetGlobal("tb#shank","GLOBAL",3)~ REPLY ~SC~ GOTO SC
	IF ~~ THEN DO ~SetGlobal("tb#shank","GLOBAL",4)~ REPLY ~SCS~ GOTO SCS
	IF ~~ THEN DO ~SetGlobal("tb#shank","GLOBAL",5)~ REPLY ~CS~ EXTERN carbos CS
	END
END

APPEND carbos
	IF WEIGHT #-100 ~True()~ THEN BEGIN C
	SAY ~Hello!~
	IF ~~ THEN EXIT
	END
END

CHAIN IF ~~ THEN shank SC
~OK!~
== carbos ~OK!~
EXIT

CHAIN IF ~~ THEN shank SCS
~OK!~
== carbos ~OK!~
== shank ~OK!~
EXIT

CHAIN IF ~~ THEN carbos CS
~OK!~
== shank ~OK!~
EXIT
>>>>>>>>

<<<<<<<< shank.baf
IF
	Global("tb#shank","GLOBAL",1)
THEN
RESPONSE #100
	DisplayStringHead(Myself, ~Global("tb#shank","GLOBAL",1)~)
END

IF
	Global("tb#shank","GLOBAL",2)
THEN
RESPONSE #100
	DisplayStringHead(Myself, ~Global("tb#shank","GLOBAL",2)~)
END

IF
	Global("tb#shank","GLOBAL",3)
THEN
RESPONSE #100
	DisplayStringHead(Myself, ~Global("tb#shank","GLOBAL",3)~)
END

IF
	Global("tb#shank","GLOBAL",4)
THEN
RESPONSE #100
	DisplayStringHead(Myself, ~Global("tb#shank","GLOBAL",4)~)
END

IF
	Global("tb#shank","GLOBAL",5)
THEN
RESPONSE #100
	DisplayStringHead(Myself, ~Global("tb#shank","GLOBAL",5)~)
END

IF
	Global("tb#shank","GLOBAL",6)
THEN
RESPONSE #100
	DisplayStringHead(Myself, ~Global("tb#shank","GLOBAL",6)~)
END
>>>>>>>>

<<<<<<<< baldur.baf
IF
	Global("tb#spshank","GLOBAL",0)
THEN
RESPONSE #100
	SetGlobal("tb#spshank","GLOBAL",1)
	CreateCreatureObject("shank",Player1,0,0,0)
	CreateCreatureObject("carbos",Player1,0,0,0)
END
>>>>>>>>

COMPILE test.d
EXTEND_TOP ~shank.bcs~ ~shank.baf~
EXTEND_TOP ~baldur.bcs~ ~baldur.baf~
EXTEND_TOP ~baldur25.bcs~ ~baldur.baf~