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)