code:
@EVENTNAME131

RESULTS = ショタへいたずら

@EVENTABLE131(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:131
	FLAG:21 = 1
ENDIF

@EVENT131(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 131

CALL RANDOM_SHOTA_TYPE
CALL RANDOM_SHOTA_PLAY_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)

path: ERB/イベント/個別侵食イベント/EVENT131_ショタへいたずら.ERB


code:
@EVENTNAME135

RESULTS = 男汤突击
;TranslatedMark 男湯突撃

@EVENTABLE135(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:135 && (ITEM:131 == 0 || (ITEM:131 && ITEM:130))
	FLAG:21 = 1
ENDIF

@EVENT135(CHARA_ID)
#DIM CHARA_ID
#DIM TINPO
#DIM TEMP

TFLAG:番号 = 135
TINPO = 0
CALL RANDOM_OSSAN_TYPE
CALL RANDOM_OSSAN_FURO_TYPE

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 25, 10)

IF TALENT:CHARA_ID:淫乱 && RAND:2
	TEMP = 5
	TINPO = 1
ELSEIF ITEM:223 && RAND:2
	TEMP = 6
	TINPO = 1
ELSEIF ITEM:130
	TEMP = 1
ELSEIF ITEM:324
	TEMP = 2
ELSEIF CFLAG:CHARA_ID:100 == 8
	TEMP = 3
ELSE
	TEMP = 4
ENDIF

IF TINPO || TFLAG:6 == 7
	TFLAG:部位 = 8
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
	CALL ECSTASY(CHARA_ID)
	CALL ADD_ABL_EXP(15, CHARA_ID, 10 + RAND:10)
	IF ITEM:18
		CALL GET_PREGNANCY(CHARA_ID)
	ELSE
		CALL GET_PREGNANCY(CHARA_ID, "おじさん")
	ENDIF
ELSEIF TFLAG:6 == 6
	CALL CALC_ECSTASY(CHARA_ID, 20)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
	CALL ECSTASY(CHARA_ID)
ELSE
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)

repo_name: mcstone/syokushuhenth

license: unknown


code:
@EVENTNAME136

RESULTS = ショタ男湯突撃

@EVENTABLE136(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:135 && ITEM:131
	FLAG:21 = 1
ENDIF

@EVENT136(CHARA_ID)
#DIM CHARA_ID
#DIM TINPO
#DIM TEMP

TFLAG:番号 = 136

CALL RANDOM_SHOTA_TYPE
CALL RANDOM_SHOTA_FURO_TYPE

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 25, 10)

IF TALENT:CHARA_ID:淫乱 && RAND:2
	TEMP = 5
	TINPO = 1
ELSEIF ITEM:139 && RAND:2
	TEMP = 6
	TINPO = 1
ELSEIF ITEM:324
	TEMP = 1
ELSEIF CFLAG:CHARA_ID:100 == 8
	TEMP = 2
ELSEIF RAND:2
	TEMP = 3
ELSE
	TEMP = 4
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ENDIF

IF TINPO
	TFLAG:部位 = 8
	SETBIT TFLAG:21, 7

	CALL CALC_ECSTASY(CHARA_ID, 30)

	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
	CALL ECSTASY(CHARA_ID)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
	IF ITEM:18
		CALL GET_PREGNANCY(CHARA_ID)
	ELSE
		CALL GET_PREGNANCY(CHARA_ID, "ショタ")
	ENDIF
ELSE
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)

path: ERB/イベント/個別侵食イベント/EVENT136_ショタ男湯突撃.ERB


code:
@EVENTNAME137

RESULTS = 正太男汤集体突击
;TranslatedMark ショタ男湯へ集団突撃

@EVENTABLE137(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:135 && ITEM:131 && ITEM:81
	FLAG:21 = 1
ENDIF

@EVENT137(CHARA_ID)
#DIM CHARA_ID
#DIM TINPO
#DIM TEMP

TFLAG:番号 = 137
TFLAG:部位 = 30

CALL RANDOM_SHOTA_TYPE
CALL RANDOM_SHOTA_FURO_TYPE

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 25, 10)

IF TALENT:CHARA_ID:淫乱 && RAND:2
	TEMP = 5
	TINPO = 1
ELSEIF ITEM:139 && RAND:2
	TEMP = 6
	TINPO = 1
ELSEIF ITEM:324
	TEMP = 1
ELSEIF CFLAG:CHARA_ID:100 == 8
	TEMP = 2
ELSEIF RAND:2
	TEMP = 3
ELSE
	TEMP = 4
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ENDIF

IF TINPO
	TFLAG:部位 = 8
	SETBIT TFLAG:21, 7

	CALL CALC_ECSTASY(CHARA_ID, 30)

	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
	CALL ECSTASY(CHARA_ID)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
	IF ITEM:18
		CALL GET_PREGNANCY(CHARA_ID)
	ELSE
		CALL GET_PREGNANCY(CHARA_ID, "ショタ")
	ENDIF
ELSE
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
ENDIF

;2人巻き込む
CALL RANDOM_GET_CAUGHT(CHARA_ID, 2)

;巻き込まれたキャラへの追加イベント
@EVENT137_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID
#DIM TINPO
#DIM TEMP

CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 7)

CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 25, 10)

CALL RANDOM_SHOTA_FURO_TYPE

IF TALENT:RANDOM_CHARA_ID:淫乱 && RAND:2
	TEMP = 5
	TINPO = 1
ELSEIF ITEM:139 && RAND:2
	TEMP = 6
	TINPO = 1
ELSEIF ITEM:324
	TEMP = 1
ELSEIF CFLAG:RANDOM_CHARA_ID:100 == 8
	TEMP = 2
ELSEIF RAND:2
	TEMP = 3
ELSE
	TEMP = 4
	CALL ADD_ABL_EXP(15, RANDOM_CHARA_ID, 5 + RAND:10)
ENDIF

IF TINPO
	TFLAG:部位 = 8
	SETBIT TFLAG:21, 7

	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 30)

	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL ADD_ABL_EXP(15, RANDOM_CHARA_ID, 5 + RAND:10)
	IF ITEM:18
		CALL GET_PREGNANCY(RANDOM_CHARA_ID)
	ELSE
		CALL GET_PREGNANCY(RANDOM_CHARA_ID, "ショタ")
	ENDIF
ELSE
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
ENDIF

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 7)

path: ERB/イベント/個別侵食イベント/EVENT137_ショタ男湯へ集団突撃.ERB


code:
@EVENTNAME138

RESULTS = 大叔男汤集体突击
;TranslatedMark おじさん男湯へ集団突撃

@EVENTABLE138(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:135 && (ITEM:131 == 0 || (ITEM:131 && ITEM:130)) && ITEM:81
	FLAG:21 = 1
ENDIF

@EVENT138(CHARA_ID)
#DIM CHARA_ID
#DIM TINPO
#DIM TEMP

TFLAG:番号 = 138
TFLAG:部位 = 30
CALL RANDOM_OSSAN_TYPE
CALL RANDOM_OSSAN_FURO_TYPE

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 25, 10)

IF TALENT:CHARA_ID:淫乱 && RAND:2
	TEMP = 5
	TINPO = 1
ELSEIF ITEM:223 && RAND:2
	TEMP = 6
	TINPO = 1
ELSEIF ITEM:130
	TEMP = 1
ELSEIF ITEM:324
	TEMP = 2
ELSEIF CFLAG:CHARA_ID:100 == 8
	TEMP = 3
ELSE
	TEMP = 4
ENDIF

IF TINPO || TFLAG:6 == 7
	TFLAG:部位 = 8
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
	CALL ECSTASY(CHARA_ID)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
	IF ITEM:18
		CALL GET_PREGNANCY(CHARA_ID)
	ELSE
		CALL GET_PREGNANCY(CHARA_ID, "おじさん")
	ENDIF
ELSE
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
ENDIF

;2人巻き込む
CALL RANDOM_GET_CAUGHT(CHARA_ID, 2)

;巻き込まれたキャラへの追加イベント
@EVENT138_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID
#DIM TINPO
#DIM TEMP

CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 7)

CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 25, 10)

IF TALENT:RANDOM_CHARA_ID:淫乱 && RAND:2
	TEMP = 5
	TINPO = 1
ELSEIF ITEM:223 && RAND:2
	TEMP = 6
	TINPO = 1
ELSEIF ITEM:130
	TEMP = 1
ELSEIF ITEM:324
	TEMP = 2
ELSEIF CFLAG:RANDOM_CHARA_ID:100 == 8
	TEMP = 3
ELSE
	TEMP = 4
ENDIF

IF TINPO || TFLAG:6 == 7
	TFLAG:部位 = 8
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 30)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:(FLAG:初期宿主), TEMP)
	CALL ECSTASY(RANDOM_CHARA_ID)

	CALL ADD_ABL_EXP(15, RANDOM_CHARA_ID, 5 + RAND:10)
	IF ITEM:18
		CALL GET_PREGNANCY(RANDOM_CHARA_ID)
	ELSE
		CALL GET_PREGNANCY(RANDOM_CHARA_ID, "おじさん")
	ENDIF
ENDIF

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 8)

path: ERB/イベント/個別侵食イベント/EVENT138_おじさん男湯へ集団突撃.ERB


code:
@EVENTNAME139

RESULTS = 巨根正太
;TranslatedMark ヤリチンショタ

@EVENTABLE139(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:139
	FLAG:21 = 1
ENDIF

@EVENT139(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 139
TFLAG:部位 = RAND:16 + RAND:17
SETBIT TFLAG:21, 7
CALL RANDOM_SHOTA_TYPE
CALL RANDOM_SHOTA_PLAY_3_TYPE

CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "ショタ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)

path: ERB/イベント/個別侵食イベント/EVENT139_ヤリチンショタ.ERB


code:
@EVENTNAME140

RESULTS = 播种大叔
;TranslatedMark 種付けおじさん

@EVENTABLE140(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:140
	FLAG:21 = 1
ENDIF

@EVENT140(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 140
TFLAG:部位 = RAND:16 + RAND:17
SETBIT TFLAG:21, 7
CALL RANDOM_OSSAN_TYPE
CALL RANDOM_OSSAN_PLAY_3_TYPE

CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "おじさん")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)

path: ERB/イベント/個別侵食イベント/EVENT140_種付けおじさん.ERB


code:
@EVENTNAME141

RESULTS = 轻百合
;TranslatedMark 軽い百合

@EVENTABLE141(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:141 && ITEM:142 == 0
	FLAG:21 = 1
ENDIF

@EVENT141(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 141

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 10, 15)

CALL RANDOM_GET_CAUGHT(CHARA_ID, 1)

@EVENT141_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID

CALL RANDOM_LESBIAN_PLAY_TYPE

IF CFLAG:CHARA_ID:10 == RANDOM_CHARA_ID && CFLAG:RANDOM_CHARA_ID:10 == CHARA_ID

	CALL CALC_ECSTASY(CHARA_ID, 40)
	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 40)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 1)
	CALL ECSTASY(CHARA_ID)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 15)
	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, 5 + RAND:10)
ELSEIF CFLAG:CHARA_ID:(300+RANDOM_CHARA_ID) >= 120 || CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) >= 120
	CFLAG:CHARA_ID:10 = RANDOM_CHARA_ID
	CFLAG:RANDOM_CHARA_ID:10 = CHARA_ID
	CALL CALC_ECSTASY(CHARA_ID, 40)
	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 40)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 1)
	CALL ECSTASY(CHARA_ID)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 15)
	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, 5 + RAND:10)

ELSE
	CFLAG:CHARA_ID:(300+RANDOM_CHARA_ID) += 2+ RAND:15
	CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) += 2+ RAND:15
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 2)

ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)


code:
@EVENTNAME142

RESULTS = 萝莉控
;TranslatedMark ロリコン

