# shortgs !! smoker - handles all changes which happen when PC smokes one cigarette !! use : gs 'shortgs','smoker' if $ARGS[0] = 'smoker': siga -= 1 smoker += 1 smokeHour = hour smokeDay = daystart smokeminut = minut + 5 smokerNeed = 0 cumspclnt = 2 gs 'cum_cleanup' pcs_breath = 0 pcs_mood += 100 wipo += 100 if pcs_hydra >= 100: pcs_hydra -= 5 else pcs_hydra -= 10 end if pcs_energy < 80: pcs_energy += 4 gs '$menu_obnovit' end &!--- smoker --- !! milk_me !! use href="exec:gt ''shortgs'',''milk_me''" if $ARGS[0] = 'milk_me': minut += 15 if $location_type ! 'bathroom': 'You can''t use it here.' elseif lactatemv > 0 and pain['nipples'] < 60: '
> src="images/pc/body/tits/pump_lactating.jpg">
' 'You attach the pump to your breast and start rythmically squeezing the bulb until your breasts feel empty.
You give it a few more pumps and detach the pump.
You filled the bottle with <>ml of your milk.' breastcounter += 1 lactatemv = 0 if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.' breastpumped = 1 pcs_nips += rand(0,1) if bcream_used = 1:pcs_nips += 1 elseif lactate = 0 and pain['nipples'] < 60: if rand(1,100) + breastcounter >= rand(100,200): '
> src="images/pc/body/tits/lactate_start.jpg">
' 'As usual, you attach the pump but after a few pumps white liquid suddenly starts spurting from your nipples.
You started lactating!' lactate = 1 lactatemv = 0 lactatemm = 100 else '
> src="images/pc/body/tits/t<>.jpg">
' 'You attach the pump to your nipples and start squeezing the bulb. The vacuum feels good on your nipples.
A few droplets of liquid come out of your nipples but it is not milk.' breastcounter += 1 if breastpumped = 1:pain['nipples'] += 10 & 'Your nipples are feeling sore.' breastpumped = 1 pcs_nips += rand(0,1) if bcream_used = 1:pcs_nips += 1 end else 'Your nipples feel too sore to use the pump right now.' end act 'Finish':gt $loc, $metka end &! --- milk_me --- !! following function counts the number of guys which PC slept with. !! use func('shortgs','guy') or func('shortgs','guy',X) for subset (X can be 'A','B','C','AB','AC','BC') if $ARGS[0] = 'guy': r_sht=0 if $ARGS[1] = '': $temptask = 'ABC' else $temptask = $ARGS[1] :loop_shtty $temptaskchar = mid($temptask,1,1) $temptask = mid($temptask,2,len($temptask)-1) s_sht=0 :loop_shya if s_sht<=dyneval("result = <<$temptaskchar>>arraynumber"): s_sht += 1 if npc_sex['<<$temptaskchar>><>'] > 0: r_sht = r_sht + iif(npc_gender['<<$temptaskchar>><>'] = 0,1,0) jump 'loop_shya' end if len($temptask) > 0:jump 'loop_shtty' result = r_sht killvar 'r_sht' killvar '$temptask' killvar '$temptaskchar' killvar 's_sht' end &! --- guy --- !! following function counts the number of girls which PC slept with. !! use func('shortgs','girl') or func('shortgs','girl',X) for subset (X can be 'A','B','C','AB','AC','BC') if $ARGS[0] = 'girl': r_sht=0 if $ARGS[1] = '': $temptask = 'ABC' else $temptask = $ARGS[1] :loop_shttl $temptaskchar = mid($temptask,1,1) $temptask = mid($temptask,2,len($temptask)-1) s_sht=0 :loop_shl if s_sht<=dyneval("result = <<$temptaskchar>>arraynumber"): s_sht += 1 if npc_sex['<<$temptaskchar>><>'] > 0: r_sht = r_sht + iif(npc_gender['<<$temptaskchar>><>'] = 1,1,0) jump 'loop_shl' end if len($temptask) > 0: jump 'loop_shttl' result = r_sht killvar 'r_sht' killvar '$temptask' killvar '$temptaskchar' killvar 's_sht' end &! --- girl --- !! following procedure should be used when PC gets naked, but it should be paired with the reverse procedure !! use gs 'shortgs','undress' if $ARGS[0] = 'undress': gs 'clothing','strip' gs 'underwear', 'remove' end &! --- undress --- !! reverse procedure, it can be modified for lose or stolen panties later. !! use gs 'shortgs','dress' if $ARGS[0] = 'dress': gs 'clothing','wear_last_worn' gs 'underwear', 'wear' end &! --- dress --- !! procedure, which prevents PC to leave a room naked. !! use gs 'shortgs','checkdress',' <<$loc>>,<<$metka>> ' or equivalent if $ARGS[0] = 'checkdress': if $clothingworntype = 'nude': msg 'You need to get dressed before going out.' dynamic 'gt <<$ARGS[1]>>' end end &! --- checkdress --- !! this is an integer sqrt function !! call func('shortgs','sqrt', n) if $ARGS[0] = 'sqrt': sqrtnum = ARGS[1] if sqrtnum = 0: result = 0 & exit sqrtn = sqrtnum/2 + 1 sqrtn1 = (sqrtn + sqrtnum / sqrtn) / 2 :sqrtloop if sqrtn1 < sqrtn: sqrtn = sqrtn1 sqrtn1 = (sqrtn + sqrtnum / sqrtn) / 2 jump 'sqrtloop' end result = sqrtn end !! this function calculates modul of given arguments as it was coordinates in cartezian systeme !! use func('shortgs','modul',n1,n2,..n8) if $ARGS[0] = 'modul': modul_sum = ARGS[1]*ARGS[1]+ARGS[2]*ARGS[2]+ARGS[3]*ARGS[3]+ARGS[4]*ARGS[4]+ARGS[5]*ARGS[5]+ARGS[6]*ARGS[6]+ARGS[7]*ARGS[7]+ARGS[8]*ARGS[8] result = func('shortgs','sqrt',modul_sum) killvar 'modul_sum' end !! day of week 1 - Monday .. 7 - Sunday if $ARGS[0] = 'dow': if ARGS[1]=0: D_dow = day M_dow = month Y_dow = year else D_dow = ARGS[3] M_dow = ARGS[2] Y_dow = ARGS[1] end dow_a = (14 - M_dow) / 12 dow_Y = Y_dow - dow_a dow_M = M_dow + 12*dow_a - 2 dummy = (D_dow + dow_y + dow_y/4 - dow_y/100 + dow_y/400 + (31*dow_m)/12) mod 7 if dummy = 0: dummy = 7 result = dummy end !! day of year !! use xdoy = func('shortgs','doy',year,month,day) if $ARGS[0] = 'doy': doy_N1 = 275 * ARGS[2] / 9 doy_N2 = (ARGS[2] + 9) / 12 doy_N3 = 1 + (ARGS[1] - 4 * (ARGS[1] / 4) + 2) / 3 result = doy_N1 - (doy_N2 * doy_N3) + ARGS[3] - 30 end if $ARGS[0] = 'mk1': gs 'saveposition' *clr & cla $mk_subst['0'] = 'M' & $mk_subst['1'] = 'F' & $mk_subst['2'] = 'O' & $mk_subst['3'] = 'L' & $mk_subst['4'] = 'R' & $mk_subst['5'] = 'P' '
' '' '' i = ArrSize('$MenCal') empty0 = week + 29 - i - 1 empty1 = min(28,empty0) full1 = max(0,28 - empty0) empty2 = max(0,empty0-28) full2 = i - full1 empty3 = 28 - empty2 - full2 count=0 $tabmc = '' :tabmcl1 if empty1 > 0: empty1 -=1 & $tabmc +='' & jump 'tabmcl1' :tabmcl2 if full1 > 0: full1 -=1 if $MenCal[count]='0': $tabmc +='' else $tabmc +='' count +=1 jump 'tabmcl1' end $tabmc += '' :tabmcl3 if empty2 > 0: empty2 -=1 & $tabmc +='' & jump 'tabmcl3' :tabmcl4 if full2 > 0: full2 -=1 if $MenCal[count]='0': $tabmc +='' else $tabmc +='' count +=1 jump 'tabmcl4' end :tabmcl5 if empty3 > 0: empty3 -=1 & $tabmc +='' & jump 'tabmcl5' $tabmc += '
MonTueWenThuFriSatSunMonTueWenThuFriSatSun MonTueWenThuFriSatSunMonTueWenThuFriSatSun
 <<$mk_subst[$MenCal[count]]>><<$mk_subst[$MenCal[count]]>>
 <<$mk_subst[$MenCal[count]]>><<$mk_subst[$MenCal[count]]>>
