[CLIENT-SNIPPET]Scrollable Memobox With Multiple Pages & Backgrounds

[!]

Credits: Elite Killerz | Estate City Server for give me an idea.

Features
>Syncronised with scroll bar.
>Multiple pages which allow us to write many words.
>Everything is done in clientside.
>Different background pictures.

Installation
1.Copy and paste everything from replaceable snippte in correct place in Svr_Dir/store/script/main.nut file.
2.Copy & paste everything from copy & pasteable snippet at the beginning of Svr_Dir/store/script/main.nut file.
3.Create a file in Svr_Dir/store/script/ with name messages.nut or simply copy and paste the messages.nut file from this topic to script directory.

Pictures
Link
[spoiler=Pics]



[/spoiler]

Downloadable Stuff
1.Sample file for messages.nut


2.Sample Pictures(copy and paste them in Svr_Dir/store/sprites)


Snippets
[spoiler=Replaceable-Snippet]
Replace every thing in the correct place in Svr_Dir/store/script/main.nut file
[noae][noae][noae]

Code Select Expand

/* <?php */
keyBIND_F1 <- KeyBind( 0x70 );
COLOR_BLUE   <- Colour( 0, 0, 255 );

function Script::ScriptLoad( )
{
dofile( "messages.nut" );  //This is the file from which we are going to read memobox data.
}

function GUI::ScrollbarScroll( scrollbar, position, change )
{
GUI_ServerLogs.ScrollbarScroll( scrollbar, position );
}

function GUI::ElementClick(element, mousex, mousey)
{
GUI_ServerLogs.ElementClick( element );
}

function KeyBind::OnDown( keyBind )
{
if ( keyBind == keyBIND_F1 ) GUI_ServerLogs.Decide( );
}

function GUI::ElementRelease(element, mouseX, mouseY)
{
GUI_ServerLogs.ElementRelease( element );
}

function GUI::GameResize( width, height )
{
GUI_ServerLogs.GameResize( );
}
[/noae][/noae][/noae]
[/spoiler]

[spoiler=Copy&Pasteable-Snippet]
Copy & paste this snippet at the beginning of Svr_Dir/store/script/main.nut file
[noae][noae][noae]

Code Select Expand