@EVENTABLE142(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:142
	FLAG:21 = 1
ENDIF

@EVENT142(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 142

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 10, 15)

CALL RANDOM_GET_CAUGHT_LOLI(CHARA_ID)

@EVENT142_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID

CALL RANDOM_LESBIAN_PLAY_TYPE

IF CFLAG:CHARA_ID:10 == RANDOM_CHARA_ID && CFLAG:RANDOM_CHARA_ID:10 == CHARA_ID
	CALL CALC_ECSTASY(CHARA_ID, 40)
	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 40)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 1)
	CALL ECSTASY(CHARA_ID)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 15)
	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, 5 + RAND:10)
ELSEIF CFLAG:CHARA_ID:(300+RANDOM_CHARA_ID) >= 120 || CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) >= 120
	CFLAG:CHARA_ID:10 = RANDOM_CHARA_ID
	CFLAG:RANDOM_CHARA_ID:10 = CHARA_ID
	CALL CALC_ECSTASY(CHARA_ID, 40)
	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 40)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 1)
	CALL ECSTASY(CHARA_ID)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 15)
	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, 5 + RAND:10)

ELSE
	CFLAG:CHARA_ID:(300+RANDOM_CHARA_ID) += 2+ RAND:15
	CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) += 2+ RAND:15
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 2)

ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)


code:
@EVENTNAME143

RESULTS = 百合

@EVENTABLE143(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF CFLAG:CHARA_ID:10
	FLAG:21 = 1
ENDIF

@EVENT143(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 143

CALL CALC_ECSTASY(CHARA_ID, 40)
CALL CALC_ECSTASY(CFLAG:CHARA_ID:10, 40)

IF GET_PENIS(CHARA_ID)
	CALL RANDOM_LESBIAN_PLAY_3_TYPE
ELSE
	CALL RANDOM_LESBIAN_PLAY_2_TYPE
ENDIF
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(CFLAG:CHARA_ID:10))

IF GET_PENIS(CFLAG:CHARA_ID:10)
	CALL RANDOM_LESBIAN_PLAY_3_TYPE
ELSE
	CALL RANDOM_LESBIAN_PLAY_2_TYPE
ENDIF
CALL PRINT_MESSAGE(CFLAG:CHARA_ID:10, "侵食イベント", TFLAG:番号, CALLNAME:(CFLAG:CHARA_ID:10), CALLNAME:CHARA_ID, 1)

CALL MENTAL_DEVELOP(CFLAG:CHARA_ID:10, 10, 15)
CALL MENTAL_DEVELOP(CHARA_ID, 10, 15)
CALL ECSTASY(CHARA_ID)
CALL ECSTASY(CFLAG:CHARA_ID:10)
CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
CALL ADD_ABL_EXP(14, CFLAG:CHARA_ID:10, 5 + RAND:10)
CFLAG:CHARA_ID:(300+(CFLAG:CHARA_ID:10)) += 2+ RAND:15
CFLAG:(CFLAG:CHARA_ID:10):(300+CHARA_ID) += 2+ RAND:15

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)


code:
@EVENTNAME144

RESULTS = 雌小鬼集体袭击
;TranslatedMark モブメスガキ襲撃

@EVENTABLE144(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:144
	FLAG:21 = 1
ENDIF

@EVENT144(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 144
TFLAG:部位 = RAND:16 + RAND:17
SETBIT TFLAG:21, 7
CALL RANDOM_MESUGAKI_TYPE
CALL RANDOM_LESBIAN_PLAY_2_TYPE
CALL RANDOM_LESBIAN_PLAY_3_TYPE
CALL RANDOM_LESBIAN_PLAY_4_TYPE
CALL RANDOM_LESBIAN_PLAY_5_TYPE

IF ITEM:222 && GET_PENIS(CHARA_ID) > 0 && RAND:3
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSEIF ITEM:222
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 1)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSE
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 2)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
ENDIF

IF ITEM:17 && ITEM:222
	CALL GET_PREGNANCY(CHARA_ID)
ELSEIF ITEM:222
	CALL GET_PREGNANCY(CHARA_ID, "メスガキ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)

path: ERB/イベント/個別侵食イベント/EVENT144_モブメスガキ襲撃.ERB


code:
@EVENTNAME145

RESULTS = 雌小鬼尾随袭击
;TranslatedMark ネームドメスガキ襲撃

@EVENTABLE145(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:144 && FLAG:侵食人数 > 25
	FLAG:21 = 1
ENDIF

@EVENT145(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 145
TFLAG:部位 = 15
CALL RANDOM_LESBIAN_PLAY_2_TYPE
CALL RANDOM_LESBIAN_PLAY_3_TYPE
CALL RANDOM_LESBIAN_PLAY_4_TYPE
CALL RANDOM_LESBIAN_PLAY_5_TYPE

CALL RANDOM_GET_CAUGHT_POLLUTED_LOLI(CHARA_ID)

@EVENT145_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID

;CHARA_IDが襲われる側

IF GET_PENIS(CHARA_ID) > 0 && RAND:3
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:RANDOM_CHARA_ID)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSEIF ITEM:222
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:RANDOM_CHARA_ID, 1)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSE
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:RANDOM_CHARA_ID, 2)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
ENDIF

IF ITEM:17 && ITEM:222
	CALL GET_PREGNANCY(CHARA_ID)
ELSEIF ITEM:222
	CALL GET_PREGNANCY(CHARA_ID, "メスガキ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)

path: ERB/イベント/個別侵食イベント/EVENT145_ネームドメスガキ襲撃.ERB


code:
@EVENTNAME146

RESULTS = 女同袭击
;TranslatedMark レズ襲撃

@EVENTABLE146(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:143
	FLAG:21 = 1
ENDIF

@EVENT146(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 146
TFLAG:部位 = RAND:16 + RAND:17
CALL RANDOM_MESU_TYPE
CALL RANDOM_LESBIAN_PLAY_2_TYPE
CALL RANDOM_LESBIAN_PLAY_3_TYPE
CALL RANDOM_LESBIAN_PLAY_4_TYPE
CALL RANDOM_LESBIAN_PLAY_5_TYPE

IF ITEM:222 && GET_PENIS(CHARA_ID) > 0 && RAND:3
	SETBIT TFLAG:21, 7

	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSEIF ITEM:222
	SETBIT TFLAG:21, 7

	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 1)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSE

	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 2)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
ENDIF

IF ITEM:17 && ITEM:222
	CALL GET_PREGNANCY(CHARA_ID)
ELSEIF ITEM:222
	CALL GET_PREGNANCY(CHARA_ID, "ふたなりちんぽ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)


code:
@EVENTNAME147

RESULTS = 女同尾随袭击
;TranslatedMark ネームドレズ襲撃

@EVENTABLE147(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:143 && FLAG:侵食人数 > 25
	FLAG:21 = 1
ENDIF

@EVENT147(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 147
TFLAG:部位 = 15
CALL RANDOM_LESBIAN_PLAY_2_TYPE
CALL RANDOM_LESBIAN_PLAY_3_TYPE
CALL RANDOM_LESBIAN_PLAY_4_TYPE
CALL RANDOM_LESBIAN_PLAY_5_TYPE

CALL RANDOM_GET_CAUGHT_POLLUTED(CHARA_ID)

@EVENT147_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID

;CHARA_IDが襲われる側

IF GET_PENIS(CHARA_ID) > 0 && RAND:3

	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:RANDOM_CHARA_ID)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSEIF ITEM:222
	SETBIT TFLAG:21, 7

	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:RANDOM_CHARA_ID, 1)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
	CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)
ELSE
	CALL CALC_ECSTASY(CHARA_ID, 30)
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:RANDOM_CHARA_ID, 2)
	CALL ECSTASY(CHARA_ID)
	CALL MENTAL_DEVELOP(CHARA_ID, 25)

	CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)
ENDIF

IF ITEM:17 && ITEM:222
	CALL GET_PREGNANCY(CHARA_ID)
ELSEIF ITEM:222
	CALL GET_PREGNANCY(CHARA_ID, "メスガキ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)

path: ERB/イベント/個別侵食イベント/EVENT147_ネームドレズ襲撃.ERB


code:
@EVENTNAME14

RESULTS = 野犬发情
;TranslatedMark 野犬発情

@EVENTABLE14(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:2 && ITEM:122
	FLAG:21 = 1
ENDIF

@EVENT14(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 14
TFLAG:部位 = 8
SETBIT TFLAG:21, 2
CALL RANDOM_INU_TYPE

CFLAG:CHARA_ID:発情 = RAND:3 + 1

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL PHYSICAL_DEVELOP(CHARA_ID, 15)

IF ITEM:12
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "野犬")
ENDIF
CALL GET_PARASITE(CHARA_ID, "野犬")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)


code:
@EVENTNAME150

RESULTS = 倒计时
;TranslatedMark カウントダウン

@EVENTABLE150(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:150
	FLAG:21 = 1
ENDIF

@EVENT150(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 150
TFLAG:部位 = RAND:16 + RAND:17
CALL CALC_ECSTASY(CHARA_ID, 100)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 30, 30)

CFLAG:CHARA_ID:絶頂 = RAND:3 + 1

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)

path: ERB/イベント/個別侵食イベント/EVENT150_カウントダウン.ERB


code:
@EVENTNAME161

RESULTS = 与动物结婚
;TranslatedMark 動物結婚

;EVENT可不可チェック
@EVENTABLE161(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:161 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:SP <= MAXBASE:CHARA_ID:SP / 2 && CFLAG:CHARA_ID:婚姻済 == 0
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT161(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 161
TFLAG:部位 = 14
SETBIT TFLAG:21, 2
CALL RANDOM_INU_TYPE

CALL CALC_ECSTASY(CHARA_ID, 10)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)

CFLAG:CHARA_ID:婚姻済 = 1

IF ITEM:12
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "野犬")
ENDIF

CALL GET_PARASITE(CHARA_ID, "野犬")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)


code:
@EVENTNAME162

RESULTS = 与虫类结婚
;TranslatedMark 虫結婚

;EVENT可不可チェック
@EVENTABLE162(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:162 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:SP <= MAXBASE:CHARA_ID:SP / 3 && CFLAG:CHARA_ID:婚姻済 == 0
	FLAG:21 = 1
ENDIF

;イベント実処理;フェイズの終了処理
@EVENT162(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 162
TFLAG:部位 = 8
CALL RANDOM_INSECT_TYPE
SETBIT TFLAG:21, 5

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 10, 5)

CFLAG:CHARA_ID:婚姻済 = 1

CALL GET_PARASITE(CHARA_ID, "虫")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)


code:
@EVENTNAME163

RESULTS = 百合结婚
;TranslatedMark 百合結婚

;EVENT可不可チェック
@EVENTABLE163(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:163 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:SP <= MAXBASE:CHARA_ID:SP / 2 && CFLAG:CHARA_ID:恋人 && CFLAG:CHARA_ID:婚姻済 == 0
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT163(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 163

SETBIT TFLAG:21, 6

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(CFLAG:CHARA_ID:恋人))

CFLAG:CHARA_ID:婚姻済 = 1
CFLAG:(CFLAG:CHARA_ID:恋人):婚姻済 = 1

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)
CALL POLLUTED_POSITION_INDEX((CFLAG:CHARA_ID:恋人), 6)


code:
@EVENTNAME164

RESULTS = 触手結婚

