mob/Login()
    usr.loc=locate(1,1,1)
    usr.icon='black.dmi'
world
    icon_size=16
    name="farm"

mob/Move()
    if(src.m==1)
        return
    else
        ..()
mob/var
    farmlevel=1
    farmexp=1
    farmmaxexp=10
    nabos=0

    stm=10000
    mstm=10000

    real=1

    m=0
turf
    var
        arada=0
        araa=0
        plantada=0
    dirt
        icon='turfs.dmi'
        icon_state="dirt"
        density=0
        araa=1

mob/Stat()
    statpanel("[usr]'s stats")
    stat("Grana=[usr.real] reais")
    stat("Plantas Colhidas")
    stat("Nabos=[usr.nabos]")
    stat("Ferramentas e Itens")
    stat(usr.contents)

obj/var
    bprob=0
    stmuse=10
    nabo=0
obj/TurnipSeed
    icon='turfs.dmi'
    icon_state="saco"
    Click()
        src.loc=usr
    verb/plantar()
        for(var/T as turf in get_step(usr,usr.dir))
            if(T:arada==1||T:plantada==0)
                T:plantada=1
                var/obj/nabo/N=new()
                N.loc=T:loc
                N.plantanabo()
                src<<"you planted a turnip!"
                del(src)
obj/Turnip
    var
        water=0
        lvl=1
        colhe=0
    icon='turfs.dmi'
    icon_state="seed"
    density=0
    nabo=1
    verb/colher()
        set category=null
        if(src.colhe==1)
            usr.nabos++
            for(var/T as turf in src.loc)
                if(T:arada==1||T:plantada==1)
                    T:plantada=0
            del(src)
obj/Turnip/proc/plantanabo()
    sleep(600)
    if(src.water==1)
        if(src.lvl==1)
            for(var/T as turf in src.loc)
                T:overlays=null
            src.water=0
            src.icon_state="1"
            src.lvl++
            src.density=1
            src.plantanabo()
        if(src.lvl==2)
            for(var/T as turf in src.loc)
                T:overlays=null
            src.water=0
            src.icon_state="nabo"
            src.lvl++
            src.colhe=1
            src.density=1
            src.plantanabo()
        else
            return
    else
        del(src)
obj/Hoe

    icon='turfs.dmi'
    icon_state="enxada"
    Click()
        src.loc=usr
    verb/arar()
        if(usr.stm<=src.stmuse-1)
            usr<<"not enough stamina!"
            return
        else
            for(var/T as turf in get_step(usr,usr.dir))
                if(T:araa==1)
                    T:icon_state="till"
                    T:arada=1
                    T:araa=0
                    usr.stm-=src.stmuse
                    if(prob(bprob))
                        usr<<"Your hoe is broken!"
                        del(src)

obj/Bed
    icon='cama.dmi'
    Click()
        usr.loc=src.loc
        usr.m=0
        usr<<"Você descansa por 30 secs"
        sleep(600)
        usr.stm=usr.mstm
        usr.m=0
        usr<<"Recuperado!"
        
obj/WateringCan
    icon='turfs.dmi'
    icon_state="rega"
    Click()
        src.loc=usr
    verb/water()
        if(usr.stm<=src.stmuse-1)
            src<<"Sem stamina!"
            return
        for(var/T as obj in get_step(usr,usr.dir))
            if(T:nabo==1)
                T:water=1
        for(var/T as turf in get_step(usr,usr.dir))
            T:overlays+='aaa.dmi'
        usr.stm-=src.stmuse
        if(prob(bprob))
            usr<<"Your Watering can is broken!"
            del(src)