All pastes #585641 Raw Edit

Someone

public text v1 · immutable
·published 2007-06-23 11:00 UTC
rendered paste body
DeriveGamemode("sandbox")
AddCSLuaFile("cl_init.lua")
AddCSLuaFile("shared.lua")

start = {}
start.money = 100
start.job = "unemployed"
start.team = 10
start.wm = "Welcome to Paradox!"
start.weapons = { "weapon_physcannon", "weapon_physgun" }
start.paydaytimer = 15


function FirstSpawn( ply )
        local steamid = ply:SteamID()
        ply:SetNWInt("money", start.money)
        ply:SetNWString("job", start.job)
        ply:SetTeam(start.team)
        ply:PrintMessage(HUD_PRINTCENTER, start.wm);
        timer.Simple(start.paydaytimer,Payday,ply)
        if file.Exists( "Paradox/"..steamid..".txt" ) then
           local savedcontents = file.Read( "Paradox/"..steamid..".txt" )
           savedtable = string.Explode("\n", savedcontents)
           ply:SetNWInt("money",savedtable[1])
           ply:SetNWString("job",savedtable[2])
        end
end 
hook.Add( "PlayerInitialSpawn", "playerInitialSpawn", FirstSpawn);

 function playerRespawn( ply ) 
   
 PrintTable(start.weapons)


for key,value in pairs(start.weapons) do
print(key)--this will print 1 and 2
print(value)-- this will print weapon_physcannon then weapon_physgun
ply:Give(value)
end
 
  
 end 
   
 hook.Add( "PlayerSpawn", "playerRespawnTest", playerRespawn );

function playerchat( ply, text, teamsay )
	local chatbl = string.Explode(" ",text) 
	if string.find(text,"$job") then 
		ply:SetNWString("job",chatbl[2])
	end 
end 
hook.Add( "PlayerSay", "playerchat", playerchat );


function Payday(ply)

timer.Simple(start.paydaytimer,Payday,ply)
local money = ply:GetNWInt("money")
ply:SetNWInt("money",money+50)
end

function savestuff(ply)
        local steamid = ply:SteamID()
        local name = ply:Nick()
        local money = ply:GetNWInt("money")
        local job = ply:GetNWString("job")
        file.Write("Paradox/"..steamid..".txt", money.."\n"..job)
end


GM:PlayerDisconnected( ply )
savestuff(ply)
end