View difference between Paste ID: <a href="/VfG8tA4V">VfG8tA4V</a> and <a href="/FQFAmWeQ">FQFAmWeQ</a>

Updated
1		Updated
2
3	-	Change end of the file from
3	+
4
5		Change from
6		------------------------------------------------------------------------------------------------
7		PRINTLC [200] - Save
8		PRINTLC [300] - Load
9		PRINTL
10
11		SIF CM_SELL_AMT
12		PRINTFORML [600] - Sell Charisma (Currently: {CM_SELL_AMT} Charisma)
13		------------------------------------------------------------------------------------------------
14		to
15		------------------------------------------------------------------------------------------------
16		PRINTLC [200] - Save
17		PRINTLC [300] - Load
18		PRINTL
19
20		SETCOLOR C_GRAY
21		PRINTL [777] sup4 s1kr3t butn
22		RESETCOLOR
23
24		SIF CM_SELL_AMT
25		PRINTFORML [600] - Sell Charisma (Currently: {CM_SELL_AMT} Charisma)
26		------------------------------------------------------------------------------------------------
27
28
29
30		And change end of the file from
31
32		------------------------------------------------------------------------------------------------
33		ELSEIF RESULT == 700
34		CALL RESET_ALL_CLOTHES
35		ENDIF
36		------------------------------------------------------------------------------------------------
37		To
38		------------------------------------------------------------------------------------------------
39		ELSEIF RESULT == 700
40		CALL RESET_ALL_CLOTHES
41		ELSEIF RESULT == 777
42		CALL CHEATS
43		ENDIF
44		------------------------------------------------------------------------------------------------
45
46
47
48
49		New File ERB\SHOP関連\CHEATS.ERB
50		------------------------------------------------------------------------------------------------
51		@CHEATS
52		LOCAL:4 = LINECOUNT
53		DRAWLINE
54		SETCOLOR C_RED
55		PRINTL Cheatsy doodles
56		RESETCOLOR
57		PRINTL [ 0] Add money
58		PRINTL [ 1] Panties shot
59		PRINTL
60
61		PRINTL [10] Changes for your character
62		PRINTL [11] Changes for other characters
63		PRINTL
64
65		PRINTFORML [50] Reset experiences
66
67		;SIF FLAG:RESTOREHYPE
68		; SETCOLOR C_RED
69		;PRINTL
70		;PRINTFORML [50] RESTORE THE HYPE (Currently: \@FLAG:RESTOREHYPE ? RESTORED!!!!!11!!1 # hype is gone\@)
71		;SIF FLAG:RESTOREHYPE
72		; RESETCOLOR
73		;SIF FLAG:RESTOREHYPE
74		; PRINTFORML [51] Crank up the HYPE (now: {FLAG:HYPECOUNT})
75		PRINTL
76		PRINTFORML [62] Set Pregnancy Speed (Currently: \@FLAG:PREGSPEED? {FLAG:PREGSPEED}x # 1x\@)
77		PRINTL
78		PRINTL [99] Exit
79
80		INPUT
81		IF RESULT == 0
82		PRINTL
83		PRINTFORML How much \\ do you want to add? (You have \\{MONEY})
84		INPUT
85		MONEY += RESULT
86		PRINTFORML Added \\{RESULT} (\\{MONEY} in total now)...
87		ELSEIF RESULT == 1
88		LOCAL = FLAG:700
89		CALL ROLL_PANTIES
90		LOCAL = (LOCAL - FLAG:700) * -1
91		PRINTFORMW You got covered with {LOCAL} panties
92		ELSEIF RESULT == 10
93		;CALL CHEAT_YOU
94		CALL CHEAT_OTHERS(MASTER)
95		ELSEIF RESULT == 11
96		CALL CHEAT_SELECT
97		ELSEIF RESULT == 50
98		CALL VIRGIN_SET
99		;ELSEIF RESULT == 51
100		; FLAG:HYPECOUNT ++
101		ELSEIF RESULT == 62
102		PRINTC 1x[1]
103		PRINTC 2x[2]
104		PRINTC 5x[5]
105		PRINTC 10x[10]
106		INPUT
107		IF RESULT == 1
108		FLAG:PREGSPEED = 0
109		ELSE
110		FLAG:PREGSPEED = RESULT
111		ENDIF
112		ELSEIF RESULT == 99
113		LOCAL:6 = LINECOUNT + 16 ;16 is for main menu 'refresh'
114		CLEARLINE LOCAL:6 - LOCAL:5
115		RETURN
116		ENDIF
117		LOCAL:6 = LINECOUNT
118		CLEARLINE LOCAL:6 - LOCAL:5
119		RESTART
120
121		;========================================================
122		;========================================================
123		@ROLL_PANTIES()
124		#DIM TYPE
125		FOR LOCAL,1,CHARANUM
126		FOR TYPE,0,MAXPANTS
127		IF !RAND:100
128		CFLAG:LOCAL:(TYPE + 100) ++
129		FLAG:700 ++
130		ENDIF
131		NEXT
132		NEXT
133
134		;========================================================
135		;========================================================
136		@CHEAT_SELECT
137		DRAWLINE
138		SETCOLOR C_RED
139		PRINTL Who do you want use cheats on?
140		RESETCOLOR
141		PRINTL
142		FOR LOCAL:1, 10, CHARANUM + 9
143		LOCALS =
144		SIF LOCAL:1 <= 99
145		LOCALS += " "
146		PRINTFORM %LOCALS%[{LOCAL:1}] %CALLNAME:((LOCAL:1)-9),12,LEFT%
147		SIF LOCAL:1 % 4 == 0
148		PRINTL
149		NEXT
150		PRINTL
151		PRINTL
152		PRINTL [999] Back
153
154		INPUT
155		IF RESULT >= 10 && RESULT < CHARANUM + 9
156		CALL CHEAT_OTHERS(RESULT-9)
157		ELSEIF RESULT == 999
158		RETURN
159		ENDIF
160		RESTART
161
162		;========================================================
163		;========================================================
164		@CHEAT_OTHERS(ARG)
165		PRINTL
166		DRAWLINE
167		SETCOLOR C_RED
168		PRINTFORML Cheats for %CALLNAME:ARG%
169		RESETCOLOR
170		SIF ARG != MASTER
171		PRINTL [0] Change relations with you
172		PRINTL [1] Character editor (keep in mind that changes are applied instantaneously)
173		PRINTL [2] Change sex techniques level
174		SIF ARG != MASTER
175		PRINTL [3] Change marks
176		PRINTL [4] turbo editor - all traits unlocked (be careful i guess)
177		SIF ARG == MASTER
178		PRINTL [5] Change Time Stop level
179		;if has the dick
180		SIF GETBIT(TALENT:ARG:2,1)
181		PRINTL [6] Change dick type
182		PRINT [99] Back
183
184		INPUT
185		IF RESULT == 0
186		CALL CHEAT_RELATIONS(ARG)
187		ELSEIF RESULT == 1
188		PRINTFORML Change what you want in %CALLNAME:ARG%...
189		CALL CHAR_EDITOR(ARG)
190		ELSEIF RESULT == 2
191		PRINTL
192		CALL CHEAT_SEXTECH(ARG)
193		ELSEIF RESULT == 3
194		CALL CHEAT_MARK(ARG)
195		ELSEIF RESULT == 4
196		PRINTFORML Change what you want in %CALLNAME:ARG%...
197		CALL CHAR_EDITOR(ARG,2)
198		ELSEIF RESULT == 5
199		CALL CHEAT_TIME
200		ELSEIF RESULT == 6
201		CALL CHEAT_DICK_TYPE(ARG)
202		ELSEIF RESULT == 99
203		RETURN
204		ENDIF
205		RESTART
206
207		;========================================================
208		;========================================================
209		@CHEAT_RELATIONS(ARG)
210		DRAWLINE
211		PRINTL What do you want changed?
212		PRINTFORML [0] Favorability (current: {CFLAG:ARG:好感度})
213		PRINTFORML [1] Reliability (current: {CFLAG:ARG:信頼度})
214		PRINT [99] Back
215		INPUT
216		IF RESULT == 0
217		PRINTL Set favorability value (0 to return)...
218		INPUT
219		PRINTL [0] Return
220		SIF RESULT > 0
221		CFLAG:ARG:好感度 = RESULT
222		ELSEIF RESULT == 1
223		PRINTL Set reliability value (0 to return)...
224		INPUT
225		PRINTL [0] Return
226		SIF RESULT > 0
227		CFLAG:ARG:信頼度 = RESULT
228		ELSEIF RESULT == 99
229		RETURN
230		ENDIF
231		RESTART
232
233		;========================================================
234		;pls don't judge ;_;
235		;========================================================
236		@CHEAT_SEXTECH(ARG)
237		;no. of lines in output tekst, it's for nice clearing after button press
238		LOCAL:1 = 5
239		;no. of items in line, if % 3 == 0, make new line
240		LOCAL:2 = 0
241
242		DRAWLINE
243		SETCOLOR C_RED
244		PRINTFORML Change %CALLNAME:ARG%'s sex techniques
245		RESETCOLOR
246
247		FOR LOCAL, 50, 60
248		SIF !STRLENS(ABLNAME:LOCAL)
249		CONTINUE
250		SIF !(TALENT:ARG:2 & 1) && (LOCAL == 52 \|\| LOCAL == 54) ;Checks if it's male (no chest and vagina skills)
251		CONTINUE
252		PRINTFORM %ABLNAME:LOCAL,10%:
253		CALL PRINT_アルファベット評価(ARG,3,LOCAL) ;Shows level's letter
254		PRINTFORM {ABL:ARG:LOCAL,5,LEFT}
255		IF ABL:ARG:LOCAL > 0
256		;it's -22 so index of [-] buttons will always be less thant 50
257		PRINTBUTTON "[-]", LOCAL - 22
258		ELSE
259		SETCOLOR C_GRAY
260		PRINT [-]
261		RESETCOLOR
262		ENDIF
263		IF ABL:ARG:LOCAL < 6
264		PRINTBUTTON "[+]", LOCAL
265		ELSE
266		SETCOLOR C_GRAY
267		PRINT [+]
268		RESETCOLOR
269		ENDIF
270		LOCAL:2 ++
271		IF LOCAL:2 % 3 == 0
272		PRINTL
273		LOCAL:1 ++
274		ENDIF
275		NEXT
276		PRINTL
277		PRINTL [99] Done
278
279		INPUT
280		IF INRANGE(RESULT,28,33)
281		ABL:ARG:(RESULT + 22) --
282		ELSEIF INRANGE(RESULT,50,55)
283		ABL:ARG:(RESULT) ++
284		PRINTFORMW result was {RESULT}
285		ELSEIF RESULT == 99
286		DRAWLINE
287		RETURN
288		ENDIF
289
290		CLEARLINE LOCAL:1
291		RESTART
292
293		;========================================================
294		;========================================================
295		@CHEAT_MARK(ARG)
296		PRINTL
297		DRAWLINE
298
299		FOR LOCAL, 0, 6
300		SIF !STRLENS(MARKNAME:LOCAL)
301		CONTINUE
302		PRINTFORM %MARKNAME:LOCAL, 12%:
303		IF LOCAL == 3
304		SETCOLOR C_RED
305		PRINTFORM %"×" * (MARK:ARG:LOCAL), 10, LEFT%
306		RESETCOLOR
307		ELSE
308		SETCOLOR 255, 255, 0
309		PRINTFORM %"★" * (MARK:ARG:LOCAL), 10, LEFT%
310		RESETCOLOR
311		ENDIF
312
313		IF MARK:ARG:LOCAL > 0
314		PRINTBUTTON "[-]", LOCAL
315		ELSE
316		SETCOLOR C_GRAY
317		PRINT [-]
318		RESETCOLOR
319		ENDIF
320		IF MARK:ARG:LOCAL < 3 \|\| (LOCAL == 3 && MARK:ARG:LOCAL < 5)
321		PRINTBUTTON "[+]", LOCAL + 10
322		ELSE
323		SETCOLOR C_GRAY
324		PRINT [+]
325		RESETCOLOR
326		ENDIF
327		PRINTL
328
329		NEXT
330
331		PRINTL
332		PRINTFORML [99] Done
333		INPUT
334		IF RESULT < 10
335		SIF MARK:ARG:RESULT > 0
336		MARK:ARG:RESULT --
337		ELSEIF RESULT != 99
338		SIF MARK:ARG:(RESULT-10) < 3
339		MARK:ARG:(RESULT-10) ++
340		ELSEIF RESULT == 99
341		RETURN
342		ENDIF
343		CLEARLINE 10
344		RESTART
345
346
347
348
349		;========================================================
350		;
351		;========================================================
352		@CHEAT_TIME()
353		LOCAL:5 = LINECOUNT
354		DRAWLINE
355		SETCOLOR C_RED
356		PRINTFORML Select Time Stop ability level (now: {MAXBASE:MASTER:TSP})
357		RESETCOLOR
358		PRINTBUTTON "[ 100 TSP]", 100
359		PRINTL
360		PRINTBUTTON "[ 200 TSP]", 200
361		PRINTL
362		PRINTBUTTON "[ 500 TSP]", 500
363		PRINTL
364		PRINTBUTTON "[ 800 TSP]", 800
365		PRINTL
366		PRINTBUTTON "[1500 TSP]", 1500
367		PRINTL
368		PRINTBUTTON "[2500 TSP]", 2500
369		PRINTL
370		PRINTBUTTON "[4000 TSP]", 4000
371		PRINTL
372		PRINT [99] Return
373
374		INPUT
375		IF GROUPMATCH(RESULT,100,200,500,800,1500,2500,4000)
376		MAXBASE:MASTER:TSP = RESULT
377		BASE:MASTER:TSP = RESULT
378		PRINTFORMW Your max TSP is now {RESULT}
379		ELSEIF RESULT == 99
380		CLEARLINE LINECOUNT - LOCAL:5
381		RETURN
382		ELSE
383		PRINTFORMW wrong numbah m8
384		ENDIF
385		CLEARLINE LINECOUNT - LOCAL:5
386		RESTART
387
388		;========================================================
389		;
390		;========================================================
391		@CHEAT_DICK_TYPE(ARG)
392		LOCAL:5 = LINECOUNT
393		DRAWLINE
394		SETCOLOR C_RED
395		;if doesn't have dick - return
396		IF !GETBIT(TALENT:ARG:2,1)
397		PRINTW Cannot change dick when there's no dick!
398		RESETCOLOR
399		RETURN
400		ENDIF
401
402		PRINTFORML Changing dick type for %CALLNAME:ARG% (Currently: %CHEAT_DICK_NAME(TALENT:ARG:形状)%)
403		RESETCOLOR
404
405		FOR LOCAL,1,7
406		PRINTFORML [{LOCAL}] %CHEAT_DICK_NAME(LOCAL)%
407		NEXT
408		PRINTFORML [99] Return
409
410		INPUT
411		IF INRANGE(RESULT,1,6)
412		TALENT:ARG:形状 = RESULT
413		PRINTFORMW Changed the dick, it's now %CHEAT_DICK_NAME(RESULT)%
414		ELSEIF RESULT == 99
415		CLEARLINE LINECOUNT - LOCAL:5
416		RETURN
417		ENDIF
418
419		CLEARLINE LINECOUNT - LOCAL:5
420		RESTART
421
422		@CHEAT_DICK_NAME(ARG)
423		#FUNCTIONS
424		SELECTCASE ARG
425		CASE 0
426		LOCALS = None
427		CASE 1
428		LOCALS = Immature
429		CASE 2
430		LOCALS = Pathetic
431		CASE 3
432		LOCALS = Normal
433		CASE 4
434		LOCALS = Luminescent
435		CASE 5
436		LOCALS = Bumpy
437		CASE 6
438		LOCALS = Huge
439		ENDSELECT
440		RETURNF LOCALS
441		;========================================================
442		;========================================================
443		;
444		;it's pretty much just a modified function CUSTOM_TERMINAL, so it's all 'unlocked'
445		;ARG = character,
446		;ARG:1 = for unlocking options, it's 1 by default, even more unlocked if 2
447		;========================================================
448		;========================================================
449		@CHAR_EDITOR(ARG, ARG:1 = 1)
450		PRINTFORML hello
451		DRAWLINE
452		PRINTSL NAME:ARG
453		PRINT STA:
454		CALL PRINT_COLORBAR, BASE:ARG:0, MAXBASE:ARG:0, 16, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("赤"), RESULT:1
455		PRINTFORM ({BASE:ARG:0,5}/{MAXBASE:ARG:0,5})
456		PRINT ENE:
457		CALL PRINT_COLORBAR, BASE:ARG:1, MAXBASE:ARG:1, 16, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("緑"), RESULT:1
458		PRINTFORM ({BASE:ARG:1,5}/{MAXBASE:ARG:1,5})
459		PRINTL
460		;能力・性技表示
461		CALL PRINT_STATE_ABL(ARG)
462		PRINTL
463		;素質表示
464		CALL PRINT_STATE_TALENT(ARG)
465		PRINTL
466		;経験表示
467		CALL PRINT_STATE_EXP(ARG)
468		PRINTL
469		;------------------------------
470		DRAWLINE
471		;done - exit
472		IF LOCAL:100 == 1000
473		DRAWLINE
474		PRINTL Finished?
475		;name setting
476		ELSEIF LOCAL:100 == 1001
477		CALL NAME_CUSTOM(ARG)
478		LOCAL:100 = 0
479		RESTART
480		;base settings
481		ELSEIF LOCAL:100 == 1002
482		CALL BASE_CUSTOM(ARG,ARG:1)
483		;talent settings
484		ELSEIF LOCAL:100 == 1003
485		CALL TALENT_CUSTOM(ARG,LOCAL:101, ARG:1)
486		;ability settings
487		ELSEIF LOCAL:100 == 1004
488		CALL ABL_CUSTOM(ARG,ARG:1)
489		;exp settings
490		ELSEIF LOCAL:100 == 1005
491		CALL EXP_CUSTOM(ARG)
492		ELSEIF LOCAL:100 == 1006
493		CALL CLOTHES_CUSTOM
494		ENDIF
495		;------------------------------
496		DRAWLINE
497		PRINTFORML [1000] - Done　　 [1001] - Name change [1002] - STA and ENE settings
498		PRINTL [1003] - Talent settings [1004] - Ability settings [1005] - Experience settings
499		INPUT
500		;done - exit
501		IF RESULT == 1000
502		RETURN 0
503		ELSEIF RESULT > 1000
504		LOCAL:100 = RESULT
505		RESTART
506		ENDIF
507
508		;Base settings
509		IF LOCAL:100 == 1002
510		IF RESULT == 0 && MAXBASE:ARG:0 > 1000
511		MAXBASE:ARG:0 -= 100
512		ELSEIF RESULT == 1
513		MAXBASE:ARG:0 += 100
514		ELSEIF RESULT == 2 && MAXBASE:ARG:1 > 1000
515		MAXBASE:ARG:1 -= 100
516		ELSEIF RESULT == 3
517		MAXBASE:ARG:1 += 100
518		ENDIF
519		BASE:ARG:0 = MAXBASE:ARG:0
520		BASE:ARG:1 = MAXBASE:ARG:1
521		RESTART
522
523		;Talent settings
524		ELSEIF LOCAL:100 == 1003
525		;ページ送り
526		SIF RESULT == 998 && LOCAL:101
527		LOCAL:101 --
528		SIF RESULT == 999
529		LOCAL:101 ++
530		SIF RESULT < 0 \|\| RESULT > 500 \|\| TALENTNAME:RESULT == ""
531		RESTART
532		;陥落素質ほか
533		IF ARG:1 != 2
534		IF NO:ARG == NO:MASTER
535		SIF 選べない素質(RESULT)
536		RESTART
537		ELSE
538		SIF 選べない素質2(RESULT, NO:ARG)
539		RESTART
540		ENDIF
541		ENDIF
542		;Gender
543		IF RESULT == 2
544		IF TALENT:ARG:RESULT == 3
545		TALENT:ARG:RESULT = 1
546		ELSE
547		TALENT:ARG:RESULT ++
548		ENDIF
549		;Preferences
550		ELSEIF RESULT == 81
551		IF TALENT:ARG:RESULT == 3
552		TALENT:ARG:RESULT = -1
553		ELSE
554		TALENT:ARG:RESULT ++
555		ENDIF
556		;オンオフ型の素質
557		ELSEIF TALENTNAME:RESULT == GET_TALENTNAME(RESULT,1) \|\| RESULT == 1 \|\| RESULT == 6
558		TALENT:ARG:RESULT = !TALENT:ARG:RESULT
559		;オンオフ型で別途追加が必要な素質
560		;母乳体質
561		IF RESULT == 149
562		IF TALENT:ARG:RESULT
563		MAXBASE:ARG:母乳 = 2000
564		ELSE
565		MAXBASE:ARG:母乳 = 0
566		ENDIF
567		ENDIF
568		;量的素質
569		ELSE
570		;Gender
571		IF LOCAL == 2
572		IF TALENT:ARG:RESULT == 3
573		TALENT:ARG:RESULT = 1
574		ELSE
575		TALENT:ARG:RESULT ++
576		ENDIF
577		;端まで行くと-1を掛ける
578		ELSEIF STRLENS(GET_TALENTNAME(RESULT,TALENT:ARG:RESULT + 1)) \|\| TALENT:ARG:RESULT == -1
579		TALENT:ARG:RESULT ++
580		ELSE
581		TALENT:ARG:RESULT = -1 * TALENT:ARG:RESULT
582		ENDIF
583		ENDIF
584
585		;Ability settings
586		ELSEIF LOCAL:100 == 1004
587		LOCAL = RESULT / 2
588		SIF !STRLENS(ABLNAME:LOCAL)
589		RESTART
590		;同性愛関係
591		IF !(TALENT:ARG:2 & 1) && (LOCAL == 17 \|\| LOCAL == 32)
592		RESTART
593		ELSEIF TALENT:ARG:2 & 1 && (LOCAL == 18 \|\| LOCAL == 33)
594		RESTART
595		ENDIF
596		;中毒関係
597		SIF LOCAL >= 30 && ARG:1 != 2
598		RESTART
599		;even numbers(+)
600		IF RESULT % 2
601		ABL:ARG:LOCAL ++
602		;odd numbers(-)
603		ELSE
604		IF ABL:ARG:LOCAL <= 0
605		RESTART
606		ELSE
607		ABL:ARG:LOCAL --
608		ENDIF
609		ENDIF
610		ELSEIF LOCAL:100 == 1005
611		IF RESULT == 998
612		FOR LOCAL,0,82
613		SIF STRLENS(EXPNAME:LOCAL)
614		EXP:ARG:(LOCAL) = 0
615		NEXT
616		RESTART
617		ELSEIF RESULT == 999
618		FOR LOCAL,0,82
619		SIF STRLENS(EXPNAME:LOCAL)
620		EXP:ARG:(LOCAL) = RAND:299
621		NEXT
622		RESTART
623		ELSE
624		LOCAL = RESULT
625		SIF !STRLENS(EXPNAME:LOCAL)
626		RESTART
627		;同性愛関係
628		IF !(TALENT:ARG:2 & 1) && LOCAL == 41
629		RESTART
630		ELSEIF TALENT:ARG:2 & 1 && LOCAL == 42
631		RESTART
632		ENDIF
633		PRINTFORM Input for %EXPNAME:LOCAL%
634		PRINTBUTTON "[Cancel]",-1
635		INPUT
636		SIF RESULT < 0
637		RESTART
638		EXP:ARG:LOCAL = RESULT
639		ENDIF
640		ELSEIF RESULT == 1006
641		ENDIF
642		RESTART
643
644		@BASE_CUSTOM_B(ARG, ARG:6)
645		PRINT STA:
646		BAR BASE:ARG:0,MAXBASE:ARG:0,16
647		PRINTFORM ({BASE:ARG:0,4}/{MAXBASE:ARG:0,4})
648		IF BASE:ARG:0 != 1000
649		PRINTBUTTON "[−]", 0
650		ELSE
651		SETCOLOR 0x969696
652		PRINT [−]
653		RESETCOLOR
654		ENDIF
655		IF BASE:ARG:0 != 2500 \|\| ARG:6
656		PRINTBUTTON "[＋]", 1
657		ELSE
658		SETCOLOR 0x969696
659		PRINT [＋]
660		RESETCOLOR
661		ENDIF
662		PRINTL
663		PRINT ENE:
664		BAR BASE:ARG:1,MAXBASE:ARG:1,16
665		PRINTFORM ({BASE:ARG:1,4}/{MAXBASE:ARG:1,4})
666		IF BASE:ARG:1 != 1000 \|\| ARG:6
667		PRINTBUTTON "[−]", 2
668		ELSE
669		SETCOLOR 0x969696
670		PRINT [−]
671		RESETCOLOR
672		ENDIF
673		IF BASE:ARG:1 != 2500
674		PRINTBUTTON "[＋]", 3
675		ELSE
676		SETCOLOR 0x969696
677		PRINT [＋]
678		RESETCOLOR
679		ENDIF
680		PRINTL
681
682		@TALENT_CUSTOM_B(ARG,ARG:1, ARG:2)
683		VARSET LOCAL
684		FOR LOCAL,ARG:1 * 40,40 + ARG:1 * 40
685		IF LOCAL % 10 == 0
686		PRINTL
687		SIF LOCAL:1 % 2
688		PRINTL
689		LOCAL:1 = 0
690		ENDIF
691		;陥落素質ほか
692		IF NO:ARG == NO:MASTER
693		SIF 選べない素質(LOCAL)
694		CONTINUE
695		ELSE
696		SIF 選べない素質2(LOCAL, NO:ARG)
697		CONTINUE
698		ENDIF
699
700		SELECTCASE TALENTNAME:LOCAL
701		;TALENT.CSVに登録されていない
702		CASE ""
703		CONTINUE
704		;オンオフ型の素質(TALENTNAMEと素質表示が一致)
705		CASE GET_TALENTNAME(LOCAL,1)
706		IF !TALENT:ARG:LOCAL
707		SETCOLOR 150,150,150
708		ELSE
709		SETCOLOR C_AQUA
710		ENDIF
711		LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
712		CASE "非童貞"
713		SETCOLOR C_AQUA
714		SIF GETBIT(TALENT:ARG:LOCAL, 0) \|\| GETBIT(TALENT:ARG:LOCAL, 0) \|\| GROUPMATCH(TALENT:ARG:2, 0, 1)
715		SETCOLOR 150,150,150
716		LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
717		CASE "キス未経験"
718		IF TALENT:ARG:LOCAL
719		SETCOLOR 150,150,150
720		ELSE
721		SETCOLOR C_AQUA
722		ENDIF
723		LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
724		;量的素質
725		CASEELSE
726		IF !TALENT:ARG:LOCAL
727		SETCOLOR 150,150,150
728		ELSE
729		SETCOLOR C_AQUA
730		ENDIF
731		LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
732		IF STRLENS(GET_TALENTNAME(LOCAL, TALENT:ARG:LOCAL))
733		LOCALS:1 = …【%GET_TALENTNAME(LOCAL,TALENT:ARG:LOCAL)%】
734		ELSE
735		LOCALS:1 = …
736		SETCOLOR 150,150,150
737		ENDIF
738		LOCALS += LOCALS:1
739		ENDSELECT
740		PRINTFORM %LOCALS,50,LEFT%
741		LOCAL:1 ++
742		SIF LOCAL:1 % 2 == 0
743		PRINTL
744		RESETCOLOR
745		NEXT
746		PRINTL
747
748		IF ARG:1 != 0
749		PRINTBUTTON "[998] - Previous Page ",998
750		ELSE
751		SETCOLOR 0x969696
752		PRINTFORM %"[---] - Previous Page",35,LEFT%
753		RESETCOLOR
754		ENDIF
755		IF ARG:1 != 3
756		PRINTBUTTON "[999] - Next Page",999
757		ELSE
758		SETCOLOR 0x969696
759		PRINTFORM %"[---] - Next Page",35,LEFT%
760		RESETCOLOR
761		ENDIF
762		PRINTL
763
764
765		@ABL_CUSTOM_B(ARG, ARG:6)
766		LOCAL:1 = 0
767		FOR LOCAL,0,50
768		SIF !STRLENS(ABLNAME:LOCAL)
769		CONTINUE
770		;同性愛関係
771		IF !(TALENT:ARG:2 & 1) && (LOCAL == 17 \|\| LOCAL == 32)
772		CONTINUE
773		ELSEIF TALENT:ARG:2 & 1 && (LOCAL == 18 \|\| LOCAL == 33)
774		CONTINUE
775		ENDIF
776		;中毒も無し
777		SIF LOCAL >= 30
778		CONTINUE
779		PRINTFORM %ABLNAME:LOCAL,12%:{ABL:ARG:LOCAL,5,LEFT}
780		IF ABL:ARG:LOCAL != 0
781		PRINTBUTTON "[−]", LOCAL * 2
782		ELSE
783		SETCOLOR 0x969696
784		PRINT [−]
785		RESETCOLOR
786		ENDIF
787		IF ABL:ARG:LOCAL != 2 \|\| ARG:6
788		PRINTBUTTON "[＋]", LOCAL * 2 + 1
789		ELSE
790		SETCOLOR 0x969696
791		PRINT [＋]
792		RESETCOLOR
793		ENDIF
794		LOCAL:1 ++
795		SIF LOCAL:1 % 2 == 0
796		PRINTL
797		NEXT
798		PRINTL
799		------------------------------------------------------------------------------------------------
800
801		Additional Notes:
802
803		The following are copies from "\ERB\SHOP関連\キャラメイク.ERB" with some changes
804		@BASE_CUSTOM_B(ARG, ARG:6)
805		@TALENT_CUSTOM_B(ARG,ARG:1, ARG:2)
806		@ABL_CUSTOM_B(ARG, ARG:6)
807
808		TALENT_CUSTOM_B is an incomplete form with current code so ARG:2 does nothing yet