|
| 31 Oct 2012 10:30 PM |
>.> here you go mg, here is the source code for the mainframe. It's cool cause this is unusable.
-----------HiveCore MainFrame 1 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+" ViewCareer=nil Ranks={ "Officer"; "Colonel"; "General"; "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 end end
LoadPlayerCareer()
-------Search For Players Career------------------------ Career.SearchButton.MouseButton1Click:connect(function() if Career.SearchBar.Text~="" and not Career.SearchBar.Text:match(NAllowed) and sp.Confirm.Visible~=true then player = game.Lighting.MainFrame:FindFirstChild(string.lower(Career.SearchBar.Text:match(Allowed))) end if player~=nil then Career.PlayerCareer.Visible=true Career.PlayerCareer.HPAmount.Text=("HP l "..player.TotalHP.Value) Career.PlayerCareer.LogAmount.Text=("Logs l "..#player.PlayerLogs:GetChildren()) Career.PlayerCareer.PlayerName.Text=("Name l "..player.PlayerName.Value) else ViewCareer=nil return nil end end)
------Check Player Career------------- Career.PlayerCareer.LogButton.MouseButton1Click:connect(function() if Edit.Visible==true or sp.Confirm.Visible==true then return nil else ViewCareer=player 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=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) 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 sp.Confirm.Visible==true 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 Edit.Visible==true then return 1 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)
-------Edit Player Career--------------------------------- PlayCareer.CareerStats.EditCareer.MouseButton1Click:connect(function() if ViewCareer==nil then return nil end
Edit.Visible=true
end)
Edit.BadLog.MouseButton1Click:connect(function() Edit.BadLog.Checked.Value=true Edit.GoodLog.Checked.Value=false Edit.BadLog.Text="X" Edit.GoodLog.Text="" end)
Edit.GoodLog.MouseButton1Click:connect(function() Edit.BadLog.Checked.Value=false Edit.GoodLog.Checked.Value=true Edit.BadLog.Text="" Edit.GoodLog.Text="X" 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) else ViewCareer.PlayerLogs.Log2.LogDesc.Value=(".:Good 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 end
ViewCareer.PlayerLogs.Log2.Name="Log"
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
Edit.Visible=false 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 then sp.Confirm.Visible=true sp.Confirm.name.Text=Career.SearchBar.Text Career.SearchBar.ClearTextOnFocus=false end end) sp.Confirm.Yes.MouseButton1Click:connect(function() game.Lighting.Career1:clone().Parent=game.Lighting.MainFrame game.Lighting.MainFrame.Career1.PlayerName.Value=Career.SearchBar.Text game.Lighting.MainFrame.Career1.Name=(string.lower(Career.SearchBar.Text:match(Allowed))) sp.Confirm.Visible=false Career.SearchBar.ClearTextOnFocus=true end)
sp.Confirm.No.MouseButton1Click:connect(function() sp.Confirm.name.Text=("--") sp.Confirm.Visible=false Career.SearchBar.ClearTextOnFocus=true end) |
|
|
| Report Abuse |
|
|
| |
|
|
| 31 Oct 2012 10:33 PM |
| This is the source code for HiveCore's mainframe MG wanted. it's cool cause everyone knows nobody will be able to use it let alone understand most of this. |
|
|
| Report Abuse |
|
|
Xnite515
|
  |
| Joined: 18 Feb 2011 |
| Total Posts: 22763 |
|
|
| 31 Oct 2012 10:35 PM |
i understand it
i could make it work |
|
|
| Report Abuse |
|
|
SillyIego
|
  |
| Joined: 03 Jul 2012 |
| Total Posts: 372 |
|
|
| 31 Oct 2012 10:35 PM |
| Yay Mainframe source code....annnd I am lost. |
|
|
| Report Abuse |
|
|
|
| 31 Oct 2012 10:36 PM |
Xnite515, Well we are both creating mainframes so I'm not suprise if you do understand this.
It's only for the majority. |
|
|
| Report Abuse |
|
|
Xnite515
|
  |
| Joined: 18 Feb 2011 |
| Total Posts: 22763 |
|
| |
|
Xnite515
|
  |
| Joined: 18 Feb 2011 |
| Total Posts: 22763 |
|
|
| 31 Oct 2012 10:43 PM |
| fail, this doesn't even work at your place wat |
|
|
| Report Abuse |
|
|
|
| 31 Oct 2012 11:30 PM |
| It does your doing it wrong. :) |
|
|
| Report Abuse |
|
|
Xnite515
|
  |
| Joined: 18 Feb 2011 |
| Total Posts: 22763 |
|
| |
|
Spectric
|
  |
| Joined: 03 Oct 2012 |
| Total Posts: 13698 |
|
|
| 31 Oct 2012 11:30 PM |
e_e
Scripting is so hard. e_e |
|
|
| Report Abuse |
|
|
| |
|
|
| 01 Nov 2012 09:10 AM |
| >.> still looking for a better way to store and save data. |
|
|
| Report Abuse |
|
|
|
| 01 Nov 2012 09:12 AM |
When do you become an officer in WIJ?
[Kaboose671] |
|
|
| Report Abuse |
|
|
| |
|
|
| 01 Nov 2012 09:18 AM |
http://www.roblox.com/Base-item?id=96587748
Just ungroup it and take the menu gui and place it into startergui. |
|
|
| Report Abuse |
|
|
| |
|
BAUER102
|
  |
| Joined: 03 Apr 2010 |
| Total Posts: 5936 |
|
|
| 01 Nov 2012 09:47 AM |
| most inefficent mainframe ever, k |
|
|
| Report Abuse |
|
|
Xnite515
|
  |
| Joined: 18 Feb 2011 |
| Total Posts: 22763 |
|
| |
|
|
| 01 Nov 2012 02:50 PM |
Xnite, old thread is old. BAUER gave the mainframe a thumbs up.
http://www.roblox.com/HiveCore-MainFrame-place?id=26713955 |
|
|
| Report Abuse |
|
|
Xnite515
|
  |
| Joined: 18 Feb 2011 |
| Total Posts: 22763 |
|
| |
|
tyricul
|
  |
| Joined: 08 Nov 2009 |
| Total Posts: 13528 |
|
| |
|