;EVENT可不可チェック
@EVENTABLE164(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:164 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:SP <= MAXBASE:CHARA_ID:SP / 2 && CFLAG:CHARA_ID:婚姻済 == 0
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT164(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 164
TFLAG:部位 = 14
SETBIT TFLAG:21, 0

CALL CALC_ECSTASY(CHARA_ID, 10)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)

CFLAG:CHARA_ID:婚姻済 = 1

CALL GET_PREGNANCY(CHARA_ID, "触手")
CALL GET_PARASITE(CHARA_ID, "触手")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME168

RESULTS = 植物同化

;EVENT可不可チェック
@EVENTABLE168(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:168 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:HP < MAXBASE:CHARA_ID:HP / 2 && FLAG:成長力 > 20
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT168(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 168

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL SURRENDER(CHARA_ID, 7)

CFLAG:CHARA_ID:植物同化 = RAND:3 + 1


code:
@EVENTNAME16

RESULTS = 昆虫诱拐
;TranslatedMark 虫連れ去り

@EVENTABLE16(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:6
	FLAG:21 = 1
ENDIF

@EVENT16(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 16
TFLAG:部位 = RAND:16 + RAND:17
CALL RANDOM_INSECT_TYPE
SETBIT TFLAG:21, 5

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 25)
CALL MENTAL_DEVELOP(CHARA_ID, 15, 10)

CFLAG:CHARA_ID:20 = RAND:5 + 2

CALL GET_PARASITE(CHARA_ID, "虫")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)


code:
@EVENTNAME17

RESULTS = 意外袭击
;TranslatedMark 不意のフェラ

@EVENTABLE17(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:7 && GET_PENIS(CHARA_ID)
	FLAG:21 = 1
ENDIF

@EVENT17(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 17
TFLAG:部位 = 4

CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)

path: ERB/イベント/個別侵食イベント/EVENT17_不意のフェラ.ERB


code:
@EVENTNAME187

RESULTS = 飞机杯转化
;TranslatedMark オナホ化

;EVENT可不可チェック
@EVENTABLE187(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:187 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:HP < MAXBASE:CHARA_ID:HP / 2 && FLAG:支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT187(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 187

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL SURRENDER(CHARA_ID, 11)

CFLAG:CHARA_ID:オナホ化 = RAND:3 + 1


code:
@EVENTNAME188

RESULTS = 失踪
;TranslatedMark 行方不明

;EVENT可不可チェック
@EVENTABLE188(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:188 && ITEM:180 && FLAG:支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT188(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 188

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL SURRENDER(CHARA_ID, 12)

CFLAG:CHARA_ID:行方不明 = RAND:3 + 1


code:
@EVENTNAME18

RESULTS = 被正太意外强奸
;TranslatedMark 不意のショタレイプ

@EVENTABLE18(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:8 && ITEM:223 && ITEM:139
	FLAG:21 = 1
ENDIF

@EVENT18(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 18
TFLAG:部位 = 8
SETBIT TFLAG:21, 7
CALL RANDOM_SHOTA_TYPE
CALL RANDOM_SHOTA_PLAY_3_TYPE

CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 0, 5)

CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "ガキ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)

path: ERB/イベント/個別侵食イベント/EVENT18_不意のショタレイプ.ERB


code:
@EVENTNAME195

RESULTS = 淫乱化

@EVENTABLE195(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:195 && TALENT:CHARA_ID:淫乱 == 0
	IF ABL:CHARA_ID:自慰中毒 || ABL:CHARA_ID:触手中毒 || ABL:CHARA_ID:射精中毒 || ABL:CHARA_ID:レズ中毒 || ABL:CHARA_ID:精液中毒
		FLAG:21 = 1
	ENDIF
ENDIF

IF ITEM:196 && TALENT:CHARA_ID:淫乱 && TALENT:CHARA_ID:尻穴狂い == 0
	FLAG:21 = 1
ENDIF
IF ITEM:197 && TALENT:CHARA_ID:淫乱 && TALENT:CHARA_ID:淫乳 == 0
	FLAG:21 = 1
ENDIF
IF ITEM:198 && TALENT:CHARA_ID:淫乱 && TALENT:CHARA_ID:淫核 == 0
	FLAG:21 = 1
ENDIF
IF ITEM:199 && TALENT:CHARA_ID:淫乱 && TALENT:CHARA_ID:淫壷 == 0
	FLAG:21 = 1
ENDIF
IF ITEM:241 && TALENT:CHARA_ID:淫乱 && TALENT:CHARA_ID:キス魔 == 0
	FLAG:21 = 1
ENDIF

@EVENT195(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 195
IF TALENT:CHARA_ID:淫乱 == 0
	TALENT:CHARA_ID:淫乱 = 1
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
ENDIF
CALL MENTAL_DEVELOP(CHARA_ID, 5, 15)

IF TALENT:CHARA_ID:尻穴狂い == 0 && ITEM:196
	TALENT:CHARA_ID:尻穴狂い = 1
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 1)
ENDIF
IF TALENT:CHARA_ID:淫乳 == 0 && ITEM:197
	TALENT:CHARA_ID:淫乳 = 1
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 2)
ENDIF
IF TALENT:CHARA_ID:淫核 == 0 && ITEM:198
	TALENT:CHARA_ID:淫核 = 1
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 3)
ENDIF
IF TALENT:CHARA_ID:淫壷 == 0 && ITEM:199
	TALENT:CHARA_ID:淫壷 = 1
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 4)
ENDIF
IF TALENT:CHARA_ID:キス魔 == 0 && ITEM:241
	TALENT:CHARA_ID:キス魔 = 1
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 5)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME19

RESULTS = 触手袭击
;TranslatedMark 触手襲撃

;EVENT可不可チェック
@EVENTABLE19(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:19
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT19(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 19
TFLAG:部位 = RAND:32

CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL PHYSICAL_DEVELOP(CHARA_ID, 5)
CALL MENTAL_DEVELOP(CHARA_ID, 5, 5)
CALL ADD_ABL_EXP(12, CHARA_ID, 20 + RAND:50)

CFLAG:CHARA_ID:20 = RAND:2 + 1

CALL GET_PARASITE(CHARA_ID, "触手")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME1

RESULTS = 史莱姆袭击
;TranslatedMark スライム襲撃

;EVENT可不可チェック
@EVENTABLE1(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:1
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT1(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 1
TFLAG:部位 = RAND:16 + RAND:17

CALL CALC_ECSTASY(CHARA_ID, 10)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)

SIF ITEM:11
	CALL GET_PREGNANCY(CHARA_ID)
CALL GET_PARASITE(CHARA_ID, "スライム")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)

path: ERB/イベント/個別侵食イベント/EVENT1_スライム襲撃.ERB


code:
@EVENTNAME202

RESULTS = 喝尿
;TranslatedMark 飲尿

@EVENTABLE202(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:202
	FLAG:21 = 1
ENDIF

@EVENT202(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 202

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 15, 5)

EXP:CHARA_ID:お漏らし経験 ++

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME205

RESULTS = 强制初潮
;TranslatedMark 強制初潮

@EVENTABLE205(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF TALENT:CHARA_ID:幼稚 && ITEM:205
	FLAG:21 = 1
ENDIF

@EVENT205(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 205
TFLAG:部位 = 8
CALL RANDOM_FELLOW_2_TYPE

SETBIT TFLAG:21, 7

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 5, 10)

IF TALENT:CHARA_ID:幼稚
	TALENT:CHARA_ID:幼稚 = 0
ENDIF

CALL GET_PREGNANCY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME207

RESULTS = 买一个老人
;TranslatedMark おっさんを買う

@EVENTABLE207(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:130 && ITEM:207
	FLAG:21 = 1
ENDIF

@EVENT207(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 207
TFLAG:部位 = 8
SETBIT TFLAG:21, 7
CALL RANDOM_OSSAN_TYPE

CALL CALC_ECSTASY(CHARA_ID, 40)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL ADD_ABL_EXP(15, CHARA_ID, 15 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "おじさん")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)

path: ERB/イベント/個別侵食イベント/EVENT207_おっさんを買う.ERB


code:
@EVENTNAME208

RESULTS = 买一个正太
;TranslatedMark ショタを買う

@EVENTABLE208(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:131 && ITEM:207
	FLAG:21 = 1
ENDIF

@EVENT208(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 208
TFLAG:部位 = 8
CALL RANDOM_SHOTA_TYPE

CALL CALC_ECSTASY(CHARA_ID, 40)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL ADD_ABL_EXP(15, CHARA_ID, 15 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "ショタ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)


code:
@EVENTNAME209

RESULTS = 膣内放尿

@EVENTABLE209(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF (ITEM:140 || ITEM:139) && ITEM:208
	FLAG:21 = 1
ENDIF

@EVENT209(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 209
TFLAG:部位 = 8

IF ITEM:139
	CALL RANDOM_SHOTA_TYPE
ELSE
	CALL RANDOM_OSSAN_TYPE
ENDIF

CALL CALC_ECSTASY(CHARA_ID, 40)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 30)

CALL ADD_ABL_EXP(15, CHARA_ID, 15 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSEIF ITEM:139
	CALL GET_PREGNANCY(CHARA_ID, "ショタ")
	CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ELSEIF ITEM:140
	CALL GET_PREGNANCY(CHARA_ID, "おじさん")
	CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
ENDIF


code:
@EVENTNAME212

RESULTS = 母乳

@EVENTABLE212(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:212 && (TALENT:CHARA_ID:母乳体質 < 3 || (TALENT:CHARA_ID:母乳体質 <= 6 && ITEM:220))
	FLAG:21 = 1
ENDIF

@EVENT212(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 212

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 10)
CALL MENTAL_DEVELOP(CHARA_ID, 10, 10)

CALL MILK_COME(CHARA_ID, 1 + ITEM:220)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME213

RESULTS = 乳房膨胀
;TranslatedMark 膨乳

@EVENTABLE213(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:213 && GET_BUST(CHARA_ID) < 2
	FLAG:21 = 1
ENDIF

@EVENT213(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 213

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 10)
CALL MENTAL_DEVELOP(CHARA_ID, 10, 10)
CALL ADD_BUST(CHARA_ID, 1, "メッセージ表示")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME218

RESULTS = 喷乳
;TranslatedMark 噴乳

@EVENTABLE218(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:294 && ITEM:218 && TALENT:CHARA_ID:母乳体質
	FLAG:21 = 1
ENDIF

@EVENT218(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 218
TFLAG:部位 = 2
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL ADD_ABL_EXP(16, CHARA_ID, RAND:120)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME219

RESULTS = 搾乳おねだり

@EVENTABLE219(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:294 && ITEM:219 && TALENT:CHARA_ID:母乳体質 && ABL:CHARA_ID:噴乳中毒
	FLAG:21 = 1
ENDIF

@EVENT219(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 219
TFLAG:部位 = 2
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 25)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL MENTAL_DEVELOP(CHARA_ID, 10, 10)

CALL ADD_ABL_EXP(16, CHARA_ID, RAND:150)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME21

RESULTS = 发情
;TranslatedMark 発情

@EVENTABLE21(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:21
	FLAG:21 = 1
ENDIF

@EVENT21(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 21
TFLAG:部位 = CFLAG:CHARA_ID:9

CALL CALC_ECSTASY(CHARA_ID, 35)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL ADD_ABL_EXP(11, CHARA_ID, 10 + RAND:40)

CFLAG:CHARA_ID:強制自慰 = RAND:2 + 1


code:
@EVENTNAME222

RESULTS = ふたなり化

@EVENTABLE222(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:222 && GET_PENIS(CHARA_ID) == 0
	FLAG:21 = 1
ENDIF

@EVENT222(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 222

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

TALENT:CHARA_ID:121 = 1

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME223

RESULTS = ふたなり襲撃

@EVENTABLE223(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF (ITEM:83 || ITEM:223) && GET_PENIS(CHARA_ID)
	FLAG:21 = 1
ENDIF

@EVENT223(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT

TFLAG:番号 = 223
TFLAG:部位 = 4
SETBIT TFLAG:21, 7

CALL CALC_ECSTASY(CHARA_ID, 45)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL ADD_ABL_EXP(13, CHARA_ID, 3 + RAND:6)
CALL ADD_ABL_EXP(14, CHARA_ID, 15 + RAND:60)

CALL RANDOM_GET_CAUGHT(CHARA_ID, 1)

;巻き込まれたキャラへの追加イベント
@EVENT223_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID
#DIM LOVE_SAMEN

;求められると嬉しいので好感度によって性ダメージ上昇
IF CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) > 100
	LOVE_SAMEN = CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) - 90
ELSE
	LOVE_SAMEN = 10
ENDIF
CALL CALC_ECSTASY(CHARA_ID, LOVE_SAMEN)
;部位いくつかからランダムにしたいけどC同士はふたなり同士でないとなのでとりあえずVレイプ
TFLAG:部位 = 8

IF ABL:CHARA_ID:98 > ABL:RANDOM_CHARA_ID:98
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 1)
ELSEIF CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) > 120
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 2)
ELSE
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 3)
ENDIF

CALL ECSTASY(CHARA_ID)

CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, LOVE_SAMEN + RAND:50)
CALL ADD_ABL_EXP(15, RANDOM_CHARA_ID, LOVE_SAMEN + RAND:5)

CALL GET_PREGNANCY(RANDOM_CHARA_ID, CALLNAME:CHARA_ID)

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)


code:
@EVENTNAME224

RESULTS = ふたなり集団レイプ

@EVENTABLE224(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:81 && GET_PENIS(CHARA_ID) && CFLAG:CHARA_ID:支配済
	FLAG:21 = 1
ENDIF

@EVENT224(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT

TFLAG:番号 = 224
SETBIT TFLAG:21, 7

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT(CHARA_ID, 1)

;巻き込まれたキャラへの追加イベント
@EVENT224_EX(RANDOM_CHARA_ID, CHARA_ID)
#DIM CHARA_ID
#DIM RANDOM_CHARA_ID
#DIM LOVE_SAMEN
#DIM MEMBER,200
#DIM MEMBER_NUM
#DIM LCOUNT
#DIM RAPE_POWER

;部位いくつかからランダムにしたいけどC同士はふたなり同士でないとなのでとりあえずVレイプ
TFLAG:部位 = 8

VARSET MEMBER
VARSET MEMBER_NUM
VARSET RAPE_POWER

;CHARA_IDに親しいキャラから優先して
SETCOLOR 0x10EEEE
FOR LCOUNT , 1, CHARANUM
	IF CHARA_ID == LCOUNT
		RAPE_POWER += ABL:CHARA_ID:98
	ELSEIF CFLAG:CHARA_ID:所属 == CFLAG:LCOUNT:所属 && CFLAG:LCOUNT:支配済 && GET_PENIS(LCOUNT)
		PRINTFORM %CALLNAME:LCOUNT%、
		MEMBER:MEMBER_NUM = LCOUNT
		MEMBER_NUM += 1
		RAPE_POWER += ABL:LCOUNT:98 / 2
	ELSEIF CFLAG:CHARA_ID:(300+LCOUNT) > 100 && CFLAG:LCOUNT:支配済 && GET_PENIS(LCOUNT)
		PRINTFORM %CALLNAME:LCOUNT%、
		MEMBER:MEMBER_NUM = LCOUNT
		MEMBER_NUM += 1
		RAPE_POWER += ABL:LCOUNT:98 / 2
	ENDIF
NEXT

LOVE_SAMEN = 20 + MEMBER_NUM * 3

IF RAPE_POWER > ABL:RANDOM_CHARA_ID:98
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 1)
ELSEIF CFLAG:RANDOM_CHARA_ID:(300+CHARA_ID) > 120
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 2)
ELSE
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, CALLNAME:CHARA_ID, 3)
ENDIF

FOR LCOUNT , 1, CHARANUM
	IF CHARA_ID == LCOUNT
		TFLAG:部位 = 4
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, LOVE_SAMEN + RAND:10)
	ELSEIF CFLAG:CHARA_ID:所属 == CFLAG:LCOUNT:所属 && CFLAG:LCOUNT:支配済 && GET_PENIS(LCOUNT)
		TFLAG:部位 = 4
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, LOVE_SAMEN + RAND:10)
	ELSEIF CFLAG:CHARA_ID:(300+LCOUNT) > 100 && CFLAG:LCOUNT:支配済 && GET_PENIS(LCOUNT)
		TFLAG:部位 = 4
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, LOVE_SAMEN + RAND:10)
	ENDIF
NEXT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, LOVE_SAMEN)
CALL ECSTASY(RANDOM_CHARA_ID)
CALL ADD_ABL_EXP(14, RANDOM_CHARA_ID, LOVE_SAMEN + RAND:50)
CALL ADD_ABL_EXP(15, RANDOM_CHARA_ID, LOVE_SAMEN + RAND:5)

CALL GET_PREGNANCY(RANDOM_CHARA_ID, "誰の種ともわからぬ子")

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)

path: ERB/イベント/個別侵食イベント/EVENT224_ふたなり集団レイプ.ERB


code:
@EVENTNAME225

RESULTS = 自己受精

@EVENTABLE225(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:225 && GET_PENIS(CHARA_ID)
	FLAG:21 = 1
ENDIF

@EVENT225(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 225
TFLAG:部位 = 12
CALL RANDOM_FELLOW_TYPE

CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL ADD_ABL_EXP(15, CHARA_ID, 15 + RAND:10)

CALL GET_PREGNANCY(CHARA_ID, "自分のふたなりちんぽ")

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME226

RESULTS = 睾丸寄生

@EVENTABLE226(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:226 && GET_PENIS(CHARA_ID) && TALENT:CHARA_ID:玉 > 0
	FLAG:21 = 1
ENDIF

@EVENT226(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 226
TFLAG:部位 = 8
CALL RANDOM_FELLOW_3_TYPE

CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL GET_PARASITE_C(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME227

RESULTS = 睾丸妊娠

@EVENTABLE227(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:227 && GET_PENIS(CHARA_ID) && TALENT:CHARA_ID:玉 > 0
	FLAG:21 = 1
ENDIF

@EVENT227(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 227
TFLAG:部位 = 8
CALL RANDOM_FELLOW_5_TYPE

CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 25)

CALL GET_PREGNANCY_C(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 7
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME234

RESULTS = 排泄許可

@EVENTABLE234(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:234 && CFLAG:CHARA_ID:支配済
	FLAG:21 = 1
ENDIF

@EVENT234(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 234

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 25, 5)

EXP:CHARA_ID:お漏らし経験 ++


code:
@EVENTNAME241

RESULTS = キス魔化

@EVENTABLE241(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:241 && TALENT:CHARA_ID:キス魔 == 0
	FLAG:21 = 1
ENDIF

@EVENT241(CHARA_ID)
#DIM CHARA_ID

;メッセージの分岐が淫乱化分岐内なので淫乱化イベントと同じ195
TFLAG:番号 = 195

CALL MENTAL_DEVELOP(CHARA_ID, 5, 15)

IF TALENT:CHARA_ID:キス魔 == 0 && ITEM:241
	TALENT:CHARA_ID:キス魔 = 1
	CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), 5)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME24

RESULTS = 卷起来
;TranslatedMark 巻き付き

;EVENT可不可チェック
@EVENTABLE24(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:24
	FLAG:21 = 1
ENDIF

;イベント実処理;フェイズの終了処理
@EVENT24(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 24
TFLAG:部位 = 8

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 10)
CALL MENTAL_DEVELOP(CHARA_ID, 10)

CFLAG:CHARA_ID:20 = RAND:2 + 2

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME252

RESULTS = 媚薬爆弾

@EVENTABLE252(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:252 && CFLAG:CHARA_ID:媚薬爆弾 == 0
	FLAG:21 = 1
ENDIF

@EVENT252(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 252

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CFLAG:CHARA_ID:媚薬爆弾 = RAND:20 + 10

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME254

RESULTS = 超乳

@EVENTABLE254(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:254 && GET_BUST(CHARA_ID) >= 2
	FLAG:21 = 1
ENDIF

@EVENT254(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 254

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 10)
CALL MENTAL_DEVELOP(CHARA_ID, 10, 10)
CALL ADD_BUST(CHARA_ID, 1, "メッセージ表示")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME255

RESULTS = 乳房缩小
;TranslatedMark 縮乳

@EVENTABLE255(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:255 && GET_BUST(CHARA_ID) >= 0
	FLAG:21 = 1
ENDIF

@EVENT255(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 255

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 10)
CALL MENTAL_DEVELOP(CHARA_ID, 15, 5)
CALL ADD_BUST(CHARA_ID, -1, "メッセージ表示")


code:
@EVENTNAME256

RESULTS = 绝壁
;TranslatedMark 絶壁

@EVENTABLE256(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:256 && GET_BUST(CHARA_ID) == -1
	FLAG:21 = 1
ENDIF

@EVENT256(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 256

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 10)
CALL MENTAL_DEVELOP(CHARA_ID, 15, 5)
CALL ADD_BUST(CHARA_ID, -1, "メッセージ表示")


code:
@EVENTNAME25

RESULTS = 股间吸附
;TranslatedMark 股間吸い付き

;EVENT可不可チェック
@EVENTABLE25(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:25
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT25(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 25
TFLAG:部位 = 8
CALL RANDOM_FELLOW_3_TYPE

CALL CALC_ECSTASY(CHARA_ID, 25)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 5)
CALL MENTAL_DEVELOP(CHARA_ID, 5, 5)
CALL ADD_ABL_EXP(12, CHARA_ID, 20 + RAND:50)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT

path: ERB/イベント/個別侵食イベント/EVENT25_股間吸い付き.ERB


code:
@EVENTNAME261

RESULTS = 动物耳
;TranslatedMark 動物耳

;
@EVENTABLE261(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:261 && TALENT:CHARA_ID:動物耳 == 0
	FLAG:21 = 1
ENDIF

@EVENT261(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 261

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

TALENT:CHARA_ID:動物耳 = 2


code:
@EVENTNAME263

RESULTS = 兽化
;TranslatedMark ケモ化

;EVENT可不可チェック
@EVENTABLE263(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:263 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:HP < MAXBASE:CHARA_ID:HP / 2 && TALENT:CHARA_ID:動物耳 && FLAG:成長力 > 20
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT263(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 263

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL SURRENDER(CHARA_ID, 8)

CFLAG:CHARA_ID:ケモ化 = RAND:3 + 1


code:
@EVENTNAME265

RESULTS = 触手服

;
@EVENTABLE265(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:265 && CFLAG:CHARA_ID:触手服 == 0 && ITEM:324 == 0
	FLAG:21 = 1
ENDIF

@EVENT265(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 265

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CFLAG:CHARA_ID:触手服 = 1

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME267

RESULTS = 石化

;EVENT可不可チェック
@EVENTABLE267(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:267 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:HP < MAXBASE:CHARA_ID:HP / 2 && FLAG:戦闘力 > 35
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT267(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 267

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL SURRENDER(CHARA_ID, 9)

CFLAG:CHARA_ID:石化 = RAND:3 + 1


code:
@EVENTNAME26

RESULTS = 衣物破坏
;TranslatedMark 衣服破壊

@EVENTABLE26(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:26
	FLAG:21 = 1
ENDIF

@EVENT26(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 26

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 20)


code:
@EVENTNAME271

RESULTS = 洗脑
;TranslatedMark 脳クチュ

@EVENTABLE271(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:271 && CFLAG:CHARA_ID:支配済
	FLAG:21 = 1
ENDIF

@EVENT271(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 271
TFLAG:部位 = 1

CALL CALC_ECSTASY(CHARA_ID, 50)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)


code:
@EVENTNAME28

RESULTS = 意外强奸
;TranslatedMark 不意のレイプ

@EVENTABLE28(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:8 && ITEM:223 && ITEM:131
	FLAG:21 = 1
ENDIF

@EVENT28(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 28
TFLAG:部位 = 8
SETBIT TFLAG:21, 7
CALL RANDOM_OSSAN_TYPE
CALL RANDOM_OSSAN_PLAY_3_TYPE

CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 0, 5)

CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "ショタ")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)

path: ERB/イベント/個別侵食イベント/EVENT28_不意のレイプ.ERB


code:
@EVENTNAME291

RESULTS = 抠弄肛门
;TranslatedMark アナルほじり

@EVENTABLE291(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:291
	FLAG:21 = 1
ENDIF

@EVENT291(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 291
TFLAG:部位 = 1
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME292

RESULTS = 肛门插入
;TranslatedMark アナル挿入

@EVENTABLE292(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:292
	FLAG:21 = 1
ENDIF

@EVENT292(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 292
TFLAG:部位 = 1
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME293

RESULTS = 揉捏屁股
;TranslatedMark 尻肉揉み

@EVENTABLE293(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:293
	FLAG:21 = 1
ENDIF

@EVENT293(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 293
TFLAG:部位 = 1
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME294

RESULTS = 责弄乳头
;TranslatedMark 乳首責め

@EVENTABLE294(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:294
	FLAG:21 = 1
ENDIF

@EVENT294(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 294
TFLAG:部位 = 2
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME295

RESULTS = 揉弄胸部
;TranslatedMark 乳肉揉み

@EVENTABLE295(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:295
	FLAG:21 = 1
ENDIF

@EVENT295(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 295
TFLAG:部位 = 2
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME296

RESULTS = 责弄阴蒂
;TranslatedMark クリトリス責め

@EVENTABLE296(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:296
	FLAG:21 = 1
ENDIF

@EVENT296(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 296
TFLAG:部位 = 4
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT

path: ERB/イベント/個別侵食イベント/EVENT296_クリトリス責め.ERB


code:
@EVENTNAME297

RESULTS = 抠弄性器
;TranslatedMark まんこほじり

@EVENTABLE297(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:297
	FLAG:21 = 1
ENDIF

@EVENT297(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 297
TFLAG:部位 = 16
CALL RANDOM_FELLOW_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT


code:
@EVENTNAME29

RESULTS = 丸吞
;TranslatedMark 丸呑み

;EVENT可不可チェック
@EVENTABLE29(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:29 && FLAG:戦闘力 > ABL:CHARA_ID:戦闘素質
	FLAG:21 = 1
ENDIF

;イベント実処理;フェイズの終了処理
@EVENT29(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 29
TFLAG:部位 = 32
CALL RANDOM_VORE_TYPE

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 15)

CFLAG:CHARA_ID:20 = RAND:4 + 2

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME2

RESULTS = 野犬袭击
;TranslatedMark 野犬襲撃

;EVENT可不可チェック
@EVENTABLE2(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:2
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT2(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 2
TFLAG:部位 = 14
SETBIT TFLAG:21, 2
CALL RANDOM_INU_TYPE

CALL CALC_ECSTASY(CHARA_ID, 10)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)

IF ITEM:12
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "野犬")
ENDIF

CALL GET_PARASITE(CHARA_ID, "野犬")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)


code:
@EVENTNAME303

RESULTS = 催眠

;
@EVENTABLE303(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:303 && CFLAG:CHARA_ID:催眠 == 0
	FLAG:21 = 1
ENDIF

@EVENT303(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 303

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 20, 15)

CFLAG:CHARA_ID:催眠 += 3 + RAND:5

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 9)


code:
@EVENTNAME306

RESULTS = 虚假爱情
;TranslatedMark 偽りの愛情

;
@EVENTABLE306(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:306
	FLAG:21 = 1
ENDIF

@EVENT306(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 306
SETBIT TFLAG:21, 0
CALL RANDOM_SERVICE_TYPE

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL MENTAL_DEVELOP(CHARA_ID, 10, 15)

CFLAG:CHARA_ID:催眠 += 3 + RAND:5

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 9)


code:
@EVENTNAME314

RESULTS = 虫洞姦
;TranslatedMark ワープホールレイプ

;EVENT可不可チェック
@EVENTABLE314(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:314
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT314(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 314
IF GET_PENIS(CHARA_ID)
	TFLAG:部位 = 14
ELSE
	TFLAG:部位 = 10
ENDIF
CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL GET_PARASITE(CHARA_ID)

path: ERB/イベント/個別侵食イベント/EVENT314_ワープホールレイプ.ERB


code:
@EVENTNAME315

RESULTS = 海产袭击
;TranslatedMark 海産襲撃

;EVENT可不可チェック
@EVENTABLE315(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:315
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT315(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 315
TFLAG:部位 = 10
CALL RANDOM_SEA_CREATURE_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 10)

CALL GET_PARASITE(CHARA_ID, "海産生物")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)


code:
@EVENTNAME324

RESULTS = 扶她魔法少女活动
;TranslatedMark ふたなり魔法少女活動

;
@EVENTABLE324(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:326 && GET_PENIS(CHARA_ID)
	FLAG:21 = 1
ENDIF

@EVENT324(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 324

CALL RANDOM_MAGICAL_CLOTH_TYPE
CALL RANDOM_MAGICAL_PENIS_BATTLE_TYPE
CALL RANDOM_ENEMY

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, RESULTS)
CALL MENTAL_DEVELOP(CHARA_ID, 20, 15)

CFLAG:CHARA_ID:催眠 += 3 + RAND:5

SELECTCASE TFLAG:3
	CASE 0, 25
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2, 3
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 4
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 3)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6, 315, 316
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 7, 10, 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
	CASE 8, 9
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 11
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1, 7)
	CASE 14
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1, 4)

ENDSELECT

path: ERB/イベント/個別侵食イベント/EVENT324_ふたなり魔法少女活動.ERB


code:
@EVENTNAME326

RESULTS = 魔法少女活动
;TranslatedMark 魔法少女活動

;
@EVENTABLE326(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:326
	FLAG:21 = 1
ENDIF

@EVENT326(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 326

CALL RANDOM_MAGICAL_BATTLE_TYPE
CALL RANDOM_MAGICAL_CLOTH_TYPE
CALL RANDOM_ENEMY

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, RESULTS)
CALL MENTAL_DEVELOP(CHARA_ID, 20, 15)

CFLAG:CHARA_ID:催眠 += 3 + RAND:5

SELECTCASE TFLAG:3
	CASE 0, 25
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2, 3
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 4
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 3)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6, 315, 316
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 7, 10, 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
	CASE 8, 9
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 11
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1, 7)
	CASE 14
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1, 4)

ENDSELECT


code:
@EVENTNAME327

RESULTS = 扶她性斗
;TranslatedMark ふたなりエロバトル

;
@EVENTABLE327(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:327 && GET_PENIS(CHARA_ID)
	FLAG:21 = 1
ENDIF

@EVENT327(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 327
TFLAG:部位 = 4

CALL RANDOM_FUTANARI_BATTLE_TYPE
CALL RANDOM_ENEMY

CALL CALC_ECSTASY(CHARA_ID, TFLAG:5 * 5)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, RESULTS)
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 10, 20)

CFLAG:CHARA_ID:催眠 += 2 + RAND:5
IF TFLAG:6 == 6
	CFLAG:CHARA_ID:20 = RAND:2 + 2
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6, 9)

path: ERB/イベント/個別侵食イベント/EVENT327_ふたなりエロバトル.ERB


code:
@EVENTNAME354

RESULTS = 发散
;TranslatedMark 発散

@EVENTABLE354(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:354
	FLAG:21 = 1
ENDIF

@EVENT354(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 354
TFLAG:部位 = RAND:16 + 1
CALL RANDOM_RELIEVE_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)


code:
@EVENTNAME355

RESULTS = 倒错发散
;TranslatedMark 倒錯発散

@EVENTABLE355(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:355
	FLAG:21 = 1
ENDIF

@EVENT355(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 355
TFLAG:部位 = RAND:16 + 1
CALL RANDOM_RELIEVE_2_TYPE

CALL CALC_ECSTASY(CHARA_ID, 20)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)


code:
@EVENTNAME35

RESULTS = 吮吸扶她肉棒
;TranslatedMark ふたなり吸い付き

;EVENT可不可チェック
@EVENTABLE35(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:25 && GET_PENIS(CHARA_ID)
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT35(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 35
TFLAG:部位 = 4
CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL ADD_ABL_EXP(12, CHARA_ID, 20 + RAND:50)

SELECTCASE TFLAG:3
	CASE 0
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)
	CASE 1
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 1)
	CASE 2
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 2)
	CASE 5
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)
	CASE 6
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)
	CASE 8
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)
	CASE 18
		CALL POLLUTED_POSITION_INDEX(CHARA_ID, 7)
ENDSELECT

path: ERB/イベント/個別侵食イベント/EVENT35_ふたなり吸い付き.ERB


code:
@EVENTNAME361

RESULTS = 机械化
;TranslatedMark 機械化

@EVENTABLE361(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
#DIM TSUKUMOGAMI	;被人造物系キャラ抽出用
;【付喪神】や【非生物】は機械化しやすい
IF TALENT:CHARA_ID:付喪神 || TALENT:CHARA_ID:非生物
	TSUKUMOGAMI = 1
ELSE
	TSUKUMOGAMI = 0
ENDIF
;支配済みで機械侵食取得済みでまだ機械化されておらず、HPが尽きているか被人造物系キャラ
IF CFLAG:CHARA_ID:支配済 == 1 && ITEM:361 && TALENT:CHARA_ID:機械 == 0 && (BASE:CHARA_ID:0 <= 0 || TSUKUMOGAMI == 1)
	FLAG:21 = 1
ENDIF

@EVENT361(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 361

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

TALENT:CHARA_ID:250 = 1

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)


code:
@EVENTNAME362

RESULTS = 咯擦咯擦
;TranslatedMark チキチキ

@EVENTABLE362(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:360 && TALENT:CHARA_ID:機械 == 1
	FLAG:21 = 1
ENDIF

@EVENT362(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 362
;脳イキなので肉体的経験は無し
;ただし【機械】持ち専用の為かなり強力
CALL CALC_ECSTASY(CHARA_ID, 750)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 600, 80)

CFLAG:CHARA_ID:不正操作 += 3 + RAND:5
CFLAG:CHARA_ID:絶頂 = RAND:2 + 4

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 4)


code:
@EVENTNAME36

RESULTS = 大量触手伸出
;TranslatedMark 大量の触手

;EVENT可不可チェック
@EVENTABLE36(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:36
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT36(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 36
TFLAG:部位 = RAND:32

CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL ADD_ABL_EXP(12, CHARA_ID, 20 + RAND:50)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME49

RESULTS = 净化之火
;TranslatedMark 浄化の火

;EVENT可不可チェック
@EVENTABLE49(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:49 && CFLAG:CHARA_ID:所属 == 0 && FLAG:侵食人数 > 50 && CFLAG:CHARA_ID:異変察知 && CHARA_ID != FLAG:初期宿主
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT49(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 49

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL SURRENDER(CHARA_ID, 1)

FLAG:20 = MAX(FLAG:20 - 10, FLAG:20 * 95 / 100 , 0)


code:
@EVENTNAME4

RESULTS = 植物袭击
;TranslatedMark 植物襲撃

;EVENT可不可チェック
@EVENTABLE4(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:4
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT4(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 4
TFLAG:部位 = 8

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 10)

SIF ITEM:14
	CALL GET_PREGNANCY(CHARA_ID)
CALL GET_PARASITE(CHARA_ID, "植物")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 3)


code:
@EVENTNAME5

RESULTS = 触手落穴
;TranslatedMark 触手落とし穴

;EVENT可不可チェック
@EVENTABLE5(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:5
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT5(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 5
TFLAG:部位 = 13

CALL CALC_ECSTASY(CHARA_ID, 5)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 10)
CALL ADD_ABL_EXP(12, CHARA_ID, 20 + RAND:50)

SIF ITEM:15
	CALL GET_PREGNANCY(CHARA_ID)
CALL GET_PARASITE(CHARA_ID)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0, 4)

path: ERB/イベント/個別侵食イベント/EVENT5_触手落とし穴.ERB


code:
@EVENTNAME68

RESULTS = 榨取
;TranslatedMark 搾り取り

@EVENTABLE68(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:68
	FLAG:21 = 1
ENDIF
IF CHARA_ID == FLAG:初期宿主 && ITEM:10
	FLAG:21 = 0
ENDIF

@EVENT68(CHARA_ID)
#DIM CHARA_ID
#DIM DRAIN_POWER

TFLAG:番号 = 68

DRAIN_POWER = MAX(FLAG:支配力 / 5 ,1)

IF TALENT:CHARA_ID:母乳体質
	DRAIN_POWER = DRAIN_POWER * 13 / 10
ENDIF
IF TALENT:CHARA_ID:ふたなり
	DRAIN_POWER = DRAIN_POWER * 13 / 10
ENDIF

CALL CALC_ECSTASY(CHARA_ID, DRAIN_POWER)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), DRAIN_POWER)
CALL ECSTASY(CHARA_ID)
CALL MENTAL_DEVELOP(CHARA_ID, 20)

IF ABL:CHARA_ID:戦闘素質 > 0
	FLAG:ドレイン += MIN(ABL:CHARA_ID:戦闘素質 ,DRAIN_POWER)
	ABL:CHARA_ID:戦闘素質 = MAX(ABL:CHARA_ID:戦闘素質 - DRAIN_POWER ,0)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME6

RESULTS = 虫类袭击
;TranslatedMark 虫襲撃

;EVENT可不可チェック
@EVENTABLE6(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:6
	FLAG:21 = 1
ENDIF

;イベント実処理;フェイズの終了処理
@EVENT6(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 6
TFLAG:部位 = 8
CALL RANDOM_INSECT_TYPE
SETBIT TFLAG:21, 5

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 10, 5)

CALL GET_PARASITE(CHARA_ID, "虫の大群")

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 5)


code:
@EVENTNAME70

RESULTS = ブラシ触手

;EVENT可不可チェック
@EVENTABLE70(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:70
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT70(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 70
TFLAG:部位 = 12

CALL CALC_ECSTASY(CHARA_ID, 30)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL ADD_ABL_EXP(12, CHARA_ID, 20 + RAND:50)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME76

RESULTS = 挠痒痒
;TranslatedMark くすぐり

;EVENT可不可チェック
@EVENTABLE76(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:76
	FLAG:21 = 1
ENDIF

;イベント実処理;フェイズの終了処理
@EVENT76(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 76
TFLAG:部位 = 32

CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 20)

CFLAG:CHARA_ID:20 = RAND:2 + 2

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME78

RESULTS = 搾りカス

@EVENTABLE78(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:78 && CFLAG:CHARA_ID:支配済
	FLAG:21 = 1
ENDIF
IF CHARA_ID == FLAG:初期宿主 && ITEM:10
	FLAG:21 = 0
ENDIF

@EVENT78(CHARA_ID)
#DIM CHARA_ID
#DIM DRAIN_POWER

TFLAG:番号 = 78
TFLAG:部位 = 31

DRAIN_POWER = MAX((FLAG:支配力 + FLAG:肉体支配力) / 3 ,1)

IF TALENT:CHARA_ID:母乳体質
	DRAIN_POWER = DRAIN_POWER * 13 / 10
ENDIF
IF TALENT:CHARA_ID:ふたなり
	DRAIN_POWER = DRAIN_POWER * 13 / 10
ENDIF

CALL CALC_ECSTASY(CHARA_ID, DRAIN_POWER)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主), DRAIN_POWER)
CALL ECSTASY(CHARA_ID)

IF ABL:CHARA_ID:戦闘素質 > 0
	FLAG:ドレイン += MIN(ABL:CHARA_ID:戦闘素質, DRAIN_POWER)
	ABL:CHARA_ID:戦闘素質 = MAX(ABL:CHARA_ID:戦闘素質 - DRAIN_POWER, 0)
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 0)


code:
@EVENTNAME7

RESULTS = 意外之吻
;TranslatedMark 不意のキス

@EVENTABLE7(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:7
	FLAG:21 = 1
ENDIF

@EVENT7(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 7
TFLAG:部位 = 16

CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL ADD_ABL_EXP(14, CHARA_ID, 5 + RAND:10)

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 6)

path: ERB/イベント/個別侵食イベント/EVENT7_不意のキス.ERB


code:
@EVENTNAME84

RESULTS = 壁尻化

;EVENT可不可チェック
@EVENTABLE84(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:84 && CFLAG:CHARA_ID:支配済 && BASE:CHARA_ID:HP < MAXBASE:CHARA_ID:HP / 2 && FLAG:成長力 > 20
	FLAG:21 = 1
ENDIF

;イベント実処理
@EVENT84(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 84

CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))

CALL SURRENDER(CHARA_ID, 10)

CFLAG:CHARA_ID:壁尻化 = RAND:3 + 1


code:
@EVENTNAME8

RESULTS = 意外强奸
;TranslatedMark 不意のレイプ

@EVENTABLE8(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:8 && ITEM:223 && (ITEM:131 == 0 && ITEM:130 == 0)
	FLAG:21 = 1
ENDIF

@EVENT8(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 8
TFLAG:部位 = 8
SETBIT TFLAG:21, 7
CALL RANDOM_MURABITO_PLAY_3_TYPE

CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)
CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 0, 5)

CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "男")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)

path: ERB/イベント/個別侵食イベント/EVENT8_不意のレイプ.ERB


code:
@EVENTNAME9

RESULTS = 被老人意外强奸
;TranslatedMark 不意のおっさんレイプ

@EVENTABLE9(CHARA_ID)
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:8 && ITEM:223 && ITEM:140
	FLAG:21 = 1
ENDIF

@EVENT9(CHARA_ID)
#DIM CHARA_ID

TFLAG:番号 = 9
TFLAG:部位 = 8
SETBIT TFLAG:21, 7

CALL RANDOM_OSSAN_TYPE
CALL RANDOM_MURABITO_PLAY_3_TYPE
CALL CALC_ECSTASY(CHARA_ID, 15)
CALL PRINT_MESSAGE(CHARA_ID, "侵食イベント", TFLAG:番号, CALLNAME:CHARA_ID, CALLNAME:(FLAG:初期宿主))
CALL ECSTASY(CHARA_ID)

CALL PHYSICAL_DEVELOP(CHARA_ID, 20)
CALL MENTAL_DEVELOP(CHARA_ID, 0, 5)

CALL ADD_ABL_EXP(15, CHARA_ID, 5 + RAND:10)

IF ITEM:18
	CALL GET_PREGNANCY(CHARA_ID)
ELSE
	CALL GET_PREGNANCY(CHARA_ID, "おじさん")
ENDIF

CALL POLLUTED_POSITION_INDEX(CHARA_ID, 8)

path: ERB/イベント/個別侵食イベント/EVENT9_不意のおっさんレイプ.ERB


code:
;EVENT可不可チェック
@WORLD_EVENTABLE101
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:101 && FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT101
#DIM LCOUNT

TFLAG:番号 = 101
TFLAG:部位 = 1

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		IF ITEM:63
			CALL CALC_ECSTASY(LCOUNT, 100)
			CALL ECSTASY(LCOUNT)
		ELSE
			CALL CALC_ECSTASY(LCOUNT, 30)
			CALL ECSTASY(LCOUNT)
		ENDIF
		CALL ADD_ABL_EXP(6, LCOUNT, 150 + RAND:600)

		IF TALENT:LCOUNT:101 < 3
			TALENT:LCOUNT:101 ++
			IF TALENT:LCOUNT:101 == 0
				PRINTFORML %CALLNAME:LCOUNT%的A感度现在是普通！
				;TranslatedMark %CALLNAME:LCOUNT%のA感度が普通になった！
			ELSEIF TALENT:LCOUNT:101 == 1
				PRINTFORML %CALLNAME:LCOUNT%的A感度现在是敏感！
				;TranslatedMark %CALLNAME:LCOUNT%のA感度が敏感になった！
			ELSEIF TALENT:LCOUNT:101 == 2
				PRINTFORML %CALLNAME:LCOUNT%的A感度现在是过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のA感度が過敏になった！
			ELSEIF TALENT:LCOUNT:101 == 3
				PRINTFORML %CALLNAME:LCOUNT%的A感度现在是异常过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のA感度が異常過敏になった！
			ENDIF
		ENDIF
	ENDIF
NEXT


code:
;EVENT可不可チェック
@WORLD_EVENTABLE102
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:102 && FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT102
#DIM LCOUNT

TFLAG:番号 = 102
TFLAG:部位 = 2

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(7, LCOUNT, 150 + RAND:600)
		IF TALENT:LCOUNT:102 < 3
			TALENT:LCOUNT:102 ++
			IF TALENT:LCOUNT:102 == 0
				PRINTFORML %CALLNAME:LCOUNT%的B感度现在是普通！
				;TranslatedMark %CALLNAME:LCOUNT%のB感度が普通になった！
			ELSEIF TALENT:LCOUNT:102 == 1
				PRINTFORML %CALLNAME:LCOUNT%的B感度现在是敏感！
				;TranslatedMark %CALLNAME:LCOUNT%のB感度が敏感になった！
			ELSEIF TALENT:LCOUNT:102 == 2
				PRINTFORML %CALLNAME:LCOUNT%的B感度现在是过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のB感度が過敏になった！
			ELSEIF TALENT:LCOUNT:102 == 3
				PRINTFORML %CALLNAME:LCOUNT%的B感度现在是异常过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のB感度が異常過敏になった！
			ENDIF
		ENDIF
	ENDIF
NEXT


code:
;EVENT可不可チェック
@WORLD_EVENTABLE103
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:103 && FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT103
#DIM LCOUNT

TFLAG:番号 = 103
TFLAG:部位 = 4

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(8, LCOUNT, 150 + RAND:600)

		IF TALENT:LCOUNT:103 < 3
			TALENT:LCOUNT:103 ++
			IF TALENT:LCOUNT:103 == 0
				PRINTFORML %CALLNAME:LCOUNT%的C感度现在是普通！
				;TranslatedMark %CALLNAME:LCOUNT%のC感度が普通になった！
			ELSEIF TALENT:LCOUNT:103 == 1
				PRINTFORML %CALLNAME:LCOUNT%的C感度现在是敏感！
				;TranslatedMark %CALLNAME:LCOUNT%のC感度が敏感になった！
			ELSEIF TALENT:LCOUNT:103 == 2
				PRINTFORML %CALLNAME:LCOUNT%的C感度现在是过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のC感度が過敏になった！
			ELSEIF TALENT:LCOUNT:103 == 3
				PRINTFORML %CALLNAME:LCOUNT%的C感度现在是异常过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のC感度が異常過敏になった！
			ENDIF
		ENDIF
	ENDIF
NEXT


code:
;EVENT可不可チェック
@WORLD_EVENTABLE104
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:104 && FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT104
#DIM LCOUNT

TFLAG:番号 = 104
TFLAG:部位 = 8

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(9, LCOUNT, 150 + RAND:600)

		IF TALENT:LCOUNT:104 < 3
			TALENT:LCOUNT:104 ++
			IF TALENT:LCOUNT:104 == 0
				PRINTFORML %CALLNAME:LCOUNT%的V感度现在是普通！
				;TranslatedMark %CALLNAME:LCOUNT%のV感度が普通になった！
			ELSEIF TALENT:LCOUNT:104 == 1
				PRINTFORML %CALLNAME:LCOUNT%的V感度现在是敏感！
				;TranslatedMark %CALLNAME:LCOUNT%のV感度が敏感になった！
			ELSEIF TALENT:LCOUNT:104 == 2
				PRINTFORML %CALLNAME:LCOUNT%的V感度现在是过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のV感度が過敏になった！
			ELSEIF TALENT:LCOUNT:104 == 3
				PRINTFORML %CALLNAME:LCOUNT%的V感度现在是异常过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のV感度が異常過敏になった！
			ENDIF
		ENDIF
	ENDIF
NEXT


code:
;EVENT可不可チェック
@WORLD_EVENTABLE105
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:105 && FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT105
#DIM LCOUNT

TFLAG:番号 = 105
TFLAG:部位 = 16

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(10, LCOUNT, 150 + RAND:600)

		IF TALENT:LCOUNT:105 < 3
			TALENT:LCOUNT:105 ++
			IF TALENT:LCOUNT:105 == 0
				PRINTFORML %CALLNAME:LCOUNT%的M感度现在是普通！
				;TranslatedMark %CALLNAME:LCOUNT%のM感度が普通になった！
			ELSEIF TALENT:LCOUNT:105 == 1
				PRINTFORML %CALLNAME:LCOUNT%的M感度现在是敏感！
				;TranslatedMark %CALLNAME:LCOUNT%のM感度が敏感になった！
			ELSEIF TALENT:LCOUNT:105 == 2
				PRINTFORML %CALLNAME:LCOUNT%的M感度现在是过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のM感度が過敏になった！
			ELSEIF TALENT:LCOUNT:105 == 3
				PRINTFORML %CALLNAME:LCOUNT%的M感度现在是异常过敏！
				;TranslatedMark %CALLNAME:LCOUNT%のM感度が異常過敏になった！
			ENDIF
		ENDIF
	ENDIF
NEXT


code:
@WORLD_EVENTABLE11
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:1 && ITEM:83 && FLAG:侵食力 > 30
	FLAG:21 = 1
ENDIF

@WORLD_EVENT11
#DIM LCOUNT

TFLAG:番号 = 11
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(4 + RAND:6)

@WORLD_EVENT11_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 25)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 15)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 5, 5)
CFLAG:RANDOM_CHARA_ID:20 = RAND:5 + 2

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL GET_PARASITE(RANDOM_CHARA_ID, "スライム")
CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 1)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT11_スライム襲撃.ERB


code:
@WORLD_EVENTABLE12
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:2 && ITEM:83 && FLAG:侵食力 > 30
	FLAG:21 = 1
ENDIF

@WORLD_EVENT12
#DIM LCOUNT

TFLAG:番号 = 12
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(5 + RAND:2)

@WORLD_EVENT12_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT
SETBIT TFLAG:21, 2
CALL RANDOM_INU_TYPE

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 25)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 25)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10)

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL GET_PARASITE(RANDOM_CHARA_ID, "野犬")
CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 2)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT12_野犬襲撃.ERB


code:
@WORLD_EVENTABLE130
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:8 && ITEM:83 && FLAG:侵食力 > 30 && ITEM:140
	FLAG:21 = 1
ENDIF

@WORLD_EVENT130
#DIM LCOUNT

TFLAG:番号 = 130
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(5)

@WORLD_EVENT130_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL RANDOM_OSSAN_TYPE

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 20)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 25)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 5)

CFLAG:RANDOM_CHARA_ID:20 = RAND:5 + 2

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

IF ITEM:18
	CALL GET_PREGNANCY(RANDOM_CHARA_ID)
ELSE
	CALL GET_PREGNANCY(RANDOM_CHARA_ID, "おじさん")
ENDIF

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 8)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT130_種付けおじさん襲撃.ERB


code:
;EVENT可不可チェック
@WORLD_EVENTABLE132
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:133
	FOR LCOUNT , 1, 17
		IF GETBIT(FLAG:(50+LCOUNT), 2)
			FLAG:21 = 1
		ENDIF
	NEXT
ENDIF

;イベント実処理
@WORLD_EVENT132
#DIM CHARA_ID
#DIM LCOUNT
#DIM LOCALQUETE,10000
#DIM LOCALIDNUM
#DIM LOCALRESULT

VARSET LOCALQUETE
VARSET LOCALIDNUM

LOCALRESULT = 0

;末路の条件1つ追加ごとに
;LOCALQUETE:LOCALIDNUM = XX
;LOCALIDNUM += 1

TFLAG:番号 = 132

FOR LCOUNT , 1, 17
	IF GETBIT(FLAG:(50+LCOUNT), 2)
		LOCALQUETE:LOCALIDNUM = LCOUNT
		LOCALIDNUM += 1
	ENDIF
NEXT

IF LOCALIDNUM
	LOCALRESULT = LOCALQUETE:(RAND:LOCALIDNUM)
	CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主), POSITION_NAME(LOCALRESULT))
	FOR LCOUNT, 1, CHARANUM
		IF CFLAG:LCOUNT:所属 == LOCALRESULT
			CALL RANDOM_FELLOW_4_TYPE
			PRINTFORML %CALLNAME:LCOUNT%被%RANDOM_FELLOW_4()%买下了！
			;TranslatedMark %CALLNAME:LCOUNT%は%RANDOM_FELLOW_4()%に買われていった！
			CALL MENTAL_DEVELOP(LCOUNT, 20, 20)
			CALL CALC_ECSTASY(LCOUNT, 20)
			CALL ECSTASY(LCOUNT)
			CALL POLLUTED_POSITION_INDEX(LCOUNT, 10)
		ENDIF
	NEXT

ENDIF


code:
@WORLD_EVENTABLE133
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:134 && ITEM:8 && ITEM:128 && FLAG:侵食力 > 20 && FLAG:0 > 15
	FLAG:21 = 1
ENDIF

@WORLD_EVENT133
#DIM LCOUNT

TFLAG:番号 = 133

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(8 + RAND:5)

@WORLD_EVENT133_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)

IF CFLAG:RANDOM_CHARA_ID:侵食済 && ITEM:334 && ITEM:122 && RAND:3
	TFLAG:部位 = RAND:32
	SETBIT TFLAG:21, 7
	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 20)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 7)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 7)

ELSEIF CFLAG:RANDOM_CHARA_ID:侵食済 && ITEM:334
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 2)
ELSEIF CFLAG:RANDOM_CHARA_ID:支配済
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 3)
ELSEIF CFLAG:RANDOM_CHARA_ID:侵食済
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 4)
ELSEIF BASE:RANDOM_CHARA_ID:TP <= 100
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 5)
ELSE
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 6)
ENDIF

CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 5, 10)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT133_変態登場.ERB


code:
@WORLD_EVENTABLE134
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:134 && FLAG:侵食力 > 20 && FLAG:0 > 15
	FLAG:21 = 1
ENDIF

@WORLD_EVENT134
#DIM LCOUNT

TFLAG:番号 = 134
CALL RANDOM_SEXHARA_TYPE

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(8 + RAND:5)

@WORLD_EVENT134_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)

IF CFLAG:RANDOM_CHARA_ID:侵食済 && (ITEM:321 || ITEM:324) && TFLAG:3 == 0
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 2)
ELSEIF CFLAG:RANDOM_CHARA_ID:支配済
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 3)
ELSEIF CFLAG:RANDOM_CHARA_ID:侵食済
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 4)
ELSEIF BASE:RANDOM_CHARA_ID:TP <= 100
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 5)
ELSE
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 6)
ENDIF

CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 5, 5)

IF ITEM:131
	CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 7)
ELSE
	CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 8)
ENDIF

path: ERB/イベント/全体侵食イベント/WORLD_EVENT134_セクハラ上等.ERB


code:
@WORLD_EVENTABLE139
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:8 && ITEM:83 && FLAG:侵食力 > 30 && ITEM:139
	FLAG:21 = 1
ENDIF

@WORLD_EVENT139
#DIM LCOUNT

TFLAG:番号 = 139
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(5)

@WORLD_EVENT139_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT
SETBIT TFLAG:21, 7
CALL RANDOM_SHOTA_TYPE

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 20)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 25)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 5)

CFLAG:RANDOM_CHARA_ID:20 = RAND:5 + 2

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

IF ITEM:18
	CALL GET_PREGNANCY(RANDOM_CHARA_ID)
ELSE
	CALL GET_PREGNANCY(RANDOM_CHARA_ID, "ショタ")
ENDIF

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 7)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT139_ヤリチンショタ襲撃.ERB


code:
@WORLD_EVENTABLE14
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:4 && ITEM:83 && FLAG:侵食力 + FLAG:成長力 > 40
	FLAG:21 = 1
ENDIF

@WORLD_EVENT14
#DIM LCOUNT

TFLAG:番号 = 14
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(3 + RAND:8)

@WORLD_EVENT14_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 20)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 15)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10)

CFLAG:RANDOM_CHARA_ID:発情 = RAND:3

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL GET_PARASITE(RANDOM_CHARA_ID, "植物")
CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 3)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT14_植物襲撃.ERB


code:
@WORLD_EVENTABLE16
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:6 && ITEM:83 && FLAG:侵食力 > 30
	FLAG:21 = 1
ENDIF

@WORLD_EVENT16
#DIM LCOUNT

TFLAG:番号 = 16
TFLAG:部位 = RAND:16 + RAND:17
CALL RANDOM_INSECT_TYPE
SETBIT TFLAG:21, 5

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(5)

@WORLD_EVENT16_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 20)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 25)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 5)
CFLAG:RANDOM_CHARA_ID:20 = RAND:5 + 2

CALL GET_PARASITE(RANDOM_CHARA_ID, "虫")
CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 5)


code:
@WORLD_EVENTABLE191
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:191 && FLAG:侵食力 > 20
	FLAG:21 = 1
ENDIF

@WORLD_EVENT191
#DIM LCOUNT

TFLAG:番号 = 191
TFLAG:部位 = RAND:7 + 8

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

IF FLAG:侵食人数 > 25
	CALL RANDOM_GET_CAUGHT_WORLD(3 + RAND:8)
ELSE
	CALL RANDOM_GET_CAUGHT_WORLD(3)
ENDIF

@WORLD_EVENT191_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
ELSE
	SETBIT TFLAG:21, 2
	CALL RANDOM_INU_TYPE
	CALL RANDOM_KOUBI_TYPE

	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 30)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 2)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 10)
	CALL GET_PARASITE(RANDOM_CHARA_ID, "野犬")
ENDIF

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 2)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT191_どこでも動物交尾.ERB


code:
@WORLD_EVENTABLE192
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:192 && FLAG:侵食力 + FLAG:成長力 > 40
	FLAG:21 = 1
ENDIF

@WORLD_EVENT192
#DIM LCOUNT

TFLAG:番号 = 192
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(3 + RAND:8)

@WORLD_EVENT192_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 10)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 5)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10)

