rsreset
eb		;easier to write
		dc.l	Nothing-eb
EventNothing	rs.b	1
		dc.l	AttackEX-eb
EventAttack	rs.b	1
		dc.l	Tavern-eb
EventTavern	rs.b	1
		dc.l	EmptyBuilding-eb
EventEmptyB	rs.b	1
		dc.l	ClosedBuilding-eb
EventClosedB	rs.b	1
		dc.l	CellarGod-eb
EventCellarGo	rs.b	1
		dc.l	Shop-eb
EventShop	rs.b	1
		dc.l	FrontShop-eb
EventFrontShop	rs.b	1
		dc.l	Temple-eb
EventTemple	rs.b	1
		dc.l	Guild-eb
EventGuild	rs.b	1
		dc.l	TrainingCamp-eb
EventTrain	rs.b	1
		dc.l	FrontTavern-eb
EventFrontTav	rs.b	1
		dc.l	Terminal-eb
EventTerminal	rs.b	1
		dc.l	Gate-eb
EventGate	rs.b	1
		dc.l	Zap-eb
EventZap	rs.b	1
		dc.l	Stairs1-eb
EventStairs1	rs.b	1
		dc.l	Stairs2-eb
EventStairs2	rs.b	1
		dc.l	Riddle-eb
EventRiddle	rs.b	1
		dc.l	Stairs3-eb
EventStairs3	rs.b	1
		dc.l	Town-eb
EventTown	rs.b	1
		dc.l	Test-eb
EventTest	rs.b	1
		dc.l	Alley-eb
EventAlley	rs.b	1
		dc.l	Hint-eb
EventHint	rs.b	1
		dc.l	BASP-eb
EventBASP	rs.b	1
		dc.l	Squizzler-eb
EventSquizzler	rs.b	1
		dc.l	LightSpell-eb
EventLight	rs.b	1
		dc.l	HealSpell-eb
EventHeal	rs.b	1		
		dc.l	HurtSpell-eb
EventHurt	rs.b	1
		dc.l	BatchSpell-eb
EventBasp	rs.b	1
		dc.l	PictureShow-eb
EventPicShow	rs.b	1

;Globale Variablen:

AttackCount	equ	0

Nothing		Ret	0,0

;Wird alle sekunde aufgerufen!, bestimmt dauer zwischen attacks und anderes....
AttackEX	Push	AttackCount
		dc.b	REF
		Push	0
		dc.b	NE
		Jc	DoCount
		Push	20
		Push	40
		dc.b	RANDOM
		Push	AttackCount
		dc.b	ASS
		Ret	0,0

DoAttack	Attack	0
		dc.b	POP
		Jump	AndDown
DoCount		Push	AttackCount
		dc.b	REF
		Push	1
		dc.b	E
		Jc	DoAttack
AndDown		Push	1
		Push	AttackCount
		dc.b	REF
		dc.b	SUB
		Push	AttackCount
		dc.b	ASS
		Ret	0,0

;Locale Variablen:
Key	=	0

Tavern		Reserve	1
TavernLoop	Picture	tavernGFX
		Title	TavernName
		Print	TavernText
TavernKey	WaitKey
		StoreL	Key
		GetL	Key
		StanKey	TavernLoop
		CompL	Key,E,"e"
		Jc	TavernExit
		CompL	Key,E,"s"
		Jc	TavernStay
		CompL	Key,NE,"q"
		Jc	TavernKey
		Quit
		Jump	TavernLoop
TavernStay	Stay
		Jump	TavernLoop
TavernExit	Pos	1,4
		dc.b	POP	;egal
		View	West
		ClearScreen
		Ret	0,0


RandVal	=	0

EmptyBuilding	Reserve	1
		Random	0,100
		StoreL	RandVal
		CompL	RandVal,LE,50
		Jc	NoAttack
		Attack	0
		dc.b	POP
