// 04.09.2001, MoNK: r_stonegarden
// 16.08.2001, MoNK: r_destard etc.
// 13.05.2001, MoNK: r_prison is allowed for plevel more than 1
// 12.05.2001, MoNK: r_prison event items - kick and return
// 11.05.2001, MoNK: @Enter for prison disabled
// 09.05.2001, MoNK: r_prison region

[REGION r_stonegarden]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Stone garden event
	endif
	if <src.mana> < <src.int>
		src.emote look at rocks and enter a meditative trance
		src.mana = <src.mana> + 10
		if <src.mana> > <src.int>
			src.mana = <src.int>
		endif
		src.sfx 0f9
	endif

[REGION r_britain]

[REGION r_cove]

[REGION r_delucia]

[REGION r_jhelom]

[REGION r_magincia]

[REGION r_minoc]

[REGION r_moonglow]

[REGION r_nujelm]

[REGION r_ocllo]

[REGION r_papua]

[REGION r_serphold]

[REGION r_skara]

[REGION r_trinsic]

[REGION r_vesper]

[REGION r_wind]

[REGION r_yew]

[REGION r_destard]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Destard event
	endif
	dorand 10
		src.sfx 0f6
		src.sfx 0f8
		src.sfx 0fb
		src.sfx 0fd
		src.sfx 0100
		src.sfx 0101
		src.sfx 0103
		src.sfx 0104
		src.sfx 0105
		src.sfx 0106
	enddo

[REGION r_deceit]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Deceit event
	endif
	dorand 10
		src.sfx 0f6
		src.sfx 0f8
		src.sfx 0fb
		src.sfx 0fd
		src.sfx 0100
		src.sfx 0101
		src.sfx 0103
		src.sfx 0104
		src.sfx 0105
		src.sfx 0106
	enddo

[REGION r_covetous]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Covetous event
	endif
	dorand 10
		src.sfx 0f6
		src.sfx 0f8
		src.sfx 0fb
		src.sfx 0fd
		src.sfx 0100
		src.sfx 0101
		src.sfx 0103
		src.sfx 0104
		src.sfx 0105
		src.sfx 0106
	enddo

[REGION r_hythloth]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Hythloth event
	endif
	dorand 10
		src.sfx 0f6
		src.sfx 0f8
		src.sfx 0fb
		src.sfx 0fd
		src.sfx 0100
		src.sfx 0101
		src.sfx 0103
		src.sfx 0104
		src.sfx 0105
		src.sfx 0106
	enddo

[REGION r_shame]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Shame event
	endif
	dorand 10
		src.sfx 0f6
		src.sfx 0f8
		src.sfx 0fb
		src.sfx 0fd
		src.sfx 0100
		src.sfx 0101
		src.sfx 0103
		src.sfx 0104
		src.sfx 0105
		src.sfx 0106
	enddo

[REGION r_despise]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Despise event
	endif
	dorand 10
		src.sfx 0f6
		src.sfx 0f8
		src.sfx 0fb
		src.sfx 0fd
		src.sfx 0100
		src.sfx 0101
		src.sfx 0103
		src.sfx 0104
		src.sfx 0105
		src.sfx 0106
	enddo

[REGION r_wrong]
On=@RegPeriodic
	if <src.isgm>
		src.sysmessage Wrong event
	endif
	dorand 10
		src.sfx 0f6
		src.sfx 0f8
		src.sfx 0fb
		src.sfx 0fd
		src.sfx 0100
		src.sfx 0101
		src.sfx 0103
		src.sfx 0104
		src.sfx 0105
		src.sfx 0106
	enddo



[REGION r_novamp]
On=@CLIPERIODIC
	src.sysmessage Cliperiodic

On=@Enter
	src.sysmessage Enter novamp

On=@Exit
	src.sysmessage Exit novamp

On=@Regperiodic
	src.sysmessage Region periodic

[ITEMDEF i_prison_return]
NAME=Prison Return
ID=i_deed
TYPE=t_eq_script
LAYER=30
WEIGHT=0

On=@Create
	attr = attr_invis | attr_decay | attr_newbie
	timer = 3

On=@Equip
	attr = attr_invis | attr_decay | attr_newbie
	timer = 3

On=@Timer
	cont.sysmessage You has been returned to Yew Prison area
	cont.p = Yew Prison
	cont.flags = <cont.flags> & ~statf_stone
	cont.fix
	remove
	return 1

[ITEMDEF i_prison_kick]
NAME=Prison Kick
ID=i_deed
TYPE=t_eq_script
LAYER=30
WEIGHT=0

On=@Create
	attr = attr_invis | attr_decay | attr_newbie
	timer = 3

On=@Equip
	attr = attr_invis | attr_decay | attr_newbie
	timer = 3

On=@Timer
	cont.sysmessage You has been kicked out from restricted Yew Prison area
	cont.p = Yew Prison Exit
	cont.flags = <cont.flags> & ~statf_stone
	cont.fix
	remove
	return 1

