Jump to content
Sign in to follow this  
︻芫═———Tropica

Tropica Developer Application

Recommended Posts

Steam ID: 
STEAM_0:1:98079545

Steam Community Profile Page Link:
https://steamcommunity.com/id/ItsYaBoiTropica/

Current In-Game Alias (E.g. PVT Badger):
US PVT Tropica

Most Commonly Known Alias (E.g. Badger):
Tropica

Do you understand that Colossal server(s) are to be monitored sensibly and your duties are to be taken seriously at all times:
Yes, I do.

Have you had any bans to date? If so, please explain to us why we should still accept you:
I have 1 ban for Minging, but that was last year (I don't remember what happened). You should still accept me because i've changed in a good way.

Any work that you'd like to show?:

local ply = FindMetaTable("Player")

local teams = {}

teams[0] = {
    name = "Red",
    color = Vector( 1.0, 0, 0 ),
    weapons = { "weapon_revolver", "weapon_vampcrowbar", "weapon_physgun", "gmod_tool" } }
teams[1] = {
    name = "Blue",
    color = Vector( 0, 0, 1.0 ),
    weapons = { "weapon_revolver", "weapon_vampcrowbar", "weapon_physgun", "gmod_tool" } }
    
function ply:SetupTeam( n )
    if ( not teams[n] ) then return end
    
    self:SetTeam( n )
    self:SetPlayerColor( teams[n].color )
    self:SetHealth( 150 )
    self:SetMaxHealth( 200 )
    self:SetWalkSpeed( 100 )
    self:SetRunSpeed( 1000 )
    self:SetModel( "models/player/Group03m/Male_0" .. math.random(1,9) .. ".mdl" )

    self:GiveWeapons( n )
    
end 

function ply:GiveWeapons( n )
    for k, weapon in pairs( teams [n].weapons ) do
        self:Give( weapon )
    end
end

^^ Team Setup & custom sweps for pre made guns. pic 1 is custom swep, pic 2 is teams
1636899fbcef1bef9e13db7858b61176.jpg
https://gyazo.com/1636899fbcef1bef9e13db7858b61176
0bc37c84b48fed7836638c4961cd8184.png
https://gyazo.com/0bc37c84b48fed7836638c4961cd8184

function GM:PlayerShouldTakeDamage( ply, attacker )
    local att
    if( attacker:IsPlayer() ) then
        att = attacker
    elseif( attacker:IsNPC() ) then
        return true
    elseif( attacker:IsWorld() ) then
        return true
    else
        att = attacker:GetOwner()
    end
    
    if( ply:Team() == att:Team() ) then
        return false
    end
    
    return true
end

^^ Can't Damage Teammates
694ed8f6cce78650d2de6cfa031ca547.png
https://gyazo.com/694ed8f6cce78650d2de6cfa031ca547
 

function GM:PlayerCanSeePlayersChat( text, teamOnly, listener, speaker )
    local dist = listener:GetPos():Distance( speaker:GetPos() )
    
    if( dist <= 200 ) then
        print( "You have been heard." )
        return true
    end

    print( "You have not been heard." )
    return false

end
^^ Distance between where people can and can't see ur text message


 

function GM:PlayerCanHearPlayersVoice( listener, speaker )
    return( listener:GetPos():Distance( speaker:GetPos() ) < 200 )
end

util.AddNetworkString( "ServerMsg" )
^^ Distance between where people can hear/cant hear voice. it says it before i said hey, not sure why.
02a8beb9dcebcfaf222b2150552c82ea.png
https://gyazo.com/02a8beb9dcebcfaf222b2150552c82ea

hook.Add( "PlayerSay", "CommandIdent", function( ply, text, bteam )  

    text = string.lower ( text )
    if( text == "!msg" ) then
    
        net.Start( "ServerMsg" )
            net.WriteString( "My favourite number is " )
            net.WriteInt( 1000, 12 )
            net.WriteBool( false )
        net.Send( ply )
        
        return "Server Message Sent."
    end 

    if( text == "!hurt" ) then
        ply:SetHealth( ply:Health() - 100 )
        if( ply:Health() <= 0 ) then
            ply:Kill()
        end
        return "OUCH! HELP! I NEED A MEDIC!"
    end
    
    if( string.sub( text, 1, 4 ) == "/ooc" ) then
        return "(OOC)" .. string.sub( text, 5 )
    end
    
    if( string.sub( text, 1, 6 ) == "/comms" ) then
        return "[Comms]" .. string.sub( text, 7 )
    end

end)
^^ Commands, /comms, /ooc, etc. i know it looks fake but you have to trust me.

c48e1ae641f5cc33df5ca801fa56fd5e.png
https://gyazo.com/c48e1ae641f5cc33df5ca801fa56fd5e
50e4ad1f5dd034ae30eddbeb5f0a086f.png
https://gyazo.com/50e4ad1f5dd034ae30eddbeb5f0a086f
74d1be186eaa882b4994a6abe9aa0551.png
https://gyazo.com/74d1be186eaa882b4994a6abe9aa0551

function GM:ShowHelp( ply )
    ply:SetHealth( math.Clamp( ply:Health() + 25, 0, ply:GetMaxHealth() ) )
end

function GM:ShowTeam( ply )
    ply:SetHealth( ply:Health() - 50 )
    if( ply:Health() <= 0 ) then
        ply:Kill()
    end
end

function GM:ShowSpare1( ply )
    print( "Ouch! Stop Pressing Me, " .. ply:Nick() .."!" )
end

function GM:KeyPress( ply, key )
    if( key == IN_JUMP ) then
        ply:SetVelocity( ply:GetVelocity() + Vector( 0, 0, 1000 ) )
    elseif( key == IN_DUCK ) then
        ply:EmitSound( "vol/Citadel/br_laugh01.wav" )
    end
end

^^ F1-F4 buttons pic 1 with 94 health is me pressing f2 to decrease my health by 50 and pic 2 is me pressing f1 to heal 25hp, f3 says Ouch! Stop Pressing Me, [Name] in console and emits a sound effect and makes me jump very high in the air for 1s.

5e75a7b1f1fea145868ebbee27b1b884.png
https://gyazo.com/5e75a7b1f1fea145868ebbee27b1b884
ceb4c600310bc361d1ae8f30fd260502.png
https://gyazo.com/ceb4c600310bc361d1ae8f30fd260502
bd9485a1053b013ab0110ec7dfd295eb.png
https://gyazo.com/bd9485a1053b013ab0110ec7dfd295eb

local PANEL = {
    Init = function( self )

        self:SetSize( 1000, 720 )
        self:Center()
        self:SetVisible( true )
        
        local x,y = self:GetSize()
            
        local button = vgui.Create( "DButton", self )
        button:SetText( "Close" )
        button:SetSize( 50, 30 )
        button:SetPos( x - 50, 0 )
        function button:Paint( w, h )
            if( button:IsDown() ) then
                button:SetColor( Color( 255, 255, 255 ) )
            elseif( button:IsHovered() ) then
                button:SetColor( Color( 100, 100, 100 ) )
            else
                button:SetColor( Color( 150, 255, 150 ) )
            end
        end
        button.DoClick = function()
            self:SetVisible( false )
            gui.EnableScreenClicker( false )
        end
        
        local label = vgui.Create( "DLabel", self )
        label:SetFont( "MyFont" )
        label:SetText( "Bookings" )
        label:SetPos( 4, 4 )
        label:SizeToContents()
        
        local mainpanel = vgui.Create( "DPanel", self )
        mainpanel:SetPos( 3, 35 )
        mainpanel:SetSize( x - 6, y - 35 - 3 )
        mainpanel.Paint = function( self, w, h )
            draw.RoundedBox( 0, 0, 0, w, h, Color( 100, 100, 100, 100 ) )
        end
        
        local colsheet = vgui.Create( "DColumnSheet", mainpanel )
        colsheet:Dock( FILL )
        
        local sheet1 = vgui.Create( "DPanel", colsheet )
        sheet1:Dock( FILL )
        sheet1.Paint = function( self, w, h )
            draw.RoundedBox( 0, 0, 0, w, h, Color( 10, 10, 10, 100 ) )
        end
        colsheet:AddSheet( "Color Mixer", sheet1, "icon16/accept.png" )
        
            local colormixer = vgui.Create( "DColorMixer", sheet1 )
        colormixer:Dock( TOP )
        colormixer:DockMargin( 15, 10, 15, 10 )
        colormixer:DockPadding( 290, 10, 290, 10 )
        colormixer:SetPalette( true )
        colormixer:SetAlphaBar( true )
        colormixer:SetWangs( true )
        colormixer:SetColor( Color( 150, 255, 150 ) )
        
        local mixbutton = vgui.Create( "DButton", sheet1 )
        mixbutton:Dock( TOP )
        mixbutton:DockMargin( 385, 10, 385, 10 )
        mixbutton:SetText( "Enable" )
        mixbutton.DoClick = function()
            function self:Paint( w, h )
                draw.RoundedBox( 0, 0, 0, w, h, colormixer:GetColor() )
                surface.SetDrawColor( 255, 255, 255 )
                surface.DrawOutlinedRect( 2, 2, w-4, h-4 )
            end
        end

^^ F4 Menu with color mixer (dont worry about the bookings thing)

5876bc569a51dee96a65c65caab1fefe.png
https://gyazo.com/5876bc569a51dee96a65c65caab1fefe

surface.CreateFont( "MyFont", {
    font = "Arial",
    size = 30,
    weight = 500,
} )

hook.Add( "HUDPaint", "HUDIdent", function()

    local ply = LocalPlayer()

    surface.SetDrawColor( 50, 50, 50, 255 )
    surface.DrawRect( 30 - 2, ScrH() - 70 - 2, 300 + 4, 30 + 4 )
    
    surface.SetDrawColor( 255, 100, 100, 255 )
    surface.SetTexture( 10 )
    surface.DrawTexturedRect( 30, ScrH() - 70, 300*( ply:Health() / ply:GetMaxHealth() ), 30 )
    
    draw.SimpleText( ply:Health(), "MyFont", 30 + 150, ScrH() - 70 + 15, Color( 255, 255, 255, 255 ), TEXT_ALIGN_CENTER, TEXT_ALIGN_CENTER)

end)
^^ Custom health bar

1d962f3169b9a60b8bc4eac7c1437b82.png
https://gyazo.com/1d962f3169b9a60b8bc4eac7c1437b82



Note - I am not the best dev, I have tons to learn, (I'm very new to developing and might need help every now and then). I also made a private server so I can test my shit there. I also tried making an f4 menu and it didn't go so well. Pics coming soon. Also @Bobby I know you told me to make something interesting or remake the conquest addon but, I have to buy the conquest addon if I want to edit it and I really don't know what I can make that's interesting for you.
Thanks for looking at my application! Hope you like it!
Much Love ❤️  (Btw most of the code is from a YouTuber tutorial which I understand)

Edited by ︻芫═———Tropica
yes
  • Friendly 1

Share this post


Link to post
Share on other sites
On 6/2/2019 at 12:24 PM, ︻芫═———Tropica said:

@Bobby
Much Love ❤️  (Btw most of the code is from a YouTuber tutorial which I understand)

"From a youtube tutorial".
Idk if anyone here is ready to babysit anyone and teach them how to code on this level, and like if you join you will have to understand how to: Optimise, Edit addons and Badgers Custom Gamemode in which is unknown to all, this isn't really upto me, and I don't know you. And I really don't want to come across as an asshole, even though I sorta am, I don't think your ready! I recommend doing more tutorials, working your way up, asking questions, learning how to get to this level.

Sorry ;~
-1

Share this post


Link to post
Share on other sites

Locked and Moved at request of User

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...