NoAttack	Picture	raum1GFX
		Title	EmptyName
		Print	EmptyText
		WaitKey
		dc.b	POP
		Jump	QuitRoom

ClosedBuilding	Print	ClosedText
		MoveParty -1,0
		dc.b	POP	;egal
		Ret	0,0

CellarGod	Reserve	1
		Picture	raum1GFX
		Title	EmptyName
		Print	CellarText
AskKeyAgain	WaitKey
		StoreL	Key
		CompL	Key,E,"l"
		Jc	QuitRoom
		CompL	Key,NE,"c"
		Jc	AskKeyAgain
		Dungeon	1
		dc.b	POP	;egal
		Pos	2,0
		dc.b	POP	;egal
		ClearScreen
		Ret	0,0

;Local:

Shop		Reserve	1
		IsDay
		Jc	ItIsDay
		Print	ShopClosedText
		MoveParty	-1,0
		dc.b	POP	;egal
		WaitKey
		dc.b	POP
		Ret	0,0
ItIsDay		Picture	shopGFX
		Title	ShopName
		Print	ShopOpenText
ShopLoop	WaitKey
		StoreL	Key
		GetL	Key
		StanKey	ItIsDay
		CompL	Key,E,"b"
		Jc	BuySth
		CompL	Key,E,"s"
		Jc	SellSth
		CompL	Key,E,"e"
		Jc	QuitShop
		CompL	Key,NE,$1b
		Jc	ShopLoop
QuitShop	Jump	QuitRoom
BuySth		Buy
		Jump	ItIsDay
SellSth		Sell
		Jump	ItIsDay		

FrontShop	Print	FrontShopText
		Ret	0,0

Temple		Reserve	1
TempleMain	Picture	tempelGFX
		Title	TempleName
		Print	TempleText
TempleLoop	WaitKey
		StoreL	Key
		GetL	Key
		StanKey	TempleMain
		CompL	Key,E,"h"
		Jc	HealWounds
		CompL	Key,E,"e"
		Jc	QuitRoom
		CompL	Key,NE,$1b
		Jc	TempleLoop
QuitRoom	Turn	2
		MoveParty	1,0
		dc.b	POP	;egal
		ClearScreen
		Ret	0,0
HealWounds	Heal
		Jump	TempleMain

Guild		Reserve	1
GuildMain	Picture	wahrsagerinGFX
		Title	GuildName
		Print	GuildText
GuildLoop	WaitKey
		StoreL	Key
		GetL	Key
		StanKey	GuildMain
		CompL	Key,E,"l"
		Jc	LearnSth
		CompL	Key,E,"a"
		Jc	AdvSpell
		CompL	Key,E,"r"
		Jc	RecoverSth
		CompL	Key,E,"e"
		Jc	QuitGuild
		CompL	Key,NE,$1b
		Jc	GuildLoop
QuitGuild	Jump	QuitRoom
LearnSth	LearnSpell
		Jump	GuildMain
AdvSpell	AdvanceSpell
		Jump	GuildMain
RecoverSth	RecoverSpell
		Jump	GuildMain

TrainingCamp	Reserve	1
CampMain	Picture	campGFX
		Title	TrainingName
		Print	TrainingText
CampLoop	WaitKey
		StoreL	Key
		GetL	Key
		StanKey	CampMain
		CompL	Key,E,"t"
		Jc	TrainSth
		CompL	Key,E,"a"
		Jc	AdvTrain
		CompL	Key,E,"e"
		Jc	QuitCamp
		CompL	Key,NE,$1b
		Jc	CampLoop
QuitCamp	Jump	QuitRoom
TrainSth	Train
		Jump	CampMain
AdvTrain	AdvanceClass
		Jump	CampMain

FrontTavern	Print	FrontTavText
		Ret	0,0


