LNH's Xelag WorldSchedule Scripts (txt)

*The Scripts*
Inside each textbox below you can copy (highlight) and paste each
script to it's own notepad (txt) file! Then make the changes necessary
as seen on the main tutorial page samples, such as world name, *time of day*
filename changes, skybox names, cloud layer texture names and any
other changes to world lighting, cloud tiling, cloud movement, etc.
Want to save these scripts? Just go to File, Save and *save* the whole HTML page!

WorldSchedule.txt
[Head] Type=Script Version=2.0 [Settings] Origin=0.000n 0.000w 0.00a 0.0° Run [Script] ################################### # The WorldSchedule Bot # # a Xelagot script # # (c) 2000 Alex Grigny de Castro # ################################### ################################################################## ###### Requires Xelagot 2.9999916 or higher ###### Help: www.imatowns.com/xelagot/xlgasex_worldschedule.html ################################################################## var $World, $Universe var /s_Schedule, $ScheduleFile var /s_Attrib var %Changes, %Pointer var %ok, %okSchedule, %FileNotFound var %okFiles, %okWorld, %HasUniverse, %okUniverse var %myWorld var !This, !Next var $This, $Next var $ThisFile, $NextFile var !now var $CRLF, $TAB Label Start $ScheduleFile = "schedule.txt" Concat $CRLF #13 #10 $TAB = #9 Gosub Initialize IfInt %FileNotFound <> 0 Goto Error IfInt %Changes = 0 Goto Error IfInt %okSchedule = 0 Goto Error IfInt %okFiles = 0 Goto Error # now the Pointer is set to the right period # change the attributes Label Main_Loop # check universe GetUniverse $u IfInt %HasUniverse = 0 %okUniverse = 1 Else IfString $u = $Universe %okUniverse = 1 Else %okUniverse = 0 IfInt %okUniverse = 0 Goto WrongWorld # check the world GetWorld $w IfString $w <> $World Goto WrongWorld IfNotLoginWorld Goto WrongWorld # check the time GetTime !now IfTime !now IsBetween !This !Next Gosub ChangeAttributes Goto Main_Loop Label WrongWorld GetUniverse $u IfInt %HasUniverse = 0 %okUniverse = 1 Else IfString $u = $Universe %okUniverse = 1 Else %okUniverse = 0 IfInt %okUniverse = 0 Goto WrongWorld GetWorld $w IfString $w = $World IfLoginWorld Goto Start Goto WrongWorld End Label Error IfInt %FileNotFound <> 0 SecretConcat "File " $ScheduleFile " not found IfInt %Changes = 0 SecretConcat "Invalid schedule file " $ScheduleFile IfInt %Changes = 0 SayConcat "Invalid schedule file " $ScheduleFile IfInt %okWorld = 0 SecretConcat "Missing world name in " $ScheduleFile IfInt %okWorld = 0 SayConcat "Missing world name in " $ScheduleFile IfInt %okSchedule = 0 SecretConcat "Error in schedule file " $ScheduleFile IfInt %okSchedule = 0 SayConcat "Error in schedule file " $ScheduleFile End Sub Initialize # set error flags to 'no error' %FileNotFound = 0 %Changes = 1 %okWorld = 1 %okSchedule = 1 %okFiles = 1 # load the schedule SListLoad /s_Schedule $ScheduleFile %FileNotFound IfInt %FileNotFound <> 0 EndSub # remove any empty lines SListNoBlanks /s_Schedule # world name must be included IfSListGetValue /s_Schedule "world" $World Else %okWorld = 0 IfInt %okWorld = 0 EndSub SListDeleteName /s_Schedule "world" # universe name is optional IfSListGetValue /s_Schedule "universe" $Universe %HasUniverse = 1 Else %HasUniverse = 0 SListDeleteName /s_Schedule "universe" # count how may changes SListGetCount /s_Schedule %Changes IfInt %Changes = 0 EndSub Gosub CheckSchedule IfInt %okSchedule = 0 EndSub Gosub CheckFiles IfInt %okFiles = 0 EndSub Gosub SetPointer EndSub Sub CheckSchedule %okSchedule = 1 %Pointer = 1 Label CheckSchedule_Loop IfInt %Pointer > %Changes EndSub Gosub GetThis Gosub GetNext IfTime !this IsAfter !next %okSchedule = 0 Inc %Pointer # last entry should not be checked against first IfInt %Pointer < %Changes IfInt %okSchedule = 1 Goto CheckSchedule_Loop EndSub Sub CheckFiles GetMyDir $q %okFiles = 1 %Pointer = 1 Label CheckFiles_Loop Gosub GetThis Concat $f $q $ThisFile IfFileExists $f Else Gosub NoFile Inc %Pointer IfInt %Pointer <= %Changes Goto CheckFiles_Loop EndSub Sub NoFile %okFiles = 0 SecretConcat "Attributes file " $ThisFile " not found" SayConcat "Attributes file " $ThisFile " not found" EndSub Sub SetPointer %ok = 0 %Pointer = 0 Label SetPointer_Loop Inc %Pointer IfInt %Pointer > %Changes %Pointer = 1 Gosub GetThis Gosub GetNext GetTime !now IfTime !now IsBetween !this !next %ok = 1 IfInt %ok = 0 Goto SetPointer_Loop EndSub Sub GetThis SItemGet /s_Schedule %Pointer $a Split $b $c $a "," GetTime !This $b Split $This $c $c "," Split $ThisFile $c $c "," EndSub Sub GetNext %p = %Pointer Inc %p IfInt %p > %Changes %p = 1 SItemGet /s_Schedule %p $a Split $b $c $a "," GetTime !Next $b Split $Next $c $c "," Split $NextFile $c $c "," EndSub Sub ChangeAttributes SListClear /s_Attrib SListLoad /s_Attrib $ThisFile %i Replace /s_Attrib /s_Attrib "{newline}" $CRLF Replace /s_Attrib /s_Attrib "{tab}" $TAB IfInt %i = 0 ChangeAttributes /s_Attrib # Get next Inc %Pointer IfInt %Pointer > %Changes %Pointer = 1 Gosub GetThis Gosub GetNext EndSub

