mob/Admin3
verb
Make_Jutsu()
set category="Admin"
switch(input("What to do?","Make") in list ("Make new One"))
if("Make new One")
var/prename = input("Jutsu","What is the name of the jutsu?") as text
var/predescription = input("Perks","What is the jutsu's description?") as message
var/prenote = input("Jutsu","Does this jutsu have a note?") as text
var/preExperience = input("Experience with the Jutsu?","Experience") as text
var/preRanking = input("Ranking of the jutsu?","Rank") as text
var/prePoints = input("How much does this jutsu cost?") as num
var/preType = input("What is the jutsu's type, example: Taijutsu","Types: Taijtusu, Genjutsu, Ninjutsu, Doujutsu, Fuuinjutsu, Senjutsu, Kenjutsu, Kinjutsu") as text
var/precolor = input("Jutsu","What is the perk's text color? Use xfade's code (example:'#8FBC8F') or text (example:'red')") as text
if(precolor==null)
precolor="#8FBC8F"
if(precolor=="")
precolor="#8FBC8F"
if(precolor==" ")
precolor="#8FBC8F"
if(preType=="Doujutsu")
var/obj/O = new/obj/Jutsu/Doujutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
if(preType=="Genjutsu")
var/obj/O = new/obj/Jutsu/Genjutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
if(preType=="Ninjutsu")
var/obj/O = new/obj/Jutsu/Ninjutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
if(preType=="Taijutsu")
var/obj/O = new/obj/Jutsu/Taijutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
if(preType=="Kenjutsu")
var/obj/O = new/obj/Jutsu/Kenjutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
if(preType=="Kinjutsu")
var/obj/O = new/obj/Jutsu/Kinjutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
if(preType=="Fuuinjutsu")
var/obj/O = new/obj/Jutsu/Fuuinjutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
if(preType=="Senjutsu")
var/obj/O = new/obj/Jutsu/Senjutsu
O:presetname="[prename]"
O:presetdescription=predescription
O:presetnote=prenote
O:presetcolor="[precolor]"
O:Ranking="[preRanking]"
O:Experience="[preExperience]"
O:presettype="[preType]"
O:presetpoints="[prePoints]"
if(predescription=="")
O:adescription=0
if(prenote=="")
O:anote=0
if(preRanking=="")
O:Ranking="E-"
if(preExperience=="")
O:Experience="E-"
if(prePoints=="")
O:presetpoints="1"
This is the Perk System I have already For reference
mob/Admin2
verb
Give_Perk(mob/M in world)
set category = "Admin"
var/preicon2=null
switch(input("Create a perk, or use one from the database?","Database") in list("Database","Create"))
if("Create")
switch(input("Perks","Does this perk have an icon for it's skillcard?") in list("Yes","No"))
if("Yes")
var/preicon = input("Perks","Pick an icon for this perk.") as icon
preicon2=preicon
var/preicon_state = input("Perks","What is this perk's .png name? If none, place this blank.") as text
var/prename = input("Perks","What is the name of the perk?") as text
var/predescription = input("Perks","What is the perk's description?") as message
var/prePoints = input("How much does this jutsu cost?") as num
var/prenote = input("Perks","Does this perk have a note?") as text
var/precolor = input("Perks","What is the perk's text color? Use xfade's code (example:'#8FBC8F') or text (example:'red')") as text
if(precolor==null)
precolor="#8FBC8F"
if(precolor=="")
precolor="#8FBC8F"
if(precolor==" ")
precolor="#8FBC8F"
switch(input("Add to database","Database") in list("Yes","No"))
if("Yes")
var/obj/OO = new/obj/Perk
OO:preseticon=preicon2
OO:preseticon_state="[preicon_state]"
OO:presetname="[prePoints]"
OO:presetpoints="[
OO:presetdescription="[predescription]"
OO:presetnote="[prenote]"
OO:presetcolor="[precolor]"
PerkDatabase+=OO
Perks_List_Save()
var/obj/O = new/obj/Perk
O:preseticon=preicon2
O:preseticon_state="[preicon_state]"
O:presetname="[prename]"
O:presetdescription="[predescription]"
O:presetname="[prePoints]"
O:presetnote="[prenote]"
O:presetcolor="[precolor]"
M:contents+=O
for(var/mob/MM in world) if(MM.Admin) MM<< {"<font color=#F88017>[src] gives [M] [prename] perk."}
Admin_Logs+="<br>[src]([src.key]) gave [M] a perk( [prename] )"
SaveLogs()
else
if(isnull(PerkDatabase))
src<<"Database is invalid!"
return
if(!PerkDatabase.len)
src<<"No entries in the database!"
return
var/obj/Perk/P=input("Which perk will you give them?","Database") in PerkDatabase
if(!P) return
if(!istype(P,/obj/Perk)) return
var/obj/Perk/O=copyatom(P)
M:contents+=O
for(var/mob/MM in world) if(MM.Admin) MM<< {"<font color=#F88017>[src] gives [M] [O.name] perk."}
Admin_Logs+="<br>[src]([src.key]) gave [M] a perk( [O.presetname] )"
SaveLogs()
Problem description: I dont know if this will create a database for a jutsu that was made with the system and one that was made for the perks. I also want to make a Buy Jutsu/Pekr Verb where people can buy Jutsus/Perks from a List of created Jutsu/Perks Made with this system. I have no way to actually test it..Without making the other systems which I am struggling with so if you guys could tell me if this would: Create an Ability and Save it to a List for further use. ALSO See the line where it asks about Points? Well what that is for, is when players buy a Jutsu/Perk the number Admins put into the input would be how much Points a player would need for the Jutsu/Perk and if they have less than how much is needed it wont give the Jutsu/Perk. The other problem is I am not sure how to make it where. If this system does what its supposed too. How do I make it where: You Click the Buy_Jutsu/Perk Verb, A list comes up of made Perks or Jutsus, and when a player clicks on one. It will display The Name, Description, Note, Rank etc and how much it costs. If the player hits accept it will check if they player has enough points if not it will use the return and say a message "You dont have enough Points" I have tried multiple ways and its very much so confusing me. If someone could tell me how to do these few things or ADVISE me. That would be very helpful thanks! Also I dont really understand why at the end of the Perk system its as if its all in quotes when its not in DM.
Not bashing you or anything either. I just don't think there's many people willing to take the time and read all of this (though there are some). Hopefully this helps.