Terminal	Display
		Print	TerminalText
		Input	InputString,10
		CompareString InputString,PassWordText
		Jc	RightChose
		Print	InvalidText
		MoveParty	-1,0
		dc.b	POP	;egal
		HurtChar -1,50,0	;Char Random,50 HP,no Ability
		Ret	0,0
RightChose	Print	SuperUserText
		GetXY
		SetEvent 0
		Ret	0,0

Gate		Dungeon	3
		dc.b	POP	;egal
		Pos	4,2
		dc.b	POP	;egal
		ClearScreen
		Ret	0,0		

Zap		Display
		Print	ZapText
		Pos	9,5
		dc.b	POP	;egal
		Ret	0,0

Stairs1		Display
		Print	StairsDownText
		WaitKey
		Compare	E,"y"
		Jc	GoStairs1
		ClearScreen
		Ret	0,0
GoStairs1	Dungeon	2
		dc.b	POP	;egal
		Pos	7,5
		dc.b	POP	;egal
		Ret	0,0	

Stairs2		Display
		Print	StairsUpText
		WaitKey
		Compare	E,"y"
		Jc	GoStairs2
		ClearScreen
		Ret	0,0
GoStairs2	Dungeon	0
		dc.b	POP	;egal
		Pos	2,8
		dc.b	POP	;egal
		View	East
		Ret	0,0

Riddle		Display
		Print	RiddleText
		Input	InputString,10
		CompareString InputString,RiddleString
		Jc	RightRiddle
		Ret	0,0
RightRiddle	Print	Riddle2Text
		GetXY
		SetEvent 0
		SetWall	2,0,West
		dc.b	POP	;egal
		ClearWall 2,0,East
		dc.b	POP	;egal
		SetSDoor 2,0,North
		dc.b	POP	;egal
		Ret	0,0

Stairs3		Display
		Print	StairsUpText
		WaitKey
		Compare	E,"y"
		Jc	GoStairs3
		ClearScreen
		Ret	0,0
GoStairs3	Dungeon	1
		dc.b	POP	;egal
		Pos	7,5
		dc.b	POP	;egal
		Ret	0,0
		
Town		Print	TownText
		Dungeon	0
		dc.b	POP	;egal
		Pos	1,6
		dc.b	POP	;egal
		Ret	0,0

Test		Print	TestText	
		Ret	0,0

Alley		Print	AlleyText
		Ret	0,0
		
Hint		Print	HintText
		Ret	0,0			

BASP		Print	LightText
		Push	0	;Dummy
		Push	5	;Strength
		Push	10	;Duration
		Push	0	;Dummy
		Push	-1	;CharID
		Call	BatchSpell
		dc.b	POP
		GetXY
		SetEvent 0
		Ret	0,0
	
Squizzler	Display
		Print	PayText
		Pay	1000
		Jc	Payed
		Push	15	;amazone
		Push	1	;1
		Push	11	;Dragon
		Push	1	;1
		Attack	2	;2 Groups
		Jc	FightWon
		SetWall	0,1,South
		dc.b	POP	;egal
		Ret	0,0

FightWon	Print	SquizzlerText
		PrintObject $10
		GiveObject $10
		GetXY
		SetEvent 0
		ClearWall 0,1,South
		dc.b	POP	;egal
		SetWall	0,1,North
		dc.b	POP	;egal
		Ret	0,0

Payed		Print	EnterText
		ClearWall 0,1,South
		dc.b	POP	;egal
		Ret	0,0
		

Parameter1	=	-3
Parameter2	=	-4
Parameter3	=	-5
Parameter4	=	-6
Parameter5	=	-7

;SPELL:

;Spells always return the success!

;Attackspells:
;Paramters: CHARID-Caster (Automatically inserted) -> -1 : Somebody 
;           CHARID-Attacked
;           HITPOINTS
;           ABILITY
;	    0

;HealSpells:
;Paramters: CHARID-Caster (Automatically inserted) -> -1 : Somebody 
;	    CHARID-Affected
;	    HITPOINTS
;	    ABILITY
;           0

