mob/var/Dballs=0
mob/proc/Add_Dragon()
   if(usr.Dballs == 7)
         usr.verbs+=/new/mob/proc/Summon_Dragon
mob/proc/Summon_Dragon()
   set category = "DragonBalls"
   switch(input("What would you like to wish for?") in list("Zenni"))
        if("Zenni")
              var/amount = input("How much?") as num
              usr.Zenni+=amount
              usr.contents-=/obj/Dball
              usr.contents-=/obj/Dball2
              usr.contents-=/obj/Dball3
              usr.contents-=/obj/Dball4
              usr.contents-=/obj/Dball5
              usr.contents-=/obj/Dball6
              usr.contents-=/obj/Dball7
              usr.verbs-=/mob/proc/Summon_Dragon


obj/Dball
   icon = 'Dball.dmi'
   verb/PickUp()
       set src in oview(1)
       Move(usr)
       usr <<"You get the 1st star DragonBall!" 
       usr.Dballs++
       Add_Dragon()
   verb/Drop()
       src.loc = locate(usr.x,usr.y,usr.z)
       usr <<"You drop the 1st star DragonBall!" 
       usr.Dballs--
obj/Dball2
   icon = 'Dball2.dmi'
   verb/PickUp()
       set src in oview(1)
       Move(usr)
       usr <<"You get the 2nd star DragonBall!"
       usr.Dballs++
       usr.Add_Dragon()
   verb/Drop()
       src.loc = locate(usr.x,usr.y,usr.z)
       usr <<"You drop the 2nd star DragonBall!" 
       usr.Dballs--

obj/Dball3
   icon = 'Dball3.dmi'
   verb/PickUp()
       set src in oview(1)
       Move(usr)
       usr <<"You get the 3rd star DragonBall!"
       usr.Dballs++ 
       usr.Add_Dragon()
   verb/Drop()
       src.loc = locate(usr.x,usr.y,usr.z)
       usr <<"You drop the 3rd star DragonBall!"
       usr.Dballs--

obj/Dball4
   icon = 'Dball4.dmi'
   verb/PickUp()
       set src in oview(1)
       Move(usr)
       usr <<"You get the 4th star DragonBall!"
       usr.Dballs++
       usr.Add_Dragon()
   verb/Drop()
       src.loc = locate(usr.x,usr.y,usr.z)
       usr <<"You drop the 4th star DragonBall!"
       usr.Dballs--



obj/Dball5
   icon = 'Dball5.dmi'
   verb/PickUp()
       set src in oview(1)
       Move(usr)
       usr <<"You get the 5th star DragonBall!"
       usr.Dballs++
       usr.Add_Dragon()
   verb/Drop()
       src.loc = locate(usr.x,usr.y,usr.z)
       usr <<"You drop the 5th star DragonBall!"
       usr.Dballs--

obj/Dball6
   icon = 'Dball6.dmi'
   verb/PickUp()
       set src in oview(1)
       Move(usr)
       usr <<"You get the 6th star DragonBall!"
       usr.Dballs++
       usr.Add_Dragon()
   verb/Drop()
       src.loc = locate(usr.x,usr.y,usr.z)
       usr <<"You drop the 6rd star DragonBall!"
       usr.Dballs--


obj/Dball7
   icon = 'Dball7.dmi'
   verb/PickUp()
       set src in oview(1)
       Move(usr)
       usr <<"You get the 7th star DragonBall!"
       usr.Dballs++
       usr.Add_Dragon()
   verb/Drop()
       src.loc = locate(usr.x,usr.y,usr.z)
       usr <<"You drop the 7th star DragonBall!"
       usr.Dballs--