IF (ITEM:122 || ITEM:21) && TENTACLE_RATE(RANDOM_CHARA_ID) < FLAG:侵食力 + RAND:20
	CFLAG:RANDOM_CHARA_ID:発情 += 3 + RAND:5
	PRINTFORM %CALLNAME:RANDOM_CHARA_ID%は発情した
ENDIF
IF ITEM:213 && TENTACLE_RATE(RANDOM_CHARA_ID) < FLAG:侵食力 + RAND:20
	CALL ADD_BUST(RANDOM_CHARA_ID, 1, "メッセージ表示")
ENDIF
IF ITEM:222 && GET_PENIS(RANDOM_CHARA_ID) == 0 && TENTACLE_RATE(RANDOM_CHARA_ID) < FLAG:侵食力 + RAND:20
	PRINTFORM %CALLNAME:RANDOM_CHARA_ID%はふたなりになってしまった
	TALENT:RANDOM_CHARA_ID:121 = 1
ENDIF
IF ITEM:261 && TALENT:RANDOM_CHARA_ID:動物耳 == 0 && TENTACLE_RATE(RANDOM_CHARA_ID) < FLAG:侵食力 + RAND:20
	PRINTFORM %CALLNAME:RANDOM_CHARA_ID%は動物耳が生えてしまった
	TALENT:RANDOM_CHARA_ID:動物耳 = 2
