Core Function SSConnect - Revision history

UberFoX: /* Example */

2015-06-15T06:13:31Z

Example

UberFoX: /* Example */

2015-06-15T06:05:47Z

Example

← Older revision		Revision as of 06:05, 15 June 2015
Line 42:		Line 42:

	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
		+	// Load the old GUI system
		+	// Since this an old GUI example
		+	use('SputnikOldGUI.dll', true);
		+
	// Create a new GUI		// Create a new GUI
	Global $GUI = GUICreate("Window", "GUI", 640, 480);		Global $GUI = GUICreate("Window", "GUI", 640, 480);
Line 53:		Line 57:
	// Add a few links		// Add a few links
	GUILink($obj_RealSend, "Click", 'Send();');		GUILink($obj_RealSend, "Click", 'Send();');
−	GUILink($obj_CMD, "KeyPress", 'KeyPress();');	+	GUILink($obj_CMD, "KeyPress", 'KeyPress($arg);');

	// Allow the user to enter a name to use on the server		// Allow the user to enter a name to use on the server
Line 59:		Line 63:

	// Join Server		// Join Server
−	Global $Client = SSConnect("81.~~102~~.~~115~~.~~125~~", ~~5500~~, $Name);	+	Global $Client = SSConnect("127.0.0.1", 5570, $Name);

	// Loop while GUI is active		// Loop while GUI is active
Line 77:		Line 81:
	case @ssDisconnected: // We have been disconnected from the server		case @ssDisconnected: // We have been disconnected from the server
	{		{
−	$fread = SSRead($Client);	+	$fread = SSRead($Client, "p");
	AddText("Disconnected from server reason: $fread");		AddText("Disconnected from server reason: $fread");
	}		}
Line 100:		Line 104:
	case @ssConnectionRejected: // Our connection has been rejected on the server		case @ssConnectionRejected: // Our connection has been rejected on the server
	{		{
−	$fread = SSRead($Client); // Read the reason why we was rejected	+	$fread = SSRead($Client, "p"); // Read the reason why we was rejected
	AddText("Server rejected our connection reason: $fread"); // Add it to display		AddText("Server rejected our connection reason: $fread"); // Add it to display
	}		}
