Initially, I warn you, I'm from Russia so that the error does not judge:3
Create darkrp server, and I need help.
Encountered an error:
[CODE][ERROR] gamemodes/darkrp/gamemode/liquiddrp/cl_stores.lua:363: attempt to concatenate field 'curcash' (a nil value)
•• 1. unknown - gamemodes/darkrp/gamemode/liquiddrp /cl_stores.lua:363[/CODE]
Source code cl_store.lua:
[CODE]local LDRP = {}
local function MC(num)
return math.Clamp(num,1,255)
end
function LDRP.ColorMod(r,g,b,a)
local Clrs = LDRP_Theme[LDRP_Theme.CurrentSkin].BGColor
return Color(MC(Clrs.r+r),MC(Clrs.g+g),MC(Clrs.b+b),MC(Clrs.a+a))
end
function LDRP.ConfirmVender(Type,Item,Cost)
local item = string.lower(Item)
local ConfirmWindow = vgui.Create("DFrame")
local w,h = ScrW(),ScrH()
local ws,hs = 240,150
ConfirmWindow:SetSize(ws,hs)
ConfirmWindow:SetPos(-ws,h*.5-(hs*.5))
ConfirmWindow:MoveTo(w*.5-(ws*.5),h*.5-(hs*.5),.2,.2)
ConfirmWindow:MakePopup()
ConfirmWindow:SetTitle("")
ConfirmWindow:ShowCloseButton(false)
local CantSell = (Type == "sell") and (!LocalPlayer().Inventory[item] or LocalPlayer().Inventory[item] < 1)
local WindowSize = (CantSell and hs*.5) or hs
ConfirmWindow.Paint = function()
draw.RoundedBox(6,0,0,ws,WindowSize,LDRP.ColorMod(0,0,0,0))
if Type == "buy" then
draw.SimpleTextOutlined( "Are you sure you want to buy", "Trebuchet22", 4, hs*.2, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
draw.SimpleTextOutlined( "a " .. Item .. " for $" .. Cost, "Trebuchet22", 4, hs*.35, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
elseif Type == "sell" then
if CantSell then
draw.SimpleTextOutlined( "You don't have any to sell.", "Trebuchet22", ws*.5, WindowSize*.5, Color(255,255,255,255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
return
end
local am = LocalPlayer().Inventory[Item]
draw.SimpleTextOutlined( "Are you sure you want to sell", "Trebuchet22", 4, hs*.2, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
draw.SimpleTextOutlined( am .. " " .. Item .. " for $" .. Cost*am, "Trebuchet22", 4, hs*.35, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
end
end
if CantSell then
ConfirmWindow:SetSize(ws,WindowSize)
ConfirmWindow:ShowCloseButton(true)
return
end
local YesButton = vgui.Create("DButton",ConfirmWindow)
YesButton:SetPos(4,hs*.5)
YesButton:SetSize(ws-8,hs*.22)
YesButton:SetText("Yes")
YesButton.DoClick = function()
RunConsoleCommand("__shp",Type,item)
ConfirmWindow:MoveTo(w,h*.5-(hs*.5),.2,.2)
timer.Simple(.4,function()
ConfirmWindow:Close()
end)
end
local NoButton = vgui.Create("DButton",ConfirmWindow)
NoButton:SetPos(4,hs*.74)
NoButton:SetSize(ws-8,hs*.22)
NoButton:SetText("No")
NoButton.DoClick = function()
ConfirmWindow:MoveTo(w,h*.5-(hs*.5),.2,.2)
timer.Simple(.4,function()
ConfirmWindow:Close()
end)
end
end
function LDRP_SH.OpenStoreMenu(name,model,saying,selltable,buytable)
local Store = {}
local w,h = 600,600
Store.BG = vgui.Create("DFrame")
Store.BG:SetSize(600,600)
Store.BG:Center()
Store.BG:MakePopup()
Store.BG:SetTitle("")
Store.BG.Paint = function()
draw.RoundedBox(8,0,0,w,h,LDRP.ColorMod(20,20,20,10))
draw.RoundedBox(6,2,36,w-4,h-528,LDRP.ColorMod(30,30,30,30))
draw.SimpleTextOutlined( name,"HUDNumber", w*.5, h*.03, Color(170,170,170,255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
draw.SimpleTextOutlined( saying,"Trebuchet24", w*.5+38, h-528, Color(255,255,255,255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
draw.RoundedBox(6,2,h*.184,w-4,h-114,LDRP.ColorMod(30,30,30,30))
draw.SimpleTextOutlined( "Покупка","HUDNumber", w*.01, h*.23, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
draw.SimpleTextOutlined( "Продажа","HUDNumber", w*.01, h*.62, Color(255,255,255,255), TEXT_ALIGN_LEFT, TEXT_ALIGN_CENTER, 2, Color(0,0,0,255) )
end
Store.NPCPic = vgui.Create("SpawnIcon",Store.BG)
Store.NPCPic:SetPos(6,40)
Store.NPCPic:SetModel(model)
Store.SellingList = vgui.Create("DPanelList",Store.BG)
Store.SellingList:SetPos(6,h*.285)
Store.SellingList:SetSize(w-12,h*.29)
Store.SellingList:SetSpacing(4)
Store.SellingList:SetPadding(4)
Store.SellingList:EnableHorizontal(true)
Store.SellingList:EnableVerticalScrollbar(true)
Store.BuyingList = vgui.Create("DPanelList",Store.BG)
Store.BuyingList:SetPos(6,h*.67)
Store.BuyingList:SetSize(w-12,h*.31)
Store.BuyingList:SetSpacing(4)
Store.BuyingList:SetPadding(4)
Store.BuyingList:EnableHorizontal(true)
Store.BuyingList:EnableVerticalScrollbar(true)
for k,v in pairs(selltable) do
local Lower = string.lower(k)
local ItemIcon = CreateIcon(nil,LDRP_SH.AllItems[Lower].mdl,76,76,function() LDRP.ConfirmVender("buy",Lower,v) end)
ItemIcon:SetToolTip(k .. "\nSell Price: $" .. v)
Store.SellingList:AddItem(ItemIcon)
end
for k,v in pairs(buytable) do
local Lower = string.lower(k)
local ItemIcon = CreateIcon(nil,LDRP_SH.AllItems[Lower].mdl,76,76,function() LDRP.ConfirmVender("sell",string.lower(Lower),v) end)
ItemIcon:SetToolTip(k .. "\nBuy Price: $" .. v)
Store.BuyingList:AddItem(ItemIcon)
end
end
function LDRP.RulesMenu()
local Loading = true
local Window = vgui.Create("DFrame")
local w,h = ScrW()*.8,ScrH()*.8
Window:SetSize(w,h)
Window:SetPos(ScrW()*.1,ScrH()*.1)
Window.Paint = function()
draw.RoundedBox( 8, 0, 0, w, h, LDRP.ColorMod(-40,-40,-40,60) )
if Loading then
draw.SimpleTextOutlined("Loading Webpage", "HUDNumber", w*.5, h*.5, Color(255,255,255), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER, 2, Color(0,0,0) )
end
end
Window:SetTitle("Rules")
Window:MakePopup()
local HTML = vgui.Create("HTML",Window)
HTML:SetPos(6,22)
HTML:SetSize(w-8,h-30)
HTML:OpenURL("http://www.LiquidGaming.org/helprulesdrp.html")
HTML.FinishedURL = function()
Loading = false
end
HTML.OpeningURL = function()
Loading = true
end
return ""
end
concommand.Add("rules",LDRP.RulesMenu)
-- Bank bullshit
function LDRP.SendItemInfo(um)
LocalPlayer().Bank[tostring(um:ReadString())] = um:ReadFloat()
end
usermessage.Hook("SendBItem",LDRP.SendItemInfo)
function LDRP.SendMaxWeight(um)
LocalPlayer().MaxBWeight = um:ReadFloat()
end
usermessage.Hook("SendBWeight",LDRP.SendMaxWeight)
function LDRP.OpenItemOptions(item,Type,nicename)
local TypeTbl = (Type == "bank" and LocalPlayer().Inventory) or LocalPlayer().Bank
if TypeTbl[item] then
local WepNames = LDRP_SH.NicerWepNames
local OptionsMenu = vgui.Create("DFrame")
OptionsMenu:SetSize(200, 70)
OptionsMenu:SetPos(-200, ScrH()*.5-80)
OptionsMenu:MakePopup()
OptionsMenu:MoveTo(ScrW()*.5-100,ScrH()*.5-80,.3)
local Tbl = LDRP_SH.AllItems[item]
OptionsMenu.Paint = function()
draw.RoundedBox(6,0,0,200,70,Color(50,50,50,180))
local name = WepNames[Tbl.nicename] or Tbl.nicename
draw.SimpleTextOutlined(name .. " - " .. TypeTbl[item] .. " left","Trebuchet20",100,14,Color(255,255,255,200),TEXT_ALIGN_CENTER,TEXT_ALIGN_CENTER, 2, Color(0,0,0,200) )
end
OptionsMenu:SetTitle("")
OptionsMenu.MakeClose = function()
OptionsMenu:MoveTo(ScrW(),ScrH()*.5-80,.3)
timer.Simple(.3,function()
if OptionsMenu:IsValid() then OptionsMenu:Close() end
end)
end
local UseButton = vgui.Create("DButton",OptionsMenu)
UseButton:SetPos(4,30)
UseButton:SetSize(192,32)
UseButton:SetText(nicename)
UseButton.DoClick = function()
RunConsoleCommand("_bnk",Type,item)
OptionsMenu.MakeClose()
end
end
end
local WepNames = LDRP_SH.NicerWepNames
function LDRP.BankMenu(ply,cmd,args)
local MainBankBackground = vgui.Create("DFrame")
local w,l = 600,630
MainBankBackground:SetWidth(w)
MainBankBackground:SetHeight(l)
MainBankBackground:MakePopup()
MainBankBackground:Cente
Sorry, you need to Log In to post a reply to this thread.