ENDIF
IF ITEM:303 && TENTACLE_RATE(RANDOM_CHARA_ID) < FLAG:侵食力 + RAND:20
	PRINTFORM %CALLNAME:RANDOM_CHARA_ID%は催眠状態になってしまった
	CFLAG:RANDOM_CHARA_ID:催眠 += 3 + RAND:5
ENDIF
IF ITEM:212 && TALENT:RANDOM_CHARA_ID:母乳体質 == 0 && TENTACLE_RATE(RANDOM_CHARA_ID) < FLAG:侵食力 + RAND:20
	PRINTFORM %CALLNAME:RANDOM_CHARA_ID%は母乳体質になってしまった
	TALENT:RANDOM_CHARA_ID:母乳体質 = 1
ENDIF
PRINTFORML

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 3)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT192_状態異常花粉.ERB


code:
@WORLD_EVENTABLE193
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:193 && FLAG:侵食力 > 20
	FLAG:21 = 1
ENDIF

@WORLD_EVENT193
#DIM LCOUNT

TFLAG:番号 = 193
TFLAG:部位 = RAND:16 + RAND:17
CALL RANDOM_INSECT_TYPE
SETBIT TFLAG:21, 5

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

IF FLAG:侵食人数 > 25
	CALL RANDOM_GET_CAUGHT_WORLD(3 + RAND:8)
