Page 1 of 1

How to disable/enable seasons

Posted: Sun Mar 23, 2008 3:05 pm
by coltain
When winter comes tiles of grass become white etc...

How to disable or enable this???

Posted: Mon Mar 24, 2008 4:46 am
by Harley
Add thoose script-command to textcmd/

Code: Select all

use uo;

include "include/packets";

program textcmd_setseason( who, text )

  if(!text or text == "")
    SendSysMessage(who, "Useage: .setseason <season>");
    SendSysMessage(who, "<season>: spring | desolation | fall | winter | summer");
    return;
  endif
  
  var season := lower(text);
  case(season)
    "spring":     SetSeasonForAll(SEASON_SPRING); SendSysMessage(who, "Season spring set");
                  SetGlobalProperty("gseason", "SEASON_SPRING");
    "desolation": SetSeasonForAll( SEASON_DESOLATION ); SendSysMessage(who, "Season desolation set");
                  SetGlobalProperty("gseason", "SEASON_DESOLATION");
    "fall":       SetSeasonForAll( SEASON_FALL ); SendSysMessage(who, "Season fall set");
                  SetGlobalProperty("gseason", "SEASON_FALL");
    "winter":     SetSeasonForAll( SEASON_WINTER ); SendSysMessage(who, "Season winter set");
                  SetGlobalProperty("gseason", "SEASON_WINTER");
    "summer":     SetSeasonForAll( SEASON_SUMMER ); SendSysMessage(who, "Season summer set");
                  SetGlobalProperty("gseason", "SEASON_SUMMER");
  endcase
  
endprogram
With best regards!!!