P3D-Legacy/P3D/Content/Data/Scripts/safarizone/nextarea.dat

<EFBFBD><EFBFBD>version=2
@storage.set(integer,Nextzone,<system.random(0,19)>)

:if:<storage.get(integer,Nextzone)>>19
:then
@storage.set(integer,Nextzone,0)
:endif

:if:<register.registered(visitedzone<storage.get(integer,Nextzone)>)>=True
	@script.start(safarizone\nextarea)
	:end
:endif
@register.register(visitedzone<storage.get(integer,Nextzone)>)
@screen.fadeout
@player.turnto(2)
@player.warp(safarizone\areas\<storage.get(integer,Nextzone)>.dat,12,0.1,22,0)
@level.update
@screen.fadein

:if:<register.registered(safaritrip6)>=True
:then
@register.unregister(safaritrip6)
@register.register(safaritrip7)
@text.show(This is the seventh and~final zone you get to visit.)
:endif

:if:<register.registered(safaritrip5)>=True
:then
@register.unregister(safaritrip5)
@register.register(safaritrip6)
@text.show(This is the sixth zone~of your Safari adventure.*I wish you luck~on your adventure!)
:endif

:if:<register.registered(safaritrip4)>=True
:then
@register.unregister(safaritrip4)
@register.register(safaritrip5)
@text.show(This is the fifth zone~of your Safari adventure.*I wish you luck~on your adventure!)
:endif

:if:<register.registered(safaritrip3)>=True
:then
@register.unregister(safaritrip3)
@register.register(safaritrip4)
@text.show(This is the fourth zone~of your Safari adventure.*I wish you luck~on your adventure!)
:endif

:if:<register.registered(safaritrip2)>=True
:then
@register.unregister(safaritrip2)
@register.register(safaritrip3)
@text.show(This is the third zone~of your Safari adventure.*I wish you luck~on your adventure!)
:endif

:if:<register.registered(safaritrip1)>=True
:then
@register.unregister(safaritrip1)
@register.register(safaritrip2)
@text.show(This is the second zone~of your Safari adventure.*I wish you luck~on your adventure!)
:endif

:if:<register.registered(safarizonestart)>=True
@register.unregister(safarizonestart)
@register.register(safaritrip1)
@text.show(This is the first zone~of your Safari adventure.*I wish you luck!)
:endif

:end