ELSE
	CALL RANDOM_GET_CAUGHT_WORLD(3)
ENDIF

@WORLD_EVENT193_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
ELSE

	CALL CALC_ECSTASY(RANDOM_CHARA_ID, 20)
	CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 2)
	CALL ECSTASY(RANDOM_CHARA_ID)
	CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 15)
	CALL GET_PARASITE(RANDOM_CHARA_ID, "虫")
ENDIF

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 5)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT193_どこでも虫交尾.ERB


code:
@WORLD_EVENTABLE19
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:19 && ITEM:83 && FLAG:侵食力 + FLAG:成長力 > 40
	FLAG:21 = 1
ENDIF

@WORLD_EVENT19
#DIM LCOUNT

TFLAG:番号 = 19
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(2 + RAND:10)

@WORLD_EVENT19_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 35)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 5)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10)

CFLAG:RANDOM_CHARA_ID:発情 = RAND:3

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL GET_PARASITE(RANDOM_CHARA_ID, "触手")
CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 0)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT19_触手襲撃.ERB


code:
;EVENT可不可チェック
@WORLD_EVENTABLE1
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:1 && ITEM:82 && FLAG:成長力 > 20
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT1
#DIM LCOUNT

TFLAG:番号 = 1
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		PRINTFORML %CALLNAME:LCOUNT%被史莱姆袭击了！
		;TranslatedMark %CALLNAME:LCOUNT%はスライムに襲われた！
		CALL PHYSICAL_DEVELOP(LCOUNT, 40)
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL GET_PARASITE(LCOUNT, "スライム")

		CALL POLLUTED_POSITION_INDEX(LCOUNT, 1)
	ENDIF
