From 2c2ccd48203022343ef3f72303209958ef1d59b9 Mon Sep 17 00:00:00 2001 From: stonedDiscord Date: Sun, 18 Jan 2015 15:26:42 +0100 Subject: [PATCH] serverD source files --- AOprivateServer.pbp | 116 +++ Common.pb | 202 ++++ base/HDbanlist.txt | 0 base/gimp.txt | 9 + base/hd.txt | 2 + base/masterserver.ini | 5 + base/musiclist.txt | 53 ++ base/op.txt | 0 green.png | Bin 0 -> 200 bytes gui.pbv | Bin 0 -> 6974 bytes hacker.png | Bin 0 -> 197 bytes main.pb | 2061 +++++++++++++++++++++++++++++++++++++++++ mod.png | Bin 0 -> 180 bytes poker.ini | 10 + poker.pb | 0 serverd.png | Bin 0 -> 10901 bytes serverd.txt | 5 + 17 files changed, 2463 insertions(+) create mode 100644 AOprivateServer.pbp create mode 100644 Common.pb create mode 100644 base/HDbanlist.txt create mode 100644 base/gimp.txt create mode 100644 base/hd.txt create mode 100644 base/masterserver.ini create mode 100644 base/musiclist.txt create mode 100644 base/op.txt create mode 100644 green.png create mode 100644 gui.pbv create mode 100644 hacker.png create mode 100644 main.pb create mode 100644 mod.png create mode 100644 poker.ini create mode 100644 poker.pb create mode 100644 serverd.png create mode 100644 serverd.txt diff --git a/AOprivateServer.pbp b/AOprivateServer.pbp new file mode 100644 index 0000000..2df01de --- /dev/null +++ b/AOprivateServer.pbp @@ -0,0 +1,116 @@ + + + +
+ +
+
+ + + +
+
+ + + + + + + + + + + + + + + + + + + + + + +
+
+ + + + + + + + + ../stoneddiscord.ico + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + owner.ico + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ diff --git a/Common.pb b/Common.pb new file mode 100644 index 0000000..9ff2260 --- /dev/null +++ b/Common.pb @@ -0,0 +1,202 @@ +; PureBasic Visual Designer v3.95 build 1485 (PB4Code) + + +;- Window Constants +; +Enumeration + #Window_0 + #Window_1 + #Window_2 + #Window_3 +EndEnumeration + +;- Gadget Constants +; +Enumeration + #Frame3D_0 + #String_5 + #Button_4 + #Button_2 + #Button_5 + #Frame3D_2 + #Frame3D_3 + #String_7 + #String_8 + #Button_6 + #Button_7 + #Button_8 + #CheckBox_4 + #Button_9 + #Combo_0 + #Combo_1 + #String_9 + #String_10 + #Button_kk + #Button_dc + #Button_kb + #Button_mu + #Button_um + #Button_ig + #Button_hd + #Button_sw + #Button_si + #Listview_0 + #Button_dj + #Button_ndj + #Text_3 + #String_12 + #Button_27 + #Button_28 + #Button_29 + #Frame3D_4 + #CheckBox_6 + #TrackBar_1 + #ListIcon_2 + #CheckBox_MS + #Text_6 + #String_OP + #Frame3D_5 + #Listview_2 + #Button_BG + #Text_7 + #Combo_3 + #Text_8 + #Combo_4 + #Checkbox_BlockIni +EndEnumeration + + +Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon) + CompilerIf #PB_Compiler_OS = #PB_OS_Windows + Define ToolTip=0 + Define Balloon.TOOLINFO + ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID,0,GetModuleHandle_(0),0) + SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0) + SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0) + SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180) + Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO) + Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS + Balloon\hWnd=GadgetID(Gadget) + Balloon\uId=GadgetID(Gadget) + Balloon\lpszText=@Text$ + SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon) + If Title$ > "" + SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$) + EndIf + CompilerElse + #TOOLTIP_NO_ICON=0 + #TOOLTIP_INFO_ICON=0 + #TOOLTIP_WARNING_ICON=0 + #TOOLTIP_ERROR_ICON=0 + CompilerEndIf +EndProcedure + +Procedure Open_Window_0() + If OpenWindow(#Window_0 , 301, 185, 730, 339, "serverD", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_TitleBar ) + ;If CreateGadgetList(WindowID(#Window_0 )) + Frame3DGadget(#Frame3D_0, 0, 0, 290, 350, "Serverside") + StringGadget(#String_5, 210, 15, 70, 22, "27015", #PB_String_Numeric) + BalloonTip(GadgetID(#String_5), #String_5, "The public port goes here", "", #TOOLTIP_NO_ICON) + ButtonGadget(#Button_4, -30, 280, 100, 30, "CONFIG", #PB_Button_Right) + BalloonTip(GadgetID(#Button_4), #Button_4, "Opens the configuration page", "", #TOOLTIP_NO_ICON) + ButtonGadget(#Button_2, 120, 15, 90, 22, "START") + BalloonTip(GadgetID(#Button_2), #Button_2, "Start listening for connections", "", #TOOLTIP_NO_ICON) + ButtonGadget(#Button_kk, -10, 40, 80, 30, "KICK", #PB_Button_Right) + BalloonTip(GadgetID(#Button_kk), #Button_kk, "Send KB to the client and close the connection", "", #TOOLTIP_INFO_ICON) + ButtonGadget(#Button_dc, -10, 70, 80, 30, "DISCONNECT", #PB_Button_Right) + BalloonTip(GadgetID(#Button_dc), #Button_dc, "Disconnects this client from the server", "", #TOOLTIP_WARNING_ICON) + ButtonGadget(#Button_kb, -10, 100, 80, 30, "BAN", #PB_Button_Right) + BalloonTip(GadgetID(#Button_kb), #Button_kb, "Send KB to the client and add him to the banlist", "For this IP", #TOOLTIP_WARNING_ICON) + ButtonGadget(#Button_mu, 30, 190, 40, 30, "MUTE", #PB_Button_Right) + BalloonTip(GadgetID(#Button_mu), #Button_mu, "Send MU#-1#% to the client", "", #TOOLTIP_INFO_ICON) + ButtonGadget(#Button_um, 0, 190, 30, 30, "UN", #PB_Button_Right) + BalloonTip(GadgetID(#Button_um), #Button_um, "Send UM#-1#% to the client", "", #TOOLTIP_INFO_ICON) + ButtonGadget(#Button_ig, 20, 160, 50, 30, "IGNORE") + BalloonTip(GadgetID(#Button_ig), #Button_ig, "Ignore this clients commands", "", #TOOLTIP_INFO_ICON) + ButtonGadget(#Button_hd, -10, 130, 80, 30, "HDBAN", #PB_Button_Right) + BalloonTip(GadgetID(#Button_hd), #Button_hd, "Send KB to the client and add him to the HDbanlist", "PERMANENT", #TOOLTIP_ERROR_ICON) + ButtonGadget(#Button_sw, -10, 220, 80, 30, "SWITCH", #PB_Button_Right) + BalloonTip(GadgetID(#Button_sw), #Button_sw, "Drops this client to character selection", "", #TOOLTIP_INFO_ICON) + ButtonGadget(#Button_si, 0, 160, 20, 30, "S") + BalloonTip(GadgetID(#Button_si), #Button_si, "Stop ignoring this client", "", #TOOLTIP_INFO_ICON) + ButtonGadget(1337, -30, 310, 100, 30, "ABOUT", #PB_Button_Right) + ;- + ListIconGadget(#Listview_0, 70, 40, 220, 300, "IP", 100, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection) + CompilerIf #PB_Compiler_OS=#PB_OS_Windows + SendMessage_ (GadgetID(#Listview_0), #LVS_SHOWSELALWAYS, 1, 0) + CompilerEndIf + AddGadgetColumn(#Listview_0, 1, "Character", 50) + AddGadgetColumn(#Listview_0, 2, "PV", 60) + BalloonTip(GadgetID(#Listview_0), #Listview_0, "Shows all connected clients", "", #TOOLTIP_NO_ICON) + ButtonGadget(#Button_dj, 40, 250, 30, 30, "DJ") + BalloonTip(GadgetID(#Button_dj), #Button_dj, "Allows this client to change the music", "", #TOOLTIP_INFO_ICON) + ButtonGadget(#Button_ndj, -20, 250, 60, 30, "UN", #PB_Button_Right) + BalloonTip(GadgetID(#Button_ndj), #Button_ndj, "Stops this client from changing the music", "", #TOOLTIP_INFO_ICON) + Frame3DGadget(#Frame3D_4, 290, 0, 230, 340, "Log") + + ;- + ListIconGadget(#ListIcon_2, 520, 20, 210, 320, "Name", 80, #PB_ListIcon_GridLines | #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection) + AddGadgetColumn(#ListIcon_2, 1, "Message", 100) + BalloonTip(GadgetID(#ListIcon_2), #ListIcon_2, "Shows the OOC chat history", "", #TOOLTIP_NO_ICON) + CheckBoxGadget(#CheckBox_MS, 10, 15, 110, 20, "Public server mode") + BalloonTip(GadgetID(#CheckBox_MS), #CheckBox_MS, "Makes this server appear on the Masterserver list", "", #TOOLTIP_NO_ICON) + Frame3DGadget(#Frame3D_5, 520, 0, 210, 340, "OOC") + CompilerIf #EASYLOG + ListViewGadget(#Listview_2, 290, 20, 230, 320) + AddGadgetItem(#Listview_2,0,"serverD "+Str(#PB_Editor_CompileCount)+"."+Str(#PB_Editor_BuildCount)) + AddGadgetItem(#Listview_2,0,"Check out http://www.weedlan.de/serverd/ for updates") + If update + AddGadgetItem(#Listview_2,0,"UPDATE AVAILABLE",#PB_ListIcon_AlwaysShowSelection) + EndIf + CompilerElse + EditorGadget(#Listview_2, 290, 20, 230, 320) + CompilerEndIf + BalloonTip(GadgetID(#Listview_2), #Listview_2, "Shows all activity", "", #TOOLTIP_NO_ICON) + + ;EndIf + EndIf +EndProcedure + +Procedure Open_Window_1() + If OpenWindow(#Window_1, 303, 568, 150, 180, "Config", #PB_Window_SystemMenu | #PB_Window_TitleBar ) + ; If CreateGadgetList(WindowID(#Window_1)) + ButtonGadget(#Button_5, 0, 150, 150, 30, "DONE") + CheckBoxGadget(#CheckBox_4, 10, 40, 60, 20, "Logging") + BalloonTip(GadgetID(#CheckBox_4), #CheckBox_4, "Log all network traffic to a file", "", #TOOLTIP_NO_ICON) + ButtonGadget(#Button_9, 70, 40, 70, 20, "Log file...") + TextGadget(#Text_6, 10, 10, 41, 20, "OP pass") + StringGadget(#String_OP, 60, 10, 80, 20, "", #PB_String_Password) + BalloonTip(GadgetID(#String_OP), #String_OP, "Enter the OOC password here", "", #TOOLTIP_NO_ICON) + TextGadget(#Text_7, 10, 70, 60, 20, "Mod colour:") + ComboBoxGadget(#Combo_3, 70, 70, 70, 20) + TextGadget(#Text_8, 10, 90, 50, 30, "MOTD evidence:") + ComboBoxGadget(#Combo_4, 60, 100, 80, 20) + CheckBoxGadget(#Checkbox_BlockIni,10,130,120,20,"Block Ini char swap") + + ; EndIf + EndIf +EndProcedure + +CompilerIf #SPAM + Procedure Open_Window_3() + If OpenWindow(#Window_3, -202, 508, 150, 220, "Spam", #PB_Window_SystemMenu | #PB_Window_TitleBar ) + ; If CreateGadgetList(WindowID(#Window_3)) + TextGadget(#Text_3, 10, 10, 100, 30, "TURN DOWN FOR WHAT ?", #PB_Text_Center) + StringGadget(#String_12, 0, 40, 120, 35, "") + ButtonGadget(#Button_27, 0, 100, 120, 40, "START") + ButtonGadget(#Button_28, 0, 140, 120, 40, "PAUSE") + ButtonGadget(#Button_29, 0, 180, 120, 40, "STOP") + CheckBoxGadget(#CheckBox_6, 0, 80, 120, 20, "ÜBERCHARGE") + TrackBarGadget(#TrackBar_1, 120, 0, 30, 220, 0, 1000, #PB_TrackBar_Vertical) + + ; EndIf + EndIf + EndProcedure +CompilerEndIf +; IDE Options = PureBasic 5.11 (Windows - x86) +; CursorPosition = 71 +; FirstLine = 61 +; Folding = - +; EnableXP +; EnableCompileCount = 0 +; EnableBuildCount = 0 \ No newline at end of file diff --git a/base/HDbanlist.txt b/base/HDbanlist.txt new file mode 100644 index 0000000..e69de29 diff --git a/base/gimp.txt b/base/gimp.txt new file mode 100644 index 0000000..ef0ac43 --- /dev/null +++ b/base/gimp.txt @@ -0,0 +1,9 @@ +I love the admins on this server! +I'm So happy!! :) +I forgot how to AO +I <3 you guys :) +what is this i am kebab +I love the first generation of MLP +If I don't take my meds soon I may die. +Please Kick me i hack +glory to arstotzka \ No newline at end of file diff --git a/base/hd.txt b/base/hd.txt new file mode 100644 index 0000000..55e4e10 --- /dev/null +++ b/base/hd.txt @@ -0,0 +1,2 @@ +127.0.0.1 +SUCKS70B3Y0UGG diff --git a/base/masterserver.ini b/base/masterserver.ini new file mode 100644 index 0000000..10f21b4 --- /dev/null +++ b/base/masterserver.ini @@ -0,0 +1,5 @@ +[list] +0 = 46.188.16.205 +1 = 54.72.209.44 +2 = 37.120.168.157 +3 = 127.0.0.1 \ No newline at end of file diff --git a/base/musiclist.txt b/base/musiclist.txt new file mode 100644 index 0000000..482f909 --- /dev/null +++ b/base/musiclist.txt @@ -0,0 +1,53 @@ +~stop.mp3 +01_turnabout_courtroom_-_prologue.mp3 +113 Confrontation ~ Presto 2009.mp3 +114 Pursuit(Miles).mp3 +>mlp +>gs4 +http://8tracks.s3.amazonaws.com/tf/003/891/309/75308.mp3 +http://www.youtube-mp3.org/a2/c/getData?pid=5483687662583808&h=123123&r=1413987290921 +Annonce The Truth(AA).mp3 +Annonce The Truth(AJ).mp3 +Annonce The Truth(JFA).mp3 +Annonce The Truth(Miles).mp3 +Annonce The Truth(T&T).mp3 +Crises of Fate.mp3 +Forgotten Legend.mp3 +Ghost Trick - 4 Minutes Before Death.mp3 +Ghost Trick - Countdown.mp3 +Ghost Trick - The World of the Dead.mp3 +Godot - The Fragrance of Dark Coffee.mp3 +Great Revival ~ Franziska von Karma.mp3 +Great Revival ~ Miles Edgeworth.mp3 +Hotline of Fate.mp3 +Interesting People.mp3 +logic_and_trick.mp3 +Luke Atmey ~ I Just Want Love.mp3 +Noisy People.mp3 +OBJECTIOM(AJ).mp3 +OBJECTION (AA).mp3 +OBJECTON (JFA).mp3 +OBJECTION (T&T).mp3 +OBJECTION(Miles).mp3 +Others ~ Guilty love.mp3 +Prelude(AA).mp3 +Prelude(AJ).mp3 +Pursuit ~ I Want to Find the Truth(Orchestra).mp3 +PURSUIT(AA) - variation.mp3 +PURSUIT(AA).mp3 +PURSUIT(AJ).mp3 +PURSUIT(JFA) - variation.mp3 +PURSUIT(JFA).mp3 +PURSUIT(T&T) - variation.mp3 +PURSUIT(T&T).mp3 +Questioning(AA-allergo).mp3 +Questioning(AA-normal).mp3 +Speak up, Pup!.mp3 +Super Trixie.mp3 +Suspence(AA).mp3 +The Great Truth Burglar.mp3 +Trial(AA).mp3 +Trial(AJ).mp3ne of Fate.mp3 +ok this is the end +for real +here \ No newline at end of file diff --git a/base/op.txt b/base/op.txt new file mode 100644 index 0000000..e69de29 diff --git a/green.png b/green.png new file mode 100644 index 0000000000000000000000000000000000000000..4793b549e53cbb8721fdb613160a7c9a6e12ce70 GIT binary patch literal 200 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!93?!50ihlx9oB=)|t_%$88U8c;|Ns9-)asi+ zLB^6GzhDN3XE)M7oFs2|7lsa2Sr3r%0*}aI1_o|n5N2eUHAey{$X?><>&kwQhhIS7 zY{zF69iWhfr;B3<$Mxg{2X-Is29|KP2^V@29%Mz#I=EnG#w#Yat7|r}v7J4ku^>hx mU{a=*$IVS_3JY7;NHa{}c literal 0 HcmV?d00001 diff --git a/gui.pbv b/gui.pbv new file mode 100644 index 0000000000000000000000000000000000000000..58f7c7149e381bc1c536c80485dc2d23c65425f5 GIT binary patch literal 6974 zcmcIp%WoS+7#{~pLwK};2=P)FY5^%~)5LkUszm)vOyh@ar=eAZwXrw$*6Uqscb%ly zo;mlN1AhV+E{J1qK)IouIG`SoxaCkG!uOlmU2kfe65IJIcV~BJ=l9Kgzwa@V^Ng{l zFEKVjSH^x~S3}>k-^Pj|af^qUbSY!2)~;&3PIuu=&8V7t{@7L z>=8Q07;8{)&qZ0Y!K8stz8^D%2Jx@e4;#y zH$^d7TdS(F2V<8)U(5BN2XA=~dtS%=r-au9#~Bkk6&*`6YURaq)H|{~JGb~AHA;1r zx7ypfR^ctva(K;DZC+O`^$EMcQtTanWGqL2>1aTGx-=lIga)y;;0KBEt)ZdTa4OQ8c5B#Rz>ecvfE$EA&77?sNu@o(oK0?D$ zX!g2hJE}pe#CJ>!>KJMTy4d@)8utRLF@PSDuTt%x9*ZDOB9~3dR}a~v;pQtjE(Zg# ze40hD?2=~kEhDIXuQ>?C`a;bM3+tL{I2a#}HbST%o0l>E2lPuCj%o=O<&%YVUP!Jc zzv8x_`~;h357{Jo3K@XP!I=i(S1{lU;1A9K-u0v(Cg3+$LngP5i|G83kb{WX01l<{;_OwMc28ZI(w$o;Etv2 z>`+*AOs?=9O;uVb&sY@HCKv;*;|1v=aAsy^Fl>t8QUSODLQc?{&?g)> zo7-l27Q-X5$LpqPtHNn$g7BZFS*3YSo^Y4<(Y>$qoM#{4IgHXD_+YfaK|j6j=|4dx z9APXF0oF~db7EZqbTB-KUo24W6dC`Q!(yFnI!Y>xh!ZQ8WN~uVTu;YL{Mc(-c((Vmj&k z2vlsgVb9D)DG4_dI%YP)SLec?c1)l=Cd^nQp9ee=$I|8!F;Hp0|rD)oE+S2zfi9BLeDr0-4dC6ot$)6 zQ)yR7$f5`<*3CUzByl(Js0f4zIySQDAr%wo3W2u$#dmD<4{m3m2n05xY^t}L#vD4Q z^LUEh1{$th^BO&`zTLkiUc3kdJc@f}#c;q%q2bEtup*dH{tm`PD~yIK1A=&;2U%0S zkHHgPeoFsGbsdHa@CCt-SZvf}b<%9xT4kC&8(9P*Y{4Nns~S?9jqGL81|&YIjL29* z9Z74I3x)nXenyFYsF*BI5~MXjt#C=*cgpkFtCThhS)RykW_c=C;G1jF690l8lOIg5 z;FcK27yZR28Eom1%tOUz!X{n?gSh9)G;Iw#rXOI-)CJ{lk5q*<*(|1sZVOa81{CZ zU38`hBjx1@qAcjeCK9vHC=EJH6j9xMqqJHoowCy59u&^S#w(%A*^l|`bfEellaWNbLxiM6RfRjf;un3^(T!D5Pbhvtx@bdxu z0m7?C2{|3Y_Z(^w4n>G~F;296GMqyNaRkBrvP)18*6);ERCH>)n)BdNXp$VcL%GkP zOke4uJbL=LGzGN7Zu*F=q7;g)a&qIW=f+E+RF6E2VY;O!nrBUP@6cu$k259}k*038 zts8hdK~-1q6le(QU^r;w9?Q(*9+DFOI$;U!-Cs^IpA{t6OsMs4E!KkS2l0&&DCL%= z?JADCMTcHZ)0k;(*QqzCq|px}-KQT4zU~n^e|@sH4AUt$6%7M4s52;`)6ZKj{P6(G j>X`xCGcXhhAt>-lWbbqCL)=3N^z%cr`!0CFH_ywzDI)rd literal 0 HcmV?d00001 diff --git a/hacker.png b/hacker.png new file mode 100644 index 0000000000000000000000000000000000000000..ce38b9afde4047b5c1a0cd45473ddcde15ff6a13 GIT binary patch literal 197 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!93?!50ihlx9oB=)|t_2Lq{}~wm1MxFCJD?zA zNswPKgTu2MX&_FLx4R2N2dk_HNO^%rWHAE+w=f7ZGR&GI0Tg5}@$_|NzsD)gqb!tQ zqWTmlWa{bS7{YPg^oXG#g8~opff5I%7b{uVgi?>_-w~~=P!L*i>re0B$?=NmSD!?d g7A-u@J%uxleGLa+{TV*42A}~9p00i_>zopr0P31EV*mgE literal 0 HcmV?d00001 diff --git a/main.pb b/main.pb new file mode 100644 index 0000000..6183a5b --- /dev/null +++ b/main.pb @@ -0,0 +1,2061 @@ +;EnableExplicit + +CompilerIf #PB_Compiler_OS <> #PB_OS_Windows + #MB_ICONERROR=0 +CompilerEndIf + +Structure CharacterArray + StructureUnion + c.c[0] + s.s{1}[0] + EndStructureUnion +EndStructure + +Structure Evidence + type.w + name.s + desc.s + image.s +EndStructure + +Structure room + bg.s + wait.l + lock.l + mlock.w +EndStructure + +Structure ACharacter + name.s + desc.s + taken.b + dj.b + evinumber.w + evidence.s + pw.s +EndStructure + +Structure Client + ClientID.l + IP.s + AID.w + CID.w + sHD.b + HD.s + perm.w + ignore.b + ignoremc.b + hack.b + room.w + last.s + cconnect.b + gimp.b +EndStructure + +Enumeration + #KICK + #BAN + #MUTE + #UNMUTE + #CIGNORE + #UNIGNORE + #UNDJ + #DJ + #GIMP + #UNGIMP +EndEnumeration + +Global *Buffer = AllocateMemory(1024) +Global NetworkMode=#PB_Network_TCP +Global EmptyMode.b=0 +Global Logging.b=0 +Global public.b=0 +Global LogFile$="poker.log" +Global ServerEXP=0 +Global ServerReg$="" +Global ClientEXP=0 +Global ClientReg$="" +Global decryptor$="" +Global oppass$="" +Global adminpass$="" +Global opppass$="" +Global key +Global defbar$="10" +Global probar$="10" +Global port +Global ListMutex +Global str.s +Global scene$="AAOPublic2" +Global StringToHexR.s +Global Result.s="" +Global characternumber=0 +Global oBG.s="gs4" +Global rt.b=1 +Global loghd.b=0 +Global background.s +Global PV=0 +Global rf.b=0 +Global Replays.b=0 +Global rline=0 +Global replaylines=0 +Global replayopen.b +Global modcol=0 +Global blockini.b=0 +Global MOTDevi=0 +Global tracks=0 +Global LoginReply$="CT#sD#got it#%" +Global roomc=9 +Global musicpage=0 +Global EviNumber +Global NewMap Clients.Client() +Global NewList HDbans.s() +Global NewList HDmods.s() +Global NewList IPbans.s() +Global NewList SDbans.s() +Global NewList gimp.s() +Global NewList Music.s() +Global Dim Evidences.Evidence(EviNumber) +Global Dim Rooms.room(roomc) +Global ChatMutex = CreateMutex() +Global ListMutex = CreateMutex() +Global musicmode=1 +Global update=0 +Global Dim Icons.l(2) +Global Dim ReadyChar.s(10) +Global Dim ReadyEvidence.s(50) +Global Dim ReadyMusic.s(400) + +If InitNetwork() = 0 + CompilerIf #CONSOLE=0 + MessageRequester("serverD", "Can't initialize the network!",#MB_ICONERROR) + CompilerEndIf + End +EndIf +CompilerIf #CONSOLE=0 + IncludeFile "Common.pb" +CompilerEndIf +Procedure MSWait(*p) + Define par.s + Define roomw + Define time + par.s=PeekS(*p) + roomw=Val(Left(par.s,1)) + time=Val(Right(par.s,Len(par.s)-1)) + LockMutex(Rooms(roomw)\wait) + Delay(time) + UnlockMutex(Rooms(roomw)\wait) +EndProcedure + +Procedure WriteLog(string$,mod.b,ip$) + Define mstr$ + ; [23:21:05] David Skoland: (If mod)[M][IP][Timestamp, YYYYMMDDHHMM][Character]:[Message] + If mod + mstr$="[M]" + Else + mstr$="[U]" + EndIf + + If Logging + WriteStringN(1,mstr$+"["+LSet(ip$,15)+"]"+"["+FormatDate("%dd.%mm.%yyyy %hh:%ii:%ss",Date())+"]"+string$) + CompilerIf #CONSOLE=1 + PrintN(mstr$+"["+LSet(ip$,15)+"]"+"["+FormatDate("%dd.%mm.%yyyy %hh:%ii:%ss",Date())+"]"+string$) + CompilerEndIf + EndIf +EndProcedure + +Procedure WriteReplay(string$) + If Replays + If ReplayOpen + WriteStringN(3,string$) + WriteStringN(3,"wait") + rline+1 + If rline>replaylines + CloseFile(3) + ReplayOpen=0 + EndIf + Else + OpenFile(3,"base/replays/AAO replay "+FormatDate("%dd-%mm-%yy %hh-%ii-%ss",Date())+".txt") + WriteStringN(3,"decryptor#"+decryptor$+"#%") + ReplayOpen=1 + EndIf + EndIf +EndProcedure + +Procedure IsNumeric(in_str.s) + Define rex_IsNumeric + Define Is_Numeric.b + rex_IsNumeric = CreateRegularExpression(#PB_Any,"^[[:digit:]]+$") + Is_Numeric.b = MatchRegularExpression(rex_IsNumeric, in_str) + FreeRegularExpression(rex_IsNumeric) + ProcedureReturn Is_Numeric +EndProcedure + +Procedure IsAlpha(in_str.s) + Define rex_isAlpha + Define is_Alpha.b + rex_isAlpha = CreateRegularExpression(#PB_Any,"^[[:alpha:]]+$") ; A-Z and a-z + is_Alpha.b = MatchRegularExpression(rex_isAlpha, in_str) + FreeRegularExpression(rex_isAlpha) + ProcedureReturn is_Alpha +EndProcedure + +Procedure LoadSettings(reload) + Define loadchars + Define loadcharsettings + Define loaddesc + Define loadevi + Define iniroom + Define track$ + Define hdmod$ + Define hdban$ + Define ipban$ + If OpenPreferences("base/settings.ini")=0 + If CreatePreferences("base/settings.ini")=0 + CompilerIf #CONSOLE=0 + MessageRequester("serverD","dude i can't create the settings file",#MB_ICONERROR) + CompilerElse + PrintN("Cant create the settings file (folder missing/wrong permissions?)") + CompilerEndIf + Else + PreferenceGroup("Net") + WritePreferenceInteger("public",0) + WritePreferenceString("oppassword", "DEFAULT") + WritePreferenceInteger("port",27016) + PreferenceGroup("server") + WritePreferenceString("Name", "DEFAULT") + WritePreferenceString("Desc", "DEFAULT") + WritePreferenceInteger("musicmode",1) + WritePreferenceInteger("replaysave",1) + WritePreferenceInteger("replayline",400) + WritePreferenceString("case", "AAOPublic2") + EndIf + EndIf + PreferenceGroup("net") + opppass$=ReadPreferenceString("oppassword","1333333337") + port=ReadPreferenceInteger("port",27016) + + public=ReadPreferenceInteger("public",0) + CompilerIf #CONSOLE=0 + SetGadgetText(#String_5,Str(port)) + SetGadgetState(#CheckBox_MS,public) + CompilerElse + PrintN("Loading serverD "+Str(#PB_Editor_BuildCount)+"."+Str(#PB_Editor_CompileCount)+" settings") + PrintN("OP pass:"+opppass$) + PrintN("Server port:"+Str(port)) + PrintN("Public server:"+Str(public)) + CompilerEndIf + PreferenceGroup("server") + musicmode=ReadPreferenceInteger("musicmode",1) + Replays=ReadPreferenceInteger("replaysave",0) + replaylines=ReadPreferenceInteger("replaylines",400) + scene$=ReadPreferenceString("case","AAOPublic2") + CompilerIf #CONSOLE=0 + SetWindowTitle(0,ReadPreferenceString("Name","serverD")) + CompilerElse + PrintN("Musicmode:"+Str(musicmode)) + PrintN("Scene:"+scene$) + CompilerEndIf + + + OpenPreferences("poker.ini") + PreferenceGroup("cfg") + oppass$=ReadPreferenceString("oppass","") + adminpass$=ReadPreferenceString("adminpass","") + blockini=ReadPreferenceInteger("BlockIni",0) + modcol=ReadPreferenceInteger("modcol",0) + MOTDevi=ReadPreferenceInteger("motdevi",0) + LoginReply$=ReadPreferenceString("LoginReply","CT#sD#got it#%") + LogFile$=ReadPreferenceString("LogFile","base/serverlog.log") + If Logging + CloseFile(1) + EndIf + Logging=ReadPreferenceInteger("Logging",1) + If Logging + If OpenFile(1,LogFile$) + FileSeek(1,Lof(1)) + WriteLog("LOGGING STARTED",1,"SERVER") + Else + Logging=0 + EndIf + EndIf + + ClosePreferences() + + OpenPreferences("base/scene/"+scene$+"/init.ini") + CompilerIf #CONSOLE + PrintN("OOC pass:"+oppass$) + PrintN("Block INI edit:"+Str(blockini)) + PrintN("Moderator color:"+Str(modcol)) + PrintN("MOTD evidence:"+Str(MOTDevi)) + PrintN("Login reply:"+LoginReply$) + PrintN("Logfile:"+LogFile$) + PrintN("Logging:"+Str(Logging)) + CompilerEndIf + PreferenceGroup("Global") + EviNumber=ReadPreferenceInteger("EviNumber",0) + oBG.s=ReadPreferenceString("BackGround","gs4") + background.s=oBG.s + PreferenceGroup("chars") + Global characternumber=ReadPreferenceInteger("number",1) + If reload=0 + Global Dim Characters.ACharacter(characternumber) + EndIf + For loadchars=0 To characternumber + Characters(loadchars)\name=ReadPreferenceString(Str(loadchars),"zettaslow") + If reload=0 + Characters(loadchars)\taken=0 + EndIf + Next + + PreferenceGroup("desc") + For loaddesc=0 To characternumber + Characters(loaddesc)\desc=ReadPreferenceString(Str(loadchars),"No description") + Next + ReDim Evidences(EviNumber) + ReDim ReadyEvidence(EviNumber-1) + For loadevi=1 To EviNumber + PreferenceGroup("evi"+Str(loadevi)) + Evidences(loadevi)\type=ReadPreferenceInteger("type",1) + Evidences(loadevi)\name=ReadPreferenceString("name","DEFAULT") + Evidences(loadevi)\desc=ReadPreferenceString("desc","This is the default evidence") + Evidences(loadevi)\image=ReadPreferenceString("image","2.png") + + ReadyEvidence(loadevi-1)="EI#" + Str(loadevi)+"#"+Evidences(loadevi)\name+"&"+Evidences(loadevi)\desc+"&"+Str(Evidences(loadevi)\type)+"&"+Evidences(loadevi)\image+"&##%" + + Next + ClosePreferences() + + For iniroom=0 To 9 + Rooms(iniroom)\wait=CreateMutex() + Rooms(iniroom)\bg=background + Next + + ready$="CI#" + charpage=0 + For loadcharsettings=0 To characternumber + OpenPreferences("base/scene/"+scene$+"/char"+Str(loadcharsettings)+".ini") + PreferenceGroup("desc") + Characters(loadcharsettings)\desc=ReadPreferenceString("text","No description") + Characters(loadcharsettings)\dj=ReadPreferenceInteger("dj",musicmode) + Characters(loadcharsettings)\evinumber=ReadPreferenceInteger("evinumber",0) + Characters(loadcharsettings)\evidence=ReadPreferenceString("evi","") + Characters(loadcharsettings)\pw=ReadPreferenceString("pass","") + ClosePreferences() + Delay(10) + + ready$ = ready$ + Str(loadcharsettings)+"#"+Characters(loadcharsettings)\name+"&"+Characters(loadcharsettings)\desc+"&0&"+Characters(loadcharsettings)\evidence+"&"+Characters(loadcharsettings)\pw+"&0&#" + + If loadcharsettings%10 = 9 + ReadyChar(charpage)=ready$+"#%" + charpage+1 + ready$="CI#" + EndIf + Next + + If Not loadcharsettings%10 = 9 + ReadyChar(charpage)=ready$+"#%" + EndIf + + Debug ReadyChar(0) + Debug ReadyChar(1) + Debug ReadyChar(2) + + If ReadFile(2, "base/musiclist.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... + tracks=0 + musicpage=0 + ready$="EM#" + While Eof(2) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist + AddElement(Music()) + track$=ReadString(2) + track$=ReplaceString(track$,"#","") + track$ = ReplaceString(track$,"%","") + Music() = track$ + ready$ = ready$ + Str(tracks) + "#" + track$ + "#" + If tracks%10 = 9 + ReadyMusic(musicpage)=ready$+"#%" + musicpage+1 + If page>10 + ReDim ReadyMusic(musicpage) + EndIf + ready$="EM#" + EndIf + tracks+1 + Wend + ReDim ReadyMusic(musicpage) + + If Not tracks%10 = 9 + ReadyMusic(musicpage)=ready$+"#%" + EndIf + + CloseFile(2) + + Else + CompilerIf #CONSOLE=0 + MessageRequester("AO server","No music list!") + CompilerEndIf + EndIf + + + If ReadFile(2, "base/op.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... + ClearList(HDmods()) + While Eof(2) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist + hdmod$=ReadString(2) + If hdmod$<>"" + AddElement(HDmods()) + HDmods()=hdmod$ + EndIf + Wend + CloseFile(2) ; schließen der zuvor geöffneten Datei + EndIf + + If ReadFile(2, "base/HDbanlist.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... + ClearList(HDbans()) + While Eof(2) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist + hdban$=ReadString(2) + If hdban$<>"" + AddElement(HDbans()) + HDbans()=hdban$ + EndIf + Wend + CloseFile(2) ; schließen der zuvor geöffneten Datei + EndIf + + If ReadFile(2, "serverd.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... + ReadString(2) + ReadString(2) + ReadString(2) + ClearList(SDbans()) + While Eof(2) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist + hdban$=ReadString(2) + If hdban$<>"" + AddElement(SDbans()) + SDbans()=hdban$ + EndIf + Wend + CloseFile(2) ; schließen der zuvor geöffneten Datei + EndIf + + If ReadFile(2, "base/banlist.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... + ClearList(IPbans()) + While Eof(2) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist + ipban$=ReadString(2) + If ipban$<>"" + AddElement(IPbans()) + IPbans()=ipban$ + EndIf + Wend + CloseFile(2) ; schließen der zuvor geöffneten Datei + EndIf + + If ReadFile(2, "base/gimp.txt") ; wenn die Datei geöffnet werden konnte, setzen wir fort... + ClearList(gimp()) + While Eof(2) = 0 ; sich wiederholende Schleife bis das Ende der Datei ("end of file") erreicht ist + AddElement(gimp()) + gimp()=ReadString(2) + Wend + CloseFile(2) ; schließen der zuvor geöffneten Datei + EndIf + +EndProcedure + +Procedure SendToAll(*p) + Define replay$ + reply$=PeekS(*p) + Debug PeekS(*p) + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + SendNetworkString(Clients()\ClientID,reply$) ;;;;; SERVER REPLY + Wend + UnlockMutex(ListMutex) +EndProcedure + +Procedure ListIP(ClientID) + Define send.b + Define iplist$ + Define charname$ + send=0 + iplist$="IL#" + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + char=Clients()\CID + If char<=100 And char>=0 + If char>characternumber ; the character id is greater than the amount of characters + charname$="HACKER" ; OBVIUOSLY + Clients()\hack=1 + Else + If Clients()\perm + charname$=Characters(char)\name+"(mod)" + Else + charname$=Characters(char)\name + EndIf + EndIf + Else + charname$="nobody" + EndIf + iplist$=iplist$+Clients()\IP+"|"+charname$+"|"+Str(char)+"|*" + Wend + UnlockMutex(ListMutex) + iplist$=iplist$+"#%" + SendNetworkString(ClientID,iplist$) +EndProcedure + +Procedure KickBan(kick$,action,perm) + Define akck + Define everybody.b + Define i + akck=0 + If kick$="everybody" + everybody.b=1 + EndIf + For i=0 To characternumber + If Characters(i)\name=kick$ + kick$=Str(i) + Break + EndIf + Next + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If kick$=Str(Clients()\CID) Or kick$=Clients()\HD Or kick$=Clients()\IP Or everybody + If Clients()\perm=0 + Characters(Clients()\CID)\taken=0 + EndIf + kclid=Clients()\ClientID + DeleteMapElement(Clients()) + Delay(10) + CloseNetworkConnection(kclid) + akck+1 + + Case #BAN + SendNetworkString(Clients()\ClientID,"KB#"+Str(Clients()\CID)+"#%") + + If kick$=Clients()\HD + AddElement(HDbans()) + HDbans()=Clients()\HD + If OpenFile(2,"base/HDbanlist.txt") + FileSeek(2,Lof(2)) + WriteStringN(2,Clients()\HD) + CloseFile(2) + EndIf + Else + AddElement(IPbans()) + IPbans()=Clients()\IP + If OpenFile(2,"base/banlist.txt") + FileSeek(2,Lof(2)) + WriteStringN(2,Clients()\IP) + CloseFile(2) + EndIf + EndIf + If Clients()\CID>=0 + Characters(Clients()\CID)\taken=0 + EndIf + kclid=Clients()\ClientID + DeleteMapElement(Clients()) + Delay(10) + CloseNetworkConnection(kclid) + akck+1 + Case #MUTE + SendNetworkString(Clients()\ClientID,"MU#"+Str(Clients()\CID)+"#%") + akck+1 + Case #UNMUTE + SendNetworkString(Clients()\ClientID,"UM#"+Str(Clients()\CID)+"#%") + akck+1 + Case #CIGNORE + Clients()\ignore=1 + akck+1 + Case #UNIGNORE + Clients()\ignore=0 + akck+1 + Case #UNDJ + Clients()\ignoremc=1 + akck+1 + Case #DJ + Clients()\ignoremc=0 + akck+1 + Case #GIMP + Clients()\gimp=1 + akck+1 + Case #UNGIMP + Clients()\gimp=0 + akck+1 + EndSelect + EndIf + EndIf + Wend + UnlockMutex(ListMutex) + rf=1 + ProcedureReturn akck +EndProcedure + + +Procedure SendTarget(user$,room,message$) + Debug user$ + Debug room + Debug message$ + + + If user$="*" + everybody.b=1 + EndIf + + For i=0 To characternumber + If Characters(i)\name=user$ + user$=Str(i) + Break + EndIf + Next + + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If user$=Str(Clients()\CID) Or user$=Clients()\HD Or user$=Clients()\IP Or (everybody And room=Clients()\room) + SendNetworkString(Clients()\ClientID,message$) + EndIf + Wend + UnlockMutex(ListMutex) + ProcedureReturn akck +EndProcedure + +Procedure.s Escape(smes$) + smes$=ReplaceString(smes$,"","#") + smes$=ReplaceString(smes$,"","&") + smes$=ReplaceString(smes$,"","%") + smes$=ReplaceString(smes$,"","$") + ProcedureReturn smes$ +EndProcedure + +ProcedureDLL.s HexToString(hex.s) + str.s="" + For i = 1 To Len(hex.s) Step 2 + str.s = str.s + Chr(Val("$"+Mid(hex.s, i, 2))) + Next i + ProcedureReturn str.s +EndProcedure + +ProcedureDLL.s StringToHex(str.s) + StringToHexR.s = "" + hexchar.s = "" + + For x.l = 1 To Len(str) + hexchar.s = Hex(Asc(Mid(str, x, 1))) + If Len(hexchar) = 1 + hexchar = "0" + hexchar + EndIf + StringToHexR.s = StringToHexR + hexchar + Next x + ProcedureReturn StringToHexR.s +EndProcedure + +Procedure.s EncryptStr(S.s, Key.u) + C1 = 53761 + C2 = 32618 + + Result.s = S.s + + Define *S.CharacterArray = @S + Define *Result.CharacterArray = @Result + + For I = 0 To Len(S.s)-1 + *Result\c[I] = (*S\c[I] ! (Key >> 8)) + Key = ((*Result\c[I] + Key) * C1) + C2 + Next + + ProcedureReturn Result.s +EndProcedure + +ProcedureDLL.s DecryptStr(S.s, Key.u) + C1 = 53761 + C2 = 32618 + Result.s = S.s + + Define *S.CharacterArray = @S + Define *Result.CharacterArray = @Result + + For I = 0 To Len(S.s)-1 + *Result\c[I] = (*S\c[I] ! (Key >> 8)) + Key = ((*S\c[I] + Key) * C1) + C2 + Next + + ProcedureReturn Result.s +EndProcedure + +ProcedureDLL MasterAdvert(msport) + WriteLog("Masterserver adverter thread started",1,"SERVER") + msID=0 + mstick=0 + *null=AllocateMemory(100) + OpenPreferences("base/masterserver.ini") + PreferenceGroup("list") + master$=ReadPreferenceString("0","46.188.16.205") + ClosePreferences() + OpenPreferences("base/settings.ini") + PreferenceGroup("server") + name$=ReadPreferenceString("Name","Public Discord server") + desc$=ReadPreferenceString("Desc","This server is powered by serverD") + desc$=ReplaceString(desc$,"$n",Chr(13)+Chr(10)) + desc$=ReplaceString(desc$,"%n",Chr(13)+Chr(10)) + + ClosePreferences() + + Repeat + + If msID + If NetworkClientEvent(msID)=#PB_NetworkEvent_Data + msinfo=ReceiveNetworkData(msID,*null,100) + If msinfo=-1 + tick=200 + Else + msrec$=PeekS(*null,msinfo) + If Left(msrec$,7) ="CHECK#%" + tick=0 + EndIf + EndIf + EndIf + + If tick>=200 + WriteLog("Masterserver adverter timer exceeded, reconnecting",1,"SERVER") + CloseNetworkConnection(msID) + msID=OpenNetworkConnection(master$,27016) + + If msID + SendNetworkString(msID,"SCC#"+Str(port)+"#"+name$+"#"+desc$+"#%") + tick=0 + EndIf + EndIf + + Else + msID=OpenNetworkConnection(master$,27016) + If msID + Debug "SCC#"+Str(port)+"#"+name$+"#"+desc$+"#%" + SendNetworkString(msID,"SCC#"+Str(msport)+"#"+name$+"#"+desc$+"#%") + tick=0 + EndIf + EndIf + + Delay(100) + tick+1 + Until public=0 + + WriteLog("Masterserver adverter thread stopped",1,"SERVER") + If msID + CloseNetworkConnection(msID) + EndIf + FreeMemory(*null) + msthread=0 +EndProcedure + + +Procedure SendDone(ClientID) + send$="CharsCheck" + For sentchar=0 To characternumber + If Characters(sentchar)\taken Or Characters(sentchar)\pw<>"" + send$ = send$ + "#-1" + Else + send$ = send$ + "#0" + EndIf + Next + send$ = send$ + "#%" + SendNetworkString(ClientID,send$) + SendNetworkString(ClientID,"BN#"+Rooms(0)\bg+"#%") + SendNetworkString(ClientID,"OPPASS#"+StringToHex(EncryptStr(opppass$,key))+"#%") + SendNetworkString(ClientID,"MM#"+Str(musicmode)+"#%") + Delay(10) + SendNetworkString(ClientID,"DONE#%") +EndProcedure + + + + +CompilerIf #PB_Compiler_Debugger=0 + OnErrorGoto(?start) +CompilerEndIf + +CompilerIf #CONSOLE=0 + Procedure RefreshList(var) + lstate=GetGadgetState(#Listview_0) + ClearGadgetItems(#Listview_0) + i=0 + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + AddGadgetItem(#Listview_0,i,Clients()\IP+Chr(10)+Str(Clients()\CID)+Chr(10)+Str(Clients()\AID),Icons(Clients()\perm)) + SetGadgetItemData(#Listview_0,i,Clients()\ClientID) + ;SetGadgetItemColor(#Listview_0,i,#PB_Gadget_BackColor,$EEEEEE/(Clients()\icon+1)) + i+1 + Debug "clients: "+Str(i) + Wend + UnlockMutex(ListMutex) + SetGadgetState(#Listview_0,lstate) + EndProcedure + + + Procedure ConfigWindow(var) + Open_Window_1() + AddGadgetItem(#Combo_3,0,"None") + AddGadgetItem(#Combo_3,1,"Green") + AddGadgetItem(#Combo_3,2,"Red") + AddGadgetItem(#Combo_3,3,"Orange") + AddGadgetItem(#Combo_3,4,"Blue") + SetGadgetText(#String_OP,oppass$) + SetGadgetState(#CheckBox_4,Logging) + SetGadgetState(#Checkbox_BlockIni,blockini) + SetGadgetState(#Combo_3,modcol) + AddGadgetItem(#Combo_4,0,"NONE") + For loadevi=1 To EviNumber + AddGadgetItem(#Combo_4,loadevi,Evidences(loadevi)\name) + Next + SetGadgetState(#Combo_4,MOTDevi) + Repeat ; Start of the event loop + Event = WaitWindowEvent() ; This line waits until an event is received from Windows + WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures + GadgetID = EventGadget() ; Is it a gadget event? + EventType = EventType() ; The event type + If Event = #PB_Event_Gadget + If GadgetID = #String_OP + oppass$ = GetGadgetText(#String_OP) + CompilerIf #SPAM + If oppass$="spam" + CreateThread(@SpamWindow(),0) + oppass$="" + SetGadgetText(#String_OP,"") + EndIf + CompilerEndIf + ElseIf GadgetID = #CheckBox_4 + If GetGadgetState(#CheckBox_4) + If OpenFile(1,LogFile$) + Logging = 1 + FileSeek(1,Lof(1)) + WriteLog("LOGGING STARTED",1,"SERVER") + Else + SetGadgetState(#CheckBox_4,0) + EndIf + Else + CloseFile(1) + Logging = 0 + EndIf + ElseIf GadgetID = #Button_5 + Event = #PB_Event_CloseWindow + ElseIf GadgetID = #Combo_3 + modcol=GetGadgetState(#Combo_3) + ElseIf GadgetID = #Combo_4 + motdevi=GetGadgetState(#Combo_4) + ElseIf GadgetID = #Checkbox_BlockIni + blockini=GetGadgetState(#Checkbox_BlockIni) + ElseIf GadgetID = #Button_9 + LogFile$=SaveFileRequester("Choose log file",LogFile$,"Log files (*.log)|*.log",0) + EndIf + EndIf + Until Event = #PB_Event_CloseWindow ; End of the event loop + OpenPreferences("poker.ini") + PreferenceGroup("cfg") + WritePreferenceString("LogFile",LogFile$) + WritePreferenceInteger("Logging",GetGadgetState(#CheckBox_4)) + WritePreferenceString("oppass",GetGadgetText(#String_OP)) + WritePreferenceInteger("ModCol",GetGadgetState(#Combo_3)) + WritePreferenceInteger("motdevi",GetGadgetState(#Combo_4)) + WritePreferenceInteger("BlockIni",GetGadgetState(#Checkbox_BlockIni)) + ClosePreferences() + EndProcedure + + Procedure Network(var) + CompilerElse + start: + CompilerIf #PB_Compiler_Debugger=0 + If ErrorLine() + + lpublic=public + public=0 + PrintN("well fuck it crashed,tell sD this stuff: #"+ErrorMessage()+" @"+Str(ErrorAddress())) + + LoadSettings(0) + Delay(500) + public=lpublic + + Else + CompilerElse + If 1 + CompilerEndIf + CompilerIf #PB_Compiler_OS = #PB_OS_Windows + OpenConsole("serverD") + CompilerEndIf + LoadSettings(0) + + decryptor$="33" + key=2 + + CreateNetworkServer(0,port,#PB_Network_TCP) + + If public And msthread=0 + msthread=CreateThread(@Masteradvert(),port) + EndIf + EndIf + CompilerEndIf + Quit=0 + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; CLIENT + + + Repeat + + SEvent = NetworkServerEvent() + + ClientID = EventClient() + + Select SEvent + + Case #PB_NetworkEvent_Connect + send=1 + ip$=IPString(GetClientIP(ClientID)) + + WriteLog("CLIENT CONNECTED ",0,ip$) + + ForEach IPbans() + If ip$ = IPbans() + send=0 + SendNetworkString(ClientID,"BD#%") + WriteLog("IP: "+ip$+" is banned, disconnecting",0,ip$) + CloseNetworkConnection(ClientID) + Break + EndIf + Next + If send + LockMutex(ListMutex) + Clients(Str(ClientID))\ClientID = ClientID + Clients()\IP = ip$ + Clients()\AID=PV + PV+1 + Clients()\CID=-1 + Clients()\hack=0 + CLients()\perm=0 + ForEach HDmods() + If ip$ = HDmods() + CLients()\perm=1 + EndIf + Next + Clients()\room=0 + Clients()\ignore=0 + Clients()\gimp=0 + UnlockMutex(ListMutex) + CompilerIf #CONSOLE=0 + AddGadgetItem(#Listview_0,-1,ip$+Chr(10)+"-1"+Chr(10)+"-1",Icons(0)) + CompilerEndIf + SendNetworkString(ClientID,"decryptor#"+decryptor$+"#%") + EndIf + + + Case #PB_NetworkEvent_Data ;//////////////////////////Data + ;Debug "data lock" + *usagePointer.Client=FindMapElement(Clients(),Str(ClientID)) + length=ReceiveNetworkData(ClientID, *Buffer, 1024) + If length + rawreceive$=PeekS(*Buffer,length) + If Not *usagePointer\last.s=rawreceive$ And *usagePointer\ignore=0 + *usagePointer\last.s=rawreceive$ + If length>=0 And Left(rawreceive$,1)="#" + comm$=DecryptStr(HexToString(StringField(rawreceive$,2,"#")),key) + Debug rawreceive$ + + Select comm$ + Case "HI" ;what is this server + hdbanned=0 + *usagePointer\HD = StringField(rawreceive$,3,"#") + WriteLog("HdId="+*usagePointer\HD,*usagePointer\perm,*usagePointer\IP) + *usagePointer\sHD = 1 + + If loghd + OpenFile(8,"base/hd.txt") + WriteStringN(8,*usagePointer\IP) + WriteStringN(8,*usagePointer\HD) + CloseFile(8) + EndIf + + ForEach SDBans() + Debug SDBans() + Debug *usagePointer\HD + If *usagePointer\HD = SDbans() Or *usagePointer\IP=SDBans() + SendNetworkString(ClientID,"BD#%") + Delay(10) + CloseNetworkConnection(ClientID) + + DeleteMapElement(Clients(),Str(ClientID)) + hdbanned=1 + + rf=1 + EndIf + Next + If hdbanned=0 + ForEach HDbans() + If *usagePointer\HD = HDbans() + send=0 + WriteLog("HdId: "+*usagePointer\HD+" is banned, disconnecting",*usagePointer\perm,*usagePointer\IP) + SendNetworkString(ClientID,"BD#%") + Delay(10) + CloseNetworkConnection(ClientID) + DeleteMapElement(Clients(),Str(ClientID)) + hdbanned=1 + rf=1 + Break + EndIf + Next + EndIf + If hdbanned=0 + ForEach HDmods() + If *usagePointer\HD = HDmods() + *usagePointer\perm=1 + EndIf + Next + SendNetworkString(ClientID,"ID#"+Str(PV)+"#"+scene$+"#%") + players=0 + For i=0 To characternumber + If Characters(i)\taken + players+1 + EndIf + Next + SendNetworkString(ClientID,"PN#"+Str(players)+"#"+Str(characternumber)+"#%") + EndIf + + Case "askchaa" ;what is left to load + *usagePointer\cconnect=1 + SendNetworkString(ClientID,"SI#"+Str(characternumber)+"#"+Str(EviNumber)+"#"+Str(tracks)+"#%") + send=0 + + Case "askchar2" ; character list + SendNetworkString(ClientID,ReadyChar(0)) + + Case "AN" ; character list + start=Val(StringField(rawreceive$,3,"#")) + If start*100 + SendNetworkString(ClientID,ReadyEvidence(0)) + ElseIf tracks>0 + SendNetworkString(ClientID,ReadyMusic(0)) + Else ;MUSIC DONE + CreateThread(@SendDone(),ClientID) + EndIf + + + Case "AE" ; evidence list + Debug Evidences(0)\name + sentevi=Val(StringField(rawreceive$,3,"#")) + send=0 + If sentevi0 + SendNetworkString(ClientID,ReadyMusic(0)) + Else ;MUSIC DONE + CreateThread(@SendDone(),ClientID) + EndIf + + Case "AM" ;music list + start=Val(StringField(rawreceive$,3,"#")) + send=0 + + If start<=musicpage + SendNetworkString(ClientID,ReadyMusic(start)) + Else ;MUSIC DONE + CreateThread(@SendDone(),ClientID) + EndIf + + Case "CC" + send=0 + Debug rawreceive$ + char=Val(StringField(rawreceive$,4,"#")) + If Characters(char)\taken=0 Or *usagePointer\CID=char + SendNetworkString(ClientID,"PV#"+StringField(rawreceive$,3,"#")+"#CID#"+Str(char)+"#%") + If *usagePointer\CID>=0 + Characters(*usagePointer\CID)\taken=0 + EndIf + *usagePointer\CID=Val(StringField(rawreceive$,4,"#")) + Characters(*usagePointer\CID)\taken=1 + WriteLog("chose character: "+Characters(char)\name,*usagePointer\perm,*usagePointer\IP) + SendNetworkString(ClientID,"HP#1#"+defbar$+"#%") + SendNetworkString(ClientID,"HP#2#"+probar$+"#%") + If MOTDevi + SendNetworkString(ClientID,"MS#chat#dolannormal#Dolan#dolannormal# #jud#1#0#"+Str(characternumber-1)+"#0#0#"+Str(MOTDevi)+"#"+Str(characternumber-1)+"#0#"+Str(modcol)+"#%") + EndIf + EndIf + rf=1 + + ; + + Case "HP" + If *usagePointer\CID>=0 And Val(StringField(rawreceive$,4,"#"))>=0 And Val(StringField(rawreceive$,4,"#"))<=10 + CompilerIf #EASYLOG + AddGadgetItem(#Listview_2,-1,Characters(*usagePointer\CID)\name+" set bar "+StringField(rawreceive$,3,"#")+" to "+StringField(rawreceive$,4,"#")) + SetGadgetItemData(#Listview_2,CountGadgetItems(#Listview_2)-1,ClientID) + CompilerEndIf + WriteLog("["+Characters(*usagePointer\CID)\name+"] changed the bars",*usagePointer\perm,*usagePointer\IP) + If StringField(rawreceive$,3,"#")="1" + defbar$=StringField(rawreceive$,4,"#") + reply$="HP#1#"+defbar$+"#%" + ElseIf StringField(rawreceive$,3,"#")="2" + probar$=StringField(rawreceive$,4,"#") + reply$="HP#2#"+probar$+"#%" + EndIf + + EndIf + + Case "RT" + If rt=1 + Sendtarget("*",*usagePointer\room,"RT#"+Right(rawreceive$,length-6)) + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] WT/CE button",*usagePointer\perm,*usagePointer\IP) + CompilerIf #EASYLOG + AddGadgetItem(#Listview_2,-1,Characters(*usagePointer\CID)\name+" pressed WT%CE button") + SetGadgetItemData(#Listview_2,CountGadgetItems(#Listview_2)-1,ClientID) + CompilerEndIf + Else + *usagePointer\hack=1 + EndIf + + Case "MS" + CompilerIf #EASYLOG + AddGadgetItem(#Listview_2,-1,StringField(rawreceive$,5,"#")+": "+StringField(rawreceive$,7,"#")) + SetGadgetItemData(#Listview_2,CountGadgetItems(#Listview_2)-1,*usagePointer\ClientID) + CompilerEndIf + + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"]["+StringField(rawreceive$,7,"#")+"]",*usagePointer\perm,*usagePointer\IP) + Else + *usagePointer\hack=1 + EndIf + + ;If modcol And StringField(rawreceive$,17,"#")=Str(modcol) And Not *usagePointer\perm + ; Sendtarget("*",*usagePointer\room,"MS#"+ReplaceString(Right(rawreceive$,length-6),Str(modcol)+"#%","0#%") ) + ;Else + If TryLockMutex(Rooms(*usagePointer\room)\wait) + UnlockMutex(Rooms(*usagePointer\room)\wait) + wttime=Len(Trim(StringField(rawreceive$,7,"#")))*40 + If wttime>=10000 + wttime=9999 + EndIf + waitins$=Str(*usagePointer\room)+Str(wttime) + CreateThread(@MSWait(),@waitins$) + ;reply$="MS#"+Right(rawreceive$,length-6) + ; #MS#chat#normal#Phoenix#thinking#I panic easily#def#1#0#0#1#0#0#0#0#0#% + msreply$="MS#" + For i=3 To 17 + mss$=StringField(rawreceive$,i,"#") + If i=17 And mss$=Str(modcol) And Not *usagePointer\perm + msreply$=msreply$+"0#" + ElseIf i=5 And blockini And mss$<>Characters(*usagePointer\CID)\name + msreply$=msreply$+Characters(*usagePointer\CID)\name+"#" + ElseIf i=7 And *usagePointer\gimp + If ListSize(gimp()) + SelectElement(gimp(),Random(ListSize(gimp()))) + msreply$=msreply$+gimp()+"#" + Else + msreply$=msreply$+"<3"+"#" + EndIf + Else + msreply$=msreply$+mss$+"#" + EndIf + Next + msreply$=msreply$+"%" + Sendtarget("*",*usagePointer\room,msreply$) + WriteReplay(rawreceive$) + + EndIf + ;EndIf + send=0 + ; CompilerEndIf + + Case "MC" + music=0 + Debug Right(rawreceive$,length-6) + ForEach Music() + If StringField(rawreceive$,3,"#")=Music() + music=1 + Break + EndIf + Next + + If Not (music=0 Or *usagePointer\CID=-1 Or *usagePointer\CID <> Val(StringField(rawreceive$,4,"#"))) + If Left(StringField(rawreceive$,3,"#"),1)=">" + Rooms(*usagePointer\room)\bg=Right(StringField(rawreceive$,3,"#"),Len(StringField(rawreceive$,3,"#"))-1) + Sendtarget("*",*usagePointer\room,"BN#"+Right(rawreceive$,length-7)) + + Else + If *usagePointer\ignoremc=0 + If Characters(*usagePointer\CID)\dj + Sendtarget("*",*usagePointer\room,"MC#"+Right(rawreceive$,length-6)) + WriteReplay(rawreceive$) + EndIf + EndIf + EndIf + WriteLog("["+Characters(*usagePointer\CID)\name+"] changed music to "+StringField(rawreceive$,3,"#"),*usagePointer\perm,*usagePointer\IP) + CompilerIf #EASYLOG + AddGadgetItem(#Listview_2,-1,Characters(*usagePointer\CID)\name+" changed music to "+StringField(rawreceive$,3,"#")) + SetGadgetItemData(#Listview_2,CountGadgetItems(#Listview_2)-1,ClientID) + CompilerEndIf + Else + *usagePointer\hack=1 + WriteLog("[HACKER] tried changing music to "+StringField(rawreceive$,3,"#"),*usagePointer\perm,*usagePointer\IP) + EndIf + ;------- ooc commands + Case "CT" + send=0 + *usagePointer\last.s="" + ctparam$=StringField(rawreceive$,4,"#") + If *usagePointer\CID>=0 + WriteLog("[OOC]["+Characters(*usagePointer\CID)\name+"]["+StringField(rawreceive$,3,"#")+"]["+ctparam$+"]",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[OOC][HACKER]["+StringField(rawreceive$,3,"#")+"]["+ctparam$+"]",*usagePointer\perm,*usagePointer\IP) + *usagePointer\hack=1 + EndIf + + Debug ctparam$ + If Left(ctparam$,1)="/" + Select StringField(ctparam$,1," ") + Case "/login" + If oppass$=Mid(ctparam$,8,Len(ctparam$)-2) + If oppass$<>"" + SendNetworkString(ClientID,LoginReply$) + *usagePointer\perm=1 + EndIf + ElseIf adminpass$=Mid(ctparam$,8,Len(ctparam$)-2) + If adminpass$<>"" + SendNetworkString(ClientID,LoginReply$) + *usagePointer\perm=2 + EndIf + EndIf + send=0 + + Case "/bg" + If *usagePointer\perm + bgcomm$=Mid(ctparam$,5,Len(ctparam$)-2) + Rooms(*usagePointer\room)\bg=bgcomm$ + Sendtarget("*",*usagePointer\room,"BN#"+bgcomm$+"#%") + EndIf + + Case "/ooc" + If *usagePointer\perm + CompilerIf #CONSOLE=0 + ooccather$=Mid(ctparam$,6,Len(ctparam$)-2) + sendo$="IL#" + SendNetworkString(ClientID,"FI#clients using the name "+ooccather$+"#%") + items=CountGadgetItems(#ListIcon_2) + LockMutex(ListMutex) + For o=0 To 100 + If GetGadgetItemText(#ListIcon_2,items-o,0)=ooccather$ + clid$=Str(GetGadgetItemData(#ListIcon_2,items-o)) + If FindMapElement(Clients(),clid$) + If Clients(clid$)\CID<=100 And Clients(clid$)\CID>=0 + If Clients(clid$)\perm + charname$=Characters(Clients(clid$)\CID)\name+"(mod)" + Else + charname$=Characters(Clients(clid$)\CID)\name + EndIf + Else + charname$="nobody" + EndIf + sendo$=sendo$+Clients(clid$)\IP+"|"+charname$+"|"+GetGadgetItemText(#ListIcon_2,items-o,1)+"|*" + EndIf + EndIf + Next + UnlockMutex(ListMutex) + sendo$=sendo$+"#%" + SendNetworkString(ClientID,sendo$) + CompilerElse + SendNetworkString(ClientID,"FI#needs gui, sorry#%") + CompilerEndIf + EndIf + + Case "/judge" + If *usagePointer\perm + CompilerIf #CONSOLE=0 + sendo$="IL#" + SendNetworkString(ClientID,"FI#clients that used WTCE#%") + items=CountGadgetItems(#Listview_2) + LockMutex(ListMutex) + For o=0 To 100 + If FindString(GetGadgetItemText(#ListView_2,items-o,0)," pressed WT%CE button") + clid$=Str(GetGadgetItemData(#ListView_2,items-o)) + If FindMapElement(Clients(),clid$) + If Clients(clid$)\CID<=100 And Clients(clid$)\CID>=0 + If Clients(clid$)\perm + charname$=Characters(Clients(clid$)\CID)\name+"(mod)" + Else + charname$=Characters(Clients(clid$)\CID)\name + EndIf + Else + charname$="nobody" + EndIf + sendo$=sendo$+Clients(clid$)\IP+"|"+charname$+"|"+Str(Clients(clid$)\CID)+"|*" + EndIf + EndIf + Next + UnlockMutex(ListMutex) + sendo$=sendo$+"#%" + SendNetworkString(ClientID,sendo$) + CompilerElse + SendNetworkString(ClientID,"FI#needs gui, sorry#%") + CompilerEndIf + EndIf + + Case "/room" + nroom=Val(StringField(ctparam$,2," ")) + If nroom<=roomc And nroom>=0 + If Not Rooms(nroom)\lock Or *usagePointer\perm>Rooms(nroom)\mlock + If Rooms(*usagePointer\room)\lock=ClientID + Rooms(*usagePointer\room)\lock=0 + Rooms(*usagePointer\room)\mlock=0 + EndIf + *usagePointer\room=nroom + SendNetworkString(ClientID,"BN#"+Rooms(*usagePointer\room)\bg+"#%") + SendNetworkString(ClientID,"FI#room "+Str(*usagePointer\room)+" selected%") + Else + SendNetworkString(ClientID,"FI#room locked%") + EndIf + ElseIf StringField(ctparam$,2," ")="" + SendNetworkString(ClientID,"FI#you are in room "+*usagePointer\room+"%") + Else + SendNetworkString(ClientID,"FI#not a valid room%") + EndIf + + Case "/lock" + If *usagePointer\room + locks$=StringField(ctparam$,2," ") + Select locks$ + Case "0" + Rooms(*usagePointer\room)\lock=0 + Rooms(*usagePointer\room)\mlock=0 + SendNetworkString(ClientID,"FI#room unlocked%") + Case "1" + Rooms(*usagePointer\room)\lock=*usagePointer\ClientID + Rooms(*usagePointer\room)\mlock=0 + SendNetworkString(ClientID,"FI#room locked%") + Case "2" + If *usagePointer\perm + Rooms(*usagePointer\room)\lock=*usagePointer\ClientID + Rooms(*usagePointer\room)\mlock=1 + SendNetworkString(ClientID,"FI#room superlocked%") + EndIf + Default + pr$="FI#room is " + If Rooms(*usagePointer\room)\lock=0 + pr$+"not " + EndIf + SendNetworkString(ClientID,pr$+"locked%") + EndSelect + Else + SendNetworkString(ClientID,"FI#you can't lock the default room%") + EndIf + + Case "/toggle" + If *usagePointer\perm + Select StringField(ctparam$,2," ") + Case "WTCE" + rt= ~ rt + pr$="FI#WTCE is " + If rt=1 + pr$+"enabled%" + Else + pr$+"disabled%" + EndIf + SendNetworkString(ClientID,pr$) + Case "LogHD" + loghd = ~ loghd + EndSelect + EndIf + + Case "/switch" + Characters(*usagePointer\cid)\taken=0 + *usagePointer\cid=-1 + SendNetworkString(ClientID,"DONE#%") + + Case "/smokeweed" + reply$="CT#sD#daaamn i'm high#%" + WriteLog("smoke weed everyday",*usagePointer\perm,*usagePointer\IP) + + Case "/public" + Debug ctparam$ + If StringField(ctparam$,2," ")="" + pr$="FI#server is " + If public=0 + pr$+"not " + EndIf + SendNetworkString(ClientID,pr$+"public%") + Else + If *usagePointer\perm>1 + public=Val(StringField(ctparam$,2," ")) + If public + msthread=CreateThread(@Masteradvert(),port) + EndIf + CompilerIf #CONSOLE=0 + SetGadgetState(#CheckBox_MS,public) + CompilerEndIf + EndIf + EndIf + + Case "/evi" + ; Mid(ctparam$,7,Len(ctparam$)-2) + SendNetworkString(ClientID,"MS#chat#dolannormal#Dolan#dolannormal#"+StringField(ctparam$,2," ")+"#jud#1#0#"+Str(characternumber-1)+"#0#0#"+StringField(ctparam$,2," ")+"#"+Str(characternumber-1)+"#0#"+Str(modcol)+"#%") + + Case "/roll" + smes$="" + smes$=ctparam$ + Debug smes$ + If smes$<>"/roll" + dicemax=Val(StringField(smes$,2," ")) + Else + dicemax=6 + EndIf + If dicemax<0 Or dicemax>9999 + dicemax=6 + EndIf + If OpenCryptRandom() + random$=Str(CryptRandom(dicemax)) + CloseCryptRandom() + Else + random$=Str(Random(dicemax)) + EndIf + + Sendtarget("*",*usagePointer\room,"FI#dice rolled "+random$+"%") + + Case "/pm" + sname$=StringField(rawreceive$,3,"#") + Debug sname$ + smes$=ctparam$ + Debug smes$ + SendTarget(StringField(smes$,2," "),-1,"CT#PM "+sname$+" to You#"+Mid(smes$,6+Len(StringField(smes$,2," ")))+"#%") + SendNetworkString(ClientID,"CT#PM You to "+StringField(smes$,2," ")+"#"+Mid(smes$,6+Len(StringField(smes$,2," ")))+"#%") + + Case "/send" + If *usagePointer\perm + sname$=StringField(ctparam$,2," ") + Debug sname$ + smes$=Mid(ctparam$,8+Len(sname$),Len(ctparam$)-6) + smes$=Escape(smes$) + SendTarget(sname$,-1,smes$) + EndIf + + Case "/sendall" + If *usagePointer\perm + reply$=Mid(ctparam$,10,Len(ctparam$)-2) + reply$=Escape(reply$) + EndIf + + Case "/reload" + If *usagePointer\perm>1 + LoadSettings(1) + SendNetworkString(ClientID,"FI#serverD reloaded%") + EndIf + + Case "/play" + If *usagePointer\perm + + If IsNumeric(Trim(Right(ctparam$,2))) + mcid$=Trim(Right(ctparam$,2)) + song$=Mid(ctparam$,7,Len(ctparam$)-8) + Else + mcid$=Str(*usagePointer\CID) + song$=Right(ctparam$,Len(ctparam$)-6) + EndIf + + reply$="MC#"+song$+"#"+mcid$+"#%" + + EndIf + + Case "/hd" + If *usagePointer\perm And *usagePointer\CID>=0 + kick$=Mid(ctparam$,5,Len(ctparam$)-2) + If kick$="" Or kick$="*" + everybody=1 + Else + everybody=0 + EndIf + hdlist$="IL#" + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If kick$=Str(Clients()\CID) Or kick$=Clients()\HD Or kick$=Clients()\IP Or everybody + hdlist$=hdlist$+Clients()\IP+"|"+Str(Clients()\CID)+"|"+Clients()\HD+"|*" + EndIf + Wend + UnlockMutex(ListMutex) + SendNetworkString(ClientID,hdlist$+"#%") + WriteLog("["+Characters(*usagePointer\CID)\name+"] used /hd",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used /hd",*usagePointer\perm,*usagePointer\IP) + EndIf + + Case "/ip" + If *usagePointer\perm And *usagePointer\CID>=0 + CreateThread(@ListIP(),ClientID) + WriteLog("["+Characters(*usagePointer\CID)\name+"] used /ip",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used /ip",*usagePointer\perm,*usagePointer\IP) + EndIf + + Case "/kick" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,7,Len(ctparam$)-2),#KICK,*usagePointer\perm) + SendNetworkString(ClientID,"FI#kicked "+Str(akck)+" clients%") + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + EndIf + Case "/ban" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,6,Len(ctparam$)-2),#BAN,*usagePointer\perm) + SendNetworkString(ClientID,"FI#banned "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/mute" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,7,Len(ctparam$)-2),#MUTE,*usagePointer\perm) + SendNetworkString(ClientID,"FI#muted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/unmute" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,9,Len(ctparam$)-2),#UNMUTE,*usagePointer\perm) + SendNetworkString(ClientID,"FI#unmuted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/ignore" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,9,Len(ctparam$)-2),#CIGNORE,*usagePointer\perm) + SendNetworkString(ClientID,"FI#muted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/unignore" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,11,Len(ctparam$)-2),#UNIGNORE,*usagePointer\perm) + SendNetworkString(ClientID,"FI#unmuted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/undj" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,7,Len(ctparam$)-2),#UNDJ,*usagePointer\perm) + SendNetworkString(ClientID,"FI#muted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/dj" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,5,Len(ctparam$)-2),#DJ,*usagePointer\perm) + SendNetworkString(ClientID,"FI#unmuted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/gimp" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,7,Len(ctparam$)-2),#GIMP,*usagePointer\perm) + SendNetworkString(ClientID,"FI#gimped "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + Case "/ungimp" + If *usagePointer\perm + akck=KickBan(Mid(ctparam$,9,Len(ctparam$)-2),#UNGIMP,*usagePointer\perm) + SendNetworkString(ClientID,"FI#ungimped "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+ctparam$,*usagePointer\perm,*usagePointer\IP) + EndIf + EndSelect + Else + CompilerIf #CONSOLE=0 + AddGadgetItem(#ListIcon_2,-1,StringField(rawreceive$,3,"#")+Chr(10)+ctparam$) + SetGadgetItemData(#ListIcon_2,CountGadgetItems(#ListIcon_2)-1,ClientID) + CompilerEndIf + *usagePointer\last.s=rawreceive$ + reply$="CT#"+Right(rawreceive$,length-6) + EndIf + + Case "CA" + If *usagePointer\CID>=0 And *usagePointer\perm + CreateThread(@ListIP(),ClientID) + WriteLog("["+Characters(*usagePointer\CID)\name+"] used /ip",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used /ip",*usagePointer\perm,*usagePointer\IP) + *usagePointer\hack=1 + EndIf + + Case "opKICK" + If *usagePointer\perm + akck=KickBan(StringField(rawreceive$,3,"#"),#KICK,*usagePointer\perm) + SendNetworkString(ClientID,"FI#kicked "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used opKICK",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+StringField(rawreceive$,4,"#"),*usagePointer\perm,*usagePointer\IP) + EndIf + Case "opBAN" + If *usagePointer\perm + akck=KickBan(StringField(rawreceive$,3,"#"),#BAN,*usagePointer\perm) + SendNetworkString(ClientID,"FI#banned "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used opBAN",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+StringField(rawreceive$,4,"#"),*usagePointer\perm,*usagePointer\IP) + EndIf + Case "opMUTE" + If *usagePointer\perm + akck=KickBan(StringField(rawreceive$,3,"#"),#MUTE,*usagePointer\perm) + SendNetworkString(ClientID,"FI#muted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used opMUTE",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+StringField(rawreceive$,4,"#"),*usagePointer\perm,*usagePointer\IP) + EndIf + Case "opunMUTE" + If *usagePointer\perm + akck=KickBan(StringField(rawreceive$,3,"#"),#UNMUTE,*usagePointer\perm) + SendNetworkString(ClientID,"FI#unmuted "+Str(akck)+" clients%") + EndIf + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] used opunMUTE",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[HACKER] used "+StringField(rawreceive$,4,"#"),*usagePointer\perm,*usagePointer\IP) + EndIf + Case "VERSION" + SendNetworkString(ClientID,"FI#sD v"+Str(#PB_Editor_CompileCount)+"."+Str(#PB_Editor_BuildCount)+"%") + + Case "ZZ" + If *usagePointer\CID>=0 + WriteLog("["+Characters(*usagePointer\CID)\name+"] called mod",*usagePointer\perm,*usagePointer\IP) + Else + WriteLog("[someone] called mod",*usagePointer\perm,*usagePointer\IP) + EndIf + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\perm + SendNetworkString(Clients()\ClientID,"ZZ#"+*usagePointer\IP+"#%") + SendNetworkString(Clients()\ClientID,"FI#"+*usagePointer\IP+" called%") + Else + SendNetworkString(Clients()\ClientID,"ZZ#someone#%") + EndIf + Wend + UnlockMutex(ListMutex) + EndSelect + + If reply$<>"" + areply$=reply$ + CreateThread(@SendToAll(),@areply$) + reply$="" + EndIf + EndIf + EndIf + EndIf + send=1 + + Case #PB_NetworkEvent_Disconnect + FindMapElement(Clients(),Str(ClientID)) + If Clients()\CID>=0 + Characters(Clients()\CID)\taken=0 + EndIf + If Rooms(Clients()\room)\lock=ClientID + Rooms(Clients()\room)\lock=0 + Rooms(Clients()\room)\mlock=0 + EndIf + ip$=Clients()\IP + dcperm=Clients()\perm + DeleteMapElement(Clients(),Str(ClientID)) + rf=1 + WriteLog("CLIENT DISCONNECTED",dcperm,ip$) + + Default + Delay(1) + + EndSelect + CompilerIf #CONSOLE=0 + If rf + CreateThread(@RefreshList(),0) + rf=0 + EndIf + CompilerEndIf + Until Quit = 1 + + + + + CompilerIf #CONSOLE=0 + EndProcedure + + + Procedure Splash(ponly) + If OpenWindow(2,#PB_Ignore,#PB_Ignore,420,263,"serverD",#PB_Window_BorderLess|#PB_Window_ScreenCentered) + + UsePNGImageDecoder() + CatchImage(3,?dend) + ImageGadget(0,0,0,420,263,ImageID(3)) + CatchImage(0,?green) + Icons(0)=ImageID(0) + CatchImage(1,?mod) + Icons(1)=ImageID(1) + CatchImage(2,?hacker) + Icons(2)=ImageID(2) + + If ReceiveHTTPFile("http://weedlan.de/serverd/serverd.txt","serverd.txt") + OpenPreferences("serverd.txt") + PreferenceGroup("Version") + newbuild=ReadPreferenceInteger("Build",#PB_Editor_BuildCount) + If newbuild>#PB_Editor_BuildCount + update=1 + EndIf + ClosePreferences() + EndIf + Delay(500) + CloseWindow(2) + EndIf + EndProcedure + ;------------------------------------------------ PROGRAM START + + + + start: + CompilerIf #PB_Compiler_Debugger + If 1 + CompilerElse + + If ErrorLine() + + + Quit=1 + lpublic=public + public=0 + OpenFile(5,"crash.txt") + WriteStringN(5,"it crashed at source line offset "+Str(ErrorAddress())) + CloseFile(5) + LoadSettings(0) + Delay(500) + public=lpublic + Quit=0 + If nthread + nthread=CreateThread(@Network(),0) + EndIf + Else + CompilerEndIf + Splash(0) + + Open_Window_0() + + + LoadSettings(0) + oldCLient.Client + *clickedClient.Client + + decryptor$="33" + key=2 + + parameter$=ProgramParameter() + If parameter$="-auto" + If CreateNetworkServer(0, port,#PB_Network_TCP) + CompilerIf #CONSOLE=0 + SetWindowColor(0, RGB(255,255,0)) + SetGadgetText(#Button_2,"RELOAD") + CompilerEndIf + nthread=CreateThread(@Network(),0) + If public And msthread=0 + msthread=CreateThread(@Masteradvert(),port) + EndIf + Else + MessageRequester("serverD","SERVER CREATION FAILED - PORT IN USE?") + EndIf + EndIf + + + + EndIf + ;;;;;;;;;;;;;;;;;;;; EVENT LOOP ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + Repeat ; Start of the event loop + Event = WaitWindowEvent() ; This line waits until an event is received from Windows + WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures + GadgetID = EventGadget() ; Is it a gadget event? + EventType = EventType() ; The event type + If Event = #PB_Event_Gadget + + + llv=lvstate + lvstate=GetGadgetState(#Listview_0) + If lvstate <> -1 And lvstate<>llv + cldata = GetGadgetItemData(#Listview_0,lvstate) + If cldata + ;Debug "someones selected, let's find out who" + LockMutex(ListMutex) + + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\ClientID = cldata + *clickedClient.Client = @Clients() + EndIf + Wend + UnlockMutex(ListMutex) + EndIf + + ;If GadgetID = #Button_0 + ; SendNetworkString(*clickedClient\ServerID,GetGadgetText(#String_2)) + ;ElseIf GadgetID = #Button_11 + ; SendNetworkString(GetGadgetItemData(#Listview_0,GetGadgetState(#Listview_0)),GetGadgetText(#String_2)) + + If GadgetID = #Button_kk ;KICK + SendNetworkString(GetGadgetItemData(#Listview_0,GetGadgetState(#Listview_0)),"KK#"+Str(*clickedClient\CID)+"#%") + Delay(10) + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\ClientID=*clickedClient\ClientID + If Clients()\CID>=0 + Characters(Clients()\CID)\taken=0 + EndIf + CloseNetworkConnection(Clients()\ClientID) + DeleteMapElement(Clients()) + EndIf + Wend + UnlockMutex(ListMutex) + rf=1 + + CompilerIf #EASYLOG=0 + ElseIf GadgetID = #Listview_0 + SetGadgetText(#Listview_2,*clickedClient\Log) + CompilerEndIf + + ElseIf GadgetID = #Button_sw ;SWITCH + SendNetworkString(GetGadgetItemData(#Listview_0,GetGadgetState(#Listview_0)),"DONE#%") + + ElseIf GadgetID = #Button_mu ;MUTE + SendNetworkString(GetGadgetItemData(#Listview_0,GetGadgetState(#Listview_0)),"MU#"+Str(*clickedClient\CID)+"#%") + + ElseIf GadgetID = #Button_um ;UNMUTE + SendNetworkString(GetGadgetItemData(#Listview_0,GetGadgetState(#Listview_0)),"UM#"+Str(*clickedClient\CID)+"#%") + + ElseIf GadgetID = #Button_kb ;BAN + AddElement(IPbans()) + IPbans()=*clickedClient\IP + OpenFile(2,"base/banlist.txt") + FileSeek(2,Lof(2)) + WriteStringN(2,*clickedClient\IP) + CloseFile(2) + SendNetworkString(GetGadgetItemData(#Listview_0,GetGadgetState(#Listview_0)),"KB#"+Str(*clickedClient\CID)+"#%") + Delay(10) + If *clickedClient\CID>=0 + Characters(*clickedClient\CID)\taken=0 + EndIf + CloseNetworkConnection(*clickedClient\ClientID) + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\ClientID=*clickedClient\ClientID + DeleteMapElement(Clients()) + EndIf + Wend + UnlockMutex(ListMutex) + rf=1 + + ElseIf GadgetID = #Button_hd ;HDBAN + AddElement(HDbans()) + HDbans()=*clickedClient\HD + OpenFile(2,"base/HDbanlist.txt") + FileSeek(2,Lof(2)) + WriteStringN(2,*clickedClient\HD) + CloseFile(2) + SendNetworkString(GetGadgetItemData(#Listview_0,GetGadgetState(#Listview_0)),"KB#"+Str(*clickedClient\CID)+"#%") + Delay(10) + If *clickedClient\CID>=0 + Characters(*clickedClient\CID)\taken=0 + EndIf + CloseNetworkConnection(*clickedClient\ClientID) + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\ClientID=*clickedClient\ClientID + DeleteMapElement(Clients()) + EndIf + Wend + UnlockMutex(ListMutex) + rf=1 + + ElseIf GadgetID = #Button_dc ;DISCONNECT + If *clickedClient\CID>=0 + Characters(*clickedClient\CID)\taken=0 + EndIf + CloseNetworkConnection(*clickedClient\ClientID) + LockMutex(ListMutex) + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\ClientID=*clickedClient\ClientID + DeleteMapElement(Clients()) + EndIf + Wend + UnlockMutex(ListMutex) + rf=1 + + ElseIf GadgetID = #Button_ig ;IGNORE + *clickedClient\ignore.b=1 + + ElseIf GadgetID = #Button_si ; STOP IGNORING ME + *clickedClient\ignore.b=0 + + ElseIf GadgetID = #Button_ndj ;IGNORE + *clickedClient\ignoremc.b=1 + + ElseIf GadgetID = #Button_dj ; STOP IGNORING ME + *clickedClient\ignoremc.b=0 + + EndIf + + EndIf + + If GadgetID = #ListIcon_2 + ooclient=GetGadgetItemData(#ListIcon_2,GetGadgetState(#ListIcon_2)) + If ooclient + rf=1 + LockMutex(ListMutex) + + o=0 + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\ClientID = ooclient + SetGadgetState(#Listview_0,o) + Break + EndIf + o+1 + Wend + UnlockMutex(ListMutex) + EndIf + + ElseIf GadgetID = #Listview_2 + CompilerIf #EASYLOG + msclient=GetGadgetItemData(#Listview_2,GetGadgetState(#Listview_2)) + If msclient + rf=1 + LockMutex(ListMutex) + + b=0 + ResetMap(Clients()) + While NextMapElement(Clients()) + If Clients()\ClientID = msclient + SetGadgetState(#Listview_0,b) + EndIf + b+1 + Wend + UnlockMutex(ListMutex) + EndIf + CompilerEndIf + ElseIf GadgetID = #CheckBox_MS + public=GetGadgetState(#CheckBox_MS) + Debug public + If public + msthread=CreateThread(@Masteradvert(),port) + EndIf + + ElseIf GadgetID = #Button_2 ;START + If nthread + LoadSettings(1) + Else + If CreateNetworkServer(0, port,#PB_Network_TCP) + SetWindowColor(0, RGB(0,128,0)) + SetGadgetText(#Button_2,"RELOAD") + nthread=CreateThread(@Network(),0) + If public And msthread=0 + msthread=CreateThread(@Masteradvert(),port) + EndIf + Else + MessageRequester("serverD","SERVER CREATION FAILED - PORT IN USE?") + EndIf + EndIf + + ElseIf GadgetID = #Button_4 ;CONFIG + CreateThread(@ConfigWindow(),0) + + ElseIf GadgetID = #String_5 ;CONFIG + port=Val(GetGadgetText(#String_5)) + + ElseIf GadgetID = 1337 + MessageRequester("serverD","This is serverD version "+Str(#PB_Editor_CompileCount)+"."+Str(#PB_Editor_BuildCount)+Chr(10)+"(c) stonedDiscord 2014") + + EndIf + ElseIf Event = #PB_Event_SizeWindow + + ResizeGadget(#Frame3D_0,0,0,WindowWidth(0)/2.517,WindowHeight(0)) + ResizeGadget(#ListView_0,70,40,WindowWidth(0)/2.517-70,WindowHeight(0)-40) + ResizeGadget(#Button_2,WindowWidth(0)/6.08,15,WindowWidth(0)/8.111,22) + ResizeGadget(#String_5,WindowWidth(0)/3.476,15,WindowWidth(0)/10.42,22) + ResizeGadget(#Frame3D_4,WindowWidth(0)/2.517,0,WindowWidth(0)/3.173,WindowHeight(0)) + ResizeGadget(#Listview_2, WindowWidth(0)/1.7, 30, WindowWidth(0)-WindowWidth(0)/1.7, WindowHeight(0)-90) + ResizeGadget(#Listview_2,WindowWidth(0)/2.517,20,WindowWidth(0)/3.173,WindowHeight(0)-20) + ResizeGadget(#Frame3D_5,WindowWidth(0)/1.4,0,WindowWidth(0)/3.476,WindowHeight(0)) + ResizeGadget(#ListIcon_2,WindowWidth(0)/1.4,20,WindowWidth(0)/3.476,WindowHeight(0)-20) + + EndIf + + Until Event = #PB_Event_CloseWindow ; End of the event loop + + Quit=1 + + OpenPreferences("base/settings.ini") + PreferenceGroup("net") + WritePreferenceInteger("port",port) + WritePreferenceInteger("public",public) + ClosePreferences() + + End + + DataSection + green: + IncludeBinary "green.png" + mod: + IncludeBinary "mod.png" + hacker: + IncludeBinary "hacker.png" + dend: + IncludeBinary "serverd.png" + bannerend: + EndDataSection + + CompilerEndIf +; IDE Options = PureBasic 5.11 (Windows - x86) +; CursorPosition = 2053 +; FirstLine = 1996 +; Folding = ---- +; EnableXP +; EnableCompileCount = 0 +; EnableBuildCount = 0 \ No newline at end of file diff --git a/mod.png b/mod.png new file mode 100644 index 0000000000000000000000000000000000000000..446405b00c7190b21a345b57774790804b7d5ca9 GIT binary patch literal 180 zcmeAS@N?(olHy`uVBq!ia0vp^0wB!60wlNoGJgf6n3BBRT^Rni_n+Ah4nJ za0`PlBg3pY5H=O_Io`10$L{8T^n72Lav@Jjv*T7r}laBF(~jbML+((zejv^ zY?77?r?KM`Wr01vFJ64SMq8e3t)g`Rd#__N^X`XsG3}2vn=P6ArFuf*&$6u85Lx+z VPvVW@hBlyq44$rjF6*2UngFFDGOV9cffp zbVF}#ZDnqB0000007G(RVRU6=Aa`kWXdp*PO;BVmWd{HNAOJ~3K~#9!-Cc=xsyY;9 zlp%mo6xu6o|Nk#vW&$K3A*lGm^0v0ODr|Q4nQ{`GjySH@Z|mcFN+UGFC=es6L0zE( z^nDL}2YHRm?QhWgv+v+|pwaik@82-=J!C)Y#puw%{;k7cHVz5W>4vZWx5eXny)clZ zbINKu@HMD`-+?Y9H2z-t3Z&qaNW`;4=w7 z0i;uUwPO>*XnIZsx<(A7n%&u8@wL|ceD?bS_WIv186;yg;}IZCA|Mfr$WMoUGR|?J z8b<|*amh3YM)x!&5Xtu*WK6;{l`oSJ(uI8O*EvP*kdaAZ^cW)o5=Mz}sT&ZB=rMF> zb{-2ZosNpq>9WqF3;KW2;=YUVRjTR&cK(WluDtV$aLnLbkq}Bh2&5m55rFl`q%I1y z<8;_@zvy&`aEP%;acYGi60H511bQnDY4u3rk;Ej9Q;(U1nH8!zbaaqT7X_CvHfRv8 zDG{O|G25=5>CfH|6PE}^H9CaVfNeJn(hs)b7?+5x&?RbYJ^`fDWz;32KNy``dP>_g zPjis#PO0Ly9RzzY2|DQ!oF9Tk7>^$e5}xk}lQ3>SLlWYi{f0CMfZbsr-&j_S*Iby{B=Zr()r+|bsCuO7MR~R#-hy(M8FiJ(;N!Pz%8iKxpT<6>1|A$6| z?sM`WS0A~_bcnC`XNq^7USoD}lrTmJr4obGAx1HjrWk!7lQ2f;C=h=jsK>De5xz$3 z%t^EeUtRn?`FSi5z}F}W*RPN9eP-V;w1u)LWC$UQIy~K-N0ed?<7aA8ijB9N`-T-e zlC9VCl|#a7S21U|c+F?SF)cp!W*LIk9)9Jv%* z%y&LlGH1HJJ5Jaan(-*w?VewII2}n*lqH_W(5T2U83G~7p+6ZVh7&_dFp6U)TNIvC zQXWwoY)70@%p*W~G#*Ep!zM>kBd!$asM#?=siOzykpvRs5=TjmlZ2Ar^~5$T!YLp) z?SxTFXS&Jg`z;&^-MJA?9*YrkdyO3BnRu%ljS&@wOph5vSTw10O;Og+R823v`r4T^3Um z!YKxEEZ^bsB`k?OO;BJ+Fg)A`{X>E&Vc@x=QzgX?4dh)XzSbR6jvD#vdCsl9bgMm| zQf`vC0^?A}9?mvFSd>W9&j^dUBz9IcKgz(KJINfey5}_FyurtS4n2S7=ul)j8JUq+ z61RMrl#?62qPfUc*n1n$LVw$)fcvfzhsc1sIZZ#e;oGn*Yhr!X=Wb*p!2GI;^n5ei3F7 z%h$mfM15bl8)%qG+M_7Wp_9!$MUwIo+jD1TeKQ;4JhdQ%{k^d6XlzKJA}ob?dS}o% z`}_Ml^Rn;oeNT%Dc+?n2FwxwX2f2um8gWXw76C95qH!edeh}snd6d%EaU@}|>A+|a zUeX6S&d3U%4JaW+IrS%yk}xvc;Ed-1$#-TRo)Sh0{`;y}h0Yku#}DL3A&Vl?a4Mxf zQHozB=QADbd#*+O_;o`>s4$JvC&VQ4k$y*XujZ%~LIH(GOZA7M^uyxdqbIA6InW2I z8}P8gvC98LgW<&TqP%7XDHXFRW@;s#gS_PkDdssgV)sjluc7Wyl%XF+OO6sNrR3bA z{F0&$IAF(6!aO1@GGR2qiB}I~+x=OL%s)CvZ2_$?5C{GqaS9(YRw?m;bNusy{lB`` zj&N5dl|HfBgyBqHryLP0rn9Py6vnC4MZrT&enJ{!8C$m1v%x5J45fdF)vz8TqqX1_ z(W^6`4KZSg$d)RkXkd@cAcfBR?Hb6nIN3H;LUtXfdOYE= z$G?AlS5+ms{sqsc&guu{NmEM1n{4BbV94>%*P|!^Y6zx20lbSX-`QiJyKJpnMaZ(ahAB$@u)>|#!Qkc z9IWbv78TZ+yMafqq#mRn39k-WrV6IWXsH;r(N0$CQ4w#(D4xCEDw8Oem@`Boet$IM zXJglCnY6)cN^^RB2?}2`fWBrAI(l?ecrL848Wosl6TPY!hXitaGRecTGq6*Q7{RF$ z^(aY+m{cZiJPHD3y|p7uIaB|C&SMxc>%I_b=c+1*jE$VCwlOKx`$%3MQlZnNV#*|0 zm&S-K0ZFzRGD&sB%ClUdlFXQ7iZk#> z66ja|WKJjnNtb-b*G${c_xq_w;9)iBcx2>~oc)LsnMqbW3hRE8@94QsSjZT0PRo9g;E2fthsvp-eKzRHZlV`aUqPrL%`As`u0-Z;-;L5UEt!bP67g zh!w%4mKA|?W*FJr=0VAUT>M5~WyYb@dklZ-qnMPAxMliVVDeBt-*C?)P*(o#P>tOf#-(N9vT zQW97*X^L4)l50OsOtNQF#<(>fy9;V&NblyWhyh`{r`6&~d6zl#tlT7|m0VjC?2m^G&(SfE#=E7*NU1CwmMCb8_}9O}QQDeDikz543c`)PlIB(*Ormy!deB;HIJLR9X_7;-DXY)i zfA*U3ejKt$OTAbP{bdLw*L+o}i8&OQNXj+vgh_>@Nx{5Eh(+tjCF_26V3MWRl!@w9 z*>7_7m;U+iXgx)7Lm)Lf)P$RfOX5N%CM9e=7OiRP7n-#3VdXV3HW8fqzo*&YS|4WB z>cDoxSK~6@g{8`dRQa(orx=s8{Z_@|A3FQ&!z6n))g%T1C{905vB9x@u(hxOgXA{f z>0=LiD`k~QJQv$fD!2VK$*m4ztn9A3&XrF;iH%*XuK!+7Mr8yfr+i3K>f(20w6ML| zW8x<%auxBo+Me25Uwbjhp$>wrogltbRVnN3^eZ#A=X(N6kQzVxZk@PmOe)5{6|8%l z#3b1d()mZ`-&SSWVb#BG50LaRHJic)VmF|Xcxuwxy7o0D4V~0pq!L-VT{Ow5 z4kBaS8qjB`*b0}b`htFep~A2}cKynS83QTXQqMZmB}0-Pr)Eo5hY~1sYr3!-iVXLD zOtQ_~BA60hRV3CRVcQR3Mb=aNQ~FY0rdpK5)Uv_if;S8#2m3Bmv&c+bQh29l(zJgC zWNV3w&f8C#JuEES(e5dc%fF7~^Z08agN^}}%tb%1AX*6lx7lB`y zeVOD?NttEiyhrE0qN;d52exhV4h-E6`mR|M>-N$v}q zvSzw&ww|r;<9$`=2z7}#L%#+qkYWK+>|ooK$~n?693xmkhsjR)o-6MZlD?g4O_~vj?8-R6P1Qm> z#~@^l$}%ytRkH_KpRSzm3iF6vB&h0wy8)=dSur_h^J@EpU5PiE_$bo5DQSNA*(6N zGSwB_fk=F|YbtD0dJ$>0k^)CqcVkotXOzf}WqbQcUi~1<-EmH*Tv<9(gORCWTAGj_zjcw5sBnF$n90xh|0gTPLXz7}a(iBlK?t0QuCMzQpJ4dVk434tQ67}Uh(s~lk^B9Q;D4kd#CkDo1gCoQl{`I^*&N; zJ=;CTxJDhWM!(hTajkqZ4U}xB2i7^ zbtvZ94)U1GYcy$JX_EImEcO18%{mGRBjz(VbakCYW#6{Gu6j-CGy(9JGHE|HS;Ws= znxEjx)ki6!xFlO#Y_ja^+EJ=CDO~hHA0wESeH?as>}!R`+O~Q1}t78Jtw4+w6s#h)SqlAJxmwXTQR_A)FiQ7#axqAJ9Gd^llqry(jL;3MzbiIN|$Wz?1Ev$ z^oZQHY=4YMmAW$It*rL@R%%i_7?}j$#w5=<&&JrYxn^}eV-hbdP}vUVS_<1TBg&+i z)iB>Ls_Vh~{G{o_2c=N5!Z)pvCG*TU8jg{Ef4aoDACoOcIH5FQl5)c+cn~J}v5B8& z>~UvDvud*1xMNdN`qm^VH7OanE6;XgeFuD>Ci!Yp#LqJ+H}nx=_wYiG=KFCjd8G5p ztT76cX>DY$Qly!2_g*G>ut}h_*-0vvdeljkZ*Vf<#pd9K{c4PvCaHJF8{-XC-A(dI ze(RGwe!mr^h{=+wjx@2sNSf)CJ90)Ab$0Y&U7buie2#vSZht&*FeYv0lR#rkTJ2-3*#gD`2^9%vC`Q&c*Z+r{#(kN_(7wI%yw%d%vOxyLR{iiIZi>i6aG2C_D( zhwt^1wytfO=4lB^@l2OiF@ocI4bU6L93@2_sVp5D@RI#`7?X7LB^Ac9Bpr!KJ}8m6 zn&@-4GX2DSul8E2M&jO1Y}VxlPMX9p(r>B@$2BFeKa?hIRHigyI7xk1OLHknQa2*b z08KO^K1{q=nY+*>>)9?8ObQJc&Ap_9F=-2%QqCpGmoW!}MCVaNqpt5J{?Sw)aBitf zR^#AK-EKmvNp-K#BfeI)5bKB;NN>m|tvq+6Yx&Zk%e;Dn?Y3xJ`2~O%l?SIiVCr^1N@# zO%z63!GcSR{@^aQ9c7X-gJdAmA(`Z^Op(b37uS# zB}o)V$V#r^E)>!$liP@p#V}wdnKVg7q=Pfb)zV8d7LhCJy5E0veYPE=f<~Imn$(G& z2teZfku`~riwl`lcjBI7+jeGj$Jl|)b|y^{M5^RT-~*V1S7SKr9G%e)MVw2Wr9Wi* z7545snni_Z7Bt|YeSHWfwGI8j{iMZSx4A2qs%LQt(p=DS{}Nf4-~fzMzP zIxczcz@=&I>y6W1F|!y2lcqKuBw5IL9_f=biJN@sExp-tsd}a^abqtwL=2JFCIA{n z9`&+qH*j<&yJ0S)iyy-zaL2NzpYG`qY&;EWt9}_~(hucNJ?oJ zACuZxyo1%Er{DPR@)LiMCUG`h)6*(UId}(^OtlhJe@F~O=FzgJv#R{>hCa=EvL_bM>Abb3_ic-OK3A~+15_9xSf`&-rCo+jD zlhsB*)l+?1JA|syI)D{n60Zd!*0)6z`13T0Dbppjw(#DG(5yc*V-ghKTa8a;61E@A z%9Qe20q{nI_-;{Ld$=am%9=Yflis>MY3uK4U)I%)&)#B%4-kTx55$?&^}Vsi;q#ev zao|!Se2~|Zs8IAarx*=GH@LoBaJ`EA^8=LV-pbFu?3X@O zfZU%=Hs7x)Q>AUAs?soN@B9*Eu{pl3s9x;-RQGdDa(Vq=F_T|3`t|PaI z62H4CY9R6#YLd*NrfC2^6jWkN>b;o6roBV*30ZbRl^0yPD##QG|K#ZqNjs<^bZ+># z-2ecRk2KXJZ;&ufx68r&r|ZZgG~X?C>HC(=>%NleMNFDd24Qr&-;h0nP=Yfm?W0MP zY41>cx}+_=Gb^^Tf59b0rg6?o36tcE($oASDCdI!Y;HGZb>3P4>Pg?aUWy30`$-y{ z7)l55kuXNHEKIiee~3&u#VNzyQ}UA7-Q-hM1S9r&?)SUcJC|q0cV^N_@^asA*W1z(SSwXOisYzA^UALOj&xp}VG6DqUi$nyw9EQj{(7 zNo#(-%kR5hUMEg6t<7=NM75jr#AiEFGBy zUt-nO^+WOb?`=Dw(r$i|ZoJRdLrj9~o+bBN!MW6AnR*pQlv9wZC)y2T?KXZinp%t& z2)%-%CUwsO3FGt@-|2cyxsL?NIZ9HH-IROWX4IE`rX z_;g8us7EDv8&Wq-X8I~qSb2E1!^R!0uQvN3v>Jg8d;bNBy(I9CnvJP`eT;}hh5q>Z zNg6XEzrH+=bZS|2MIi?irODqAyCJfYq(u!JwB?boysPSF`26?wCcXC15B*a$>22N< z%Oh3N6_ouGgiYEY&)FBJ=zgZ9_9+c7VtVdVrTyJuK|f!d)Jp~ zQp+q^I9B7x_0t7rldMSTNTk}@$&o7&EcK{b`bJB~O^V^c*JzR~Pp{LYJD7MpcwG>$ z0VQ@*7D;T%vIsZPmAs^7zNVAD7F?@EF+S zeuk4(JsD;b8Q4b(qj`TGjp}oxp}Xx}>Aj=rachM3)lZ7u*?3RS)+FWC)}O!8Pg1h!az)1uzLE`-Y|DB)vgs4c&g~rT$O>QS z*6 z_Th$eKp-~oN-C>mK;kY1Cq&E3Zh)Fri%|aKyrl&pYX?>imFV$>K>&P;F zKXCp!)wbDyt|~)3s%wY(zGwSM2CLlJPr9c$*w%ptD!2mcMc*G_DM|RRHu`(_mSkul ztowsANy5p=y1US>4DM@g`!E$|Pr$-T@Lr$=Y{9=XW`= z`X8{-vV&TYf|jZTIg=in8zYhV4lC0qfW*}4dbM4Zd%57W`05&orN03uz4p6FE|v+&Se*{T29-MeTSfik&-QdBbD~W}}`olny zqI-9JZTaPv<_X*q!&d0c{55PHrGfpwbG^*-7SZ=gS4tpm`5pC>~m-3XFyu- z294{Crt3Ad`6|(?!KVjv+t-9k@YsHmiBA$nk{)3n2`+Z$a)=1k7E0p~1NX^`-2rW7 z{FzJ=e46E-kZQ5Dm~cZs2I>#NHO;b`MMdp|Pt{Y)dxm^4NZjK4=4W-m&9=biRM6TV zI%I1H*}C)SAxn0w_-v3wd=JlkSd3DPQ8BZkZSzTxtx(eaURSZN{QtGLpG4Ozl09F* zYX0izAf4_MCjybr{(R8PB)94z5#{q)Z*^^3x;EcgO0AAeik5v-Wx{c2@y#^V+QjnW}KUkL-u|Nehg^q}XBC7TpWL4SUfFCf$5$ z2ru^yHuxby!Wh+Jk0FmDELQ(LtF;?hy%**}m z{npDeyP-|*UQD`ECV`Iyi6mf~`n+SOx*xt*&b0r@_5wc8-n~4fJM)x26(poa5fFL= zoc*HtSN4GO9bF6P{(2&Q0rI=o3Xyvb>PerZ&+?NHMsf9&UCZTOLI7?w7zLAB?>(R# z&DP*}7*$W`%Gq(8Alz&#@^!hO^;>I2J*CeCDZ)itPvOyCbmYzz@LK`w9&-qegHe#M zo@T7*+ z5dGrdtfTDbO?PP&M7)RGL3uRDO!AE0eWWJQBI0W73D@^-^>r`!+V^AJVh<*XTJ%rx zlX4#Ru8zv1p01c-OuBjXrMR~@$Bv@GL5MVV<@ShqKX-^uhJKnvdhWa3jlm(ThUnOK z-7KK)r%B(ONgo9g@{o`ku{~OhJlb>rBlq76O#-bSlWx4rIkbHL;0Tjl;jnV`{caNT zlQ#D|7rR${5R-`YJzv{!M36+C9-8hvJIXd622wsNuNw}Ek<^9UFLw7$I#4^Acfk>? z2DxYI(fp%veG*?I1%P*NX4d=8w(nl>c0~$yDhzt|5cyr0`}Oa;-foSXD7_mbR$*u3 zH*{~d8>)TsNg^&(d=5yFg@-h(Jb$fm2itF7QEFaJ#bCvnn%bPQiA49sY)2bPNx?N9zN^TD?Q;Gb0uf ze{a5$G_I_$XVTb1>N>LORY)b1{gOG40IjGWet&=ee%Zhn;bRb%-*TT=0H1B!Ra-l- zE_SYPSy>Ut{n!Mj2%}!XDFEt4KUCa;{%=HwjK5#PBf=%gMz2)+Ek84E$80;#{h{u6 zx4kz4WnVVJD2mgQtvdi1bNI@>{#P}I-v?vT@*W2hO9M`7jrNV(p?}Z2>|%3Iftx0& zdY;Z1^*ko!W3^q4=C{9J%^27)TV7A9l92b)++{~7zLTT}lVpuzwuCUp_BQYGobTs? zXEVW@B}iP6mi@ZvT3AWbcJ-5>Si?>%%iBIoqV?dw)=x6o^R$+4WE4C0LkijaAP4!t zZMWZFJ(H*=t>sOtCsZkO&8&zb?Xq|7-MmSmHIwF6-}NGmz2-oKQW`~EZyrXB9(s(J zx>u9l#d{6evu?h3VG^ri1s6cKf{2-P{4R%qLmr zLv)(OklJihAe36}18uSG)c5^vHaL`gq?=d0-BgoWU~k?9d)ya(NTn%QV-nXai%ZWf zy?r3+pcKh%uHU;IY)xjjn^BzJRoIg=EY z1?kOc&7^dNN!+%R%~q3NAv=nGe$p7T^IVm*+|3=(+^nykv^ifQ@H*XWpi1+WY0{vz z8_4f#+YShDCo0u5BJFmKn4?s^gGqBuc+1H&Q0=_+2MuA;DfAlGGOk z*iU!g&l}f?kEH~N#@ci4Ck;kPa?2gT-8`gfUqK?)-Q|6nv~B~=5h5AksJCI#FzK}g z6unKl6@1**CrPn&(CmFRgeKX1zQE7kciTTmMAtb+#BOiX92hl;$L$uW*cX+oPW5P) z>%lWhM`MyQxQc&-X_O{zbMN!RQBS7YDtc!S}uu|5@& zKCu;f#FXG`faY<%v0p?-R;`U)8bF)3_h+B)o!1+7AL1u5`|hExb6{Gv(qj$>BfuF* zYXGSwv2OFh3I7m>y!w9I`bnS3B%w+gCRw~j1LVOvQDUU%8XCAj2QvFmT9@J5Ki@HS z2R=%Zu9Qj&QCg9t*=X4SEvTKx8QgBKIor=<5}EH*@w>sEN#d0*_fwk-E>+4kP>P>5 zw-=r*-?0K(Gs$s%%~O7lT_sh_foRh2!{zmH#;Q$wU|er2)~~ab;Qxl3;L+31|9byS zCgBgRu