/* <?php */
GUI_ServerLogs <- {
LogsW = null,   //Logs Window (leve it as it is)
LogsB = null,   //Logs Board (leve it as it is)
LogsS = null,   //Logs Scroll (leve it as it is)
LogsE = null,   //Logs Exit (leve it as it is)
LogsN = null,   //Logs Next (leve it as it is)
LogsP = null,   //Logs Previous (leve it as it is)
PageID = 1,   //Current Page (leve it as it is)

MaxPages = 3,   //Max NO. Of Pages (set it according to your need)
Pics = 3,   //Background Pictures (set it according to your need)

ShowGUI = 0,   //Showing GUI  (leve it as it is)

function Create( )
{
//Credits: EK.IceFlake for sample script + idea
local cScreenSize = GUI.GetScreenSize();
local Pic_No = rand()%Pics;

//Set the bellow pics names starting with car_...
if ( Pic_No == 0 ) LogsW = ::GUISprite( "car_1.jpg", VectorScreen( 0, 0 ) );
if ( Pic_No == 1 ) LogsW = ::GUISprite( "car_2.jpg", VectorScreen( 0, 0 ) );
if ( Pic_No == 2 ) LogsW = ::GUISprite( "car_3.jpg", VectorScreen( 0, 0 ) );

LogsW.Size = cScreenSize;
LogsB = ::GUIMemobox( VectorScreen( 32, 32 ), VectorScreen( cScreenSize.X - 80, cScreenSize.Y - 64 ), Colour( 255, 255, 255, 128 ), GUI_FLAG_TEXT_TAGS );
LogsB.HistorySize = 255;
LogsS = ::GUIScrollbar( VectorScreen( cScreenSize.X - 48, 32 ), VectorScreen( 16, cScreenSize.Y - 64 ) );
LogsE = ::GUILabel(VectorScreen( cScreenSize.X - 28, cScreenSize.Y / 2 - 10 ), Colour( 179, 0, 0 ), "Exit" );
DecidePage( );
LogsE.TextAlignment = GUI_ALIGN_LEFT;
LogsE.FontName = "Corbel";
LogsE.FontSize = 13;
LogsE.AddFlags( GUI_FLAG_MOUSECTRL );
::GUI.SetMouseEnabled( );
}

function DecidePageButtons( )
{
if ( ShowGUI == 0 ) return;

if ( ( LogsS.BarPosition != 0 && LogsP != null ) || ( LogsS.BarPosition != 1 && LogsN != null ) ) RemovePageButtons( );

if ( LogsS.BarPosition != 0 && LogsS.BarPosition != 1 ) return;

if ( LogsS.BarPosition == 0 && LogsP == null && PageID != 1 )
{
RemovePageButtons( );
local cScreenSize = GUI.GetScreenSize();
LogsP = GUIButton( VectorScreen( cScreenSize.X - 130, 7 ), VectorScreen( 85, 20 ), Colour( 140, 140, 140 ), "Previous Page", ( GUI_FFLAG_BOLD | GUI_FFLAG_ULINE ) );
LogsP.TextColour  = COLOR_BLUE;
return;
}

if ( LogsS.BarPosition == 1 && LogsN == null && PageID != MaxPages )
{
RemovePageButtons( );
local cScreenSize = GUI.GetScreenSize();
LogsN = GUIButton( VectorScreen( cScreenSize.X - 130, cScreenSize.Y - 27 ), VectorScreen( 65, 20 ), Colour( 140, 140, 140 ), "Next Page", ( GUI_FFLAG_BOLD | GUI_FFLAG_ULINE ) );
LogsN.Alpha = 200;
LogsN.TextColour  = COLOR_BLUE;
return;
}
}

function ScrollbarScroll( scrollbar, position )
{
if ( !ShowGUI ) return;

switch( scrollbar )
{
case LogsS:
GUI_ServerLogs.DecidePageButtons( );
GUI_ServerLogs.LogsB.DisplayPos = 1 - position;
break;
}
}

function ElementClick( element )
{
if ( !ShowGUI ) return;

switch( element )
{
case LogsE:
Close( );
break;
}
}

function ElementRelease( element )
{
if ( !ShowGUI ) return;

switch( element )
{
case LogsN:
PageID++;
DecidePage( );
break;
case LogsP:
PageID--;
DecidePage( );
break;
}
}

function GameResize( )
{
if ( !ShowGUI ) return;

Close( );
}

function RemovePageButtons( )
{
if ( !ShowGUI ) return;

if ( LogsN != null ) LogsN = null;
if ( LogsP != null ) LogsP = null;
}

function DecidePage( )
{
if ( !ShowGUI ) return;

local NPageID = PageID + 1;
RemovePageButtons( );
LogsB.Clear();
LogsB.AddLine( "", Colour( 64, 64, 64 ) );
LogsB.AddLine( "Grand Theft Auto Asian City ChangeLogs Page: "+PageID, Colour( 150, 0, 50 ) );
if ( PageID == 1 ) foreach ( lr in ::split( SvrLogs3, "\n" ) ) LogsB.AddLine( lr, Colour( 64, 64, 64 ) );
else if ( PageID == 2 ) foreach ( lr in ::split( SvrLogs2, "\n" ) ) LogsB.AddLine( lr, Colour( 64, 64, 64 ) );
else if ( PageID == 3 ) foreach ( lr in ::split( SvrLogs1, "\n" ) ) LogsB.AddLine( lr, Colour( 64, 64, 64 ) );

if ( PageID == MaxPages ) LogsB.AddLine( "End of server changelogs.", Colour( 150, 0, 50 ) );
else LogsB.AddLine( "Click on next page button for page: "+NPageID, Colour( 150, 0, 50 ) );

LogsS.BarPosition = 0;
LogsB.DisplayPos = 1;
}

function Close( )
{
if ( !ShowGUI ) return;

LogsW = null;
LogsB = null;
LogsS = null;
LogsE = null;
LogsN = null;
LogsP = null;
::GUI.SetMouseEnabled(false);

ShowGUI = 0;
}

function Show( )
{
if ( ShowGUI ) return;
ShowGUI = 1;
Create( );
}

function Decide( )
{
if ( ShowGUI ) Close( );
else Show( );
}
}
[/noae][/noae][/noae]
[/spoiler]