NEXT

path: ERB/イベント/全体侵食イベント/WORLD_EVENT1_スライム動員.ERB


code:
;EVENT可不可チェック
@WORLD_EVENTABLE213
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:213 && FLAG:成長力 + FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT213
#DIM LCOUNT

TFLAG:番号 = 213
TFLAG:部位 = 2

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済 && GET_BUST(LCOUNT) < 2
		CALL PHYSICAL_DEVELOP(LCOUNT, 10)
		CALL MENTAL_DEVELOP(LCOUNT, 10, 10)
		CALL ADD_BUST(LCOUNT, 1, "メッセージ表示")
	ENDIF
NEXT

CALL RANDOM_GET_CAUGHT_WORLD(5)

@WORLD_EVENT213_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

IF CFLAG:RANDOM_CHARA_ID:異変察知
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%发誓绝对要尽快解决这场膨乳异变！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は早く膨乳異変を解決しようと心に誓った！
ELSE
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%被自己胸部所产生的变化惊呆了！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は胸の変化に気づきドン引きしている！
ENDIF


code:
;EVENT可不可チェック
@WORLD_EVENTABLE21
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:122 && FLAG:支配力 > 30
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT21
#DIM LCOUNT

TFLAG:番号 = 21
TFLAG:部位 = RAND:16 + RAND:17

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済

		CALL CALC_ECSTASY(LCOUNT, 35)
		CALL ECSTASY(LCOUNT)
		CALL ADD_ABL_EXP(11, LCOUNT, 10 + RAND:40)

		CFLAG:LCOUNT:強制自慰 = RAND:(FLAG:支配力 / 10) + 1
	ENDIF
