diff --git a/AOprivateServer.pbp b/AOprivateServer.pbp
index fddf6ca..eb4c813 100644
--- a/AOprivateServer.pbp
+++ b/AOprivateServer.pbp
@@ -7,7 +7,7 @@
@@ -16,19 +16,19 @@
-
+
-
+
-
+
-
+
@@ -41,8 +41,8 @@
sD.ico
-
-
+
+
@@ -65,6 +65,7 @@
+
@@ -75,8 +76,8 @@
owner.ico
-
-
+
+
@@ -100,6 +101,7 @@
+
diff --git a/main.pb b/main.pb
index 11cf45d..965ce6f 100644
--- a/main.pb
+++ b/main.pb
@@ -353,7 +353,7 @@ Procedure LoadSettings(reload)
ClosePreferences()
ready$="CI#"
- newcready$="CHARS#"
+ newcready$="SC#"
charpage=0
Debug CharacterNumber
For loadcharsettings=0 To CharacterNumber
@@ -394,6 +394,7 @@ Procedure LoadSettings(reload)
ltracks=0
musicpage=0
ready$="EM#"
+ newmready$="SM#"
While Eof(2) = 0
AddElement(Music())
trackn$=ReadString(2)
@@ -404,6 +405,7 @@ Procedure LoadSettings(reload)
Music()\TrackName = track$
Music()\Length = dur*1000
ready$ = ready$ + Str(tracks) + "#" + track$ + "#"
+ newmready$=newmready$+track$+"#"
ltracks+1
tracks+1
If ltracks = 10
@@ -417,6 +419,7 @@ Procedure LoadSettings(reload)
If Not ltracks = 10
ReadyMusic(musicpage)=ready$+"#%"
EndIf
+ newmready$+"%"
ReDim ReadyMusic(musicpage)
CloseFile(2)
@@ -425,6 +428,7 @@ Procedure LoadSettings(reload)
AddElement(Music())
Music()\TrackName="NO MUSIC LIST"
ReadyMusic(0)="EM#0#NO MUSIC LIST##%"
+ newmready$="SM#NO MUSIC LIST#%"
musicpage=0
tracks=1
EndIf
@@ -466,6 +470,7 @@ Procedure LoadSettings(reload)
If OpenPreferences( "base/scene/"+scene$+"/areas.ini")
PreferenceGroup("Areas")
AreaNumber=ReadPreferenceInteger("number",1)
+ newaready$="SB#"
For loadareas=0 To AreaNumber-1
PreferenceGroup("Areas")
aname$=Encode(ReadPreferenceString(Str(loadareas+1),oBG.s))
@@ -477,7 +482,16 @@ Procedure LoadSettings(reload)
areas(loadareas)\hidden=ReadPreferenceInteger(Str(loadareas+1),0)
PreferenceGroup("pass")
areas(loadareas)\pw=Encode(ReadPreferenceString(Str(loadareas+1),""))
- Next
+ If areas(loadareas)\pw=""
+ passworded$="0"
+ Else
+ passworded$="1"
+ EndIf
+ If areas(loadareas)\hidden=0
+ newaready$+area$+"#"+aname$+"#"+passworded$+"#"
+ EndIf
+ Next
+ newaready$+"%"
ClosePreferences()
Else
If CreatePreferences("base/scene/"+scene$+"/areas.ini")
@@ -579,27 +593,6 @@ Procedure LoadSettings(reload)
EndProcedure
-Procedure TrackWait(a)
- Define stoploop,k,cw
- cw=1000
- Repeat
- For k=0 To AreaNumber-1
- If Areas(k)\trackwait>1
- If (Areas(k)\trackstart+Areas(k)\trackwait)5000
wttime=5000
EndIf
@@ -473,8 +473,30 @@ Procedure SendTarget(user$,message$,*sender.Client)
EndIf
UnlockMutex(ListMutex)
EndProcedure
-; IDE Options = PureBasic 5.11 (Linux - x64)
-; CursorPosition = 410
-; FirstLine = 395
+
+Procedure TrackWait(a)
+ Define stoploop,k,cw
+ cw=1000
+ Debug "looping enabled"
+ Repeat
+ For k=0 To AreaNumber
+ If Areas(k)\trackwait>1
+ If (Areas(k)\trackstart+Areas(k)\trackwait)