[REGION r_prison]
On=@Enter
	if !(<src.brain>)
		if <src.account.plevel> > 1
			src.sysmessage TRACE MESSAGE: You have entered to Yew prison area
		else
			if !(<src.plot1> & plotmask_prison)
				src.sysmessage You have entered restricted prison area!
				src.flags = <src.flags> | statf_stone
				src.fix
				src.newitem i_prison_kick
				src.act.cont = <src.serial>
			endif
		endif
	endif

On=@Exit
	if !(<src.brain>)
		if <src.account.plevel> > 1
			src.sysmessage TRACE MESSAGE: You leave Yew prison area
		else
			if <src.plot1> & plotmask_prison
				src.sysmessage You have leave restricted prison area prisoner!
				src.flags = <src.flags> | statf_stone
				src.fix
				src.newitem i_prison_return
				src.act.cont = <src.serial>
			endif
		endif
	endif

[REGION 65000]
// Unclaimed regions.
DEFNAME=r_unclaimed

ON=@ENTER
	SRC.MIDILIST=midi_britain1,midi_ForestA,midi_JungleA,midi_MountainA,midi_Plains,midi_Victory

ON=@CLIPERIODIC
	SRC.MIDILIST=midi_britain1,midi_ForestA,midi_JungleA,midi_MountainA,midi_Plains,midi_Victory

[REGION 65001]
// Brit
DEFNAME=r_brit
ON=@ENTER
	SRC.MESSAGE Welcome to Britain <SRC.NAME>!
	SRC.MESSAGE Lord British Guards are here to protect you!
	SRC.MIDILIST=midi_britain1,midi_britain2
ON=@CLIPERIODIC
	SRC.MIDILIST=midi_britain1,midi_britain2

[REGION 65002]
// Lord brit castle.
DEFNAME=r_brit_castle
ON=@ENTER
	SRC.MIDILIST=midi_LBCastle
ON=@CLIPERIODIC
	SRC.MIDILIST=midi_LBCastle

[REGION 65003]
// Guard tower.
DEFNAME=r_guard_tower
ON=@ENTER
	SRC.MIDILIST=midi_ForestA
ON=@CLIPERIODIC
	SRC.MIDILIST=midi_ForestA

[REGION 65004]
// Lord Blackthorne's Castle
DEFNAME=r_black_castle
ON=@ENTER
	SRC.MIDILIST=midi_BtCastle
ON=@CLIPERIODIC
	SRC.MIDILIST=midi_BtCastle

[REGION 65005]
// Bucs den
DEFNAME=r_bucs_den

ON=@ENTER
	IF <SRC.KILLS> > 5
		SRC.MESSAGE Welcome to Bucs Den <SRC.NAME> You are a murderer and this is a place you feel safe!
		SRC.MIDILIST=midi_BucsDen
//		RETURN 0
	ELSE
		SRC.MIDILIST=midi_BucsDen
	ENDIF

ON=@CLIPERIODIC
	SRC.MIDILIST=midi_BucsDen

[REGION 65010]
// Spooky outdoor area.
DEFNAME=r_spooky
ON=@ENTER
	SRC.MIDILIST=midi_Approach
ON=@CLIPERIODIC
	SRC.MIDILIST=midi_Approach

[REGION 65100]
// Water/Ocean boat sounds
DEFNAME=r_ocean
ON=@REGPERIODIC
	dorand 7
		src.sfx 025
		src.sfx 026
		src.sfx 027
		src.sfx 010
		src.sfx 011
		src.sfx 012
		src.sfx 013
	enddo

[REGION 65103]
// Dungeon sounds Actually should be the same day or night really.
DEFNAME=r_dungeon
ON=@REGPERIODIC
	dorand 4
		src.sfx 021f
		src.sfx 0243
		src.sfx 0244
		src.sfx 0245
	enddo

[REGION 65104]
// Plains night and day.
DEFNAME=r_plains
ON=@REGPERIODIC
	dorand 2
		src.sfx 0a
		src.sfx 0b
	enddo

[REGION 65105]
// Forest Day and night.
DEFNAME=r_forests
ON=@REGPERIODIC
	IF <src.sector.ISNIGHTTIME>
		dorand 7
			src.sfx 0
			src.sfx 0
			src.sfx 1
			src.sfx 1
			src.sfx 2
			src.sfx 2
			src.sfx 07d
		enddo
	ELSE
		dorand 22
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 8
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 9
			src.sfx 0219
			src.sfx 07d
		enddo
	ENDIF

[REGION 65106]
// Jungle Day and night.
DEFNAME=r_jungle
ON=@REGPERIODIC
	IF <src.sector.ISNIGHTTIME>
		dorand 5
			src.sfx 0c
			src.sfx 0c
			src.sfx 0d
			src.sfx 0d
			src.sfx 0b3
		enddo
	ELSE
		dorand 7
			src.sfx 3
			src.sfx 3
			src.sfx 4
			src.sfx 4
			src.sfx 5
			src.sfx 5
			src.sfx 0b3
		enddo
	ENDIF

[REGION 65107]
// Swamp Day and night.
DEFNAME=r_swamp
ON=@REGPERIODIC
	dorand 24
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0e
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 0f
		src.sfx 022
		src.sfx 023
		src.sfx 024
		src.sfx 0267
	enddo

[REGION r_unguarded]
On=@Enter
	src.region.guarded 0

[EOF]

