Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1.     Dim DD(1 To 10) As String => {"About 'FBP-TGS'", "Kontakt", "News", "Games", "Chat", "Fun-TXT", "MSG-Box", "-! DON'T PUSH !-", "Login", "[ QUIT ]"}
    
  2.     Dim TCMax As Uinteger
    
  3.     Dim TCOffset As Uinteger
    
  4.     
    
  5.     TGS_CLS(V_Client)
    
  6.     
    
  7.     TCMax = .V_ValWindow_Height - 6
    
  8.     If .V_Scroll1 + 1 >= (TCMax \ 2) Then TCOffset = .V_Scroll1 - (TCMax \ 2) + 2
    
  9.     For X As Uinteger = 1 To 10
    
  10.         If 6 + X * 2 >= .V_ValWindow_Height Then Exit For
    
  11.         If X + TCOffset > 10 Then Exit For
    
  12.         If X + TCOffset = .V_Scroll1 + 1 Then
    
  13.             TGS_Line(V_Client, 2, 4 + X * 2, 20, 4 + X * 2, TGS_Green)
    
  14.             TGS_DrawString(V_Client, 20 - Len(DD(X + TCOffset)), 4 + X * 2, DD(X + TCOffset), TGS_White, TGS_Bold)
    
  15.         Else: TGS_DrawString(V_Client, 20 - Len(DD(X + TCOffset)), 4 + X * 2, DD(X + TCOffset), TGS_White, TGS_Bold)
    
  16.         End If
    
  17.     Next
    
  18.     
    
  19.     If .V_Scroll2 >= .V_Scroll2Max Then .V_Scroll2 = .V_Scroll2Max
    
  20.     TGS_DrawString(V_Client, 27, 7 - .V_Scroll2, "|SoKoBaNet", TGS_White, TGS_Underline)
    
  21.     TGS_Put(V_Client, 25, 8 - .V_Scroll2, timg)
    
  22.     
    
  23.     Dim TLP As Uinteger = TGS_DrawStringArea(V_Client, 27 + 42, 7 - .V_Scroll2, .V_ValWindow_Width - 3, 29 - .V_Scroll2, 0, .V_Scroll2Text, TGS_White)
    
  24.     TGS_DrawStringArea(V_Client, 24, 30 - .V_Scroll2, .V_ValWindow_Width - 3, .V_ValWindow_Height - 3, TLP, .V_Scroll2Text, TGS_White)
    
  25.     
    
  26.     .V_Scroll2Max = 200
    
  27.     
    
  28.     TGS_Line(V_Client, 0, 0, .V_ValWindow_Width - 1, 4, TGS_Black, TGS_Box Or TGS_Filled)
    
  29.     TGS_DrawString(V_Client, 3, 2, " FreeBASIC Portal TelnetGameServer ", TGS_White, TGS_Bold Or TGS_Underline)
    
  30.     TGS_Line(V_Client, 0, 0, .V_ValWindow_Width - 1, .V_ValWindow_Height - 1, TGS_Blue, TGS_Box)
    
  31.     If .V_Frame = 0 Then
    
  32.         TGS_Line(V_Client, 22, 4, .V_ValWindow_Width - 1, .V_ValWindow_Height - 1, TGS_Blue, TGS_Box)
    
  33.         TGS_Line(V_Client, 0, 4, 22, .V_ValWindow_Height - 1, TGS_Green, TGS_Box)
    
  34.     Else
    
  35.         TGS_Line(V_Client, 0, 4, 22, .V_ValWindow_Height - 1, TGS_Blue, TGS_Box)
    
  36.         TGS_Line(V_Client, 22, 4, .V_ValWindow_Width - 1, .V_ValWindow_Height - 1, TGS_Green, TGS_Box)
    
  37.     End If