Line 107:		Line 111:
	{		{
	$dCode = SSRead($Client, "i"); // Read the Int32 "i" code of the message		$dCode = SSRead($Client, "i"); // Read the Int32 "i" code of the message
		+	say "got msg id $dCode";
	switch ($dCode)		switch ($dCode)
	{		{
Line 112:		Line 117:
	{		{
	$Text = SSRead($Client, "p"); // Read the string "p" from the message		$Text = SSRead($Client, "p"); // Read the string "p" from the message
		+	say "got msg txt $Text";
	AddText($Text); // Add it to the display		AddText($Text); // Add it to the display
	}		}
Line 123:		Line 129:

	// When a key is presed on chat send box		// When a key is presed on chat send box
−	Function KeyPress()	+	Function KeyPress($arg)
	{		{
	if($arg == @LF \|\| $arg == @CR) // Make sure its a valid enter key		if($arg == @LF \|\| $arg == @CR) // Make sure its a valid enter key
Line 142:		Line 148:
	$Text = GUIGetProp($obj_CMD, "Text"); // Read current text to send		$Text = GUIGetProp($obj_CMD, "Text"); // Read current text to send
	GUISetProp($obj_CMD, "Text", ""); // Clear the send box		GUISetProp($obj_CMD, "Text", ""); // Clear the send box
−	$sBuf = ~~SSSendBufferCreate~~($Client); // Create a new buffer to send a message with	+	$sBuf = SSBufferNew($Client); // Create a new buffer to send a message with
−	~~SSSendBufferAppend~~($sBuf, "i", 1); // Add the code using an Int32 ~~"i"~~	+	SSBufferPut($sBuf, "i", 1); // Add the code using an Int32
−	~~SSSendBufferAppend~~($sBuf, "p", $Text); // Add the string ~~"p"~~ to send	+	SSBufferPut($sBuf, "p", $Text); // Add the string to send
	SSSend($Client, $sBuf); // Send the message to the server		SSSend($Client, $sBuf); // Send the message to the server
		+	unset($sBuf); // Free up resources/ram by wiping the buffer
	}		}
	</syntaxhighlight>		</syntaxhighlight>

	[[Category:Core Function]]		[[Category:Core Function]]

UberFoX: 1 revision

2015-06-14T12:38:51Z

1 revision

← Older revision

Revision as of 12:38, 14 June 2015

UberFoX: 1 revision

2014-08-11T21:40:41Z

1 revision

← Older revision

Revision as of 21:40, 11 August 2014

UberFoX: /* Example */

2013-01-18T00:11:29Z

Example

← Older revision		Revision as of 00:11, 18 January 2013
Line 43:		Line 43:
	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
	// Create a new GUI		// Create a new GUI
−	~~Glob~~ $GUI = GUICreate("Window", "GUI", 640, 480);	+	Global $GUI = GUICreate("Window", "GUI", 640, 480);
	GUILoad( $GUI );		GUILoad( $GUI );

Line 59:		Line 59:

	// Join Server		// Join Server
−	~~Glob~~ $Client = SSConnect("81.102.115.125", 5500, $Name);	+	Global $Client = SSConnect("81.102.115.125", 5500, $Name);

	// Loop while GUI is active		// Loop while GUI is active

UberFoX: /* Example */

2012-03-27T09:34:21Z

Example

← Older revision		Revision as of 09:34, 27 March 2012
Line 48:		Line 48:
	// Create the GUI objects		// Create the GUI objects
	$obj_textbox = GUICreate("TextBoxEx", $GUI, "", 5, 15, 610, 370);		$obj_textbox = GUICreate("TextBoxEx", $GUI, "", 5, 15, 610, 370);
−	$obj_RealSend = GUICreate("Button", $GUI~~, "RealSend"~~, "Send", 505, 410);	+	$obj_RealSend = GUICreate("Button", $GUI, "Send", 505, 410);
	$obj_CMD = GUICreate("TextBoxEx", $GUI, "", 10, 405, 485, 25);		$obj_CMD = GUICreate("TextBoxEx", $GUI, "", 10, 405, 485, 25);

UberFoX: /* Example */

2012-03-25T22:51:56Z

Example

← Older revision		Revision as of 22:51, 25 March 2012
Line 43:		Line 43:
	<syntaxhighlight lang="sputnik">		<syntaxhighlight lang="sputnik">
	// Create a new GUI		// Create a new GUI
−	Glob $GUI = GUICreate("GUI", 640, 480);	+	Glob $GUI = GUICreate("Window", "GUI", 640, 480);
−	~~GUISetState~~($GUI~~, @Show~~);	+	GUILoad( $GUI );
−		+
	// Create the GUI objects		// Create the GUI objects
−	$obj_textbox = ~~GUICreateTextBoxEx~~(~~$GUI,~~ "~~textbox~~", "", 5, 15, 610, 370);	+	$obj_textbox = GUICreate("TextBoxEx", $GUI, "", 5, 15, 610, 370);
−	$obj_RealSend = ~~GUICreateButton~~($GUI, "RealSend", "Send", 505, 410);	+	$obj_RealSend = GUICreate("Button", $GUI, "RealSend", "Send", 505, 410);
−	$obj_CMD = ~~GUICreateTextBoxEx~~($GUI~~, "CMD"~~, "", 10, 405, 485, 25);	+	$obj_CMD = GUICreate("TextBoxEx", $GUI, "", 10, 405, 485, 25);
−		+
	// Add a few links		// Add a few links
−	GUILink($obj_RealSend, ~~@lClick~~, 'Send();');	+	GUILink($obj_RealSend, "Click", 'Send();');
−	GUILink($obj_CMD, ~~@lKeyPress~~, 'KeyPress();');	+	GUILink($obj_CMD, "KeyPress", 'KeyPress();');
−		+
	// Allow the user to enter a name to use on the server		// Allow the user to enter a name to use on the server
	$Name = InputBox("Sputnik Client", "Enter a name to use on the chat", "MyName");		$Name = InputBox("Sputnik Client", "Enter a name to use on the chat", "MyName");
−		+
	// Join Server		// Join Server
	Glob $Client = SSConnect("81.102.115.125", 5500, $Name);		Glob $Client = SSConnect("81.102.115.125", 5500, $Name);
−		+
	// Loop while GUI is active		// Loop while GUI is active
−	~~Until~~ ( ~~GUIState~~( $GUI ) ~~== @sClosed~~ )	+	While ( GUIStatus( $GUI ) )
	{		{
	DoEvents(); // DoEvents to keep the GUI working fine		DoEvents(); // DoEvents to keep the GUI working fine
Line 121:		Line 121:
	}		}
	}		}
−		+
	// When a key is presed on chat send box		// When a key is presed on chat send box
	Function KeyPress()		Function KeyPress()
Line 128:		Line 128:
	Send(); // Send the message		Send(); // Send the message
	}		}
