scn NAWSeasionalFramework

int            iToken
int            iReset
int            iLoop
int            iCount
int            iStage
ref            rLandscape
string_var     sToken
string_var     sLandscape
string_var     sINI

;Script Control the Seasion function
;Everthing with "NAWMainn." is MCM related to toggle the different Seasion ON/OFF or disable is entirely
;Author Anro
;Time/Date 18:32 24.03.2020

begin gamemode

if (Gamemonth >= 11 || Gamemonth < 1) && iToken != 1
  if NAWMain.iLand && NAWMain.iWinter
     Let sToken := "Snow:"
     set iLoop to 1
     set iToken to 1
   else
     Let sToken := "Reset:"
     set iLoop to 1
     set iToken to 1
   endif
endif

if (Gamemonth >= 2 && Gamemonth < 4) && iToken != 2
  if NAWMain.iLand && NAWMain.iSpring
     Let sToken := "Spring:"
     set iLoop to 1
     set iToken to 2
   else
     Let sToken := "Reset:"
     set iLoop to 1
     set iToken to 2
   endif
endif

if (Gamemonth >= 5 && Gamemonth < 7) && iToken != 3
  if NAWMain.iLand && NAWMain.iSummer
     Let sToken := "Summer:"
     set iLoop to 1
     set iToken to 3
   else
     Let sToken := "Reset:"
     set iLoop to 1
     set iToken to 3
   endif
endif

if (Gamemonth >= 8 && Gamemonth < 10) && iToken != 4
  if NAWMain.iLand && NAWMain.iAutumn
     Let sToken := "Autumn:"
     set iLoop to 1
     set iToken to 4
   else
     Let sToken := "Reset:"
     set iLoop to 1
     set iToken to 4
   endif
endif

if iLoop
   set iCount to ListGetCount NAWLandscape
   set iStage to 0
   while (iCount)
      set iCount to iCount - 1
      set rLandscape to ListGetNthForm NAWLandscape iCount
      Let sINI := $sToken + $iStage
      Let sLandscape := GetINIString $sINI "NAW\Terraforming\LandscapeTextures.ini"
      SetTextureSetTexture rLandscape 0 $sLandscape
      set iStage to iStage + 1
      Let sINI := $sToken + $iStage
      Let sLandscape := GetINIString $sINI "NAW\Terraforming\LandscapeTextures.ini"
      SetTextureSetTexture rLandscape 1 $sLandscape
      set iStage to iStage + 1
   loop
   Console "TG"
   set iStage to 0
   set iCount to ListGetCount NAWMeshReplacer
   while (iCount)
      set iCount to iCount - 1
      set rLandscape to ListGetNthForm NAWMeshReplacer iCount
      Let sINI := $sToken + $iStage
      Let sLandscape := GetINIString $sINI "NAW\Terraforming\LandscapeMeshes.ini"
      SetModelPathEx $sLandscape rLandscape
      set iStage to iStage + 1
   loop
   Console "TG"
   set iLoop to 0
   sv_destruct sLandscape sINI sToken
endif
end