;Light,Compass,Sword,Shield and combinations
;Paramters: CHARID-Caster (Automatically inserted) -> -1 : Somebody 
;           0
;	    Duration_of_Spell
;           Strength_of_Spell (Sword and Shield)

;Rules for forbidding Bits only when used by a spell!
;Darkness: Lightspell does not work
;MagicMapping: Compass does not work,MagicMapping does not work
;Spells: No Spells work
;Phasedoors: SetWALL etc. does not work
;Teleport: PosParty does not work

;Parameter: Caster,0,Duration,Strength,0
BatchSpell	GetL	Parameter3
		SLight
		dc.b	POP	;egal
		GetL	Parameter3
		ECompass
		dc.b	POP	;egal
		GetL	Parameter3
		GetL	Parameter4
		Sword
		GetL	Parameter3
		GetL	Parameter4
		Shield
		GetL	Parameter1
		PrintChar
		Print	MakesLightText
		Push	0	;Success
		Ret	5,1

;Paramter: Caster,0,Duration,0,0
LightSpell	GetL	Parameter3
		Light
		Push	0
		dc.b	NE
		Jc	Failed
		GetL	Parameter1
		PrintChar
		Print	MakesLightText
		Push	0
		Ret	5,1
Failed		Push	1
		Ret	5,1

;Paramter: Caster,Reciptant,HowMuch,0,0
HealSpell	dc.b	NEWLINE
		GetL	Parameter2
		dc.b	GETHP
		dc.b	DUP

		GetL	Parameter3
		dc.b	DUP
		dc.b	LSL
		dc.b	RANDOM

		dc.b	ADD

		GetL	Parameter2
		dc.b	SETHP

		GetL	Parameter2
		dc.b	GETHP
		dc.b	SUB
		GetL	Parameter2
		PrintChar
		Print	IsHealedText
		PrintVal
		Print	PointText
		dc.b	WAIT
		Push	0
		Ret	5,1

SaveHP		=	0
;Paramter: Caster,Reciptant,HowMuch,Ability,AttackText
HurtSpell	Reserve	1
		dc.b	NEWLINE
		GetL	Parameter2
		dc.b	MAGICRESIST
		Jc	Resisted
		Print	BigAText
		GetL	Parameter2
		dc.b	GETHP
		StoreL	SaveHP

		GetL	Parameter4

		GetL	Parameter3
		dc.b	DUP
		dc.b	LSL
		dc.b	RANDOM

		GetL	Parameter2
		dc.b	HURTCHAR
		
		GetL	Parameter2
		dc.b	GETHP
		GetL	SaveHP
		dc.b	SUB
		GetL	Parameter2
		PrintChar
		CompL	Parameter4,E,Ability.DEAD
		Jc	InstantKill
		Print	IsText
		Push	SpellAttackText
		GetL	Parameter5
		dc.b	GETTEXT,PRINT
		Print	ForText
		PrintVal
		GetL	Parameter2
		dc.b	GETHP	;0 Points = equal
		Jc	Killed
		Print	PointText
AndEnd		dc.b	WAIT
		Push	0
		Ret	5,1
Killed		Print	KillingText
		Jump	AndEnd
InstantKill	Print	InstantKillText
		Jump	AndEnd
Resisted	Print	BigAText
		GetL	Parameter2
		PrintChar
		Print	RepelledText
		Jump	AndEnd
		
PictureShow	Reserve	1
VonVorne	Push	0
		StoreL	0
		Title	EmptyName
		Print	ShowText
ShowLoop	GetL	0
		dc.b	PICTURE
		WaitKey
		Compare	E,$1b
		Jc	QuitRoom
		GetL	0
		Push	1
		dc.b	ADD
		StoreL	0
		GetL	0
		Compare	E,$26
		Jc	VonVorne
		Jump	ShowLoop