NEXT


code:
;EVENT可不可チェック
@WORLD_EVENTABLE222
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:222 && FLAG:成長力 + FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT222
#DIM LCOUNT

TFLAG:番号 = 222
TFLAG:部位 = 4

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

CALL RANDOM_GET_CAUGHT_WORLD(5)

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		CALL PHYSICAL_DEVELOP(LCOUNT, 10)
		CALL MENTAL_DEVELOP(LCOUNT, 10, 10)
		IF GET_PENIS(LCOUNT)
			CALL CALC_ECSTASY(LCOUNT, 30)
			CALL ECSTASY(LCOUNT)
			CFLAG:LCOUNT:強制自慰 = RAND:6 + 1
		ELSE
			TALENT:LCOUNT:ふたなり = 1
		ENDIF
	ENDIF
NEXT

@WORLD_EVENT222_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

IF GET_PENIS(RANDOM_CHARA_ID) == 0 && CFLAG:RANDOM_CHARA_ID:侵食済
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%似乎长出了扶她肉棒！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%はふたなりちんぽが生えてしまったようだ！
ELSEIF GET_PENIS(RANDOM_CHARA_ID) && CFLAG:RANDOM_CHARA_ID:侵食済
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%的扶她肉棒突然变得活跃起来，迫使她开始自慰来解决这份强烈地性冲动！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%はふたなりちんぽが急に活性化しオナニーで対処している！
ELSEIF CFLAG:RANDOM_CHARA_ID:異変察知
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%发誓绝对要尽快解决这场扶她异变！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は早くふたなり異変を解決しようと心に誓った！
ELSE
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%被自己身下所长出的扶她肉棒惊呆了！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%はふたなりに気づきドン引きしている！
ENDIF

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 0)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT222_ふたなり化.ERB


code:
@WORLD_EVENTABLE24
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:6 && ITEM:303 && FLAG:侵食力 + FLAG:成長力 > 40
	FLAG:21 = 1
ENDIF

@WORLD_EVENT24
#DIM LCOUNT

TFLAG:番号 = 24
TFLAG:部位 = 17

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT(3)

@WORLD_EVENT24_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 20)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 15)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 5, 10)

CFLAG:RANDOM_CHARA_ID:催眠 += 2 + RAND:3

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL GET_PARASITE(RANDOM_CHARA_ID, "虫")

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 5)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT24_催眠昆虫.ERB


code:
;EVENT可不可チェック
@WORLD_EVENTABLE255
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:255 && FLAG:成長力 + FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT255
#DIM LCOUNT

TFLAG:番号 = 255
TFLAG:部位 = 2

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済 && GET_BUST(LCOUNT) >= 0
		CALL PHYSICAL_DEVELOP(LCOUNT, 10)
		CALL MENTAL_DEVELOP(LCOUNT, 10, 10)
		CALL ADD_BUST(LCOUNT, 1, "メッセージ表示")
	ENDIF
NEXT

CALL RANDOM_GET_CAUGHT_WORLD(5)

@WORLD_EVENT255_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

IF CFLAG:RANDOM_CHARA_ID:異変察知
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%发誓绝对要尽快解决这场缩乳异变！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は早く胸が小さくなる異変を解決しようと心に誓った！
ELSE
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%被自己胸部所产生的变化惊呆了！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は胸の変化に気づきドン引きしている！
ENDIF


code:
;EVENT可不可チェック
@WORLD_EVENTABLE261
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用

IF ITEM:261 && FLAG:成長力 + FLAG:支配力 + FLAG:肉体支配力 > 40
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT261
#DIM LCOUNT

TFLAG:番号 = 261

CALL PRINT_MESSAGE(FLAG:5, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:5))

CALL RANDOM_GET_CAUGHT_WORLD(5)

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		CALL PHYSICAL_DEVELOP(LCOUNT, 10)
		CALL MENTAL_DEVELOP(LCOUNT, 10, 10)

		IF TALENT:LCOUNT:動物耳 == 0
			TALENT:LCOUNT:動物耳 = 2
		ELSE
			CFLAG:LCOUNT:発情 = RAND:6 + 1
		ENDIF
	ENDIF
NEXT

@WORLD_EVENT261_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

IF TALENT:RANDOM_CHARA_ID:動物耳 == 0 && CFLAG:RANDOM_CHARA_ID:侵食済
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%长出了动物的耳朵与尾巴！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は動物の耳と尻尾が生えてしまった！
ELSEIF TALENT:RANDOM_CHARA_ID:動物耳 && CFLAG:RANDOM_CHARA_ID:侵食済
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%迎来了属于动物的发情期！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は動物の発情期が来てしまった！
ELSEIF CFLAG:RANDOM_CHARA_ID:異変察知
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%发誓绝对要尽快解决这场异变！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%は早く異変を解決しようと心に誓った！
ELSE
	PRINTFORML %CALLNAME:RANDOM_CHARA_ID%感到了强烈的不快感！
	;TranslatedMark %CALLNAME:RANDOM_CHARA_ID%はドン引きしている！
ENDIF


code:
;EVENT可不可チェック
@WORLD_EVENTABLE2
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:2 && ITEM:82 && FLAG:成長力 > 20
	FLAG:21 = 1
ENDIF

;イベント実処理
@WORLD_EVENT2
#DIM CHARA_ID
#DIM LCOUNT

TFLAG:番号 = 2
TFLAG:部位 = 14
SETBIT TFLAG:21, 2
CALL RANDOM_INU_TYPE

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

FOR LCOUNT, 1, CHARANUM
	IF CFLAG:LCOUNT:侵食済
		PRINTFORML %CALLNAME:LCOUNT%被成群结队的野犬袭击了！
		;TranslatedMark %CALLNAME:LCOUNT%は野犬に襲われた！
		CALL PHYSICAL_DEVELOP(LCOUNT, 40)
		CALL CALC_ECSTASY(LCOUNT, 20)
		CALL ECSTASY(LCOUNT)
		CALL GET_PARASITE(LCOUNT, "野犬")
		CALL POLLUTED_POSITION_INDEX(LCOUNT, 2)
	ENDIF
NEXT


code:
@WORLD_EVENTABLE314
#DIM CHARA_ID
#DIM LCOUNT,3	;ループ用
IF ITEM:315 && ITEM:83 && FLAG:侵食力 + FLAG:成長力 > 40
	FLAG:21 = 1
ENDIF

@WORLD_EVENT314
#DIM LCOUNT

TFLAG:番号 = 314
TFLAG:部位 = RAND:16 + RAND:17
CALL RANDOM_SEA_CREATURE_TYPE

CALL PRINT_MESSAGE(FLAG:初期宿主, "全体イベント", TFLAG:番号, CALLNAME:(FLAG:初期宿主))

CALL RANDOM_GET_CAUGHT_WORLD(3 + RAND:8)

@WORLD_EVENT314_EX(RANDOM_CHARA_ID)
#DIM RANDOM_CHARA_ID
#DIM LCOUNT

CALL CALC_ECSTASY(RANDOM_CHARA_ID, 30)
CALL PRINT_MESSAGE(RANDOM_CHARA_ID, "全体イベント", TFLAG:番号, CALLNAME:RANDOM_CHARA_ID, "", 1)
CALL ECSTASY(RANDOM_CHARA_ID)

CALL PHYSICAL_DEVELOP(RANDOM_CHARA_ID, 5)
CALL MENTAL_DEVELOP(RANDOM_CHARA_ID, 10, 5)

IF CFLAG:RANDOM_CHARA_ID:侵食済 == 0 && EX_POLLUTED(RANDOM_CHARA_ID)
	CALL POLLUTED(RANDOM_CHARA_ID)
ENDIF

CALL GET_PARASITE(RANDOM_CHARA_ID, "海産生物")

CALL POLLUTED_POSITION_INDEX(RANDOM_CHARA_ID, 5)

path: ERB/イベント/全体侵食イベント/WORLD_EVENT314_海産襲撃.ERB