Note:
Press F1 key to open and close the memobox.

[spoiler=Sample_Store_File]

[/spoiler]

[MatheuS]

Wow! Good work dude.

[=RK=MarineForce]

Nice job cool very

[SAzEe21]

Wow! Good work dude.

[KrOoB_]

bro where is the link

[!]

bro where is the link

Fixed
PS: You don't need linked files just copy and paste the snippets in their correct locations and do correct configuration for img names and news etc.

[KrOoB_]

bro i try but not worked your code , sprites & message.nut everything right loc

serv.dir/store/script/main.nut
[noae][noae]

Code Select Expand

GUI_ServerLogs <- {
 LogsW = null,   //Logs Window (leve it as it is)
 LogsB = null,   //Logs Board (leve it as it is)
 LogsS = null,   //Logs Scroll (leve it as it is)
 LogsE = null,   //Logs Exit (leve it as it is)
 LogsN = null,   //Logs Next (leve it as it is)
 LogsP = null,   //Logs Previous (leve it as it is)
 PageID = 1,   //Current Page (leve it as it is)
 
 MaxPages = 3,   //Max NO. Of Pages (set it according to your need)
 Pics = 3,   //Background Pictures (set it according to your need)
 
 ShowGUI = 0,   //Showing GUI  (leve it as it is)
 
function Create( )
 {
 //Credits: EK.IceFlake for sample script + idea
 local cScreenSize = GUI.GetScreenSize();
 local Pic_No = rand()%Pics;
 
 //Set the bellow pics names starting with car_...
 if ( Pic_No == 0 ) LogsW = ::GUISprite( "car_1.jpg", VectorScreen( 0, 0 ) );
 if ( Pic_No == 1 ) LogsW = ::GUISprite( "car_2.jpg", VectorScreen( 0, 0 ) );
 if ( Pic_No == 2 ) LogsW = ::GUISprite( "car_3.jpg", VectorScreen( 0, 0 ) );
 
 LogsW.Size = cScreenSize;
 LogsB = ::GUIMemobox( VectorScreen( 32, 32 ), VectorScreen( cScreenSize.X - 80, cScreenSize.Y - 64 ), Colour( 255, 255, 255, 128 ), GUI_FLAG_TEXT_TAGS );
 LogsB.HistorySize = 255;
 LogsS = ::GUIScrollbar( VectorScreen( cScreenSize.X - 48, 32 ), VectorScreen( 16, cScreenSize.Y - 64 ) );
 LogsE = ::GUILabel(VectorScreen( cScreenSize.X - 28, cScreenSize.Y / 2 - 10 ), Colour( 179, 0, 0 ), "Exit" );
 DecidePage( );
 LogsE.TextAlignment = GUI_ALIGN_LEFT;
 LogsE.FontName = "Corbel";
 LogsE.FontSize = 13;
 LogsE.AddFlags( GUI_FLAG_MOUSECTRL );
 ::GUI.SetMouseEnabled( );
 }

function DecidePageButtons( )
 {
 if ( ShowGUI == 0 ) return;
 
 if ( ( LogsS.BarPosition != 0 && LogsP != null ) || ( LogsS.BarPosition != 1 && LogsN != null ) ) RemovePageButtons( );
 
 if ( LogsS.BarPosition != 0 && LogsS.BarPosition != 1 ) return;
 
 if ( LogsS.BarPosition == 0 && LogsP == null && PageID != 1 )
  {
  RemovePageButtons( );
  local cScreenSize = GUI.GetScreenSize();
  LogsP = GUIButton( VectorScreen( cScreenSize.X - 130, 7 ), VectorScreen( 85, 20 ), Colour( 140, 140, 140 ), "Previous Page", ( GUI_FFLAG_BOLD | GUI_FFLAG_ULINE ) );
  LogsP.TextColour  = COLOR_BLUE;
  return;
  }
 
 if ( LogsS.BarPosition == 1 && LogsN == null && PageID != MaxPages )
  {
  RemovePageButtons( );
  local cScreenSize = GUI.GetScreenSize();
  LogsN = GUIButton( VectorScreen( cScreenSize.X - 130, cScreenSize.Y - 27 ), VectorScreen( 65, 20 ), Colour( 140, 140, 140 ), "Next Page", ( GUI_FFLAG_BOLD | GUI_FFLAG_ULINE ) );
  LogsN.Alpha = 200;
  LogsN.TextColour  = COLOR_BLUE;
  return;
  }
 }

function ScrollbarScroll( scrollbar, position )
 {
 if ( !ShowGUI ) return;
 
 switch( scrollbar )
  {
  case LogsS:
   GUI_ServerLogs.DecidePageButtons( );
   GUI_ServerLogs.LogsB.DisplayPos = 1 - position;
  break;
  }
 }

function ElementClick( element )
 {
 if ( !ShowGUI ) return;
 
 switch( element )
  {
  case LogsE:
   Close( );
  break;
  }
 }

function ElementRelease( element )
 {
 if ( !ShowGUI ) return;
 
 switch( element )
  {
  case LogsN:
   PageID++;
   DecidePage( );
  break;
  case LogsP:
   PageID--;
   DecidePage( );
  break;
  }
 }

function GameResize( )
 {
 if ( !ShowGUI ) return;
 
 Close( );
 }
 
function RemovePageButtons( )
 {
 if ( !ShowGUI ) return;
 
 if ( LogsN != null ) LogsN = null;
 if ( LogsP != null ) LogsP = null;
 }

function DecidePage( )
 {
 if ( !ShowGUI ) return;
 
 local NPageID = PageID + 1;
 RemovePageButtons( );
 LogsB.Clear();
 LogsB.AddLine( "", Colour( 64, 64, 64 ) );
 LogsB.AddLine( "Grand Theft Auto Asian City ChangeLogs Page: "+PageID, Colour( 150, 0, 50 ) );
 if ( PageID == 1 ) foreach ( lr in ::split( SvrLogs3, "\n" ) ) LogsB.AddLine( lr, Colour( 64, 64, 64 ) );
 else if ( PageID == 2 ) foreach ( lr in ::split( SvrLogs2, "\n" ) ) LogsB.AddLine( lr, Colour( 64, 64, 64 ) );
 else if ( PageID == 3 ) foreach ( lr in ::split( SvrLogs1, "\n" ) ) LogsB.AddLine( lr, Colour( 64, 64, 64 ) );
 
 if ( PageID == MaxPages ) LogsB.AddLine( "End of server changelogs.", Colour( 150, 0, 50 ) );
 else LogsB.AddLine( "Click on next page button for page: "+NPageID, Colour( 150, 0, 50 ) );
 
 LogsS.BarPosition = 0;
 LogsB.DisplayPos = 1;
 }

function Close( )
 {
 if ( !ShowGUI ) return;
 
 LogsW = null;
 LogsB = null;
 LogsS = null;
 LogsE = null;
 LogsN = null;
 LogsP = null;
 ::GUI.SetMouseEnabled(false);
 
 ShowGUI = 0;
 }

function Show( )
 {
 if ( ShowGUI ) return;
 ShowGUI = 1;
 Create( );
 }

function Decide( )
 {
 if ( ShowGUI ) Close( );
 else Show( );
 }
}

function Script::ScriptLoad( )
{
keyBIND_F1 <- KeyBind( 0x70 );
dofile( "messages.nut" );  //This is the file from which we are going to read memobox data.
}

function GUI::ScrollbarScroll( scrollbar, position, change )
{
GUI_ServerLogs.ScrollbarScroll( scrollbar, position );
}

function GUI::ElementClick(element, mousex, mousey)
{
GUI_ServerLogs.ElementClick( element );
}

function KeyBind::OnDown( keyBind )
{
if ( keyBind == keyBIND_F1 ) GUI_ServerLogs.Decide( );
}

function GUI::ElementRelease(element, mouseX, mouseY)
{
GUI_ServerLogs.ElementRelease( element );
}

function GUI::GameResize( width, height )
{
GUI_ServerLogs.GameResize( );
}[/noae][/noae]

[!]

bro i try but not worked your code , sprites & message.nut everything right loc

Take these two lines out of your Script::ScriptLoad( ) to the top.

Code Select Expand

keyBIND_F1 <- KeyBind( 0x70 );
COLOR_BLUE   <- Colour( 0, 0, 255 );

Here's the sample file.

[spoiler=Sample_Store_File]

[/spoiler]