EcIiptic
|
  |
| Joined: 12 Aug 2009 |
| Total Posts: 13737 |
|
|
| 06 Feb 2014 03:14 PM |
debounce = false ShopGui = script.Parent Player = game.Players.LocalPlayer ShopGui:WaitForChild("ArmourShop") ShopGui:WaitForChild("Shop") game.Workspace.Worktable.ClickDetector.MouseClick:connect(function(plyr) if ShopGui.Shop.Visible == false then script.Disabled = true wait(0.2) script.Disabled = false if ShopGui.Parent.Parent.Name == plyr.Name then Player.PlayerGui.Inventory.Shop.Visible = false Player.PlayerGui.Inventory.OpenShop.Visible = false ShopGui.Shop.Visible = true local character = Player.Character character.Humanoid.WalkSpeed = 0 end end end) Stone = ShopGui.Shop.BuyStone Bronze = ShopGui.Shop.BuyBronze Iron = ShopGui.Shop.BuyIron Steel = ShopGui.Shop.BuySteel Diamond = ShopGui.Shop.BuyDiamond Titanium = ShopGui.Shop.BuyTitanium RefDiamond = ShopGui.Shop.BuyRefDiamond RefTitanium = ShopGui.Shop.BuyRefTitanium StoneA = ShopGui.ArmourShop.BuyStone BronzeA = ShopGui.ArmourShop.BuyBronze IronA = ShopGui.ArmourShop.BuyIron SteelA = ShopGui.ArmourShop.BuySteel DiamondA = ShopGui.ArmourShop.BuyDiamond TitaniumA = ShopGui.ArmourShop.BuyTitanium RefDiamondA = ShopGui.ArmourShop.BuyRefDiamond RefTitaniumA = ShopGui.ArmourShop.BuyRefTitanium function e() for i, v in pairs(ShopGui.Shop:GetChildren()) do if v:IsA("Frame") then v.Visible = false end end for i, v in pairs(ShopGui.ArmourShop:GetChildren()) do if v:IsA("Frame") then v.Visible = false end end end ShopGui.Shop.Close.MouseButton1Down:connect(function() ShopGui.Shop.Visible = false e() local character = Player.Character character.Humanoid.WalkSpeed = 16 Player.PlayerGui.Inventory.OpenShop.Visible = true end) ShopGui.ArmourShop.Close.MouseButton1Down:connect(function() ShopGui.ArmourShop.Visible = false e() local character = Player.Character character.Humanoid.WalkSpeed = 16 Player.PlayerGui.Inventory.OpenShop.Visible = true end) ShopGui.Shop.Armour.MouseButton1Down:connect(function() ShopGui.Shop.Visible = false e() ShopGui.ArmourShop.Visible = true end) ShopGui.ArmourShop.Swords.MouseButton1Down:connect(function() ShopGui.ArmourShop.Visible = false e() ShopGui.Shop.Visible = true end) function Clear(Val) if Val.Visible == false then e() Val.Visible = true else e() end end function Buy(Item, Bar, String, String2, Variable, Num) if debounce == false then debounce = true if Player.Inventory[Item].Value == false then if Player.Inventory[Bar].Value > Num - 1 then Player.Inventory[Bar].Value = Player.Inventory[Bar].Value - Num Player.Inventory[Item].Value = true Variable.TextLabel.Text = String.." "..String2.." Added" wait(1) Variable.TextLabel.Text = "Create "..String.." "..String2.."?" else Variable.TextLabel.Text = "Not Enough Materials" wait(1) Variable.TextLabel.Text = "Create "..String.." "..String2.."?" end else Variable.TextLabel.Text = "You Can Only Have 1 "..String.." "..String2 wait(1) Variable.TextLabel.Text = "Create "..String.." "..String2.."?" end end debounce = false end ShopGui.Shop.StoneSword.MouseButton1Down:connect(function() Clear(Stone) Stone.Create.MouseButton1Down:connect(function() Buy("StoneSwordValue", "StoneBarValue", "Stone", "Sword", Stone, 5) end) end) ShopGui.Shop.BronzeSword.MouseButton1Down:connect(function() Clear(Bronze) Bronze.Create.MouseButton1Down:connect(function() Buy("BronzeSwordValue", "BronzeBarValue", "Bronze", "Sword", Bronze, 5) end) end) ShopGui.Shop.IronSword.MouseButton1Down:connect(function() Clear(Iron) Iron.Create.MouseButton1Down:connect(function() Buy("IronSwordValue", "IronBarValue", "Iron", "Sword", Iron, 5) end) end) ShopGui.Shop.SteelSword.MouseButton1Down:connect(function() Clear(Steel) Steel.Create.MouseButton1Down:connect(function() Buy("SteelSwordValue", "SteelBarValue", "Steel", "Sword", Steel, 5) end) end) ShopGui.Shop.DiamondSword.MouseButton1Down:connect(function() Clear(Diamond) Diamond.Create.MouseButton1Down:connect(function() Buy("DiamondSwordValue", "DiamondBarValue", "Diamond", "Sword", Diamond, 5) end) end) ShopGui.Shop.TitaniumSword.MouseButton1Down:connect(function() Clear(Titanium) Titanium.Create.MouseButton1Down:connect(function() Buy("TitaniumSwordValue", "TitaniumBarValue", "Titanium", "Sword", Titanium, 5) end) end) ShopGui.Shop.RefDiamondSword.MouseButton1Down:connect(function() Clear(RefDiamond) RefDiamond.Create.MouseButton1Down:connect(function() Buy("RefDiamondSwordValue", "RefDiamondBarValue", "Refined Diamond", "Sword", RefDiamond, 5) end) end) ShopGui.Shop.RefTitaniumSword.MouseButton1Down:connect(function() Clear(RefTitanium) RefTitanium.Create.MouseButton1Down:connect(function() Buy("RefTitaniumSwordValue", "RefTitaniumBarValue", "Refined Titanium", "Sword", RefTitanium, 5) end) end) ShopGui.ArmourShop.StoneArmour.MouseButton1Down:connect(function() Clear(StoneA) StoneA.Create.MouseButton1Down:connect(function() Buy("StoneArmourValue", "StoneBarValue", "Stone", "Armour", StoneA, 20) end) end) ShopGui.ArmourShop.BronzeArmour.MouseButton1Down:connect(function() Clear(BronzeA) BronzeA.Create.MouseButton1Down:connect(function() Buy("BronzeArmourValue", "BronzeBarValue", "Bronze", "Armour", BronzeA, 20) end) end) ShopGui.ArmourShop.IronArmour.MouseButton1Down:connect(function() Clear(IronA) IronA.Create.MouseButton1Down:connect(function() Buy("IronArmourValue", "IronBarValue", "Iron", "Armour", IronA, 20) end) end) ShopGui.ArmourShop.SteelArmour.MouseButton1Down:connect(function() Clear(IronA) SteelA.Create.MouseButton1Down:connect(function() Buy("SteelArmourValue", "SteelBarValue", "Steel", "Armour", SteelA, 20) end) end) ShopGui.ArmourShop.DiamondArmour.MouseButton1Down:connect(function() Clear(DiamondA) DiamondA.Create.MouseButton1Down:connect(function() Buy("DiamondArmourValue", "DiamondBarValue", "Diamond", "Armour", DiamondA, 20) end) end) ShopGui.ArmourShop.TitaniumArmour.MouseButton1Down:connect(function() Clear(TitaniumA) TitaniumA.Create.MouseButton1Down:connect(function() Buy("TitaniumArmourValue", "TitaniumBarValue", "Titanium", "Armour", TitaniumA, 20) end) end) ShopGui.ArmourShop.RefDiamondArmour.MouseButton1Down:connect(function() Clear(RefDiamondA) RefDiamondA.Create.MouseButton1Down:connect(function() Buy("RefDiamondArmourValue", "RefDiamondBarValue", "Refined Diamond", "Armour", RefDiamondA, 20) end) end) ShopGui.ArmourShop.RefTitaniumArmour.MouseButton1Down:connect(function() Clear(RefTitaniumA) RefTitaniumA.Create.MouseButton1Down:connect(function() Buy("RefTitaniumArmourValue", "RefTitaniumBarValue", "Refined Titanium", "Armour", RefTitaniumA, 20) end) end
helpppdd |
|
|
| Report Abuse |
|
|
| 06 Feb 2014 03:25 PM |
| Good God... This forums is not for spamming random numbers and words, this is for actual scripts and specific questions... |
|
|
| Report Abuse |
|
EcIiptic
|
  |
| Joined: 12 Aug 2009 |
| Total Posts: 13737 |
|
| |
|
| 06 Feb 2014 07:08 PM |
| You expect us to help you with such a messy made script. |
|
|
| Report Abuse |
|
|
| 06 Feb 2014 07:17 PM |
| I don't even understand what the problem is. You just pasted your script and said "helpppd". |
|
|
| Report Abuse |
|
EcIiptic
|
  |
| Joined: 12 Aug 2009 |
| Total Posts: 13737 |
|
|
| 06 Feb 2014 07:20 PM |
@Zck
This was a joke lol.
I got my script, which is neat, and then made it all squashed together then posted here lololol. |
|
|
| Report Abuse |
|
|
| 06 Feb 2014 07:20 PM |
| Again, I reported you for another spam post. |
|
|
| Report Abuse |
|
|
| 06 Feb 2014 07:22 PM |
can anyone help me make a script, or tell me the " . / ' - [ = thingys needed and where? |
|
|
| Report Abuse |
|