generic image
Processing...
  • Games
  • Catalog
  • Develop
  • Robux
  • Search in Players
  • Search in Games
  • Search in Catalog
  • Search in Groups
  • Search in Library
  • Log In
  • Sign Up
  • Games
  • Catalog
  • Develop
  • Robux
   
ROBLOX Forum » Club Houses » Clans & Guilds
Home Search
 

Re: HiveCore MainFrame

Previous Thread :: Next Thread 
kungfuman32 is not online. kungfuman32
Joined: 12 Dec 2008
Total Posts: 9172
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
Stelthfighta is not online. Stelthfighta
Joined: 23 Aug 2011
Total Posts: 2863
31 Oct 2012 10:32 PM
Im lost.

BobIsNothing
Report Abuse
kungfuman32 is not online. kungfuman32
Joined: 12 Dec 2008
Total Posts: 9172
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 is not online. 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 is not online. SillyIego
Joined: 03 Jul 2012
Total Posts: 372
31 Oct 2012 10:35 PM
Yay Mainframe source code....annnd I am lost.
Report Abuse
kungfuman32 is not online. kungfuman32
Joined: 12 Dec 2008
Total Posts: 9172
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 is not online. Xnite515
Joined: 18 Feb 2011
Total Posts: 22763
31 Oct 2012 10:38 PM
inefficient i say11
Report Abuse
Xnite515 is not online. 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
kungfuman32 is not online. kungfuman32
Joined: 12 Dec 2008
Total Posts: 9172
31 Oct 2012 11:30 PM
It does your doing it wrong. :)
Report Abuse
Xnite515 is not online. Xnite515
Joined: 18 Feb 2011
Total Posts: 22763
31 Oct 2012 11:30 PM
ok follow
Report Abuse
Spectric is not online. Spectric
Joined: 03 Oct 2012
Total Posts: 13698
31 Oct 2012 11:30 PM
e_e

Scripting is so hard. e_e
Report Abuse
filthyjew69 is not online. filthyjew69
Joined: 01 May 2011
Total Posts: 18
31 Oct 2012 11:32 PM
[ Content Deleted ]
Report Abuse
kungfuman32 is not online. kungfuman32
Joined: 12 Dec 2008
Total Posts: 9172
01 Nov 2012 09:10 AM
>.> still looking for a better way to store and save data.
Report Abuse
AltOfCaboose is not online. AltOfCaboose
Joined: 11 Oct 2012
Total Posts: 119
01 Nov 2012 09:12 AM
When do you become an officer in WIJ?


[Kaboose671]
Report Abuse
OptiTheory is not online. OptiTheory
Joined: 30 Mar 2012
Total Posts: 11272
01 Nov 2012 09:12 AM
Base please.
Report Abuse
kungfuman32 is not online. kungfuman32
Joined: 12 Dec 2008
Total Posts: 9172
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
OptiTheory is not online. OptiTheory
Joined: 30 Mar 2012
Total Posts: 11272
01 Nov 2012 09:21 AM
Thanks. :D
Report Abuse
BAUER102 is not online. BAUER102
Joined: 03 Apr 2010
Total Posts: 5936
01 Nov 2012 09:47 AM
most inefficent mainframe ever, k
Report Abuse
Xnite515 is not online. Xnite515
Joined: 18 Feb 2011
Total Posts: 22763
01 Nov 2012 02:46 PM
^
Report Abuse
kungfuman32 is not online. kungfuman32
Joined: 12 Dec 2008
Total Posts: 9172
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 is not online. Xnite515
Joined: 18 Feb 2011
Total Posts: 22763
01 Nov 2012 03:23 PM
but it very cool
Report Abuse
tyricul is not online. tyricul
Joined: 08 Nov 2009
Total Posts: 13528
01 Nov 2012 03:24 PM
u just got 5k omg
Report Abuse
Previous Thread :: Next Thread 
Page 1 of 1
 
 
ROBLOX Forum » Club Houses » Clans & Guilds
   
 
   
  • About Us
  • Jobs
  • Blog
  • Parents
  • Help
  • Terms
  • Privacy

©2017 Roblox Corporation. Roblox, the Roblox logo, Robux, Bloxy, and Powering Imagination are among our registered and unregistered trademarks in the U.S. and other countries.



Progress
Starting Roblox...
Connecting to Players...
R R

Roblox is now loading. Get ready to play!

R R

You're moments away from getting into the game!

Click here for help

Check Remember my choice and click Launch Application in the dialog box above to join games faster in the future!

Gameplay sponsored by:
Loading 0% - Starting game...
Get more with Builders Club! Join Builders Club
Choose Your Avatar
I have an account
generic image