"Put jutsu from inventory on the hud" - Problem

ID:142214
 
Jul 23 2008, 12:52 pm
Code:
obj/Jutsu
    icon='Jutsu Icons.dmi'
    Click()
        if(!usr.PvP) return
        ..()
    Henge
        icon_state="Henge"
        name="Henge"
        verb
            Put()
                set name = "Put on HUD"
                var/U = input("Fill in for the place you want it to put.")
                if(U!="F"||U!="f"||U!=1||U!=2||U!=3||U!=4||U!=5||U!=6||U!=7||U!=8||U!=9||U!=0)
                    src << "You need to fill in F, f or 1, 2, 3, 4, 5, 6, 7, 8, 9 or 0."
                    return
                var/obj/Jutsu/Henge/D = new()
                D.layer = 500
                D.density = 1
                if(U=="F")for(var/obj/macrodrag/mF/F in usr.client.screen){for(var/obj/Jutsu/O in view(0,F))del(O);D.loc=F.loc}
                if(U==1)for(var/obj/macrodrag/m1/m1 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m1))del(O);D.loc=m1.loc}
                if(U==2)for(var/obj/macrodrag/m2/m2 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m2))del(O);D.loc=m2.loc}
                if(U==3)for(var/obj/macrodrag/m3/m3 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m3))del(O);D.loc=m3.loc}
                if(U==4)for(var/obj/macrodrag/m4/m4 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m4))del(O);D.loc=m4.loc}
                if(U==5)for(var/obj/macrodrag/m5/m5 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m5))del(O);D.loc=m5.loc}
                if(U==6)for(var/obj/macrodrag/m6/m6 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m6))del(O);D.loc=m6.loc}
                if(U==7)for(var/obj/macrodrag/m7/m7 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m7))del(O);D.loc=m7.loc}
                if(U==8)for(var/obj/macrodrag/m8/m8 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m8))del(O);D.loc=m8.loc}
                if(U==9)for(var/obj/macrodrag/m9/m9 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m9))del(O);D.loc=m9.loc}
                if(U==0)for(var/obj/macrodrag/m0/m0 in usr.client.screen){for(var/obj/Jutsu/O in view(0,m0))del(O);D.loc=m0.loc}
        Click()
            if(usr.Henge)
                spawn Smoke(usr)
                for(var/Stuff in usr.O)
                    usr.overlays += Stuff
                usr.name = usr.namex
                usr.Henge = 0
                usr.overlays = usr.O.Copy()
                usr.icon = usr.Oicon
                return
            if(usr.ko) return
            if(usr.stunned>0) return
            var/L
            for(var/mob/m in oview(6,src))
                if(m.client)
                    L++
            if(!L) return
            if(usr.Chakra<4)
                usr<<"Not enough Chakra(5)"
                return
            if(usr.HengeUsed)
            else usr.HengeUsed+=1
            usr.Chakra-=5
            usr.Jutsu(3)


Problem description:
My apologies if this is very crappy code, and this is my first time coding such a thing, but I don't come out of this.

How can I put that Henge object on the HUD?
the HUD has 1, 2, 3, 4, 5, 6, 7, 8, 9, 0 and a F (favourite jutsu) click thing to put the jutsus on, but how am I gonna do/fix this?

Thank you for your time and regards,

Rick

Jul 23 2008, 2:41 pm
Look up the screen_loc var.
Jul 23 2008, 11:57 pm
 
obj
    macrodrag
        mouse_opacity = 2
        layer = 10
        var/obj/obj
        proc/Set(obj/O)
            obj = O
            overlays += \icon(obj.icon,obj.icon_state)
        verb/Reset()
            obj = null
            overlays = null
        Click()
            if(obj)
                obj.Click()
            else
                usr << "Error message.."

    Jutsu
        verb/Put()
            set name = "Put in HUD"
            var/list/L = new()
            for(var/obj/macrodrag/M in usr.client.screen)
                L["[M.name]: [M.obj.name]"] = M
            var/obj/macrodrag/select=L[input("Please Select","Put in HUD") as null|anything in L]
            if(select)
                select.Set(src)
        Henge
            Click()
                //Do your stuff


Jul 24 2008, 2:11 am
Why not just use MouseDrop & MouseDrag, so much easier.
Jul 24 2008, 2:58 am
In response to Scizzees
How would I do that then? I am so not familiar with that kind of mouse coding.
You could plainly say I'd be a noob at it. :/
Jul 24 2008, 4:23 am
In response to Sokkiejjj
If you want to Drag and Drop, here:
obj
    macrodrag

        mouse_opacity = 2
        layer = 10
        var/obj/obj
        
        proc/Set(obj/O)
            obj = O
            overlays += \icon(obj.icon,obj.icon_state)
            name = O.name
            
        proc/Reset()
            obj = null
            overlays = null
            name = initial(name)
            
        MouseDrag()
            if(obj)
                obj.MouseDrag()
                
        MouseDrop(over_object)
            if(obj&&over_object!=src)
                if(istype(over_object,/obj/macrodrag))
                    var/obj/macrodrag/M = over_object
                    var/obj/O = M.obj // save M's obj
                    obj.MouseDrop(over_object)
                    if(O) // If M's obj exists, do the Swap effect
                        O.MouseDrop(src)
                    else
                        Reset()
                else // If it was dropped to somewhere else, reset
                    Reset()
                
        Click()
            if(obj)
                obj.Click()
            else
                usr << "Error message.."

    Jutsu
        
        MouseDrag()
            usr.client.mouse_pointer_icon = \icon(icon,icon_state)
            
        MouseDrop(over_object)
            if(istype(over_object,/obj/macrodrag))
                var/obj/macrodrag/M = over_object
                M.Set(src)
                
        Henge
            Click()
                //Do your stuff