Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ERB\SHOP関連\SHOP.ERB
- Change end of the file from
- ------------------------------------------------------------------------------------------------
- ELSEIF RESULT == 700
- CALL RESET_ALL_CLOTHES
- ENDIF
- ------------------------------------------------------------------------------------------------
- To
- ------------------------------------------------------------------------------------------------
- ELSEIF RESULT == 700
- CALL RESET_ALL_CLOTHES
- ELSEIF RESULT == 777
- CALL CHEATS
- ENDIF
- ------------------------------------------------------------------------------------------------
- New File ERB\SHOP関連\CHEATS.ERB
- ------------------------------------------------------------------------------------------------
- @CHEATS
- LOCAL:4 = LINECOUNT
- DRAWLINE
- SETCOLOR C_RED
- PRINTL Cheatsy doodles
- RESETCOLOR
- PRINTL [ 0] Add money
- PRINTL [ 1] Panties shot
- PRINTL
- PRINTL [10] Changes for your character
- PRINTL [11] Changes for other characters
- PRINTL
- PRINTFORML [50] Reset experiences
- ;SIF FLAG:RESTOREHYPE
- ; SETCOLOR C_RED
- ;PRINTL
- ;PRINTFORML [50] RESTORE THE HYPE (Currently: \@FLAG:RESTOREHYPE ? RESTORED!!!!!11!!1 # hype is gone\@)
- ;SIF FLAG:RESTOREHYPE
- ; RESETCOLOR
- ;SIF FLAG:RESTOREHYPE
- ; PRINTFORML [51] Crank up the HYPE (now: {FLAG:HYPECOUNT})
- PRINTL
- PRINTFORML [62] Set Pregnancy Speed (Currently: \@FLAG:PREGSPEED? {FLAG:PREGSPEED}x # 1x\@)
- PRINTL
- PRINTL [99] Exit
- INPUT
- IF RESULT == 0
- PRINTL
- PRINTFORML How much \\ do you want to add? (You have \\{MONEY})
- INPUT
- MONEY += RESULT
- PRINTFORML Added \\{RESULT} (\\{MONEY} in total now)...
- ELSEIF RESULT == 1
- LOCAL = FLAG:700
- CALL ROLL_PANTIES
- LOCAL = (LOCAL - FLAG:700) * -1
- PRINTFORMW You got covered with {LOCAL} panties
- ELSEIF RESULT == 10
- ;CALL CHEAT_YOU
- CALL CHEAT_OTHERS(MASTER)
- ELSEIF RESULT == 11
- CALL CHEAT_SELECT
- ELSEIF RESULT == 50
- CALL VIRGIN_SET
- ;ELSEIF RESULT == 51
- ; FLAG:HYPECOUNT ++
- ELSEIF RESULT == 62
- PRINTC 1x[1]
- PRINTC 2x[2]
- PRINTC 5x[5]
- PRINTC 10x[10]
- INPUT
- IF RESULT == 1
- FLAG:PREGSPEED = 0
- ELSE
- FLAG:PREGSPEED = RESULT
- ENDIF
- ELSEIF RESULT == 99
- LOCAL:6 = LINECOUNT + 16 ;16 is for main menu 'refresh'
- CLEARLINE LOCAL:6 - LOCAL:5
- RETURN
- ENDIF
- LOCAL:6 = LINECOUNT
- CLEARLINE LOCAL:6 - LOCAL:5
- RESTART
- ;========================================================
- ;========================================================
- @ROLL_PANTIES()
- #DIM TYPE
- FOR LOCAL,1,CHARANUM
- FOR TYPE,0,MAXPANTS
- IF !RAND:100
- CFLAG:LOCAL:(TYPE + 100) ++
- FLAG:700 ++
- ENDIF
- NEXT
- NEXT
- ;========================================================
- ;========================================================
- @CHEAT_SELECT
- DRAWLINE
- SETCOLOR C_RED
- PRINTL Who do you want use cheats on?
- RESETCOLOR
- PRINTL
- FOR LOCAL:1, 10, CHARANUM + 9
- LOCALS =
- SIF LOCAL:1 <= 99
- LOCALS += " "
- PRINTFORM %LOCALS%[{LOCAL:1}] %CALLNAME:((LOCAL:1)-9),12,LEFT%
- SIF LOCAL:1 % 4 == 0
- PRINTL
- NEXT
- PRINTL
- PRINTL
- PRINTL [999] Back
- INPUT
- IF RESULT >= 10 && RESULT < CHARANUM + 9
- CALL CHEAT_OTHERS(RESULT-9)
- ELSEIF RESULT == 999
- RETURN
- ENDIF
- RESTART
- ;========================================================
- ;========================================================
- @CHEAT_OTHERS(ARG)
- PRINTL
- DRAWLINE
- SETCOLOR C_RED
- PRINTFORML Cheats for %CALLNAME:ARG%
- RESETCOLOR
- SIF ARG != MASTER
- PRINTL [0] Change relations with you
- PRINTL [1] Character editor (keep in mind that changes are applied instantaneously)
- PRINTL [2] Change sex techniques level
- SIF ARG != MASTER
- PRINTL [3] Change marks
- PRINTL [4] turbo editor - all traits unlocked (be careful i guess)
- SIF ARG == MASTER
- PRINTL [5] Change Time Stop level
- ;if has the dick
- SIF GETBIT(TALENT:ARG:2,1)
- PRINTL [6] Change dick type
- PRINT [99] Back
- INPUT
- IF RESULT == 0
- CALL CHEAT_RELATIONS(ARG)
- ELSEIF RESULT == 1
- PRINTFORML Change what you want in %CALLNAME:ARG%...
- CALL CHAR_EDITOR(ARG)
- ELSEIF RESULT == 2
- PRINTL
- CALL CHEAT_SEXTECH(ARG)
- ELSEIF RESULT == 3
- CALL CHEAT_MARK(ARG)
- ELSEIF RESULT == 4
- PRINTFORML Change what you want in %CALLNAME:ARG%...
- CALL CHAR_EDITOR(ARG,2)
- ELSEIF RESULT == 5
- CALL CHEAT_TIME
- ELSEIF RESULT == 6
- CALL CHEAT_DICK_TYPE(ARG)
- ELSEIF RESULT == 99
- RETURN
- ENDIF
- RESTART
- ;========================================================
- ;========================================================
- @CHEAT_RELATIONS(ARG)
- DRAWLINE
- PRINTL What do you want changed?
- PRINTFORML [0] Favorability (current: {CFLAG:ARG:好感度})
- PRINTFORML [1] Reliability (current: {CFLAG:ARG:信頼度})
- PRINT [99] Back
- INPUT
- IF RESULT == 0
- PRINTL Set favorability value (0 to return)...
- INPUT
- PRINTL [0] Return
- SIF RESULT > 0
- CFLAG:ARG:好感度 = RESULT
- ELSEIF RESULT == 1
- PRINTL Set reliability value (0 to return)...
- INPUT
- PRINTL [0] Return
- SIF RESULT > 0
- CFLAG:ARG:信頼度 = RESULT
- ELSEIF RESULT == 99
- RETURN
- ENDIF
- RESTART
- ;========================================================
- ;pls don't judge ;_;
- ;========================================================
- @CHEAT_SEXTECH(ARG)
- ;no. of lines in output tekst, it's for nice clearing after button press
- LOCAL:1 = 5
- ;no. of items in line, if % 3 == 0, make new line
- LOCAL:2 = 0
- DRAWLINE
- SETCOLOR C_RED
- PRINTFORML Change %CALLNAME:ARG%'s sex techniques
- RESETCOLOR
- FOR LOCAL, 50, 60
- SIF !STRLENS(ABLNAME:LOCAL)
- CONTINUE
- SIF !(TALENT:ARG:2 & 1) && (LOCAL == 52 || LOCAL == 54) ;Checks if it's male (no chest and vagina skills)
- CONTINUE
- PRINTFORM %ABLNAME:LOCAL,10%:
- CALL PRINT_アルファベット評価(ARG,3,LOCAL) ;Shows level's letter
- PRINTFORM {ABL:ARG:LOCAL,5,LEFT}
- IF ABL:ARG:LOCAL > 0
- ;it's -22 so index of [-] buttons will always be less thant 50
- PRINTBUTTON "[-]", LOCAL - 22
- ELSE
- SETCOLOR C_GRAY
- PRINT [-]
- RESETCOLOR
- ENDIF
- IF ABL:ARG:LOCAL < 6
- PRINTBUTTON "[+]", LOCAL
- ELSE
- SETCOLOR C_GRAY
- PRINT [+]
- RESETCOLOR
- ENDIF
- LOCAL:2 ++
- IF LOCAL:2 % 3 == 0
- PRINTL
- LOCAL:1 ++
- ENDIF
- NEXT
- PRINTL
- PRINTL [99] Done
- INPUT
- IF INRANGE(RESULT,28,33)
- ABL:ARG:(RESULT + 22) --
- ELSEIF INRANGE(RESULT,50,55)
- ABL:ARG:(RESULT) ++
- PRINTFORMW result was {RESULT}
- ELSEIF RESULT == 99
- DRAWLINE
- RETURN
- ENDIF
- CLEARLINE LOCAL:1
- RESTART
- ;========================================================
- ;========================================================
- @CHEAT_MARK(ARG)
- PRINTL
- DRAWLINE
- FOR LOCAL, 0, 6
- SIF !STRLENS(MARKNAME:LOCAL)
- CONTINUE
- PRINTFORM %MARKNAME:LOCAL, 12%:
- IF LOCAL == 3
- SETCOLOR C_RED
- PRINTFORM %"×" * (MARK:ARG:LOCAL), 10, LEFT%
- RESETCOLOR
- ELSE
- SETCOLOR 255, 255, 0
- PRINTFORM %"★" * (MARK:ARG:LOCAL), 10, LEFT%
- RESETCOLOR
- ENDIF
- IF MARK:ARG:LOCAL > 0
- PRINTBUTTON "[-]", LOCAL
- ELSE
- SETCOLOR C_GRAY
- PRINT [-]
- RESETCOLOR
- ENDIF
- IF MARK:ARG:LOCAL < 3 || (LOCAL == 3 && MARK:ARG:LOCAL < 5)
- PRINTBUTTON "[+]", LOCAL + 10
- ELSE
- SETCOLOR C_GRAY
- PRINT [+]
- RESETCOLOR
- ENDIF
- PRINTL
- NEXT
- PRINTL
- PRINTFORML [99] Done
- INPUT
- IF RESULT < 10
- SIF MARK:ARG:RESULT > 0
- MARK:ARG:RESULT --
- ELSEIF RESULT != 99
- SIF MARK:ARG:(RESULT-10) < 3
- MARK:ARG:(RESULT-10) ++
- ELSEIF RESULT == 99
- RETURN
- ENDIF
- CLEARLINE 10
- RESTART
- ;========================================================
- ;
- ;========================================================
- @CHEAT_TIME()
- LOCAL:5 = LINECOUNT
- DRAWLINE
- SETCOLOR C_RED
- PRINTFORML Select Time Stop ability level (now: {MAXBASE:MASTER:TSP})
- RESETCOLOR
- PRINTBUTTON "[ 100 TSP]", 100
- PRINTL
- PRINTBUTTON "[ 200 TSP]", 200
- PRINTL
- PRINTBUTTON "[ 500 TSP]", 500
- PRINTL
- PRINTBUTTON "[ 800 TSP]", 800
- PRINTL
- PRINTBUTTON "[1500 TSP]", 1500
- PRINTL
- PRINTBUTTON "[2500 TSP]", 2500
- PRINTL
- PRINTBUTTON "[4000 TSP]", 4000
- PRINTL
- PRINT [99] Return
- INPUT
- IF GROUPMATCH(RESULT,100,200,500,800,1500,2500,4000)
- MAXBASE:MASTER:TSP = RESULT
- BASE:MASTER:TSP = RESULT
- PRINTFORMW Your max TSP is now {RESULT}
- ELSEIF RESULT == 99
- CLEARLINE LINECOUNT - LOCAL:5
- RETURN
- ELSE
- PRINTFORMW wrong numbah m8
- ENDIF
- CLEARLINE LINECOUNT - LOCAL:5
- RESTART
- ;========================================================
- ;
- ;========================================================
- @CHEAT_DICK_TYPE(ARG)
- LOCAL:5 = LINECOUNT
- DRAWLINE
- SETCOLOR C_RED
- ;if doesn't have dick - return
- IF !GETBIT(TALENT:ARG:2,1)
- PRINTW Cannot change dick when there's no dick!
- RESETCOLOR
- RETURN
- ENDIF
- PRINTFORML Changing dick type for %CALLNAME:ARG% (Currently: %CHEAT_DICK_NAME(TALENT:ARG:形状)%)
- RESETCOLOR
- FOR LOCAL,1,7
- PRINTFORML [{LOCAL}] %CHEAT_DICK_NAME(LOCAL)%
- NEXT
- PRINTFORML [99] Return
- INPUT
- IF INRANGE(RESULT,1,6)
- TALENT:ARG:形状 = RESULT
- PRINTFORMW Changed the dick, it's now %CHEAT_DICK_NAME(RESULT)%
- ELSEIF RESULT == 99
- CLEARLINE LINECOUNT - LOCAL:5
- RETURN
- ENDIF
- CLEARLINE LINECOUNT - LOCAL:5
- RESTART
- @CHEAT_DICK_NAME(ARG)
- #FUNCTIONS
- SELECTCASE ARG
- CASE 0
- LOCALS = None
- CASE 1
- LOCALS = Immature
- CASE 2
- LOCALS = Pathetic
- CASE 3
- LOCALS = Normal
- CASE 4
- LOCALS = Luminescent
- CASE 5
- LOCALS = Bumpy
- CASE 6
- LOCALS = Huge
- ENDSELECT
- RETURNF LOCALS
- ;========================================================
- ;========================================================
- ;
- ;it's pretty much just a modified function CUSTOM_TERMINAL, so it's all 'unlocked'
- ;ARG = character,
- ;ARG:1 = for unlocking options, it's 1 by default, even more unlocked if 2
- ;========================================================
- ;========================================================
- @CHAR_EDITOR(ARG, ARG:1 = 1)
- PRINTFORML hello
- DRAWLINE
- PRINTSL NAME:ARG
- PRINT STA:
- CALL PRINT_COLORBAR, BASE:ARG:0, MAXBASE:ARG:0, 16, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("赤"), RESULT:1
- PRINTFORM ({BASE:ARG:0,5}/{MAXBASE:ARG:0,5})
- PRINT ENE:
- CALL PRINT_COLORBAR, BASE:ARG:1, MAXBASE:ARG:1, 16, UNICODE(0x2585), UNICODE(0x2585), BARCOLORSET("緑"), RESULT:1
- PRINTFORM ({BASE:ARG:1,5}/{MAXBASE:ARG:1,5})
- PRINTL
- ;能力・性技表示
- CALL PRINT_STATE_ABL(ARG)
- PRINTL
- ;素質表示
- CALL PRINT_STATE_TALENT(ARG)
- PRINTL
- ;経験表示
- CALL PRINT_STATE_EXP(ARG)
- PRINTL
- ;------------------------------
- DRAWLINE
- ;done - exit
- IF LOCAL:100 == 1000
- DRAWLINE
- PRINTL Finished?
- ;name setting
- ELSEIF LOCAL:100 == 1001
- CALL NAME_CUSTOM(ARG)
- LOCAL:100 = 0
- RESTART
- ;base settings
- ELSEIF LOCAL:100 == 1002
- CALL BASE_CUSTOM(ARG,ARG:1)
- ;talent settings
- ELSEIF LOCAL:100 == 1003
- CALL TALENT_CUSTOM(ARG,LOCAL:101, ARG:1)
- ;ability settings
- ELSEIF LOCAL:100 == 1004
- CALL ABL_CUSTOM(ARG,ARG:1)
- ;exp settings
- ELSEIF LOCAL:100 == 1005
- CALL EXP_CUSTOM(ARG)
- ELSEIF LOCAL:100 == 1006
- CALL CLOTHES_CUSTOM
- ENDIF
- ;------------------------------
- DRAWLINE
- PRINTFORML [1000] - Done [1001] - Name change [1002] - STA and ENE settings
- PRINTL [1003] - Talent settings [1004] - Ability settings [1005] - Experience settings
- INPUT
- ;done - exit
- IF RESULT == 1000
- RETURN 0
- ELSEIF RESULT > 1000
- LOCAL:100 = RESULT
- RESTART
- ENDIF
- ;Base settings
- IF LOCAL:100 == 1002
- IF RESULT == 0 && MAXBASE:ARG:0 > 1000
- MAXBASE:ARG:0 -= 100
- ELSEIF RESULT == 1
- MAXBASE:ARG:0 += 100
- ELSEIF RESULT == 2 && MAXBASE:ARG:1 > 1000
- MAXBASE:ARG:1 -= 100
- ELSEIF RESULT == 3
- MAXBASE:ARG:1 += 100
- ENDIF
- BASE:ARG:0 = MAXBASE:ARG:0
- BASE:ARG:1 = MAXBASE:ARG:1
- RESTART
- ;Talent settings
- ELSEIF LOCAL:100 == 1003
- ;ページ送り
- SIF RESULT == 998 && LOCAL:101
- LOCAL:101 --
- SIF RESULT == 999
- LOCAL:101 ++
- SIF RESULT < 0 || RESULT > 500 || TALENTNAME:RESULT == ""
- RESTART
- ;陥落素質ほか
- IF ARG:1 != 2
- IF NO:ARG == NO:MASTER
- SIF 選べない素質(RESULT)
- RESTART
- ELSE
- SIF 選べない素質2(RESULT, NO:ARG)
- RESTART
- ENDIF
- ENDIF
- ;Gender
- IF RESULT == 2
- IF TALENT:ARG:RESULT == 3
- TALENT:ARG:RESULT = 1
- ELSE
- TALENT:ARG:RESULT ++
- ENDIF
- ;Preferences
- ELSEIF RESULT == 81
- IF TALENT:ARG:RESULT == 3
- TALENT:ARG:RESULT = -1
- ELSE
- TALENT:ARG:RESULT ++
- ENDIF
- ;オンオフ型の素質
- ELSEIF TALENTNAME:RESULT == GET_TALENTNAME(RESULT,1) || RESULT == 1 || RESULT == 6
- TALENT:ARG:RESULT = !TALENT:ARG:RESULT
- ;オンオフ型で別途追加が必要な素質
- ;母乳体質
- IF RESULT == 149
- IF TALENT:ARG:RESULT
- MAXBASE:ARG:母乳 = 2000
- ELSE
- MAXBASE:ARG:母乳 = 0
- ENDIF
- ENDIF
- ;量的素質
- ELSE
- ;Gender
- IF LOCAL == 2
- IF TALENT:ARG:RESULT == 3
- TALENT:ARG:RESULT = 1
- ELSE
- TALENT:ARG:RESULT ++
- ENDIF
- ;端まで行くと-1を掛ける
- ELSEIF STRLENS(GET_TALENTNAME(RESULT,TALENT:ARG:RESULT + 1)) || TALENT:ARG:RESULT == -1
- TALENT:ARG:RESULT ++
- ELSE
- TALENT:ARG:RESULT = -1 * TALENT:ARG:RESULT
- ENDIF
- ENDIF
- ;Ability settings
- ELSEIF LOCAL:100 == 1004
- LOCAL = RESULT / 2
- SIF !STRLENS(ABLNAME:LOCAL)
- RESTART
- ;同性愛関係
- IF !(TALENT:ARG:2 & 1) && (LOCAL == 17 || LOCAL == 32)
- RESTART
- ELSEIF TALENT:ARG:2 & 1 && (LOCAL == 18 || LOCAL == 33)
- RESTART
- ENDIF
- ;中毒関係
- SIF LOCAL >= 30 && ARG:1 != 2
- RESTART
- ;even numbers(+)
- IF RESULT % 2
- ABL:ARG:LOCAL ++
- ;odd numbers(-)
- ELSE
- IF ABL:ARG:LOCAL <= 0
- RESTART
- ELSE
- ABL:ARG:LOCAL --
- ENDIF
- ENDIF
- ELSEIF LOCAL:100 == 1005
- IF RESULT == 998
- FOR LOCAL,0,82
- SIF STRLENS(EXPNAME:LOCAL)
- EXP:ARG:(LOCAL) = 0
- NEXT
- RESTART
- ELSEIF RESULT == 999
- FOR LOCAL,0,82
- SIF STRLENS(EXPNAME:LOCAL)
- EXP:ARG:(LOCAL) = RAND:299
- NEXT
- RESTART
- ELSE
- LOCAL = RESULT
- SIF !STRLENS(EXPNAME:LOCAL)
- RESTART
- ;同性愛関係
- IF !(TALENT:ARG:2 & 1) && LOCAL == 41
- RESTART
- ELSEIF TALENT:ARG:2 & 1 && LOCAL == 42
- RESTART
- ENDIF
- PRINTFORM Input for %EXPNAME:LOCAL%
- PRINTBUTTON "[Cancel]",-1
- INPUT
- SIF RESULT < 0
- RESTART
- EXP:ARG:LOCAL = RESULT
- ENDIF
- ELSEIF RESULT == 1006
- ENDIF
- RESTART
- @BASE_CUSTOM_B(ARG, ARG:6)
- PRINT STA:
- BAR BASE:ARG:0,MAXBASE:ARG:0,16
- PRINTFORM ({BASE:ARG:0,4}/{MAXBASE:ARG:0,4})
- IF BASE:ARG:0 != 1000
- PRINTBUTTON "[−]", 0
- ELSE
- SETCOLOR 0x969696
- PRINT [−]
- RESETCOLOR
- ENDIF
- IF BASE:ARG:0 != 2500 || ARG:6
- PRINTBUTTON "[+]", 1
- ELSE
- SETCOLOR 0x969696
- PRINT [+]
- RESETCOLOR
- ENDIF
- PRINTL
- PRINT ENE:
- BAR BASE:ARG:1,MAXBASE:ARG:1,16
- PRINTFORM ({BASE:ARG:1,4}/{MAXBASE:ARG:1,4})
- IF BASE:ARG:1 != 1000 || ARG:6
- PRINTBUTTON "[−]", 2
- ELSE
- SETCOLOR 0x969696
- PRINT [−]
- RESETCOLOR
- ENDIF
- IF BASE:ARG:1 != 2500
- PRINTBUTTON "[+]", 3
- ELSE
- SETCOLOR 0x969696
- PRINT [+]
- RESETCOLOR
- ENDIF
- PRINTL
- @TALENT_CUSTOM_B(ARG,ARG:1, ARG:2)
- VARSET LOCAL
- FOR LOCAL,ARG:1 * 40,40 + ARG:1 * 40
- IF LOCAL % 10 == 0
- PRINTL
- SIF LOCAL:1 % 2
- PRINTL
- LOCAL:1 = 0
- ENDIF
- ;陥落素質ほか
- IF NO:ARG == NO:MASTER
- SIF 選べない素質(LOCAL)
- CONTINUE
- ELSE
- SIF 選べない素質2(LOCAL, NO:ARG)
- CONTINUE
- ENDIF
- SELECTCASE TALENTNAME:LOCAL
- ;TALENT.CSVに登録されていない
- CASE ""
- CONTINUE
- ;オンオフ型の素質(TALENTNAMEと素質表示が一致)
- CASE GET_TALENTNAME(LOCAL,1)
- IF !TALENT:ARG:LOCAL
- SETCOLOR 150,150,150
- ELSE
- SETCOLOR C_AQUA
- ENDIF
- LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
- CASE "非童貞"
- SETCOLOR C_AQUA
- SIF GETBIT(TALENT:ARG:LOCAL, 0) || GETBIT(TALENT:ARG:LOCAL, 0) || GROUPMATCH(TALENT:ARG:2, 0, 1)
- SETCOLOR 150,150,150
- LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
- CASE "キス未経験"
- IF TALENT:ARG:LOCAL
- SETCOLOR 150,150,150
- ELSE
- SETCOLOR C_AQUA
- ENDIF
- LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
- ;量的素質
- CASEELSE
- IF !TALENT:ARG:LOCAL
- SETCOLOR 150,150,150
- ELSE
- SETCOLOR C_AQUA
- ENDIF
- LOCALS = [{LOCAL,3}] - %TALENTNAME:LOCAL%
- IF STRLENS(GET_TALENTNAME(LOCAL, TALENT:ARG:LOCAL))
- LOCALS:1 = …【%GET_TALENTNAME(LOCAL,TALENT:ARG:LOCAL)%】
- ELSE
- LOCALS:1 = …
- SETCOLOR 150,150,150
- ENDIF
- LOCALS += LOCALS:1
- ENDSELECT
- PRINTFORM %LOCALS,50,LEFT%
- LOCAL:1 ++
- SIF LOCAL:1 % 2 == 0
- PRINTL
- RESETCOLOR
- NEXT
- PRINTL
- IF ARG:1 != 0
- PRINTBUTTON "[998] - Previous Page ",998
- ELSE
- SETCOLOR 0x969696
- PRINTFORM %"[---] - Previous Page",35,LEFT%
- RESETCOLOR
- ENDIF
- IF ARG:1 != 3
- PRINTBUTTON "[999] - Next Page",999
- ELSE
- SETCOLOR 0x969696
- PRINTFORM %"[---] - Next Page",35,LEFT%
- RESETCOLOR
- ENDIF
- PRINTL
- @ABL_CUSTOM_B(ARG, ARG:6)
- LOCAL:1 = 0
- FOR LOCAL,0,50
- SIF !STRLENS(ABLNAME:LOCAL)
- CONTINUE
- ;同性愛関係
- IF !(TALENT:ARG:2 & 1) && (LOCAL == 17 || LOCAL == 32)
- CONTINUE
- ELSEIF TALENT:ARG:2 & 1 && (LOCAL == 18 || LOCAL == 33)
- CONTINUE
- ENDIF
- ;中毒も無し
- SIF LOCAL >= 30
- CONTINUE
- PRINTFORM %ABLNAME:LOCAL,12%:{ABL:ARG:LOCAL,5,LEFT}
- IF ABL:ARG:LOCAL != 0
- PRINTBUTTON "[−]", LOCAL * 2
- ELSE
- SETCOLOR 0x969696
- PRINT [−]
- RESETCOLOR
- ENDIF
- IF ABL:ARG:LOCAL != 2 || ARG:6
- PRINTBUTTON "[+]", LOCAL * 2 + 1
- ELSE
- SETCOLOR 0x969696
- PRINT [+]
- RESETCOLOR
- ENDIF
- LOCAL:1 ++
- SIF LOCAL:1 % 2 == 0
- PRINTL
- NEXT
- PRINTL
- ------------------------------------------------------------------------------------------------
- Additional Notes:
- The following are copies from "\ERB\SHOP関連\キャラメイク.ERB" with some changes
- @BASE_CUSTOM_B(ARG, ARG:6)
- @TALENT_CUSTOM_B(ARG,ARG:1, ARG:2)
- @ABL_CUSTOM_B(ARG, ARG:6)
- TALENT_CUSTOM_B is an incomplete form with current code so ARG:2 does nothing yet
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement