#CharacterSheet //Abilities set Strength 0 set Constitution 0 set Dexterity 0 set Intelligence 0 set Wizdom 0 set Charisma 0 //Tags to select a number/abilitie //number tags set sixteenTag 0 set fifteenTag 0 set thirteenTag 0 set tweleveTag 0 set nineTag 0 set eightTag 0 //abilitie tags set StrengthTag 0 set ConstitutionTag 0 set DexterityTag 0 set IntelligenceTag 0 set WizdomTag 0 set CharismaTag 0 //Modifiers set STR 0 set CON 0 set DEX 0 set INT 0 set WIZ 0 set CHA 0 //Select a call #ChooseStats //Use the values of your Abilities to set your modifier values call #SetSTR call #SetCON call #SetDEX call #SetINT call #SetWIZ call #SetCHA quit #setBlank set Strength 0 set Constitution 0 set Dexterity 0 set Intelligence 0 set Wizdom 0 set Charisma 0 quit #checkStats msg Abilities :: {Strength} {Constitution} {Dexterity} {Intelligence} {Wizdom} {Charisma} msg Modifiers :: {STR} {CON} {DEX} {INT} {WIZ} {CHA} quit //Make Stat selection,reset if used, Then number selection,reset if used, Then set stat to number and set number tag and stat tag to 1 to indicate used state //------------------------------------------------------------------------------------------------------------ #ChooseStats msg Choose the abilitie to set. reply 1|Strength|#ChooseStats2|StrengthTag reply 2|Constitution|#ChooseStats2|ConstitutionTag reply 3|Dexterity|#ChooseStats2|DexterityTag reply 4|Intelligence|#ChooseStats2|IntelligenceTag reply 5|Wizdom|#ChooseStats2|WizdomTag reply 6|Charisma|#ChooseStats2|CharismaTag quit #ChooseStats2 //If already used, msg, Then restart choosestats, if not used call ChooseNumber msg choose stats2 if {runArg1}|=|1 msg You already set this abilitie. if {runArg1}|=|1 call #ChooseStats if {runArg1}|=|0 call #ChooseNumber quit #ChooseNumber msg Choose the value to set this abilitie to. reply 1|16|#ChooseNumber2|runArg1|sixteenTag reply 2|15|#ChooseNumber2|runArg1|fifteenTag reply 3|13|#ChooseNumber2|runArg1|thirteenTag reply 4|12|#ChooseNumber2|runArg1|tweleveTag reply 5|9|#ChooseNumber2|runArg1|nineTag reply 6|8|#ChooseNumber2|runArg1|eightTag quit #ChooseNumber2 msg choose number2 //If already used, msg, Then restart choosenumber, if not used call setStat if {runArg2}|=|1 msg You already used this number on a abilitie. if {runArg2}|=|1 call #ChooseNumber2 if {runArg2}|=|0 call #setStat|runArg1|runArg2 quit #setStat set statName runArg1 if statName|=|StrengthTag call #setStr|runArg2 if statName|=|ConstitutionTag call #setCon|runArg2 if statName|=|DexterityTag call #setDex|runArg2 if statName|=|IntelligenceTag call #setInt|runArg2 if statName|=|WizdomTag call #setWiz|runArg2 if statName|=|CharismaTag call #setCha|runArg2 quit //For stat set to given number #setStr set numName runArg1 if numName|=|sixteenTag set Strength 16 if numName|=|sixteenTag set sixteenTag 1 if numName|=|fifteenTag set Strength 15 if numName|=|fifteenTag set fifteenTag 1 if numName|=|thirteenTag set Strength 13 if numName|=|thirteenTag set thirteenTag 1 if numName|=|tweleveTag set Strength 12 if numName|=|tweleveTag set tweleveTag 1 if numName|=|nineTag set Strength 9 if numName|=|nineTag set nineTag 1 if numName|=|eightTag set Strength 8 if numName|=|eightTag set eightTag 1 quit #setCon set numName runArg1 if numName|=|sixteenTag set Constitution 16 if numName|=|sixteenTag set sixteenTag 1 if numName|=|fifteenTag set Constitution 15 if numName|=|fifteenTag set fifteenTag 1 if numName|=|thirteenTag set Constitution 13 if numName|=|thirteenTag set thirteenTag 1 if numName|=|tweleveTag set Constitution 12 if numName|=|tweleveTag set tweleveTag 1 if numName|=|nineTag set Constitution 9 if numName|=|nineTag set nineTag 1 if numName|=|eightTag set Constitution 8 if numName|=|eightTag set eightTag 1 quit #setDex set numName runArg1 if numName|=|sixteenTag set Dexterity 16 if numName|=|sixteenTag set sixteenTag 1 if numName|=|fifteenTag set Dexterity 15 if numName|=|fifteenTag set fifteenTag 1 if numName|=|thirteenTag set Dexterity 13 if numName|=|thirteenTag set thirteenTag 1 if numName|=|tweleveTag set Dexterity 12 if numName|=|tweleveTag set tweleveTag 1 if numName|=|nineTag set Dexterity 9 if numName|=|nineTag set nineTag 1 if numName|=|eightTag set Dexterity 8 if numName|=|eightTag set eightTag 1 quit #setInt set numName runArg1 if numName|=|sixteenTag set Intelligence 16 if numName|=|sixteenTag set sixteenTag 1 if numName|=|fifteenTag set Intelligence 15 if numName|=|fifteenTag set fifteenTag 1 if numName|=|thirteenTag set Intelligence 13 if numName|=|thirteenTag set thirteenTag 1 if numName|=|tweleveTag set Intelligence 12 if numName|=|tweleveTag set tweleveTag 1 if numName|=|nineTag set Intelligence 9 if numName|=|nineTag set nineTag 1 if numName|=|eightTag set Intelligence 8 if numName|=|eightTag set eightTag 1 quit #setWiz set numName runArg1 if numName|=|sixteenTag set Wizdom 16 if numName|=|sixteenTag set sixteenTag 1 if numName|=|fifteenTag set Wizdom 15 if numName|=|fifteenTag set fifteenTag 1 if numName|=|thirteenTag set Wizdom 13 if numName|=|thirteenTag set thirteenTag 1 if numName|=|tweleveTag set Wizdom 12 if numName|=|tweleveTag set tweleveTag 1 if numName|=|nineTag set Wizdom 9 if numName|=|nineTag set nineTag 1 if numName|=|eightTag set Wizdom 8 if numName|=|eightTag set eightTag 1 quit #setCha set numName runArg1 if numName|=|sixteenTag set Charisma 16 if numName|=|sixteenTag set sixteenTag 1 if numName|=|fifteenTag set Charisma 15 if numName|=|fifteenTag set fifteenTag 1 if numName|=|thirteenTag set Charisma 13 if numName|=|thirteenTag set thirteenTag 1 if numName|=|tweleveTag set Charisma 12 if numName|=|tweleveTag set tweleveTag 1 if numName|=|nineTag set Charisma 9 if numName|=|nineTag set nineTag 1 if numName|=|eightTag set Charisma 8 if numName|=|eightTag set eightTag 1 quit //Check what value a stat is at and set modifier correctly //------------------------------------------------------------------------------------------------------------ //STR #SetSTR if Strength|<=|3 set STR -3 if Strength|>|3 call #SetSTR2 quit #SetSTR2 if Strength|<=|5 set STR -2 if Strength|>|5 call #SetSTR3 quit #SetSTR3 if Strength|<=|8 set STR -1 if Strength|>|8 call #SetSTR4 quit #SetSTR4 if Strength|<=|12 set STR 0 if Strength|>|12 call #SetSTR5 quit #SetSTR5 if Strength|<=|15 set STR 1 if Strength|>|15 call #SetSTR6 quit #SetSTR6 if Strength|<=|17 set STR 2 if Strength|>|17 call #SetSTR7 quit #SetSTR7 if Strength|<=|18 set STR 3 quit //CON #SetCON if Constitution|<=|3 set CON -3 if Constitution|>|3 call #SetCON2 quit #SetCON2 if Constitution|<=|5 set CON -2 if Constitution|>|5 call #SetCON3 quit #SetCON3 if Constitution|<=|8 set CON -1 if Constitution|>|8 call #SetCON4 quit #SetCON4 if Constitution|<=|12 set CON 0 if Constitution|>|12 call #SetCON5 quit #SetCON5 if Constitution|<=|15 set CON 1 if Constitution|>|15 call #SetCON6 quit #SetCON6 if Constitution|<=|17 set CON 2 if Constitution|>|17 call #SetCON7 quit #SetCON7 if Constitution|<=|18 set CON 3 quit //DEX #SetDEX if Dexterity|<=|3 set DEX -3 if Dexterity|>|3 call #SetDEX2 quit #SetDEX2 if Dexterity|<=|5 set DEX -2 if Dexterity|>|5 call #SetDEX3 quit #SetDEX3 if Dexterity|<=|8 set DEX -1 if Dexterity|>|8 call #SetDEX4 quit #SetDEX4 if Dexterity|<=|12 set DEX 0 if Dexterity|>|12 call #SetDEX5 quit #SetDEX5 if Dexterity|<=|15 set DEX 1 if Dexterity|>|15 call #SetDEX6 quit #SetDEX6 if Dexterity|<=|17 set DEX 2 if Dexterity|>|17 call #SetDEX7 quit #SetDEX7 if Dexterity|<=|18 set DEX 3 quit //INT #SetINT if Intelligence|<=|3 set INT -3 if Intelligence|>|3 call #SetINT2 quit #SetINT2 if Intelligence|<=|5 set INT -2 if Intelligence|>|5 call #SetINT3 quit #SetINT3 if Intelligence|<=|8 set INT -1 if Intelligence|>|8 call #SetINT4 quit #SetINT4 if Intelligence|<=|12 set INT 0 if Intelligence|>|12 call #SetINT5 quit #SetINT5 if Intelligence|<=|15 set INT 1 if Intelligence|>|15 call #SetINT6 quit #SetINT6 if Intelligence|<=|17 set INT 2 if Intelligence|>|17 call #SetINT7 quit #SetINT7 if Intelligence|<=|18 set INT 3 quit //WIZ #SetWIZ if Wizdom|<=|3 set WIZ -3 if Wizdom|>|3 call #SetWIZ2 quit #SetWIZ2 if Wizdom|<=|5 set WIZ -2 if Wizdom|>|5 call #SetWIZ3 quit #SetWIZ3 if Wizdom|<=|8 set WIZ -1 if Wizdom|>|8 call #SetWIZ4 quit #SetWIZ4 if Wizdom|<=|12 set WIZ 0 if Wizdom|>|12 call #SetWIZ5 quit #SetWIZ5 if Wizdom|<=|15 set WIZ 1 if Wizdom|>|15 call #SetWIZ6 quit #SetWIZ6 if Wizdom|<=|17 set WIZ 2 if Wizdom|>|17 call #SetWIZ7 quit #SetWIZ7 if Wizdom|<=|18 set WIZ 3 quit //CHA #SetCHA if Charisma|<=|3 set CHA -3 if Charisma|>|3 call #SetCHA2 quit #SetCHA2 if Charisma|<=|5 set CHA -2 if Charisma|>|5 call #SetCHA3 quit #SetCHA3 if Charisma|<=|8 set CHA -1 if Charisma|>|8 call #SetCHA4 quit #SetCHA4 if Charisma|<=|12 set CHA 0 if Charisma|>|12 call #SetCHA5 quit #SetCHA5 if Charisma|<=|15 set CHA 1 if Charisma|>|15 call #SetCHA6 quit #SetCHA6 if Charisma|<=|17 set CHA 2 if Charisma|>|17 call #SetCHA7 quit #SetCHA7 if Charisma|<=|18 set CHA 3 quit