So do you have a scripter at the moment? Because im itching to work on one of these; Hell, I even wrote /f a /f r and /f m scripts, Tip system, /find player, and I am currently working on a Custom shop, that'll allow for Discounts, Coupons, and buying more than 1 item at a time, as well as a Confirm button <_<
If LCase(Mid(TextSay, 1, 5)) = "/f a " Then
TextSay = Mid(TextSay, 6, Len(TextSay) - 5)
Name = TextSay
Slot = 501
Position = 1
AAAA = 501
If Name = GetPlayerName(Index) Then
Call PlayerMsg(Index, "You cannot add yourself.", 4)
Exit Sub
End If
Do While AAAA < 526
If GetVar("Config\Flags.dll", GetPlayerName(Index), "Flag"&AAAA) = Name Then
Call PlayerMsg(Index, "Player " & TextSay & " is already on your friends list!", 4)
Exit Sub
End If
AAAA = AAAA + 1
Loop
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Is player online check
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Rawr = FindPlayer(Name)
'If Rawr = 0 Then
' Call PlayerMsg(Index, Name & " is not online.", 4)
' Exit Sub
'End If
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Do While Slot < 526
If GetVar("Config\Flags.dll", GetPlayerName(Index), "Flag"&Slot+25) = 0 Then
Call PutVar("Config\Flags.dll", GetPlayerName(Index), "Flag" & Slot + 25, "1")
Call PutVar("Config\Flags.dll", GetPlayerName(Index), "Flag"&Slot, CStr(TextSay))
Call PutVar("Config\Flags.dll", GetPlayerName(Index), "Flag500", GetVar("Config\Flags.dll", GetPlayerName(Index), "Flag500")+1)
Call PlayerMsg(Index, "Player " & TextSay & " has been added to your friends list! [Slots used: " & GetVar("Config\Flags.dll", GetPlayerName(Index), "Flag500") & "/25]", 10)
Exit Sub
End If
Slot = Slot + 1
Position = Position + 1
Loop
Call PlayerMsg(Index, "Your friends list is full. Try removing a player first before adding more.", 4)
Exit Sub
End If
Yarr >:D, the /f a script in action. I have a document writin to whenever a newplayer joins the server, which gives the player 1000 custom flags (Variables) for later use, such as quests and stuff. I use 501~551 with friends listing ;o
Riney#6948 on Discord.
Riney on Steam (
Steam)
@RineyCat on Twitter
-- Updated as of December 2021 --