|
Will be paying large amounts of R$ to whomever makes me one. |
|
|
|
Come on looking for offers. I might pay 100k robux |
|
iGirlzJoin Date: 2013-03-05
Post Count: 93 |
i cant build a database
but ill hold something of yours
~girlz~ |
|
LumismJoin Date: 2008-10-04
Post Count: 25531 |
Database of what? |
|
|
Like RAT's. Anyone want 100k? Get me a database. |
|
iGirlzJoin Date: 2013-03-05
Post Count: 93 |
wait(1)
repeat wait(0) until game.Players.LocalPlayer.Character~=nil
--- Variables ------
sp = script.Parent
plr = game.Players.LocalPlayer
Career = sp.CareerList
PlayCareer = sp.PlayerCareer
Edit = sp.AddLog
Allowed = "%w+"
NAllowed = "[%p%s]+"
NAllowed2 = "[%p%s%a]"
Allowed2 = "%d+"
NAllowed3 = "[%p%s%d]"
ViewCareer=nil
PlayLevel = nil
Enabled=true
T=game.Lighting.MainFrame:GetChildren()
G=#game.Lighting.MainFrame:GetChildren()
Level1={
"Officer";
"Colonel";
"General";
"Director";
"Chairman";
}
Level2={
"Colonel";
"General";
"Director";
"Chairman";
}
Level3={
"Director";
"Chairman";
}
-----------------------------------------------------------
------------Load LocalPlayer Log----------------------------
function LoadPlayerCareer()
local player = game.Lighting.MainFrame:FindFirstChild(string.lower(plr.Name))
if player ~= nil then
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..player.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#player.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..plr.Name)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..player.PlayerRank.Value)
ViewCareer=player
I = ViewCareer.PlayerLogs:GetChildren()
M = #ViewCareer.PlayerLogs:GetChildren()
local Logs=player.PlayerLogs:GetChildren()
if Logs[#Logs]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..Logs[#Logs].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(Logs[#Logs].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(Logs[#Logs].LogDesc.Value)
end
if Logs[#Logs-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..Logs[#Logs-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(Logs[#Logs-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(Logs[#Logs-1].LogDesc.Value)
end
if Logs[#Logs-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..Logs[#Logs-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(Logs[#Logs-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(Logs[#Logs-2].LogDesc.Value)
end
else
PlayCareer.CareerStats.HPTotal.Text=("Total HP l --")
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l --")
PlayCareer.CareerStats.PlayerName.Text=("Name l -- ")
PlayCareer.CareerStats.PlayerRank.Text=("Rank l --")
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_1.AuthorName.Text=("--")
PlayCareer.Logs.Log_1.Desc.Text=("--")
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_2.AuthorName.Text=("--")
PlayCareer.Logs.Log_2.Desc.Text=("--")
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_3.AuthorName.Text=("--")
PlayCareer.Logs.Log_3.Desc.Text=("--")
sp.Banner_Bottom.Visible=true
ViewCareer=nil
end
end
LoadPlayerCareer()
Career.PlayerCareer.Visible=true
Career.PlayerCareer2.Visible=true
Career.PlayerCareer3.Visible=true
Career.ScrollDown.Visible=true
Career.ScrollUp.Visible=true
T=game.Lighting.MainFrame:GetChildren()
G=#game.Lighting.MainFrame:GetChildren()
if T[G]~=nil then
Career.PlayerCareer.Visible=true
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
else
Career.PlayerCareer.Visible=false
end
if T[G-1]~=nil then
Career.PlayerCareer2.Visible=true
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
else
Career.PlayerCareer2.Visible=false
end
if T[G-2]~=nil then
Career.PlayerCareer3.Visible=true
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
else
Career.PlayerCareer3.Visible=false
end
---------------------function Check Level---------------
function Task1()
for I=1,#Level1 do
if plr:GetRoleInGroup(707434) == Level1[I] or plr.Name=="Player1" then
return true
else
print("Yes")
end
end
end
function Task2()
for I=1,#Level2 do
if plr:GetRoleInGroup(707434) == Level2[I] or plr.Name=="Player1" then
return true
else
print("Yes")
end
end
return false
end
function Task3()
for I=1,#Level3 do
if plr:GetRoleInGroup(707434) == Level3[I] or plr.Name=="Player1" then
return true
else
print("Yes")
end
end
end
if Task2() then Career.DeleteButton.Visible=true end
-------Search For Players Career------------------------
Career.SearchButton.MouseButton1Click:connect(function()
if Enabled==true and not Career.SearchBar.Text:match(NAllowed) and Career.SearchBar.Text~="" then
player = game.Lighting.MainFrame:FindFirstChild(string.lower(Career.SearchBar.Text:match(Allowed)))
ViewCareer=player
if player~=nil then
Career.PlayerCareer2.Visible=false
Career.PlayerCareer3.Visible=false
Career.PlayerCareer.Visible=true
Career.ScrollDown.Visible=false
Career.ScrollUp.Visible=false
Career.PlayerCareer.HPAmount.Text=("HP l "..ViewCareer.TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#ViewCareer.PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(ViewCareer.PlayerName.Value)
else
ViewCareer=nil
return nil
end
end
end)
------Check Player Career-------------
Career.PlayerCareer.LogButton.MouseButton1Click:connect(function()
if Enabled==false then
return nil
else
ViewCareer=game.Lighting.MainFrame:FindFirstChild(string.lower(sp.CareerList.PlayerCareer.PlayerName.Text))
I = ViewCareer.PlayerLogs:GetChildren()
M = #ViewCareer.PlayerLogs:GetChildren()
if ViewCareer~=nil and Edit.Visible==false then
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..ViewCareer.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#ViewCareer.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..ViewCareer.PlayerName.Value)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..ViewCareer.PlayerRank.Value)
local Logs=ViewCareer.PlayerLogs:GetChildren()
if Logs[#Logs]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..Logs[#Logs].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(Logs[#Logs].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(Logs[#Logs].LogDesc.Value)
else
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_1.AuthorName.Text=("--")
PlayCareer.Logs.Log_1.Desc.Text=("--")
end
if Logs[#Logs-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..Logs[#Logs-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(Logs[#Logs-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(Logs[#Logs-1].LogDesc.Value)
else
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_2.AuthorName.Text=("--")
PlayCareer.Logs.Log_2.Desc.Text=("--")
end
if Logs[#Logs-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..Logs[#Logs-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(Logs[#Logs-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(Logs[#Logs-2].LogDesc.Value)
else
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_3.AuthorName.Text=("--")
PlayCareer.Logs.Log_3.Desc.Text=("--")
end
else
return nil
end
end
end)
Career.PlayerCareer2.LogButton.MouseButton1Click:connect(function()
if Enabled==false then
return nil
else
ViewCareer=game.Lighting.MainFrame:FindFirstChild(string.lower(Career.PlayerCareer2.PlayerName.Text))
I = ViewCareer.PlayerLogs:GetChildren()
M = #ViewCareer.PlayerLogs:GetChildren()
if ViewCareer~=nil and Edit.Visible==false then
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..ViewCareer.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#ViewCareer.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..ViewCareer.PlayerName.Value)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..ViewCareer.PlayerRank.Value)
local Logs=ViewCareer.PlayerLogs:GetChildren()
if Logs[#Logs]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..Logs[#Logs].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(Logs[#Logs].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(Logs[#Logs].LogDesc.Value)
else
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_1.AuthorName.Text=("--")
PlayCareer.Logs.Log_1.Desc.Text=("--")
end
if Logs[#Logs-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..Logs[#Logs-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(Logs[#Logs-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(Logs[#Logs-1].LogDesc.Value)
else
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_2.AuthorName.Text=("--")
PlayCareer.Logs.Log_2.Desc.Text=("--")
end
if Logs[#Logs-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..Logs[#Logs-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(Logs[#Logs-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(Logs[#Logs-2].LogDesc.Value)
else
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_3.AuthorName.Text=("--")
PlayCareer.Logs.Log_3.Desc.Text=("--")
end
else
return nil
end
end
end)
Career.PlayerCareer3.LogButton.MouseButton1Click:connect(function()
if Enabled==false then
return nil
else
ViewCareer=game.Lighting.MainFrame:FindFirstChild(string.lower(Career.PlayerCareer3.PlayerName.Text))
I = ViewCareer.PlayerLogs:GetChildren()
M = #ViewCareer.PlayerLogs:GetChildren()
if ViewCareer~=nil and Edit.Visible==false then
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..ViewCareer.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#ViewCareer.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..ViewCareer.PlayerName.Value)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..ViewCareer.PlayerRank.Value)
local Logs=ViewCareer.PlayerLogs:GetChildren()
if Logs[#Logs]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..Logs[#Logs].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(Logs[#Logs].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(Logs[#Logs].LogDesc.Value)
else
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_1.AuthorName.Text=("--")
PlayCareer.Logs.Log_1.Desc.Text=("--")
end
if Logs[#Logs-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..Logs[#Logs-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(Logs[#Logs-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(Logs[#Logs-1].LogDesc.Value)
else
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_2.AuthorName.Text=("--")
PlayCareer.Logs.Log_2.Desc.Text=("--")
end
if Logs[#Logs-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..Logs[#Logs-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(Logs[#Logs-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(Logs[#Logs-2].LogDesc.Value)
else
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_3.AuthorName.Text=("--")
PlayCareer.Logs.Log_3.Desc.Text=("--")
end
else
return nil
end
end
end)
----Function LookThrough Player Logs-------------------
repeat wait(0) until ViewCareer~=nil
PlayCareer.Logs.ScrollDown.MouseButton1Click:connect(function()
if ViewCareer==nil or M<=3 or Edit.Visible==true or Enabled==false then
return nil
else
M=M-1
if I[M]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..I[M].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(I[M].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(I[M].LogDesc.Value)
end
if I[M-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..I[M-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(I[M-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(I[M-1].LogDesc.Value)
end
if I[M-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..I[M-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(I[M-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(I[M-2].LogDesc.Value)
end
end
end)
PlayCareer.Logs.ScrollUp.MouseButton1Click:connect(function()
if ViewCareer==nil or M==#ViewCareer.PlayerLogs:GetChildren() or Enabled==false then
return nil
else
M=M+1
if I[M]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..I[M].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(I[M].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(I[M].LogDesc.Value)
end
if I[M-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..I[M-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(I[M-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(I[M-1].LogDesc.Value)
end
if I[M-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..I[M-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(I[M-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(I[M-2].LogDesc.Value)
end
end
end)
-------Add Log To Player Career---------------------------------
PlayCareer.CareerStats.AddLog.MouseButton1Click:connect(function()
if ViewCareer==nil or Task1()~=true then
return nil
end
Edit.Visible=true
Enabled=false
end)
Edit.BadLog.MouseButton1Click:connect(function()
Edit.BadLog.Checked.Value=true
Edit.GoodLog.Checked.Value=false
Edit.NormalLog.Checked.Value=false
Edit.BadLog.Text="X"
Edit.GoodLog.Text=""
Edit.NormalLog.Text=""
end)
Edit.GoodLog.MouseButton1Click:connect(function()
Edit.BadLog.Checked.Value=false
Edit.GoodLog.Checked.Value=true
Edit.NormalLog.Checked.Value=false
Edit.BadLog.Text=""
Edit.GoodLog.Text="X"
Edit.NormalLog.Text=""
end)
Edit.NormalLog.MouseButton1Click:connect(function()
Edit.BadLog.Checked.Value=false
Edit.GoodLog.Checked.Value=false
Edit.NormalLog.Checked.Value=true
Edit.BadLog.Text=""
Edit.GoodLog.Text=""
Edit.NormalLog.Text="X"
end)
Edit.Task.MouseButton1Click:connect(function()
if Edit.Task.Checked.Value==false then
Edit.Task.Checked.Value=true
Edit.Task.Text="X"
else
Edit.Task.Checked.Value=false
Edit.Task.Text=""
end
end)
Edit.CancelButton.MouseButton1Click:connect(function()
Edit.Visible=false
sp.AddLog.Task.Checked.Value=false
sp.AddLog.GoodLog.Checked.Value=false
sp.AddLog.BadLog.Checked.Value=false
Edit.NormalLog.Checked.Value=true
sp.AddLog.AmountBox.Text="Enter HP Amount"
sp.AddLog.NoteBox.Text=("Enter notes (required)")
Edit.BadLog.Text=""
Edit.GoodLog.Text=""
Edit.NormalLog.Text="X"
Enabled=true
end)
Edit.AcceptButton.MouseButton1Click:connect(function()
if ViewCareer==nil or Edit.AmountBox.Text=="" or Edit.NoteBox.Text=="" or Edit.AmountBox.Text:match(NAllowed2) then
return nil
end
game.Lighting.Log:clone().Parent=ViewCareer
ViewCareer.Log.Name="Log2"
ViewCareer.Log2.Parent=ViewCareer.PlayerLogs
ViewCareer.PlayerLogs.Log2.HPGiven.Value=Edit.AmountBox.Text
ViewCareer.PlayerLogs.Log2.PlayerCreated.Value=plr.Name
if Edit.BadLog.Checked.Value==true then
ViewCareer.PlayerLogs.Log2.LogDesc.Value=(".:Bad Log:. "..Edit.NoteBox.Text)
elseif Edit.GoodLog.Checked.Value==true then
ViewCareer.PlayerLogs.Log2.LogDesc.Value=(".:Good Log:. "..Edit.NoteBox.Text)
elseif Edit.NormalLog.Checked.Value==true then
ViewCareer.PlayerLogs.Log2.LogDesc.Value=(".:Normal Log:. "..Edit.NoteBox.Text)
end
if Edit.GoodLog.Checked.Value==true then
ViewCareer.TotalHP.Value=ViewCareer.TotalHP.Value+ViewCareer.PlayerLogs.Log2.HPGiven.Value
elseif Edit.BadLog.Checked.Value==true then
ViewCareer.TotalHP.Value=ViewCareer.TotalHP.Value-ViewCareer.PlayerLogs.Log2.HPGiven.Value
elseif Edit.NormalLog.Checked.Value==true then
ViewCareer.TotalHP.Value=ViewCareer.TotalHP.Value
ViewCareer.PlayerLogs.Log2.HPGiven.Value=0
end
ViewCareer.PlayerLogs.Log2.Name="Log"
if Edit.Task.Checked.Value==true then
ViewCareer.Task.Value=true
end
I = ViewCareer.PlayerLogs:GetChildren()
M = #ViewCareer.PlayerLogs:GetChildren()
if ViewCareer~=nil then
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..ViewCareer.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#ViewCareer.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..ViewCareer.PlayerName.Value)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..ViewCareer.PlayerRank.Value)
if I[M]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..I[M].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(I[M].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(I[M].LogDesc.Value)
end
if I[M-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..I[M-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(I[M-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(I[M-1].LogDesc.Value)
end
if I[M-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..I[M-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(I[M-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(I[M-2].LogDesc.Value)
end
end
T=game.Lighting.MainFrame:GetChildren()
G=#game.Lighting.MainFrame:GetChildren()
if T[G]~=nil then
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
end
if T[G-1]~=nil then
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
end
if T[G-2]~=nil then
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
end
Edit.Visible=false
sp.AddLog.Task.Checked.Value=false
sp.AddLog.GoodLog.Checked.Value=false
sp.AddLog.BadLog.Checked.Value=false
Edit.NormalLog.Checked.Value=true
sp.AddLog.AmountBox.Text="Enter HP Amount"
sp.AddLog.NoteBox.Text=("Enter notes (required)")
Edit.BadLog.Text=""
Edit.GoodLog.Text=""
Edit.NormalLog.Text="X"
sp.AddLog.Task.Text=""
Enabled=true
end)
----------Create a Career-------------
Career.CreateButton.MouseButton1Click:connect(function()
if not Career.SearchBar.Text:match(NAllowed) and Career.SearchBar.Text~="" and game.Lighting.MainFrame:FindFirstChild((string.lower(Career.SearchBar.Text:match(Allowed))))==nil and Enabled==true and Task1() then
sp.Confirm.Visible=true
sp.Confirm.name.Text=Career.SearchBar.Text
Career.SearchBar.ClearTextOnFocus=false
Enable=false
end
end)
sp.Confirm.Yes.MouseButton1Click:connect(function()
game.Lighting.Career1:clone().Parent=game.Lighting.MainFrame
game.Lighting.MainFrame.Career1.PlayerName.Value=sp.Confirm.name.Text
game.Lighting.Log:clone().Parent=game.Lighting.MainFrame.Career1.PlayerLogs
game.Lighting.MainFrame.Career1.PlayerLogs.Log.HPGiven.Value=0
game.Lighting.MainFrame.Career1.PlayerLogs.Log.LogDesc.Value=".:Computer Message:. This is a standard log created when a Soldiers's career is made."
game.Lighting.MainFrame.Career1.PlayerLogs.Log.PlayerCreated.Value=plr.Name
game.Lighting.MainFrame.Career1.Name=(string.lower(sp.Confirm.name.Text:match(Allowed)))
ViewCareer=game.Lighting.MainFrame:FindFirstChild(string.lower(sp.Confirm.name.Text:match(Allowed)))
local I = ViewCareer.PlayerLogs:GetChildren()
local M = #ViewCareer.PlayerLogs:GetChildren()
if ViewCareer~=nil then
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..ViewCareer.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#ViewCareer.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..ViewCareer.PlayerName.Value)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..ViewCareer.PlayerRank.Value)
if I[M]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..I[M].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(I[M].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(I[M].LogDesc.Value)
else
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_1.AuthorName.Text=("--")
PlayCareer.Logs.Log_1.Desc.Text=("--")
end
if I[M-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..I[M-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(I[M-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(I[M-1].LogDesc.Value)
else
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_2.AuthorName.Text=("--")
PlayCareer.Logs.Log_2.Desc.Text=("--")
end
if I[M-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..I[M-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(I[M-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(I[M-2].LogDesc.Value)
else
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l --")
PlayCareer.Logs.Log_3.AuthorName.Text=("--")
PlayCareer.Logs.Log_3.Desc.Text=("--")
end
end
T=game.Lighting.MainFrame:GetChildren()
G=#game.Lighting.MainFrame:GetChildren()
if T[G]~=nil then
Career.PlayerCareer.Visible=true
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
else
Career.PlayerCareer.Visible=false
end
if T[G-1]~=nil then
Career.PlayerCareer2.Visible=true
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
else
Career.PlayerCareer2.Visible=false
end
if T[G-2]~=nil then
Career.PlayerCareer3.Visible=true
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
else
Career.PlayerCareer3.Visible=false
end
sp.Confirm.name.Text=("--")
sp.Confirm.Visible=false
Career.SearchBar.ClearTextOnFocus=true
Enabled=true
Career.ScrollDown.Visible=true
Career.ScrollUp.Visible=true
end)
sp.Confirm.No.MouseButton1Click:connect(function()
sp.Confirm.name.Text=("--")
sp.Confirm.Visible=false
Career.SearchBar.ClearTextOnFocus=true
Enabled=true
end)
-----------------------Edit Player Rank-----------------------------
PlayCareer.CareerStats.EditRank.MouseButton1Click:connect(function()
if ViewCareer==nil or not Task2() then
return nil
else
sp.RankEdit.Visible=true
sp.RankEdit.name.Text=ViewCareer.PlayerName.Value
Enabled=false
end
end)
sp.RankEdit.Yes.MouseButton1Click:connect(function()
if sp.RankEdit.NewRank.Text=="" or sp.RankEdit.NewRank.Text:match(NAllowed3) then
return nil
end
ViewCareer.PlayerRank.Value=sp.RankEdit.NewRank.Text
game.Lighting.Log:clone().Parent=ViewCareer
ViewCareer.Log.HPGiven.Value=0
ViewCareer.Log.PlayerCreated.Value=(plr.Name)
ViewCareer.Log.LogDesc.Value=(".:Computer Message:. Soldier's rank was changed.")
ViewCareer.Log.Parent=ViewCareer.PlayerLogs
I = ViewCareer.PlayerLogs:GetChildren()
M = #ViewCareer.PlayerLogs:GetChildren()
if ViewCareer~=nil then
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..ViewCareer.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#ViewCareer.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..ViewCareer.PlayerName.Value)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..ViewCareer.PlayerRank.Value)
if I[M]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..I[M].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(I[M].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(I[M].LogDesc.Value)
end
if I[M-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..I[M-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(I[M-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(I[M-1].LogDesc.Value)
end
if I[M-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..I[M-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(I[M-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(I[M-2].LogDesc.Value)
end
end
T=game.Lighting.MainFrame:GetChildren()
G=#game.Lighting.MainFrame:GetChildren()
if T[G]~=nil then
Career.PlayerCareer.Visible=true
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
else
Career.PlayerCareer.Visible=false
end
if T[G-1]~=nil then
Career.PlayerCareer2.Visible=true
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
else
Career.PlayerCareer2.Visible=false
end
if T[G-2]~=nil then
Career.PlayerCareer3.Visible=true
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
else
Career.PlayerCareer3.Visible=false
end
Enabled=true
sp.RankEdit.Visible=false
ViewCareer.Task.Value=true
end)
sp.RankEdit.No.MouseButton1Click:connect(function()
Enabled=true
sp.RankEdit.Visible=false
ViewCareer.Task.Value=true
end)
if sp.Banner_Top.Text~=("Welcome to HiveCore's Nexus.") then sp:remove() end
--------------Refesh button---------------------------------------
PlayCareer.Refresh.MouseButton1Click:connect(function()
if ViewCareer==nil or Enabled==false then
return nil
end
I = ViewCareer.PlayerLogs:GetChildren()
M = #ViewCareer.PlayerLogs:GetChildren()
PlayCareer.CareerStats.HPTotal.Text=("Total HP l "..ViewCareer.TotalHP.Value)
PlayCareer.CareerStats.LogTotal.Text=("Total Logs l "..#ViewCareer.PlayerLogs:GetChildren())
PlayCareer.CareerStats.PlayerName.Text=("Name l "..ViewCareer.PlayerName.Value)
PlayCareer.CareerStats.PlayerRank.Text=("Rank l "..ViewCareer.PlayerRank.Value)
if I[M]~=nil then
PlayCareer.Logs.Log_1.HPAdded.Text=("HP l "..I[M].HPGiven.Value)
PlayCareer.Logs.Log_1.AuthorName.Text=(I[M].PlayerCreated.Value)
PlayCareer.Logs.Log_1.Desc.Text=(I[M].LogDesc.Value)
end
if I[M-1]~=nil then
PlayCareer.Logs.Log_2.HPAdded.Text=("HP l "..I[M-1].HPGiven.Value)
PlayCareer.Logs.Log_2.AuthorName.Text=(I[M-1].PlayerCreated.Value)
PlayCareer.Logs.Log_2.Desc.Text=(I[M-1].LogDesc.Value)
end
if I[M-2]~=nil then
PlayCareer.Logs.Log_3.HPAdded.Text=("HP l "..I[M-2].HPGiven.Value)
PlayCareer.Logs.Log_3.AuthorName.Text=(I[M-2].PlayerCreated.Value)
PlayCareer.Logs.Log_3.Desc.Text=(I[M-2].LogDesc.Value)
end
print("refresh")
end)
-------------function Check All Careers.--------------------------------
Career.AllButton.MouseButton1Click:connect(function()
Career.PlayerCareer.Visible=true
Career.PlayerCareer2.Visible=true
Career.PlayerCareer3.Visible=true
Career.ScrollDown.Visible=true
Career.ScrollUp.Visible=true
T=game.Lighting.MainFrame:GetChildren()
G=#game.Lighting.MainFrame:GetChildren()
if T[G]~=nil then
Career.PlayerCareer.Visible=true
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
else
Career.PlayerCareer.Visible=false
end
if T[G-1]~=nil then
Career.PlayerCareer2.Visible=true
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
else
Career.PlayerCareer2.Visible=false
end
if T[G-2]~=nil then
Career.PlayerCareer3.Visible=true
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
else
Career.PlayerCareer3.Visible=false
end
end)
------------------function look through career list---------------------------------
Career.ScrollDown.MouseButton1Click:connect(function()
if G<=3 or Enabled==false then
return nil
else
G=G-1
if T[G]~=nil then
Career.PlayerCareer.Visible=true
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
else
Career.PlayerCareer.Visible=false
end
if T[G-1]~=nil then
Career.PlayerCareer2.Visible=true
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
else
Career.PlayerCareer2.Visible=false
end
if T[G-2]~=nil then
Career.PlayerCareer3.Visible=true
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
else
Career.PlayerCareer3.Visible=false
end
end
end)
Career.ScrollUp.MouseButton1Click:connect(function()
if G==#game.Lighting.MainFrame:GetChildren() or Enabled==false then
return nil
else
G=G+1
if T[G]~=nil then
Career.PlayerCareer.Visible=true
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
else
Career.PlayerCareer.Visible=false
end
if T[G-1]~=nil then
Career.PlayerCareer2.Visible=true
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
else
Career.PlayerCareer2.Visible=false
end
if T[G-2]~=nil then
Career.PlayerCareer3.Visible=true
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
else
Career.PlayerCareer3.Visible=false
end
end
end)
---------------Delete Career----------------------------------------------------
Career.DeleteButton.MouseButton1Click:connect(function()
if ViewCareer~=nil and Enabled==true and Task2()then
sp.Confirm1.Visible=true
sp.Confirm1.name.Text=ViewCareer.PlayerName.Value
Career.SearchBar.ClearTextOnFocus=false
Enable=false
end
end)
sp.Confirm1.Yes.MouseButton1Click:connect(function()
if ViewCareer~=nil then ViewCareer:remove() end
Career.PlayerCareer.Visible=true
Career.PlayerCareer2.Visible=true
Career.PlayerCareer3.Visible=true
Career.ScrollDown.Visible=true
Career.ScrollUp.Visible=true
T=game.Lighting.MainFrame:GetChildren()
G=#game.Lighting.MainFrame:GetChildren()
if T[G]~=nil then
Career.PlayerCareer.Visible=true
Career.PlayerCareer.HPAmount.Text=("HP l "..T[G].TotalHP.Value)
Career.PlayerCareer.LogAmount.Text=("Logs l "..#T[G].PlayerLogs:GetChildren())
Career.PlayerCareer.PlayerName.Text=(T[G].PlayerName.Value)
else
Career.PlayerCareer.Visible=false
end
if T[G-1]~=nil then
Career.PlayerCareer2.Visible=true
Career.PlayerCareer2.HPAmount.Text=("HP l "..T[G-1].TotalHP.Value)
Career.PlayerCareer2.LogAmount.Text=("Logs l "..#T[G-1].PlayerLogs:GetChildren())
Career.PlayerCareer2.PlayerName.Text=(T[G-1].PlayerName.Value)
else
Career.PlayerCareer2.Visible=false
end
if T[G-2]~=nil then
Career.PlayerCareer3.Visible=true
Career.PlayerCareer3.HPAmount.Text=("HP l "..T[G-2].TotalHP.Value)
Career.PlayerCareer3.LogAmount.Text=("Logs l "..#T[G-2].PlayerLogs:GetChildren())
Career.PlayerCareer3.PlayerName.Text=(T[G-2].PlayerName.Value)
else
Career.PlayerCareer3.Visible=false
end
LoadPlayerCareer()
sp.Confirm1.Visible=false
sp.Confirm1.name.Text=("--")
Enabled=true
end)
sp.Confirm1.No.MouseButton1Click:connect(function()
sp.Confirm1.name.Text=("--")
sp.Confirm1.Visible=false
Career.SearchBar.ClearTextOnFocus=true
Enabled=true
end)
~girlz~ |
|
|
I need an original, not WIJ's |
|
tesloboJoin Date: 2010-03-27
Post Count: 18828 |
Use a google spreadsheet that everybody can see, but only the set admins can modify.
This is how most clans do it if they can't script. |
|
|
Care;
no matter how much he offers
don't go first. |
|
AwesDogeJoin Date: 2011-09-26
Post Count: 4104 |
The GroupID is mentioned in the script..lol. |
|
iGirlzJoin Date: 2013-03-05
Post Count: 93 |
its not WIJs
lol
HiveCore's
~girlz~ |
|