' $tabmc act 'Back': gt 'restoreposition' end !! use gs 'shortgs','mk' if $ARGS[0] = 'mk': gs 'saveposition' *clr & cla copyarr '$MenCalCopy','$MenCal' length_of_month_field = arrsize('$MenCalCopy') if daystart - firstmens > 40: mensnotfound = 1 i = 0 :tabmcfm if $MenCalCopy[length_of_month_field-i] = '0' and $MenCalCopy[length_of_month_field-i-1] = '3': mensnotfound = 0 i += 1 if i < length_of_month_field and mensnotfound = 1: jump 'tabmcfm' if mensnotfound = 0: firstmens = daystart - i + 1 end end i=1 :tabmcc1 if daystart - firstmens < 40: if (daystart - firstmens + i) = 28: $MenCalCopy[] = ' bgcolor="#df2020"' elseif (daystart - firstmens + i) = 29: $MenCalCopy[] = ' bgcolor="#df3030"' elseif (daystart - firstmens + i) = 30: $MenCalCopy[] = ' bgcolor="#df4040"' elseif (daystart - firstmens + i) = 12: $MenCalCopy[] = ' bgcolor="#d8ff00"' elseif (daystart - firstmens + i) = 13: $MenCalCopy[] = ' bgcolor="#d0ff00"' elseif (daystart - firstmens + i) = 14: $MenCalCopy[] = ' bgcolor="#c8ff00"' elseif (daystart - firstmens + i) = 15: $MenCalCopy[] = ' bgcolor="#c0ff00"' elseif (daystart - firstmens + i) = 16: $MenCalCopy[] = ' bgcolor="#d0ff00"' elseif (daystart - firstmens + i) = 12+28: $MenCalCopy[] = ' bgcolor="#d8ff00"' elseif (daystart - firstmens + i) = 13+28: $MenCalCopy[] = ' bgcolor="#d0ff00"' elseif (daystart - firstmens + i) = 14+28: $MenCalCopy[] = ' bgcolor="#c8ff00"' elseif (daystart - firstmens + i) = 15+28: $MenCalCopy[] = ' bgcolor="#c0ff00"' elseif (daystart - firstmens + i) = 16+28: $MenCalCopy[] = ' bgcolor="#d0ff00"' else $MenCalCopy[] = '' end i += 1 if i < 40: jump 'tabmcc1' end i = length_of_month_field :tabmcc2 if i > 0: if $MenCalCopy[i-1] = '2' and i = 1 : $MenCalCopy[i-1] = ' bgcolor="#c0ff00"' if $MenCalCopy[i-1] = '2' and $MenCalCopy[i-2] = '2': $MenCalCopy[i-1] = ' bgcolor="#c0ff00"' if $MenCalCopy[i-1] = '2' and $MenCalCopy[i-2] = '1': $MenCalCopy[i-1] = ' bgcolor="#80ff00"' & $MenCalCopy[i-2] = ' bgcolor="#90ff00"' & $MenCalCopy[i-3] = ' bgcolor="#a0ff00"' & $MenCalCopy[i-4] = ' bgcolor="#b0ff00"' & $MenCalCopy[i-5] = ' bgcolor="#c0ff00"' if $MenCalCopy[i-1] = '1' and (daystart - firstmens - length_of_month_field + i) < 12: $MenCalCopy[i-1] ='' if $MenCalCopy[i-1] = '1' and (daystart - firstmens - length_of_month_field + i) = 12: $MenCalCopy[i-1] =' bgcolor="#b0ff00"' if $MenCalCopy[i-1] = '1' and (daystart - firstmens - length_of_month_field + i) = 13: $MenCalCopy[i-1] =' bgcolor="#a0ff00"' if $MenCalCopy[i-1] = '1' and (daystart - firstmens - length_of_month_field + i) = 14: $MenCalCopy[i-1] =' bgcolor="#90ff00"' if $MenCalCopy[i-1] = '1' and (daystart - firstmens - length_of_month_field + i) = 15: $MenCalCopy[i-1] =' bgcolor="#80ff00"' if $MenCalCopy[i-1] = '1' and (daystart - firstmens - length_of_month_field + i) > 15: $MenCalCopy[i-1] ='' if $MenCalCopy[i-1] = '0': $MenCalCopy[i-1] =' bgcolor="#df2020"' if $MenCalCopy[i-1] = '3': $MenCalCopy[i-1] ='' if $MenCalCopy[i-1] = '4': $MenCalCopy[i-1] ='' if $MenCalCopy[i-1] = '5': $MenCalCopy[i-1] ='' if $MenCalCopy[i-1] = '6': $MenCalCopy[i-1] ='' i -= 1 jump 'tabmcc2' end cur_day_doy = func('shortgs','doy',year,month,day) if month = 1: dif_days = cur_day_doy + 30 prev_month = 12 prev_month_length = 31 else prev_month = month - 1 dif_days = cur_day_doy - func('shortgs','doy',year,prev_month,1) prev_month_length = func('shortgs','doy',year,month,1) - func('shortgs','doy',year,prev_month,1) end first_month_first_day_week = week - (dif_days mod 7) first_month_first_day_index = length_of_month_field -1 - dif_days r = first_month_first_day_index if first_month_first_day_week < 1: first_month_first_day_week += 7 i = 42 :tabmc21 $mk1_mdays[] = ' ' & i -= 1 & if i > 0: jump 'tabmc21' i = 0 :tabmc21a $mk1_mdays[i+first_month_first_day_week-1] = $str(i+1) i += 1 if i < prev_month_length: jump 'tabmc21a' $prev_month_name = $mid($monthName[prev_month],1,1) + '
' + $mid($monthName[prev_month],2,1) + '
' + $mid($monthName[prev_month],3,1) k = 0 $tabmc ='
' $tabmc +='
' $tabmc +='' month_weeks = (first_month_first_day_week + prev_month_length + 5)/7 - 1 i = month_weeks :tabmc22 $tabmc +='' j = 7 if i = month_weeks:$tabmc +='' :tabmc23 if j > 0: j -=1 if $mk1_mdays[k]=' ': $tabmc +='' else $tabmc +='> ><<$mk1_mdays[k]>>' r +=1 end k +=1 jump 'tabmc23' & !<<$MenCalCopy[r]>> end if i > 0: i -=1 & $tabmc +='' & jump 'tabmc22' killvar '$mk1_mdays' killvar '$mk1_mdays_color' !! current month if month = 12: dif_days = day - 1 cur_month = month cur_month_length = 31 else dif_days = day - 1 cur_month_length = func('shortgs','doy',year,month+1,1) - func('shortgs','doy',year,month,1) end second_month_first_day_week = week - (dif_days mod 7) second_month_first_day_index = length_of_month_field -1 - dif_days if second_month_first_day_week < 1: second_month_first_day_week += 7 i = 42 :tabmc31 $mk1_mdays[] = ' ' & i -= 1 & if i > 0: jump 'tabmc31' i = 0 :tabmc31a $mk1_mdays[i+second_month_first_day_week-1] = $str(i+1) i += 1 if i < cur_month_length: jump 'tabmc31a' $cur_month_name = $mid($monthName[month],1,1) + '
' + $mid($monthName[month],2,1) + '
' + $mid($monthName[month],3,1) k = 0 month_weeks = (second_month_first_day_week + cur_month_length + 5)/7 - 1 i = month_weeks :tabmc32 $tabmc +='
' j = 7 if i = month_weeks:$tabmc +='' :tabmc33 if j > 0: j -=1 if $mk1_mdays[k]=' ': $tabmc +='' else if day + second_month_first_day_week - 2 = k: $tabmc +='> ><<$mk1_mdays[k]>>' else $tabmc +='> ><<$mk1_mdays[k]>>' r +=1 end k +=1 jump 'tabmc33' end if i > 0: i -=1 & $tabmc +='' & jump 'tabmc32' killvar '$mk1_mdays' killvar '$mk1_mdays_color' !! next month if month = 12: dif_days = 31 - day + 1 next_month = 1 next_month_length = 31 elseif month = 11: dif_days = 30 - day + 1 next_month = 12 next_month_length = 31 else next_month = month + 1 dif_days = cur_month_length - day + 1 next_month_length = func('shortgs','doy',year,month+2,1) - func('shortgs','doy',year,month+1,1) end next_month_first_day_week = week + (dif_days mod 7) next_month_first_day_index = length_of_month_field -1 - dif_days if next_month_first_day_week < 1: next_month_first_day_week += 7 i = 35 :tabmc41 $mk1_mdays[] = ' ' & i -= 1 & if i > 0: jump 'tabmc41' i = 0 :tabmc41a $mk1_mdays[i+next_month_first_day_week-1] = $str(i+1) !! if next_month_first_day_index + i >= 0: $mk1_mdays[i+next_month_first_day_week-1] += $mk_subst[$MenCal[second_month_first_day_index + i]] i += 1 if i < next_month_length: jump 'tabmc41a' $next_month_name = $mid($monthName[next_month],1,1) + '
' + $mid($monthName[next_month],2,1) + '
' + $mid($monthName[next_month],3,1) k = 0 month_weeks = (next_month_first_day_week + next_month_length + 5)/7 - 1 i = month_weeks :tabmc42 $tabmc +='
' j = 7 if i = month_weeks:$tabmc +='' :tabmc43 if j > 0: j -=1 if $mk1_mdays[k]=' ': $tabmc +='' else $tabmc +='> ><<$mk1_mdays[k]>>' r +=1 end k +=1 jump 'tabmc43' end if i > 0: i -=1 & $tabmc +='' & jump 'tabmc42' killvar '$mk1_mdays' $tabmc += '
MonthMonTueWenThuFriSatSun
<<$prev_month_name>><<$mk1_mdays[k]>>
<<$cur_month_name>><<$mk1_mdays[k]>>
<<$next_month_name>><<$mk1_mdays[k]>>
' $tabmc act 'Back': gt 'restoreposition' end !! gs 'shortgs','fonts' if $ARGS[0] = 'fonts': if $ARGS[1] = 'refresh': jump 'fontsloop' else $dynamicreturn = $ARGS[1] $OpenPhraseSave = $ARGS[2] $ClosePhraseSave = $ARGS[3] end gs 'saveposition' $fontlist[] = 'Lucida' & $fontlist[] = 'Ariel' & $fontlist[] = 'Tahoma' & $fontlist[] = 'Verdana' & $fontlist[] = 'Courier New' & $fontlist[] = 'Courier' & $fontlist[] = 'Georgia' & $fontlist[] = 'Times New Roman' & $fontlist[] = 'Garamond' & $fontlist[] = 'Bookman' & $fontlist[] = 'Times New Roman' & $fontlist[] = 'Times' & $fontlist[] = 'Comic Sans MS' & $fontlist[] = 'Trebuchet MS' & $fontlist[] = 'Impact' & $fontlist[] = 'BankGothic' $fontcolor[] = 'aqua' & $fontcolor[] = 'black' & $fontcolor[] = 'blue' & $fontcolor[] = 'fuchsia' & $fontcolor[] = 'green' & $fontcolor[] = 'gray' & $fontcolor[] = 'lime' & $fontcolor[] = 'maroon' & $fontcolor[] = 'navy' & $fontcolor[] = 'olive' & $fontcolor[] = 'purple' & $fontcolor[] = 'red' & $fontcolor[] = 'silver' & $fontcolor[] = 'teal' & $fontcolor[] = 'white' & $fontcolor[] = 'yellow' i = 15 :fontsloop0 if $CurFont = $fontlist[i]: curfont = i if $CurColor = $fontcolor[i]: curcolor = i i -= 1 if i > 0: jump 'fontsloop0' jump 'fontsloop1' :fontsloop $OpenPhrase = ''+$CurBold+$CurItalic $ClosePhrase = $CurItalicBack+$CurBoldBack+'' :fontsloop1 *clr & cla $OpenPhrase+'Current font is <<$CurFont>> Size <>, the color is <<$CurColor>>, the Bold is <'',''On'',''Off'')>> and Italic is <'',''On'',''Off'')>>'+$ClosePhrase 'Change the Font' 'Change the Color' 'Change the BoldState' 'Change the ItalicState' 'Decrease the Font   Increase the font' act 'Back': killvar '$fontlist' killvar '$fontcolor' dynamic '<<$OpenPhraseSave>> = $OpenPhrase' dynamic '<<$ClosePhraseSave>> = $ClosePhrase' if $dynamicreturn ! '': dynamic 'dynamic <<$dynamicreturn>>' gt 'restoreposition' end end !! use gs 'shortgs','ncp_update' if $ARGS[0] = 'ncp_update': copyarr 'copy_npc_QW','npc_QW' copyarr 'copy_npc_rel','npc_rel' copyarr 'copy_npc_love','npc_love' copyarr '$copy_npc_usedname','$npc_usedname' gs 'npcstatic1' gs 'npcstatic2' gs 'npcstatic3' gs 'npcstatic4' gs 'npcstatic5' i = arrsize('copy_npc_QW') j = 1 :loopnpcupdate $boy = 'A<>' npc_QW[$boy] = copy_npc_QW[$boy] npc_rel[$boy] = copy_npc_rel[$boy] npc_love[$boy] = copy_npc_love[$boy] $npc_usedname[$boy] = $copy_npc_usedname[$boy] j += 1 if j <= i: jump 'loopnpcupdate' killvar 'copy_npc_QW' killvar 'copy_npc_rel' killvar 'copy_npc_love' killvar '$copy_npc_usedname' end !! this function returns the numeric index of the array element which is indexed by string value. !! call func('shortgs', 'get_me_index', 'name of array','string index') !! the array can be both numeric or string: Be aware, for the search is used the value 'SearchTag' for string arrays and -999 for numeric arrays. !! if the array consists such value, the fuction can mess the array content and return wrong value if $ARGS[0] = 'get_me_index': $test = '<<$ARGS[1]>>[''<<$ARGS[2]>>'']' testas0 = arrsize('<<$ARGS[1]>>') if $mid($test,1,1)='$': $temp=dyneval('$result=<<$test>>') dynamic '<<$test>> = ''SearchTag'' ' testas1 = arrsize('<<$ARGS[1]>>') if testas0 = testas1: res = dyneval('result = arrpos(0,''<<$ARGS[1]>>'',''SearchTag'')') dynamic '<<$test>> = ''<<$temp>>'' ' else res = -1 killvar '<<$ARGS[1]>>',testas0 end else temp=dyneval('result=<<$test>>') dynamic '<<$test>> = -999' testas1 = arrsize('<<$ARGS[1]>>') if testas0 = testas1: res = dyneval('result = arrpos(0,''<<$ARGS[1]>>'',-999)') dynamic '<<$test>> = <>' else res = -1 killvar '<<$ARGS[1]>>',testas0 end end result = res end !! call gs 'shortgs', 'remove_array_element', 'name of array','string index' if $ARGS[0] = 'remove_array_element': i = func('shortgs', 'get_me_index', $ARGS[1],$ARGS[2]) killvar '<<$ARGS[1]>>',i end if $ARGS[0] = 'testsize': arrsize('$npc_cur_rel') arrsize('$npc_dad') arrsize('$npc_dna') arrsize('$npc_firstname') arrsize('$npc_firstpart') arrsize('$npc_kidpater') arrsize('$npc_lastname') arrsize('$npc_lastpart') arrsize('$npc_mom') arrsize('$npc_nickname') arrsize('$npc_notes') arrsize('$npc_orgasm_txt') arrsize('$npc_PersType') arrsize('$npc_pic') arrsize('$npc_rel') arrsize('$npc_thdick') arrsize('$npc_usedname') arrsize('npc_agil') arrsize('npc_app') arrsize('npc_apprnc') arrsize('npc_ass') arrsize('npc_bodyhair') arrsize('npc_breath') arrsize('npc_bust') arrsize('npc_cloc') arrsize('npc_clothpref') arrsize('npc_cyc') arrsize('npc_dance') arrsize('npc_danceero') arrsize('npc_def') arrsize('npc_dick') arrsize('npc_dnc') arrsize('npc_dob') arrsize('npc_dom') arrsize('npc_drunk') arrsize('npc_dye') arrsize('npc_erodnc') arrsize('npc_eyecol') arrsize('npc_eyesize') arrsize('npc_fat') arrsize('npc_fert') arrsize('npc_gender') arrsize('npc_genwart') arrsize('npc_glasses') arrsize('npc_Godrep') arrsize('npc_gon') arrsize('npc_grades') arrsize('npc_hair') arrsize('npc_hairbsh') arrsize('npc_haircol') arrsize('npc_haircurl') arrsize('npc_hairlng') arrsize('npc_herpes') arrsize('npc_hgt') arrsize('npc_hipcurv') arrsize('npc_Hiv') arrsize('npc_horny') arrsize('npc_hymen') arrsize('npc_chem') arrsize('npc_chess') arrsize('npc_chlam') arrsize('npc_int') arrsize('npc_intel') arrsize('npc_jab') arrsize('npc_job') arrsize('npc_kick') arrsize('npc_lashes') arrsize('npc_lip') arrsize('npc_lipbalm') arrsize('npc_lipstick') arrsize('npc_love') arrsize('npc_mag') arrsize('npc_magik') arrsize('npc_makeup') arrsize('npc_malen') arrsize('npc_nerd') arrsize('npc_nips') arrsize('npc_orgasm_txt') arrsize('npc_pantys') arrsize('npc_Pavrep') arrsize('npc_pubes') arrsize('npc_punch') arrsize('npc_Qstlvl') arrsize('npc_QW') arrsize('npc_rel') arrsize('npc_run') arrsize('npc_serve') arrsize('npc_serving') arrsize('npc_sew') arrsize('npc_sewing') arrsize('npc_sex') arrsize('npc_sexskill') arrsize('npc_shoot') arrsize('npc_sing') arrsize('npc_skin') arrsize('npc_spermpot') arrsize('npc_spirit') arrsize('npc_sprt') arrsize('npc_str') arrsize('npc_stren') arrsize('npc_sub') arrsize('npc_sweat') arrsize('npc_syph') arrsize('npc_syth') arrsize('npc_tan') arrsize('npc_teach') arrsize('npc_thrush') arrsize('npc_undies') arrsize('npc_vag') arrsize('npc_vball') arrsize('npc_vit') arrsize('npc_vital') arrsize('npc_vokal') arrsize('npcbrokehymen') end if $ARGS[0] = 'replace header': wait(ARGS[1]) RH_Count = ARGS[2] $RH_temp = $MAINTXT :RH_label RH_temp_lenght = LEN($RH_temp) RH_temp_LFpos = STRPOS($RH_temp,'\n') $RH_temp = $MID($RH_temp, RH_temp_LFpos+1, RH_temp_lenght - RH_temp_LFpos) RH_Count -=1 if RH_Count > 0: jump 'RH_label' *clr $ARGS[3] & $ARGS[4] & $ARGS[5] & $ARGS[6] & $ARGS[7] $RH_temp killvar '$RH_temp' killvar 'RH_Count' killvar 'RH_temp_lenght' killvar 'RH_temp_LFpos' end if $ARGS[0]='img msg': $shortgstemp = '
' msg $shortgstemp killvar '$shortgstemp' end --- shortgs ---------------------------------