−		+
	// Function to add text to output display		// Function to add text to output display
	Function AddText($str)		Function AddText($str)
Line 136:		Line 136:
	GUISetProp($obj_textbox, "Text", $Text); // Set the "Text"		GUISetProp($obj_textbox, "Text", $Text); // Set the "Text"
	}		}
−		+
	// Send a message to server		// Send a message to server
	Function Send()		Function Send()

UberFoX at 12:39, 1 December 2011

2011-12-01T12:39:34Z

← Older revision		Revision as of 12:39, 1 December 2011
Line 143:		Line 143:
	GUISetProp($obj_CMD, "Text", ""); // Clear the send box		GUISetProp($obj_CMD, "Text", ""); // Clear the send box
	$sBuf = SSSendBufferCreate($Client); // Create a new buffer to send a message with		$sBuf = SSSendBufferCreate($Client); // Create a new buffer to send a message with
−	SSSendBufferAppend(~~$Client,~~ $sBuf, "i", 1); // Add the code using an Int32 "i"	+	SSSendBufferAppend($sBuf, "i", 1); // Add the code using an Int32 "i"
−	SSSendBufferAppend(~~$Client,~~ $sBuf, "p", $Text); // Add the string "p" to send	+	SSSendBufferAppend($sBuf, "p", $Text); // Add the string "p" to send
	SSSend($Client, $sBuf); // Send the message to the server		SSSend($Client, $sBuf); // Send the message to the server
	}		}

UberFoX: /* Example */

2011-12-01T12:12:02Z

Example

← Older revision		Revision as of 12:12, 1 December 2011
Line 49:		Line 49:
	$obj_textbox = GUICreateTextBoxEx($GUI, "textbox", "", 5, 15, 610, 370);		$obj_textbox = GUICreateTextBoxEx($GUI, "textbox", "", 5, 15, 610, 370);
	$obj_RealSend = GUICreateButton($GUI, "RealSend", "Send", 505, 410);		$obj_RealSend = GUICreateButton($GUI, "RealSend", "Send", 505, 410);
−	$obj_CMD = GUICreateTextBoxEx($GUI, "CMD", "", 10, ~~415~~, 485, 25);	+	$obj_CMD = GUICreateTextBoxEx($GUI, "CMD", "", 10, 405, 485, 25);

	// Add a few links		// Add a few links

UberFoX at 12:11, 1 December 2011

2011-12-01T12:11:35Z

← Older revision		Revision as of 12:11, 1 December 2011
Line 1:		Line 1:
	<pre>		<pre>
−	~~SSListen~~( <ip>, <port>, <connection string>, <name> )	+	SSConnect( <ip>, <port>, <connection string>, <name> )
	</pre>		</pre>

	=== Description ===		=== Description ===

−	~~Create~~ a server ~~and begin listening for clients to connect~~.	+	Connect to a server.

	=== Parameters ===		=== Parameters ===

← Older revision		Revision as of 06:13, 15 June 2015
Line 51:		Line 51:

	// Create the GUI objects		// Create the GUI objects
−	$obj_textbox = GUICreate("TextBoxEx", $GUI, "", 5, 15, 610, 370);	+	Global $obj_textbox = GUICreate("TextBoxEx", $GUI, "", 5, 15, 610, 370);
−	$obj_RealSend = GUICreate("Button", $GUI, "Send", 505, 410);	+	Global $obj_RealSend = GUICreate("Button", $GUI, "Send", 505, 410);
−	$obj_CMD = GUICreate("TextBoxEx", $GUI, "", 10, 405, 485, 25);	+	Global $obj_CMD = GUICreate("TextBoxEx", $GUI, "", 10, 405, 485, 25);

	// Add a few links		// Add a few links