schedule.txt
world=yourworldnamehere 8,dawn,dawn.txt, 10 15,day,day.txt, 21 15,dusk,dusk.txt, 23,night,night.txt,

dawn.txt
Skybox=skyaw3 WorldLightRed=245 WorldLightGreen=225 WorldLightBlue=225 WorldAmbientLightRed=220 WorldAmbientLightGreen=200 WorldAmbientLightBlue=200 Clouds1Texture=cloud_strat1 Clouds1Mask= Clouds1SpeedX=1.01 Clouds1SpeedZ=1.1 Clouds1Tile=2.1 Clouds1Opacity=149 Clouds2Texture=cloud_strat1 Clouds2Mask= Clouds2SpeedX=-1.003 Clouds2SpeedZ=-1.2 Clouds2Tile=2.0 Clouds2Opacity=152 Clouds3Texture= Clouds3Mask= Clouds3SpeedX=0.0 Clouds3SpeedZ=0.0 Clouds3Tile=0.0 Clouds3Opacity=255 TerrainAmbient=0.2 TerrainDiffuse=1.0

day.txt
Skybox=skyo33 WorldLightRed=255 WorldLightGreen=255 WorldLightBlue=255 WorldAmbientLightRed=219 WorldAmbientLightGreen=219 WorldAmbientLightBlue=219 Clouds1Texture=alterng4 Clouds1Mask=cloud_strat1m Clouds1SpeedX=1.01 Clouds1SpeedZ=1.2 Clouds1Tile=2.1 Clouds1Opacity=149 Clouds2Texture=alterng5 Clouds2Mask=cloud_strat1m Clouds2SpeedX=-1.003 Clouds2SpeedZ=-2.2 Clouds2Tile=3.0 Clouds2Opacity=250 Clouds3Texture=alterng9 Clouds3Mask=cloud_strat1m Clouds3SpeedX=1.003 Clouds3SpeedZ=1.1 Clouds3Tile=3.0 Clouds3Opacity=201 TerrainAmbient=0.2 TerrainDiffuse=1.0

dusk.txt
Skybox=skyaw1 WorldLightRed=245 WorldLightGreen=225 WorldLightBlue=225 WorldAmbientLightRed=220 WorldAmbientLightGreen=200 WorldAmbientLightBlue=200 Clouds1Texture=alterng4 Clouds1Mask=cloud_strat1m Clouds1SpeedX=1.01 Clouds1SpeedZ=1.2 Clouds1Tile=1.1 Clouds1Opacity=149 Clouds2Texture=alterng5 Clouds2Mask=cloud_strat1m Clouds2SpeedX=-0.003 Clouds2SpeedZ=-1.2 Clouds2Tile=2.0 Clouds2Opacity=149 Clouds3Texture=alterng9 Clouds3Mask=cloud_strat1m Clouds3SpeedX=0.002 Clouds3SpeedZ=0.003 Clouds3Tile=2.0 Clouds3Opacity=100 TerrainAmbient=0.2 TerrainDiffuse=1.0

night.txt
Skybox=lnh-stars3c WorldLightRed=190 WorldLightGreen=190 WorldLightBlue=190 WorldAmbientLightRed=150 WorldAmbientLightGreen=150 WorldAmbientLightBlue=150 Clouds1Texture=cloud_strat1 Clouds1Mask=cloud_strat1m Clouds1SpeedX=1.01 Clouds1SpeedZ=1.2 Clouds1Tile=3.1 Clouds1Opacity=100 Clouds2Texture=alterng5 Clouds2Mask=cloud_strat1m Clouds2SpeedX=-1.003 Clouds2SpeedZ=-1.2 Clouds2Tile=2.0 Clouds2Opacity=100 Clouds3Texture=cloud_strat1 Clouds3Mask=cloud_strat1m Clouds3SpeedX=0.002 Clouds3SpeedZ=0.003 Clouds3Tile=2.0 Clouds3Opacity=11 TerrainAmbient=0.2 TerrainDiffuse=1.0

Sooooo, you want 'em all ZIPPED too? OK ... here ya go!

Back to Tutorial Page
OR
Back to Home