61
Endless Nights' Script Library / Re: ENs - "Snippets of Code" - 35+ subs.
« on: February 12, 2020, 08:27:37 AM »
Dont know where you are in the world ... ?? Maybe this will help.
Example Usage
Helper Subs
Main Sub
Example Usage
Code: [Select]
gosub ENs_WhatFacetAmIOn
display ok #result
gosub ENs_WhatLandMassAmIOn
display ok #result
gosub ENs_WhereAmI
display ok #result
halt
Helper Subs
Code: [Select]
sub ENs_WhereAmI
gosub ENs_WhereIsThis #CURSKIND #CHARPOSX #CHARPOSY
set #result %EN_Location_Facet , #spc , - , #spc , %EN_Location_LandMass
set !Blank
if %EN_Location_Landmass = !Blank
set #result %EN_Location_Facet
return #result
sub ENs_WhatFacetAmIOn
gosub ENs_WhereIsThis
set #result %EN_Location_Facet
return #result
sub ENs_WhatLandMassAmIOn
gosub ENs_WhereIsThis
set #result %EN_Location_LandMass
set !Blank
if #result = !Blank
set #result %EN_Location_Facet
return #result
Main Sub
Code: [Select]
sub ENs_WhereIsThis ; %1..3 curskind x y
set !Facet %1
set !x %2
set !y %3
if %0 = 0
{
set !Facet #CursKind
set !x #CharPosX
set !y #CharPosY
}
set %EN_Location_Facet
set %EN_Location_LandMass
if !Facet = 0
{
set %EN_Location_Facet Felucca
set %EN_Location_LandMass Britannia
IF ( #CHARPOSX >= 5120 && #CHARPOSX <= 6143 ) && ( #CHARPOSY >= 2300 && #CHARPOSY <= 4095 )
set %EN_Location_LandMass T2A
}
if !Facet = 1
{
%EN_Location_Facet Trammel
IF ( #CHARPOSX >= 5120 && #CHARPOSX <= 6143 ) && ( #CHARPOSY >= 2300 && #CHARPOSY <= 4095 )
set %EN_Location_LandMass T2A
}
if !Facet = 2
set %EN_Location_Facet Ilshenar
if !Facet = 3
set %EN_Location_Facet Malas
if !Facet = 4
set %EN_Location_Facet Tokuno
if !Facet = 5
{
set %EN_Location_Facet Ter , #spc , Mur
IF ( #CHARPOSX >= 85 && #CHARPOSX <= 770 ) && ( #CHARPOSY >= 1348 && #CHARPOSY <= 1979 )
set %EN_Location_LandMass Eodon , #Spc , NW
IF ( #CHARPOSX >= 593 && #CHARPOSX <= 946 ) && ( #CHARPOSY >= 1940 && #CHARPOSY <= 2178 )
set %EN_Location_LandMass Eodon , #spc , SE
}
return