Line 60:		Line 60:

	// Allow the user to enter a name to use on the server		// Allow the user to enter a name to use on the server
−	$Name = InputBox("Sputnik Client", "Enter a name to use on the chat", "MyName");	+	my $Name = InputBox("Sputnik Client", "Enter a name to use on the chat", "MyName");

	// Join Server		// Join Server
Line 69:		Line 69:
	{		{
	DoEvents(); // DoEvents to keep the GUI working fine		DoEvents(); // DoEvents to keep the GUI working fine
−	While( $Data = SSRecv($Client) ) // Check if we recieved a message from server	+	While( my $Data = SSRecv($Client) ) // Check if we recieved a message from server
	{		{
−	$MSG = $Data[0]; // Get the message ID	+	my $MSG = $Data[0]; // Get the message ID
	Switch ($MSG) // CHeck what type of message it was		Switch ($MSG) // CHeck what type of message it was
	{		{
	case @ssStatusChanged: // The message says we changed status		case @ssStatusChanged: // The message says we changed status
	{		{
−	$Status = SSClientStatus($Client); // Get our status	+	my $Status = SSClientStatus($Client); // Get our status
	Switch ($Status) // Check our status		Switch ($Status) // Check our status
	{		{
	case @ssDisconnected: // We have been disconnected from the server		case @ssDisconnected: // We have been disconnected from the server
	{		{
−	$fread = SSRead($Client, "p");	+	my $fread = SSRead($Client, "p");
	AddText("Disconnected from server reason: $fread");		AddText("Disconnected from server reason: $fread");
	}		}
Line 104:		Line 104:
	case @ssConnectionRejected: // Our connection has been rejected on the server		case @ssConnectionRejected: // Our connection has been rejected on the server
	{		{
−	$fread = SSRead($Client, "p"); // Read the reason why we was rejected	+	my $fread = SSRead($Client, "p"); // Read the reason why we was rejected
	AddText("Server rejected our connection reason: $fread"); // Add it to display		AddText("Server rejected our connection reason: $fread"); // Add it to display
	}		}
Line 110:		Line 110:
	case @ssData: // We have recieved data from server		case @ssData: // We have recieved data from server
	{		{
−	$dCode = SSRead($Client, "i"); // Read the Int32 "i" code of the message	+	my $dCode = SSRead($Client, "i"); // Read the Int32 "i" code of the message
	say "got msg id $dCode";		say "got msg id $dCode";
	switch ($dCode)		switch ($dCode)
Line 116:		Line 116:
	case 1: // It is a Chat message		case 1: // It is a Chat message
	{		{
−	$Text = SSRead($Client, "p"); // Read the string "p" from the message	+	my $Text = SSRead($Client, "p"); // Read the string "p" from the message
	say "got msg txt $Text";		say "got msg txt $Text";
	AddText($Text); // Add it to the display		AddText($Text); // Add it to the display
Line 138:		Line 138:
	Function AddText($str)		Function AddText($str)
	{		{
−	$Text = GUIGetProp($obj_textbox, "Text"); // Read the current "Text"	+	my $Text = GUIGetProp($obj_textbox, "Text"); // Read the current "Text"
	$Text = $str . @CRLF . $Text; // Add new text to top		$Text = $str . @CRLF . $Text; // Add new text to top
	GUISetProp($obj_textbox, "Text", $Text); // Set the "Text"		GUISetProp($obj_textbox, "Text", $Text); // Set the "Text"
Line 146:		Line 146:
	Function Send()		Function Send()
	{		{
−	$Text = GUIGetProp($obj_CMD, "Text"); // Read current text to send	+	my $Text = GUIGetProp($obj_CMD, "Text"); // Read current text to send
	GUISetProp($obj_CMD, "Text", ""); // Clear the send box		GUISetProp($obj_CMD, "Text", ""); // Clear the send box
−	$sBuf = SSBufferNew($Client); // Create a new buffer to send a message with	+	my $sBuf = SSBufferNew($Client); // Create a new buffer to send a message with
	SSBufferPut($sBuf, "i", 1); // Add the code using an Int32		SSBufferPut($sBuf, "i", 1); // Add the code using an Int32
	SSBufferPut($sBuf, "p", $Text); // Add the string to send		SSBufferPut($sBuf, "p", $Text); // Add the string to send