LFSLapper: Split Strings (Text)
Hello,
While supporting/pre dev an Lapper cruiseserver : [SC] Cruise Server, i have saw many things the developers are dealing with.
One of them are the stringlengths. Its limited by Insim to a maximum of 128 characters.
So if you type/sent 140 characters with privmsg(); or globalmsg(); LFS will only display 128 characters.
So i came up with a script that gives the possibility to split the string in 2 seperated strings.
In this script you need to type a command to activate the function to split the string.
You may allowed to change the command to your own purposes.
Do not change any of the code in the SplitText() function.
Make sure to add the following lines into addonsused.lpr
include ("./SplitString.lpr");
And change the file extension to .LPR
SplitString.txt to SplitString.LPR
The code look like this:
Some example of some inputs and outputs.
While supporting/pre dev an Lapper cruiseserver : [SC] Cruise Server, i have saw many things the developers are dealing with.
One of them are the stringlengths. Its limited by Insim to a maximum of 128 characters.
So if you type/sent 140 characters with privmsg(); or globalmsg(); LFS will only display 128 characters.
So i came up with a script that gives the possibility to split the string in 2 seperated strings.
In this script you need to type a command to activate the function to split the string.
You may allowed to change the command to your own purposes.
Do not change any of the code in the SplitText() function.
Make sure to add the following lines into addonsused.lpr
include ("./SplitString.lpr");
And change the file extension to .LPR
SplitString.txt to SplitString.LPR
The code look like this:
<?php
#==================================================================================#
#Scriptname: SplitString.LPR
#Author: Bass-Driver
#Version: 1.0
#VersionDate: 09-12-2017
#Description: Split a string with a max amount of characters in 2 strings.
# Choose between return a Global or a Private Message.
# Split a string by the choosen delimiter.
#==================================================================================#
CatchEvent OnLapperStart()
GlobalVar $MaxLen; $MaxLen = 120; #Max length of first string.
GlobalVar $StartIndex; $StartIndex = 0; #StartIndex to read the firststring or total text
GlobalVar $ReadMaxCharsForDelimiter; $ReadMaxCharsForDelimiter = 5; #How many chars to read back from the first string. (IF delimiterchar is set)
EndCatchEvent
CatchEvent OnMSO( $userName, $text ) # Player event
$text = Tolower( $text );
$idxOfFirstSpace = indexOf( $text, " ");
IF( $idxOfFirstSpace == -1 ) THEN
$command = $text;
$argv = "";
ELSE
$command = subStr( $text,0,$idxOfFirstSpace );
$argv = trim( subStr( $text,$idxOfFirstSpace ) );
ENDIF
SWITCH( $command )
CASE "!spst":
CASE "!splitstring":
$Privmsg = 1; #Set return message in a privatemessage = 1 or a globalmsg = 0;
$Player = $userName; #Set username if you have set a private message
$Text = $argv; #Text
$Delimiter = ","; #Set a char that will split the string for more precision.
#Keep empty to split the text after a maximum of chars.
#Call Sub
SplitText($Privmsg,$Player,$Text,$Delimiter);
BREAK;
ENDSWITCH
EndCatchEvent
Sub SplitText($privmsg,$userName,$Text,$Delimiter)
#SplitText variables
$LoT = StrLen($Text); #Get Length of total text
#When Textlength is higher than Maximumlength
IF ($LoT > $MaxLen) THEN
$FirstString = substr( $Text, $StartIndex, $MaxLen);
$SecondString = substr( $Text,$MaxLen,$LoT-$MaxLen );
#Find Delimiters variables
IF (($Delimiter != "")&&(contains($FirstString,$Delimiter) == 1)) THEN
#From where to start read string to find delimiter
$IndexOfDelimiterCheck = $MaxLen - $ReadMaxCharsForDelimiter;
#Get String between MaxLength of first string and StartFind delimiter
$StringDelimiterCheck = substr( $FirstString, $IndexOfDelimiterCheck, $ReadMaxCharsForDelimiter);
#Get Index of Delimiter
$IndexOfDelimiter = indexOf( $StringDelimiterCheck, $Delimiter);
#Delimiter is found
IF ($IndexOfDelimiter != -1) THEN
#Calculate the startindex of second string
$StartIndexSecondString = ($MaxLen - $ReadMaxCharsForDelimiter) + ($IndexOfDelimiter+1);
#Calculate the length of the second string
$LenghtOfSecondString = $LoT-$StartIndexSecondString;
#Get First string and Second string
$SecondString = substr( $Text, $StartIndexSecondString, $LenghtOfSecondString );
$FirstString = substr( $Text, $StartIndex, $StartIndexSecondString-1); #$StartIndexSecondString-1 = Remove Delimiter
ENDIF
ENDIF
#Return message is a privatemessage or a globalmessage
IF ($privmsg == 1) THEN
privmsg( $userName,"" . $FirstString );
privmsg( $userName,"" . $SecondString );
ELSE
globalmsg("" . $FirstString );
globalmsg("" . $SecondString );
ENDIF
#Text doesnt exceed textlength limit
ELSE
#Return message is a privatemessage or a globalmessage
IF ($privmsg == 1) THEN
privmsg( $userName, "" . $Text );
ELSE
globalmsg("" . $Text);
ENDIF
ENDIF
EndSub
?>
#==================================================
#EXAMPLES
#==================================================
Settings: (max length is 10)
$Privmsg = 1;
$Player = $userName;
$Text = $argv;
$Delimiter = "";
Input:
!spst hellohello
Output:
hellohello
Input:
!spst hellohelloblah
Output:
hellohello
blah
#==================================================
$Privmsg = 1;
$Player = $userName;
$Text = $argv;
$Delimiter = ",";
Input:
!spst hellohello
Output:
hellohello
Input:
!spst hello,helloblah
Output:
hello
helloblah
Input:
!spst h,ellohelloblah
Output:
hellohello
blah
Last edited by Bass-Driver, .
to be honest i have no idea.
You should email the devs about this.
I dont know how they set lapper on theire servers.
You should email the devs about this.
I dont know how they set lapper on theire servers.
Insimport that you have to set in Lapper is 54421 and not 29999
What you mean with not letting you in?
And when does this happen.
During joining process?
or
when you already joined the server?
When you joined the server and you get kicked by the insim. Close the insim.
And when does this happen.
During joining process?
or
when you already joined the server?
When you joined the server and you get kicked by the insim. Close the insim.
Well after some test it must be a problem between the scripts and the sourcecode of lapper.
I'm still using the Packetcode from post #7 of this topic.
=====================================================
TEST 01:
=====================================================
I created a new function and sended a MTC packet with "^J☆" as text, and that works how it should be.
see the code below.
In the Lapperscript i use 'testfunction();' as command.
=====================================================
TEST 02:
=====================================================
So the next test because the problem must be somewhere else.
When i copy/paste a 'white star' into the script. I get a weird "HOP" text. And when sending the message, i receive a Square and a Questionmark. The Script is converted to UTF-8.
And i use in the sourcecode the next line as a string.
string text = args[0].ToString();
=====================================================
TEST 03:
=====================================================
In the script i used a parameter to be send to the testfunction.
ingame i type: !tf ☆
testfunction($argv);
$argv = ☆
but now it doesnt work at all , like in the beginning.
in the console it looks like this:
So, could it be a convertproblem between script UTF-8 to the sourcecode (where can i find this)??
Or should i convert the script to a another encodingpage.
I'm still using the Packetcode from post #7 of this topic.
=====================================================
TEST 01:
=====================================================
I created a new function and sended a MTC packet with "^J☆" as text, and that works how it should be.
see the code below.
In the Lapperscript i use 'testfunction();' as command.
<?php
public void TestFunction(GLScript.unionVal val, ArrayList args)
{
infoPlayer currInfoPlayer = newCfg.getCurrInfoPlayer();
string ident = val.nameFunction;
string text = "^J☆";
SendMsgToConnection(currInfoPlayer.UCID, text);
//SendMsg(args[0].ToString());
}
void SendMsgToConnection(int UCID, string msg)
{
if (msg.Length > 0)
{
if (UCID != -1)
{
byte[] outMsg = myEncoder.MTC(UCID, 0, msg);
insimConnection.Send(outMsg, outMsg.Length);
}
}
}
?>
=====================================================
TEST 02:
=====================================================
So the next test because the problem must be somewhere else.
When i copy/paste a 'white star' into the script. I get a weird "HOP" text. And when sending the message, i receive a Square and a Questionmark. The Script is converted to UTF-8.
And i use in the sourcecode the next line as a string.
string text = args[0].ToString();
=====================================================
TEST 03:
=====================================================
In the script i used a parameter to be send to the testfunction.
ingame i type: !tf ☆
testfunction($argv);
$argv = ☆
but now it doesnt work at all , like in the beginning.
in the console it looks like this:
So, could it be a convertproblem between script UTF-8 to the sourcecode (where can i find this)??
Or should i convert the script to a another encodingpage.
oke thanks,
But the weird thing is that i get those "Weird Bytes" before its encoded.
So the problem may be deeper, if i'm right.
So much fun
So what i think it goes wrong with getting data from the lapper scripts.
or saving the Nicknames of a new connection
or must go wrong with creating the package.
What i want todo now ism a quick test with the sourcecode. But i need to know is, how to add a 'White Star' as text. Because i cannot work with bytes than. it must look like normal text.
Thanks
But the weird thing is that i get those "Weird Bytes" before its encoded.
So the problem may be deeper, if i'm right.
So much fun
So what i think it goes wrong with getting data from the lapper scripts.
or saving the Nicknames of a new connection
or must go wrong with creating the package.
<?php
#Normal plain text from the sourcecode
SendMsgToConnection(currInfoPlayer.UCID, "Blah Blah");
#Get Player info that is saved.
SendMsgToConnection(currInfoPlayer.UCID, currInfoPlayer.nickName);
void SendMsgToConnection(int UCID, string msg)
{
if (msg.Length > 0)
{
if (UCID != -1)
{
byte[] outMsg = myEncoder.MTC(UCID, 0, msg);
insimConnection.Send(outMsg, outMsg.Length);
}
}
}
?>
Thanks
sorry for the long respond.
I have tried to encode it first to UTF8 and Unicode and Windows-1251 and none of them works.
I also digged deeper into the sourcecode of lapper to encode the NickNames. Same result.
Have searched on the web for the Heximal and Decimal value of the "White Star". It came up with this.
But i couldnt find out how to convert this into bytes. I might to think to difficult about this :S
I think '81' is one byte and '99' is the another one. But none of them are the same in as i can see in my LapperConsole.
Atm i have no clue what todo.
See the last Packetcode below.
I know i'm new with this and you guys might think this i'm stupid. But this is a big learning process for me and i enjoy it.
Thanks in advanced.
I have tried to encode it first to UTF8 and Unicode and Windows-1251 and none of them works.
I also digged deeper into the sourcecode of lapper to encode the NickNames. Same result.
Have searched on the web for the Heximal and Decimal value of the "White Star". It came up with this.
//0x8199(HEX) 0x2606(DEC) #WHITE STARBut i couldnt find out how to convert this into bytes. I might to think to difficult about this :S
I think '81' is one byte and '99' is the another one. But none of them are the same in as i can see in my LapperConsole.
Atm i have no clue what todo.
See the last Packetcode below.
I know i'm new with this and you guys might think this i'm stupid. But this is a big learning process for me and i enjoy it.
Thanks in advanced.
Sorry for being offtopic, But someone got really pissed.
AymanHilal does have a S2 account named Iceman121. He just wanted to buy a S3 licenses for the 'AymanHilal' account. He's now trying to unban his account. Not sure if thats gonna work
Heres a link with a post from him aswell.
https://www.lfs.net/forum/post/1907440#post1907440
The reason why he wont post with his S2 account, is because he hates the Iceman121 accountname. Dont know why he choises for this name anyway.
Well on the otherside, i can blame you guys for banning him from this forum.
So guys, do not start a conversation about this, within this topic.
Thank you
AymanHilal does have a S2 account named Iceman121. He just wanted to buy a S3 licenses for the 'AymanHilal' account. He's now trying to unban his account. Not sure if thats gonna work
Heres a link with a post from him aswell.
https://www.lfs.net/forum/post/1907440#post1907440
The reason why he wont post with his S2 account, is because he hates the Iceman121 accountname. Dont know why he choises for this name anyway.
Well on the otherside, i can blame you guys for banning him from this forum.
So guys, do not start a conversation about this, within this topic.
Thank you
Well , after some code editing, and i even have used the encoding code of InsimDotNet ( JUST FOR TESTING!!!). I still cannot manage to get the japanese characters working.
Ill explain what i already did.
First i have set a Japanese Char as my Nickname.
Then i type a command to display my nickname.
In Lapper you use the following function to send a private message to your self or someone else.
In this case i sent a message to myself.
In the lapperconsole i get the following output , within the yellow square:
The first line is the sended message right next after 'Message:'
I dont know, if the output '^J T' is correct.
As last i show you the code after i used InsimDotNet's Encoding code.
So if someone got an idea about to fix this. Feel free to post.
Thanks in advanced.
Ill explain what i already did.
First i have set a Japanese Char as my Nickname.
Then i type a command to display my nickname.
In Lapper you use the following function to send a private message to your self or someone else.
In this case i sent a message to myself.
privmsg(GetPlayerVar($userName,"NickName"));In the lapperconsole i get the following output , within the yellow square:
The first line is the sended message right next after 'Message:'
I dont know, if the output '^J T' is correct.
As last i show you the code after i used InsimDotNet's Encoding code.
So if someone got an idea about to fix this. Feel free to post.
Thanks in advanced.
oke thanks Yisc[NL], for updating this script.
I will add this to my buglist, to see i can find anything that might cause this crash.
I will add this to my buglist, to see i can find anything that might cause this crash.
Oke thanks for the feedback, will look into it.
For someone who's is interested in the codepage source.
Sending a MTC packet looks like this.
The codepage source can be found in the attachment below.
For someone who's is interested in the codepage source.
Sending a MTC packet looks like this.
<?php
public byte[] MTC(int UCID, int PLID, string msg)
{
int msgLen = msg.Length > 127 ? 127 : msg.Length;
byte[] packet = new byte[136];
packet[0] = 136;
packet[1] = (byte)TypePack.ISP_MTC;
packet[2] = 0;
packet[3] = 0;
packet[4] = (byte)UCID;
packet[5] = (byte)PLID;
packet[6] = 0;
packet[7] = 0;
InSim.CodePage.GetBytes(msg, 0, System.Math.Min(127, msg.Length), packet, 8);
return packet;
}
?>
what happends if you add the leavestreet sub routine?
Official Release of version V7.0.4.10 available.
Grab the version in the first post.
Thanks to everyone who tested lapper and the feedbacks during testing.
Grab the version in the first post.
Thanks to everyone who tested lapper and the feedbacks during testing.
Nice job with updating this script. 
Insim String Encoding Help
Hello programmers,
Since i have been started with updating LFSLapper insimlibrary, i want to solve old bugs.
One of them is a character bug.
This bug does not display the japanese characters when sending an string to LFS.
After some research on google, i found something that these Japanse characters works with Double Bytes.
After looking into the codepage sourcecode, i do not quite understand what the previous developer (Gai-Luron) has done with the code. And i have no idea how to edit the code to support Double Byte characters.
So my idea is to start from scratch and i want to ask you guys how to start with encoding strings in a proper way.
Just a small note: My C# experience is bad.
Thanks in advance
Since i have been started with updating LFSLapper insimlibrary, i want to solve old bugs.
One of them is a character bug.
This bug does not display the japanese characters when sending an string to LFS.
After some research on google, i found something that these Japanse characters works with Double Bytes.
After looking into the codepage sourcecode, i do not quite understand what the previous developer (Gai-Luron) has done with the code. And i have no idea how to edit the code to support Double Byte characters.
So my idea is to start from scratch and i want to ask you guys how to start with encoding strings in a proper way.
Just a small note: My C# experience is bad.
Thanks in advance
Last edited by Bass-Driver, .
Very quick looking at it:
-BL2 doesnt exist.
-Whole Rockingham doesnt exist in the code, Which is easy to add. If you have the correct lengths.
To make RO track compatible with 4 or 5 characters long. I have used this code in lapper.
-BL2 doesnt exist.
-Whole Rockingham doesnt exist in the code, Which is easy to add. If you have the correct lengths.
To make RO track compatible with 4 or 5 characters long. I have used this code in lapper.
//Get last char of shorttrackname
string GetShortNameTrack = track.Substring(cp.Length - 1, 1);
//Read last char
if ((GetShortNameTrack == "X") || (GetShortNameTrack == "R") || (GetShortNameTrack == "Y"))
GetTrack = track.Substring(0, cp.Length - 1);
else
GetTrack = track.ToUpper();i will join your testsession
Turned out the GetListOfPlayers() testcode didnt work well after some tests.
Because of Arrays in Lapper. Always an enjoyment to work with arrays in Lapper.
New testversion available: PublicTest_04 . Without the testcode for GetListOfPlayers().
Because of Arrays in Lapper. Always an enjoyment to work with arrays in Lapper.
New testversion available: PublicTest_04 . Without the testcode for GetListOfPlayers().
Uhm oke this is odd.
I have add a debug message in the Race Restart packet, and it seems its still executing when Lapper is reloaded/started after the race is finished. Not sure if this is normal
Fixed: Failed RST_Insim packet request.
I have add a debug message in the Race Restart packet, and it seems its still executing when Lapper is reloaded/started after the race is finished. Not sure if this is normal
Fixed: Failed RST_Insim packet request.
Last edited by Bass-Driver, .
New PublicTest version is available:
Rebuilded this version again from 7.0.4.8 after some old features did not work properly.
Compiled multiple times and tested the .exe to be sure that the old and new events are working.
-Added some debug messages for GetListOfPlayers() in the console.
-Added 2 extra Lappervars : LFSVersion and LFSMode
-Added testversion/state of Lapper in Title of the console.
####### GetListOfPlayers() TEST############
If you have more than 11 players in the server, please make a screenshot of the Lapperconsole.
Also use this code to get the usernames of the current players in the server. And also make a screenshot of the results.
You can use this code in a command of sub or in the onconnect event
Some feedback after testing whould be appreciated.
Thank you.
Rebuilded this version again from 7.0.4.8 after some old features did not work properly.
Compiled multiple times and tested the .exe to be sure that the old and new events are working.
-Added some debug messages for GetListOfPlayers() in the console.
-Added 2 extra Lappervars : LFSVersion and LFSMode
-Added testversion/state of Lapper in Title of the console.
####### GetListOfPlayers() TEST############
If you have more than 11 players in the server, please make a screenshot of the Lapperconsole.
Also use this code to get the usernames of the current players in the server. And also make a screenshot of the results.
You can use this code in a command of sub or in the onconnect event
$Number = 1;
$Racers = GetListOfPlayers("U");
FOREACH( $Var IN $Racers ) #For each player in the server
privmsg("^3[".$Number."] ^7".$Var["value"]); #Current Number + UserName of Player
$Number = $Number + 1;
ENDFOREACH
Some feedback after testing whould be appreciated.
Thank you.
i'm in
uhmm right. Nothing special. deleted a line from layoutlist.lpr
New testversion available. Grab the version in the first post
New features added and 1 fix
Thanks to LakynVonLegendaus, Lapper supports now fully JoinRequest system.
See info below.
New features added and 1 fix
Thanks to LakynVonLegendaus, Lapper supports now fully JoinRequest system.
See info below.
New event: OnNewJoinRequest # Player event (Thanks to LakynVonLegendaus)
#######################################
#Player sends a join request (Shift+J)#
#######################################
NOTE:
#To enable OnNewJoinRequest event, $ReceiveJoinRequest has to be set to 1.
#If enabled, LFS waits (cca 1 second) for a response from the Lapper on each join request.
#To respond to a join request - use joinrequest() function.
#The Player's unique ID (PLID Must be 0 to use the join request system)
#If no response is sent, LFS spawns the car normally (with a delay [because LFS waits for the join request response]).
#For more info see ..\LFS\docs\InSim.txt
$ReceiveJoinRequest = -1; #Enable (1) or disable (-1) for Receive JoinRequest.
Event OnNewJoinRequest( $userName ) # Player event
/*
$Flags = 0; #Move car (128) else (0)
$X_Axis = 0; #X axis SpawnPoint
$Y_Axis = 0; #Y axis SpawnPoint
$Z_Axis = 0; #Z axis SpawnPoint
$Heading = 0; #Heading of the players car at Spawnpoint
$UCID = GetCurrentPlayerVar("UCID"); #Connection unique ID
$PLID = 0; #GetCurrentPlayerVar("PLID"); #Player's unique ID
###$PLID MUST BE 0 TO USE JOIN REQUEST###
#$JRRAction = 0; # Reject join request.
$JRRAction = 1; # Allow join request.
joinrequest($X_Axis ,$Y_Axis ,$Z_Axis ,$Flags ,$Heading ,$UCID ,$PLID ,$JRRAction); #Send Data to LFS
*/
EndEvent
#New Lappervar:
-lapperversion //Returns the current version of LFSLapper.
(could be used to protect your script against older lapperversions).
FGED GREDG RDFGDR GSFDG