@SHOPCOMABLE_698

RESULTS = Cheat 

RETURN 1

@SHOP_COM_698
#DIM tT
tT = 0

CALL INPUT_CHARA_LIST("Cheat which character?", "CASTING_SHOW_STATUS" , "UP_PRINT_SHOP_COM_110" , , "MODECHANGE_SHOP_COM_110")
IF RESULT != 1000
	tT = RESULT
	LOCAL:1 = 1
	DO
		PRINTFORML Do what for %CALLNAME:tT%?
		PRINTFORML [1] Good juels to 999999 
		PRINTFORMLC [2] %EXPNAME_E(2)% to no less than 500 
		PRINTFORMC
		PRINTFORMLC [3] %EXPNAME_E(21)% to no less than 500 
		PRINTFORMC
		PRINTFORMLC [4] %EXPNAME_E(30)% to no less than 500 
		PRINTFORMC
		PRINTFORML [5] %EXPNAME_E(23)% to no less than 500 
		PRINTFORMLC [6] Dependency setting 
		PRINTFORMC  
		PRINTFORMC  
		PRINTFORML [7]  Loyalty setting
		PRINTFORML [8]  MAG to 9,999,999 (will be reset to max mag for level on MAG changes)
		PRINTFORML [9]  STA and WIL Max to no less than 5500
		PRINTFORML [10] Set RPG EXP and do levelup
		PRINTFORML Other stuff
		PRINTFORMLC [100] Set money to 999,999,999
		PRINTFORMC  
		PRINTFORMC  
		PRINTFORML [101] Set macca to 999,999,999
		PRINTFORML [102] Set MAG to max for the PC (or just use 8 with YOU selected) 
		PRINTFORML [103] Reset dungeon exploration count (FLAG:ダンジョン探索済み={FLAG:ダンジョン探索済み}) for today
		PRINTFORML [104] Reset colosseum match count (FLAG:コロシアム参加済み={FLAG:コロシアム参加済み}) for today
		PRINTFORML [105] Add demon by number (could break shit?) 
		PRINTFORML [999] Select a different character 
		PRINTFORML [9999] Quit
		INPUT
		LOCAL:1 = RESULT
		SELECTCASE LOCAL:1
		CASE 1
			FOR LOCAL, 0, 12
				PRINTFORM {LOCAL}: %PALAMNAME_E(LOCAL)% GEMS: 
				IF LOCAL == 4
					PRINTFORML skipped
					CONTINUE
				ENDIF
				JUEL:tT:LOCAL = 999999
				PRINTFORML for %CALLNAME:tT% set to {JUEL:tT:LOCAL}
			NEXT
		CASE 2
			SIF EXP:tT:2 < 500
				EXP:tT:2 = 500
			PRINTFORMW %EXPNAME_E(2)% for %CALLNAME:tT% is now {EXP:tT:2} 
		CASE 3
			SIF EXP:tT:21 < 500
				EXP:tT:21 = 500
			PRINTFORMW %EXPNAME_E(21)% for %CALLNAME:tT% is now {EXP:tT:21} 
		CASE 4
			SIF EXP:tT:30 < 500
				EXP:tT:30 = 500
			PRINTFORMW %EXPNAME_E(30)% for %CALLNAME:tT% is now {EXP:tT:30} 
		CASE 5
			SIF EXP:tT:23 < 500
				EXP:tT:23 = 500
			PRINTFORMW %EXPNAME_E(23)% for %CALLNAME:tT% is now {EXP:tT:23} 
		CASE 6
			PRINTFORML Set Dependency for %CALLNAME:tT% (currently {CFLAG:tT:依存度}) to what?
			INPUT
			CFLAG:tT:依存度 = RESULT
			PRINTFORMW Dependency for %CALLNAME:tT% set to {CFLAG:tT:依存度} 
		CASE 7
			PRINTFORML Set Loyalty for %CALLNAME:tT% (currently {BASE:tT:忠誠度}) to what?
			INPUT
			BASE:tT:忠誠度 = RESULT
			PRINTFORMW Loyalty for %CALLNAME:tT% set to {BASE:tT:忠誠度} 
		CASE 8
			BASE:tT:8 = 9999999
			PRINTFORMW MAG for %CALLNAME:tT% set to {BASE:tT:8} 
		CASE 9
			SIF MAXBASE:tT:0 < 5500
				MAXBASE:tT:0 = 5500
			SIF MAXBASE:tT:1 < 5500
				MAXBASE:tT:1 = 5500
			BASE:tT:0 = MAXBASE:tT:0
			BASE:tT:1 = MAXBASE:tT:1
			PRINTFORMW STA and WIL for %CALLNAME:tT% now 5500
		CASE 10
			LOCAL = GET_NEXT_EXP(BASE:tT:LV, ABL:tT:種族 && !陥落(ARG))
			PRINTFORML Set RPG EXP for %CALLNAME:tT% (currently {BASE:tT:ＥＸＰ}, next level at {LOCAL}) to what?
			INPUT
			BASE:tT:ＥＸＰ = RESULT
			PRINTFORMW RPG EXP for %CALLNAME:tT% set to {BASE:tT:ＥＸＰ}. Click to proc levelups, if any
			CALL CHECK_LEVEL_UP,tT
		CASE 100
			MONEY = 999999999
			PRINTFORMW Money is now {MONEY} 
		CASE 101
			MONEY:1 = 999999999
			PRINTFORMW Macca is now {MONEY:1} 
		CASE 102
			BASE:0:8 = MAXBASE:0:8
			PRINTFORMW PC MAG is now {BASE:0:8} 
		CASE 103
			FLAG:ダンジョン探索済み = 0
			PRINTFORMW Exploration count for today reset
		CASE 104
			FLAG:コロシアム参加済み = 0
			PRINTFORMW Colloseum count for today reset
		CASE 105
			PRINTFORML Enter CSV number to add, or -999 to forget it
			PRINTFORML Entering an invalid number might cause a problem. I haven't checked
			INPUT
				SIF RESULT != -999
					CALL ADD_NEW_COMPANION(RESULT,10000)
		CASE 999
			CALL INPUT_CHARA_LIST("Cheat which character?", "CASTING_SHOW_STATUS" , "UP_PRINT_SHOP_COM_110" , , "MODECHANGE_SHOP_COM_110")
			tT = RESULT
		ENDSELECT
	LOOP LOCAL:1 != 9999

ENDIF
RETURN 0