1
0

phone_selfies.qsrc 29 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909
  1. # phone_selfies
  2. if $ARGS[0] = 'selfies':
  3. menu_off = 0
  4. gs 'telefon', 'Phone_selfie_totals'
  5. *clr & cla
  6. !!These variables determine which selfietypes need to be checked
  7. clovar = 1
  8. undvar = 1
  9. nudvar = 1
  10. bathvar = 0
  11. showervar = 0
  12. !!This variable will switch to bikini for beach selfies
  13. $undname = 'underwear'
  14. $undnamecap = 'Underwear'
  15. '<center><h4><font color="maroon">Photo library</font></h4></center>'
  16. *nl
  17. 'Selfies'
  18. '<a href="exec:gt ''phone_selfies'', ''bathroom''">Bathroom selfies</a>'
  19. '<a href="exec:gt ''phone_selfies'', ''bedroom''">Bedroom selfies</a>'
  20. '<a href="exec:gt ''phone_selfies'', ''kitchen''">Kitchen selfies</a>'
  21. '<a href="exec:gt ''phone_selfies'', ''livingroom''">Livingroom selfies</a>'
  22. '<a href="exec:gt ''phone_selfies'', ''changingroom''">Changingroom selfies</a>'
  23. '<a href="exec:gt ''phone_selfies'', ''park''">Park selfies</a>'
  24. '<a href="exec:gt ''phone_selfies'', ''lockerroom''">Lockerroom selfies</a>'
  25. '<a href="exec:gt ''phone_selfies'', ''beach''">Beach selfies</a>'
  26. '<a href="exec:gt ''phone_selfies'', ''gym''">Gym selfies</a>'
  27. '<a href="exec:gt ''phone_selfies'', ''dance''">Dance selfies</a>'
  28. '<a href="exec:gt ''phone_selfies'', ''misc''">Misc selfies</a>'
  29. *nl
  30. 'Family and friends'
  31. '<a href="exec:gt ''phone_selfies'', ''family''">Family</a>'
  32. '<a href="exec:gt ''phone_selfies'', ''school''">School friends</a>'
  33. '<a href="exec:gt ''phone_selfies'', ''teacher''">Teachers</a>'
  34. '<a href="exec:gt ''phone_selfies'', ''pavlovsk''">Pavlovsk friends</a>'
  35. '<a href="exec:gt ''phone_selfies'', ''city''">City friends</a>'
  36. !gt $loc, $metka
  37. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  38. end
  39. if $ARGS[0] = 'listretrieve':
  40. !!Loop for clothed selfies, dynamics set variables as mixing them in loop instructions is bad
  41. if clovar = 1:
  42. '<center><b>Clothed selfies</b></center>'
  43. *nl
  44. temp_clocnt = 1
  45. dynamic 'temp_loop = <<$phone_loc>>_cloloop'
  46. dynamic 'temp_total = <<$phone_loc>>_clotot'
  47. :temp_loop
  48. !!setting value to unmixed variable so it can be checked in the if below
  49. dynamic '$phone_locval = <<$phone_loc>>_closelfie[<<temp_clocnt>>]'
  50. if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/clothed/<<temp_clocnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/clothed/<<temp_clocnt>>.jpg" height="150" /></a> '
  51. temp_clocnt += 1
  52. if temp_clocnt <= temp_total: jump'temp_loop'
  53. end
  54. !!loop for underwear selfies
  55. if undvar = 1:
  56. '<center><b><<$undnamecap>> selfies</b></center>'
  57. *nl
  58. temp_undcnt = 1
  59. dynamic 'temp_loop1 = <<$phone_loc>>_undloop'
  60. dynamic 'temp_total = <<$phone_loc>>_undtot'
  61. :temp_loop1
  62. dynamic '$phone_locval = <<$phone_loc>>_undselfie[<<temp_undcnt>>]'
  63. if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/<<$undname>>/<<temp_undcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/<<$undname>>/<<temp_undcnt>>.jpg" height="150" /></a> '
  64. temp_undcnt += 1
  65. if temp_undcnt <= temp_total: jump'temp_loop1'
  66. end
  67. !!loop for nude selfies
  68. if nudvar = 1:
  69. '<center><b>Nude selfies</b></center>'
  70. *nl
  71. temp_nudcnt = 1
  72. dynamic 'temp_loop2 = <<$phone_loc>>_nudloop'
  73. dynamic 'temp_total = <<$phone_loc>>_nudtot'
  74. :temp_loop2
  75. dynamic '$phone_locval = <<$phone_loc>>_nudselfie[<<temp_nudcnt>>]'
  76. if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/nude/<<temp_nudcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/nude/<<temp_nudcnt>>.jpg" height="150" /></a> '
  77. temp_nudcnt += 1
  78. if temp_nudcnt <= temp_total: jump'temp_loop2'
  79. end
  80. !!loop for bath selfies
  81. if bathvar = 1:
  82. '<center><b>Bath selfies</b></center>'
  83. *nl
  84. temp_bathcnt = 1
  85. dynamic 'temp_loop2 = <<$phone_loc>>_bathloop'
  86. dynamic 'temp_total = <<$phone_loc>>_bathtot'
  87. :temp_loop3
  88. dynamic '$phone_locval = <<$phone_loc>>_bathselfie[<<temp_bathcnt>>]'
  89. if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/bath/<<temp_bathcnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/bath/<<temp_bathcnt>>.jpg" height="150" /></a> '
  90. temp_bathcnt += 1
  91. if temp_bathcnt <= temp_total: jump'temp_loop3'
  92. end
  93. !!loop for shower selfies
  94. if showervar = 1:
  95. '<center><b>Shower selfies</b></center>'
  96. *nl
  97. temp_showercnt = 1
  98. dynamic 'temp_loop2 = <<$phone_loc>>_showerloop'
  99. dynamic 'temp_total = <<$phone_loc>>_showertot'
  100. :temp_loop4
  101. dynamic '$phone_locval = <<$phone_loc>>_showerselfie[<<temp_showercnt>>]'
  102. if $phone_locval = 1: *p '<a href="exec:view''images/pc/selfies/<<$phone_loc>>/shower/<<temp_showercnt>>.jpg''"><img src="images/pc/selfies/<<$phone_loc>>/shower/<<temp_showercnt>>.jpg" height="150" /></a> '
  103. temp_showercnt += 1
  104. if temp_showercnt <= temp_total: jump'temp_loop4'
  105. end
  106. end
  107. if $ARGS[0] = 'listretrieve2':
  108. if numnpc = 1:
  109. '<center><h4><font color="maroon">Dimka selfies</font></h4></center>'
  110. $imgloc = 'images/characters/pavlovsk/school/boy/dimka/selfies/'
  111. $selfienpc = 'dimka'
  112. loopmax = 0
  113. loopmaxsveta = 0
  114. loopmaxsex = 0
  115. elseif numnpc = 2:
  116. '<center><h4><font color="maroon">Artem selfies</font></h4></center>'
  117. $imgloc = 'images/characters/pavlovsk/school/boy/artem/selfies/'
  118. $selfienpc = 'artem'
  119. loopmax = 0
  120. loopmaxsveta = 0
  121. loopmaxsex = 0
  122. elseif numnpc = 3:
  123. '<center><h4><font color="maroon">Ivan selfies</font></h4></center>'
  124. $imgloc = 'images/characters/pavlovsk/school/boy/ivan/selfies/'
  125. $selfienpc = 'ivan'
  126. loopmax = 0
  127. loopmaxsveta = 0
  128. loopmaxsex = 0
  129. elseif numnpc = 4:
  130. '<center><h4><font color="maroon">Igor selfies</font></h4></center>'
  131. $imgloc = 'images/characters/pavlovsk/school/boy/igor/selfies/'
  132. $selfienpc = 'igor'
  133. loopmax = 0
  134. loopmaxsveta = 0
  135. loopmaxsex = 0
  136. elseif numnpc = 5:
  137. '<center><h4><font color="maroon">Fedor selfies</font></h4></center>'
  138. $imgloc = 'images/characters/pavlovsk/school/boy/fedor/selfies/'
  139. $selfienpc = 'fedor'
  140. loopmax = 0
  141. loopmaxsveta = 0
  142. loopmaxsex = 0
  143. elseif numnpc = 6:
  144. '<center><h4><font color="maroon">Petka selfies</font></h4></center>'
  145. $imgloc = 'images/characters/pavlovsk/school/boy/petka/selfies/'
  146. $selfienpc = 'petka'
  147. loopmax = 0
  148. loopmaxsveta = 0
  149. loopmaxsex = 0
  150. elseif numnpc = 7:
  151. '<center><h4><font color="maroon">Lesco selfies</font></h4></center>'
  152. $imgloc = 'images/characters/pavlovsk/school/boy/lesco/selfies/'
  153. $selfienpc = 'lesco'
  154. loopmax = 0
  155. loopmaxsveta = 0
  156. loopmaxsex = 0
  157. elseif numnpc = 8:
  158. '<center><h4><font color="maroon">Svyatoslav selfies</font></h4></center>'
  159. $imgloc = 'images/characters/pavlovsk/school/boy/svyatoslav/selfies/'
  160. $selfienpc = 'svyatoslav'
  161. loopmax = 0
  162. loopmaxsveta = 0
  163. loopmaxsex = 0
  164. elseif numnpc = 9:
  165. '<center><h4><font color="maroon">Vitek selfies</font></h4></center>'
  166. $imgloc = 'images/characters/pavlovsk/school/boy/vitek/selfies/'
  167. $selfienpc = 'vitek'
  168. loopmax = 0
  169. loopmaxsveta = 0
  170. loopmaxsex = 0
  171. elseif numnpc = 10:
  172. '<center><h4><font color="maroon">Dan selfies</font></h4></center>'
  173. $imgloc = 'images/characters/pavlovsk/school/boy/dan/selfies/'
  174. $selfienpc = 'dan'
  175. loopmax = 0
  176. loopmaxsveta = 0
  177. loopmaxsex = 0
  178. elseif numnpc = 11:
  179. '<center><h4><font color="maroon">Vasily selfies</font></h4></center>'
  180. $imgloc = 'images/characters/pavlovsk/school/boy/vasily/selfies/'
  181. $selfienpc = 'vasily'
  182. loopmax = 0
  183. loopmaxsveta = 0
  184. loopmaxsex = 0
  185. elseif numnpc = 12:
  186. '<center><h4><font color="maroon">Julia selfies</font></h4></center>'
  187. $imgloc = 'images/characters/pavlovsk/school/boy/julia/selfies/'
  188. $selfienpc = 'julia'
  189. loopmax = 0
  190. loopmaxsveta = 0
  191. loopmaxsex = 0
  192. elseif numnpc = 13:
  193. '<center><h4><font color="maroon">Lariska selfies</font></h4></center>'
  194. $imgloc = 'images/characters/pavlovsk/school/boy/lariska/selfies/'
  195. $selfienpc = 'lariska'
  196. loopmax = 0
  197. loopmaxsveta = 0
  198. loopmaxsex = 0
  199. elseif numnpc = 14:
  200. '<center><h4><font color="maroon">Katja selfies</font></h4></center>'
  201. $imgloc = 'images/characters/pavlovsk/school/boy/katja/selfies/'
  202. $selfienpc = 'katja'
  203. loopmax = 0
  204. loopmaxsveta = 0
  205. loopmaxsex = 0
  206. elseif numnpc = 15:
  207. '<center><h4><font color="maroon">Vicky selfies</font></h4></center>'
  208. $imgloc = 'images/characters/pavlovsk/school/boy/vicky/selfies/'
  209. $selfienpc = 'vicky'
  210. loopmax = 0
  211. loopmaxsveta = 0
  212. loopmaxsex = 0
  213. elseif numnpc = 16:
  214. '<center><h4><font color="maroon">Natasha selfies</font></h4></center>'
  215. $imgloc = 'images/characters/pavlovsk/school/boy/natasha/selfies/'
  216. $selfienpc = 'natasha'
  217. loopmax = 0
  218. loopmaxsveta = 0
  219. loopmaxsex = 0
  220. elseif numnpc = 17:
  221. '<center><h4><font color="maroon">Inna selfies</font></h4></center>'
  222. $imgloc = 'images/characters/pavlovsk/school/boy/inna/selfies/'
  223. $selfienpc = 'inna'
  224. loopmax = 0
  225. loopmaxsveta = 0
  226. loopmaxsex = 0
  227. elseif numnpc = 18:
  228. '<center><h4><font color="maroon">Christina selfies</font></h4></center>'
  229. $imgloc = 'images/characters/pavlovsk/school/boy/christina/selfies/'
  230. $selfienpc = 'christina'
  231. loopmax = 0
  232. loopmaxsveta = 0
  233. loopmaxsex = 0
  234. elseif numnpc = 19:
  235. '<center><h4><font color="maroon">Lina selfies</font></h4></center>'
  236. $imgloc = 'images/characters/pavlovsk/school/boy/lina/selfies/'
  237. $selfienpc = 'lina'
  238. loopmax = 0
  239. loopmaxsveta = 0
  240. loopmaxsex = 0
  241. elseif numnpc = 20:
  242. '<center><h4><font color="maroon">Lena selfies</font></h4></center>'
  243. $imgloc = 'images/characters/pavlovsk/school/boy/lena/selfies/'
  244. $selfienpc = 'lena'
  245. loopmax = 0
  246. loopmaxsveta = 0
  247. loopmaxsex = 0
  248. elseif numnpc = 21:
  249. '<center><h4><font color="maroon">Lera selfies</font></h4></center>'
  250. $imgloc = 'images/characters/pavlovsk/school/boy/lera/selfies/'
  251. $selfienpc = 'lera'
  252. loopmax = 0
  253. loopmaxsveta = 0
  254. loopmaxsex = 0
  255. elseif numnpc = 22:
  256. '<center><h4><font color="maroon">Bella selfies</font></h4></center>'
  257. $imgloc = 'images/characters/pavlovsk/school/boy/bella/selfies/'
  258. $selfienpc = 'bella'
  259. loopmax = 0
  260. loopmaxsveta = 0
  261. loopmaxsex = 0
  262. elseif numnpc = 23:
  263. '<center><h4><font color="maroon">Albina selfies</font></h4></center>'
  264. $imgloc = 'images/characters/pavlovsk/school/boy/albina/selfies/'
  265. $selfienpc = 'albina'
  266. loopmax = 0
  267. loopmaxsveta = 0
  268. loopmaxsex = 0
  269. elseif numnpc = 24:
  270. '<center><h4><font color="maroon">Pauline selfies</font></h4></center>'
  271. $imgloc = 'images/characters/pavlovsk/school/boy/pauline/selfies/'
  272. $selfienpc = 'pauline'
  273. loopmax = 0
  274. loopmaxsveta = 0
  275. loopmaxsex = 0
  276. elseif numnpc = 25:
  277. '<center><h4><font color="maroon">Sonia selfies</font></h4></center>'
  278. $imgloc = 'images/characters/pavlovsk/school/girl/sonia/selfies/'
  279. $selfienpc = 'sonia'
  280. loopmax = 45
  281. loopmaxsveta = 25
  282. loopmaxsex = 9
  283. elseif numnpc = 26:
  284. '<center><h4><font color="maroon">Anatoly selfies</font></h4></center>'
  285. $imgloc = 'images/characters/pavlovsk/school/teacher/anatoly/selfies/'
  286. $selfienpc = 'anatoly'
  287. loopmax = 0
  288. loopmaxsveta = 0
  289. loopmaxsex = 0
  290. elseif numnpc = 28:
  291. '<center><h4><font color="maroon">Stepfather selfies</font></h4></center>'
  292. $imgloc = 'images/characters/pavlovsk/resident/vladimir/selfies/'
  293. $selfienpc = 'vladimir'
  294. loopmax = 0
  295. loopmaxsveta = 0
  296. loopmaxsex = 0
  297. elseif numnpc = 29:
  298. '<center><h4><font color="maroon">Mother selfies</font></h4></center>'
  299. $imgloc = 'images/characters/pavlovsk/resident/mom/selfies/'
  300. $selfienpc = 'mom'
  301. loopmax = 0
  302. loopmaxsveta = 0
  303. loopmaxsex = 0
  304. elseif numnpc = 33:
  305. '<center><h4><font color="maroon">Anya selfies</font></h4></center>'
  306. $imgloc = 'images/characters/pavlovsk/resident/anya/selfies/'
  307. $selfienpc = 'anya'
  308. loopmax = 0
  309. loopmaxsveta = 0
  310. loopmaxsex = 0
  311. elseif numnpc = 34:
  312. '<center><h4><font color="maroon">Kolka selfies</font></h4></center>'
  313. $imgloc = 'images/characters/pavlovsk/resident/kolka/selfies/'
  314. $selfienpc = 'kolka'
  315. loopmax = 0
  316. loopmaxsveta = 0
  317. loopmaxsex = 0
  318. elseif numnpc = 35:
  319. '<center><h4><font color="maroon">Father selfies</font></h4></center>'
  320. !! Where are these located?
  321. $imgloc = 'images/characters/pavlovsk/resident/???/selfies/'
  322. $selfienpc = 'father'
  323. loopmax = 0
  324. loopmaxsveta = 0
  325. loopmaxsex = 0
  326. elseif numnpc = 54:
  327. '<center><h4><font color="maroon">Uncle Misha selfies</font></h4></center>'
  328. $imgloc = 'images/characters/pavlovsk/resident/misha/selfies/'
  329. $selfienpc = 'misha'
  330. loopmax = 0
  331. loopmaxsveta = 0
  332. loopmaxsex = 0
  333. elseif numnpc = 56:
  334. '<center><h4><font color="maroon">Roma selfies</font></h4></center>'
  335. $imgloc = 'images/characters/pavlovsk/resident/roma/selfies/'
  336. $selfienpc = 'roma'
  337. loopmax = 0
  338. loopmaxsveta = 0
  339. loopmaxsex = 0
  340. elseif numnpc = 57:
  341. '<center><h4><font color="maroon">Rex selfies</font></h4></center>'
  342. $imgloc = 'images/characters/pavlovsk/resident/rex/selfies/'
  343. $selfienpc = 'rex'
  344. loopmax = 0
  345. loopmaxsveta = 0
  346. loopmaxsex = 0
  347. elseif numnpc = 69:
  348. '<center><h4><font color="maroon">Mikhail selfies</font></h4></center>'
  349. $imgloc = 'images/characters/pavlovsk/school/teacher/mikhail/selfies/'
  350. $selfienpc = 'coachmikhail'
  351. loopmax = 0
  352. loopmaxsveta = 0
  353. loopmaxsex = 0
  354. elseif numnpc = 54:
  355. '<center><h4><font color="maroon">Sergey selfies</font></h4></center>'
  356. $imgloc = 'images/characters/pavlovsk/resident/sergey/selfies/'
  357. $selfienpc = 'sergey'
  358. loopmax = 0
  359. loopmaxsveta = 0
  360. loopmaxsex = 0
  361. elseif numnpc = 128:
  362. '<center><h4><font color="maroon">Makar selfies</font></h4></center>'
  363. $imgloc = 'images/characters/pavlovsk/school/teacher/makar/selfies/'
  364. $selfienpc = 'makar'
  365. loopmax = 0
  366. loopmaxsveta = 0
  367. loopmaxsex = 0
  368. elseif numnpc = 129:
  369. '<center><h4><font color="maroon">Serafim selfies</font></h4></center>'
  370. $imgloc = 'images/characters/pavlovsk/school/teacher/serafim/selfies/'
  371. $selfienpc = 'serafim'
  372. loopmax = 0
  373. loopmaxsveta = 0
  374. loopmaxsex = 0
  375. elseif numnpc = 130:
  376. '<center><h4><font color="maroon">Ilya selfies</font></h4></center>'
  377. $imgloc = 'images/characters/pavlovsk/school/teacher/ilya/selfies/'
  378. $selfienpc = 'ilya'
  379. loopmax = 0
  380. loopmaxsveta = 0
  381. loopmaxsex = 0
  382. elseif numnpc = 131:
  383. '<center><h4><font color="maroon">Viktor selfies</font></h4></center>'
  384. $imgloc = 'images/characters/pavlovsk/school/teacher/viktor/selfies/'
  385. $selfienpc = 'viktor'
  386. loopmax = 0
  387. loopmaxsveta = 0
  388. loopmaxsex = 0
  389. elseif numnpc = 132:
  390. '<center><h4><font color="maroon">Ruslan selfies</font></h4></center>'
  391. $imgloc = 'images/characters/pavlovsk/school/teacher/ruslan/selfies/'
  392. $selfienpc = 'ruslan'
  393. loopmax = 0
  394. loopmaxsveta = 0
  395. loopmaxsex = 0
  396. elseif numnpc = 133:
  397. '<center><h4><font color="maroon">Rolan selfies</font></h4></center>'
  398. $imgloc = 'images/characters/pavlovsk/school/teacher/rolan/selfies/'
  399. $selfienpc = 'rolan'
  400. loopmax = 0
  401. loopmaxsveta = 0
  402. loopmaxsex = 0
  403. elseif numnpc = 134:
  404. '<center><h4><font color="maroon">Aleksandrina selfies</font></h4></center>'
  405. $imgloc = 'images/characters/pavlovsk/school/teacher/aleksandrina/selfies/'
  406. $selfienpc = 'aleksandrina'
  407. loopmax = 0
  408. loopmaxsveta = 0
  409. loopmaxsex = 0
  410. elseif numnpc = 135:
  411. '<center><h4><font color="maroon">Yeva selfies</font></h4></center>'
  412. $imgloc = 'images/characters/pavlovsk/school/teacher/yeva/selfies/'
  413. $selfienpc = 'yeva'
  414. loopmax = 0
  415. loopmaxsveta = 0
  416. loopmaxsex = 0
  417. elseif numnpc = 136:
  418. '<center><h4><font color="maroon">Olga selfies</font></h4></center>'
  419. $imgloc = 'images/characters/pavlovsk/school/teacher/olga/selfies/'
  420. $selfienpc = 'olga'
  421. loopmax = 0
  422. loopmaxsveta = 0
  423. loopmaxsex = 0
  424. elseif numnpc = 137:
  425. '<center><h4><font color="maroon">Raven selfies</font></h4></center>'
  426. $imgloc = 'images/characters/pavlovsk/school/teacher/raven/selfies/'
  427. $selfienpc = 'raven'
  428. loopmax = 0
  429. loopmaxsveta = 0
  430. loopmaxsex = 0
  431. elseif numnpc = 138:
  432. '<center><h4><font color="maroon">Arina selfies</font></h4></center>'
  433. $imgloc = 'images/characters/pavlovsk/school/teacher/arina/selfies/'
  434. $selfienpc = 'arina'
  435. loopmax = 0
  436. loopmaxsveta = 0
  437. loopmaxsex = 0
  438. elseif numnpc = 139:
  439. '<center><h4><font color="maroon">Stasya selfies</font></h4></center>'
  440. $imgloc = 'images/characters/pavlovsk/school/boy/stasya/selfies/'
  441. $selfienpc = 'stasya'
  442. loopmax = 0
  443. loopmaxsveta = 0
  444. loopmaxsex = 0
  445. elseif numnpc = 140:
  446. '<center><h4><font color="maroon">Lizaveta selfies</font></h4></center>'
  447. $imgloc = 'images/characters/pavlovsk/school/boy/lizaveta/selfies/'
  448. $selfienpc = 'lizaveta'
  449. loopmax = 0
  450. loopmaxsveta = 0
  451. loopmaxsex = 0
  452. elseif numnpc = 141:
  453. '<center><h4><font color="maroon">Veronika selfies</font></h4></center>'
  454. $imgloc = 'images/characters/pavlovsk/school/boy/veronika/selfies/'
  455. $selfienpc = 'veronika'
  456. loopmax = 0
  457. loopmaxsveta = 0
  458. loopmaxsex = 0
  459. elseif numnpc = 142:
  460. '<center><h4><font color="maroon">Zinaida selfies</font></h4></center>'
  461. $imgloc = 'images/characters/pavlovsk/school/boy/zinaida/selfies/'
  462. $selfienpc = 'zinaida'
  463. loopmax = 0
  464. loopmaxsveta = 0
  465. loopmaxsex = 0
  466. elseif numnpc = 143:
  467. '<center><h4><font color="maroon">Alyona selfies</font></h4></center>'
  468. $imgloc = 'images/characters/pavlovsk/school/boy/alyona/selfies/'
  469. $selfienpc = 'alyona'
  470. loopmax = 0
  471. loopmaxsveta = 0
  472. loopmaxsex = 0
  473. elseif numnpc = 144:
  474. '<center><h4><font color="maroon">Anushka selfies</font></h4></center>'
  475. $imgloc = 'images/characters/pavlovsk/school/girl/anushka/selfies/'
  476. $selfienpc = 'anushka'
  477. loopmax = 22
  478. loopmaxsveta = 0
  479. loopmaxsex = 7
  480. elseif numnpc = 145:
  481. '<center><h4><font color="maroon">Ekaterina selfies</font></h4></center>'
  482. $imgloc = 'images/characters/pavlovsk/school/boy/ekaterina/selfies/'
  483. $selfienpc = 'ekaterina'
  484. loopmax = 0
  485. loopmaxsveta = 0
  486. loopmaxsex = 0
  487. elseif numnpc = 146:
  488. '<center><h4><font color="maroon">Marcus selfies</font></h4></center>'
  489. $imgloc = 'images/characters/pavlovsk/school/boy/marcus/selfies/'
  490. $selfienpc = 'marcus'
  491. loopmax = 0
  492. loopmaxsveta = 0
  493. loopmaxsex = 0
  494. elseif numnpc = 147:
  495. '<center><h4><font color="maroon">Andrey selfies</font></h4></center>'
  496. $imgloc = 'images/characters/pavlovsk/school/boy/andrey/selfies/'
  497. $selfienpc = 'andrey'
  498. loopmax = 0
  499. loopmaxsveta = 0
  500. loopmaxsex = 0
  501. elseif numnpc = 148:
  502. '<center><h4><font color="maroon">Mefodiy selfies</font></h4></center>'
  503. $imgloc = 'images/characters/pavlovsk/school/boy/mefodiy/selfies/'
  504. $selfienpc = 'mefodiy'
  505. loopmax = 0
  506. loopmaxsveta = 0
  507. loopmaxsex = 0
  508. elseif numnpc = 149:
  509. '<center><h4><font color="maroon">Lazar selfies</font></h4></center>'
  510. $imgloc = 'images/characters/pavlovsk/school/boy/lazar/selfies/'
  511. $selfienpc = 'lazar'
  512. loopmax = 0
  513. loopmaxsveta = 0
  514. loopmaxsex = 0
  515. elseif numnpc = 150:
  516. '<center><h4><font color="maroon">Erast selfies</font></h4></center>'
  517. $imgloc = 'images/characters/pavlovsk/school/boy/erast/selfies/'
  518. $selfienpc = 'erast'
  519. loopmax = 0
  520. loopmaxsveta = 0
  521. loopmaxsex = 0
  522. elseif numnpc = 151:
  523. '<center><h4><font color="maroon">Evgeny selfies</font></h4></center>'
  524. $imgloc = 'images/characters/pavlovsk/school/boy/evgeny/selfies/'
  525. $selfienpc = 'evgeny'
  526. loopmax = 0
  527. loopmaxsveta = 0
  528. loopmaxsex = 0
  529. elseif numnpc = 152:
  530. '<center><h4><font color="maroon">Feofan selfies</font></h4></center>'
  531. $imgloc = 'images/characters/pavlovsk/school/boy/feofan/selfies/'
  532. $selfienpc = 'feofan'
  533. loopmax = 0
  534. loopmaxsveta = 0
  535. loopmaxsex = 0
  536. elseif numnpc = 153:
  537. '<center><h4><font color="maroon">Gerasim selfies</font></h4></center>'
  538. $imgloc = 'images/characters/pavlovsk/school/boy/gerasim/selfies/'
  539. $selfienpc = 'gerasim'
  540. loopmax = 0
  541. loopmaxsveta = 0
  542. loopmaxsex = 0
  543. elseif numnpc = 154:
  544. '<center><h4><font color="maroon">Radomir selfies</font></h4></center>'
  545. $imgloc = 'images/characters/pavlovsk/school/boy/radomir/selfies/'
  546. $selfienpc = 'radomir'
  547. loopmax = 0
  548. loopmaxsveta = 0
  549. loopmaxsex = 0
  550. elseif numnpc = 155:
  551. '<center><h4><font color="maroon">Lavrenti selfies</font></h4></center>'
  552. $imgloc = 'images/characters/pavlovsk/school/boy/lavrenti/selfies/'
  553. $selfienpc = 'lavrenti'
  554. loopmax = 0
  555. loopmaxsveta = 0
  556. loopmaxsex = 0
  557. elseif numnpc = 156:
  558. '<center><h4><font color="maroon">Arkadi selfies</font></h4></center>'
  559. $imgloc = 'images/characters/pavlovsk/school/boy/arkadi/selfies/'
  560. $selfienpc = 'arkadi'
  561. loopmax = 0
  562. loopmaxsveta = 0
  563. loopmaxsex = 0
  564. elseif numnpc = 157:
  565. '<center><h4><font color="maroon">Roman selfies</font></h4></center>'
  566. $imgloc = 'images/characters/pavlovsk/school/boy/roman/selfies/'
  567. $selfienpc = 'roman'
  568. loopmax = 0
  569. loopmaxsveta = 0
  570. loopmaxsex = 0
  571. elseif numnpc = 158:
  572. '<center><h4><font color="maroon">Valentin selfies</font></h4></center>'
  573. $imgloc = 'images/characters/pavlovsk/school/boy/valentin/selfies/'
  574. $selfienpc = 'valentin'
  575. loopmax = 0
  576. loopmaxsveta = 0
  577. loopmaxsex = 0
  578. elseif numnpc = 159:
  579. '<center><h4><font color="maroon">Petia selfies</font></h4></center>'
  580. $imgloc = 'images/characters/pavlovsk/school/boy/petia/selfies/'
  581. $selfienpc = 'petia'
  582. loopmax = 0
  583. loopmaxsveta = 0
  584. loopmaxsex = 0
  585. elseif numnpc = 165:
  586. '<center><h4><font color="maroon">Vanya selfies</font></h4></center>'
  587. $imgloc = 'images/characters/pavlovsk/school/boy/vanya/selfies/'
  588. $selfienpc = 'vanya'
  589. loopmax = 0
  590. loopmaxsveta = 0
  591. loopmaxsex = 0
  592. elseif numnpc = 189:
  593. '<center><h4><font color="maroon">Nikolai selfies</font></h4></center>'
  594. $imgloc = 'images/characters/pavlovsk/school/boy/nikolai/selfies/'
  595. $selfienpc = 'nikolai'
  596. loopmax = 0
  597. loopmaxsveta = 0
  598. loopmaxsex = 0
  599. else
  600. !! New npcs with selfies should be included above
  601. end
  602. if loopmax > 0:
  603. *nl
  604. '<center><b>Regular selfies</b></center>'
  605. *nl
  606. i = 1
  607. :temp_loopselfies
  608. dynamic '$selfie = <<$selfienpc>>[<<i>>]'
  609. if $selfie = 1: *p '<a href="exec:view''<<$imgloc>><<i>>.jpg''"><img src="<<$imgloc>><<i>>.jpg" height="150" /></a> '
  610. i += 1
  611. if i <= loopmax: jump'temp_loopselfies'
  612. end
  613. if loopmaxsveta > 0:
  614. *nl
  615. '<center><b>Selfies with me</b></center>'
  616. *nl
  617. i = 1
  618. :temp_loopselfiessveta
  619. dynamic '$selfie = <<$selfienpc>>sveta[<<i>>]'
  620. if $selfie = 1: *p '<a href="exec:view''<<$imgloc>>sveta/<<i>>.jpg''"><img src="<<$imgloc>>sveta/<<i>>.jpg" height="150" /></a> '
  621. i += 1
  622. if i <= loopmaxsveta: jump'temp_loopselfiessveta'
  623. end
  624. if loopmaxsex > 0:
  625. *nl
  626. '<center><b>Sex selfies</b></center>'
  627. *nl
  628. i = 1
  629. :temp_loopselfiessex
  630. dynamic '$selfie = <<$selfienpc>>sex[<<i>>]'
  631. if $selfie = 1: *p '<a href="exec:view''<<$imgloc>>sex/<<i>>.jpg''"><img src="<<$imgloc>>sex/<<i>>.jpg" height="150" /></a> '
  632. i += 1
  633. if i <= loopmaxsex: jump'temp_loopselfiessex'
  634. end
  635. act 'Back': gt 'phone_selfies', 'selfies'
  636. !gt $loc, $metka
  637. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  638. end
  639. if $ARGS[0] = 'bathroom':
  640. '<center><h4><font color="maroon">Bathroom selfies</font></h4></center>'
  641. $phone_loc = 'bathroom'
  642. gs 'telefon', 'Phone_selfie_totals'
  643. bathvar = 1
  644. showervar = 1
  645. *nl
  646. gs 'phone_selfies', 'listretrieve'
  647. act 'Back': gt 'phone_selfies', 'selfies'
  648. !gt $loc, $metka
  649. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  650. end
  651. if $ARGS[0] = 'bedroom':
  652. '<center><h4><font color="maroon">Bedroom selfies</font></h4></center>'
  653. $phone_loc = 'bedroom'
  654. *nl
  655. gs 'phone_selfies', 'listretrieve'
  656. act 'Back': gt 'phone_selfies', 'selfies'
  657. !gt $loc, $metka
  658. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  659. end
  660. if $ARGS[0] = 'kitchen':
  661. '<center><h4><font color="maroon">Kitchen selfies</font></h4></center>'
  662. $phone_loc = 'kitchen'
  663. *nl
  664. gs 'phone_selfies', 'listretrieve'
  665. act 'Back': gt 'phone_selfies', 'selfies'
  666. !gt $loc, $metka
  667. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  668. end
  669. if $ARGS[0] = 'livingroom':
  670. '<center><h4><font color="maroon">Livingroom selfies</font></h4></center>'
  671. $phone_loc = 'livingroom'
  672. *nl
  673. gs 'phone_selfies', 'listretrieve'
  674. act 'Back': gt 'phone_selfies', 'selfies'
  675. !gt $loc, $metka
  676. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  677. end
  678. if $ARGS[0] = 'changingroom':
  679. '<center><h4><font color="maroon">Changingroom selfies</font></h4></center>'
  680. $phone_loc = 'changingroom'
  681. *nl
  682. gs 'phone_selfies', 'listretrieve'
  683. act 'Back': gt 'phone_selfies', 'selfies'
  684. !gt $loc, $metka
  685. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  686. end
  687. if $ARGS[0] = 'park':
  688. '<center><h4><font color="maroon">Park selfies</font></h4></center>'
  689. $phone_loc = 'park'
  690. *nl
  691. gs 'phone_selfies', 'listretrieve'
  692. act 'Back': gt 'phone_selfies', 'selfies'
  693. !gt $loc, $metka
  694. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  695. end
  696. if $ARGS[0] = 'lockerroom':
  697. '<center><h4><font color="maroon">Lockerroom selfies</font></h4></center>'
  698. $phone_loc = 'lockerroom'
  699. *nl
  700. gs 'phone_selfies', 'listretrieve'
  701. act 'Back': gt 'phone_selfies', 'selfies'
  702. !gt $loc, $metka
  703. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  704. end
  705. if $ARGS[0] = 'beach':
  706. '<center><h4><font color="maroon">Beach selfies</font></h4></center>'
  707. $phone_loc = 'beach'
  708. clovar = 0
  709. $undname = 'bikini'
  710. $undnamecap = 'Bikini'
  711. *nl
  712. gs 'phone_selfies', 'listretrieve'
  713. act 'Back': gt 'phone_selfies', 'selfies'
  714. !gt $loc, $metka
  715. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  716. end
  717. if $ARGS[0] = 'gym':
  718. '<center><h4><font color="maroon">Gym selfies</font></h4></center>'
  719. $phone_loc = 'gym'
  720. *nl
  721. gs 'phone_selfies', 'listretrieve'
  722. act 'Back': gt 'phone_selfies', 'selfies'
  723. !gt $loc, $metka
  724. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  725. end
  726. if $ARGS[0] = 'dance':
  727. '<center><h4><font color="maroon">Dance selfies</font></h4></center>'
  728. $phone_loc = 'dance'
  729. undvar = 0
  730. nudvar = 0
  731. *nl
  732. gs 'phone_selfies', 'listretrieve'
  733. act 'Back': gt 'phone_selfies', 'selfies'
  734. !gt $loc, $metka
  735. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  736. end
  737. if $ARGS[0] = 'misc':
  738. '<center><h4><font color="maroon">Misc selfies</font></h4></center>'
  739. $phone_loc = 'dance'
  740. undvar = 0
  741. nudvar = 0
  742. *nl
  743. gs 'phone_selfies', 'listretrieve'
  744. act 'Back': gt 'phone_selfies', 'selfies'
  745. !gt $loc, $metka
  746. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  747. end
  748. if $ARGS[0] = 'family':
  749. '<center><h4><font color="maroon">Family members</font></h4></center>'
  750. $textgrup = ''
  751. count1 = 0
  752. i = 1
  753. '<center><table cellspacing="3">'
  754. :familygruploop
  755. if count1 = 6 : $textgrup += '<tr>'
  756. if npc_grupTipe['A<<i>>'] = 7 and npc_selfieon['A<<i>>'] = 1:
  757. count1 += 1
  758. $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
  759. end
  760. if count1< 6 and npc_grupTipe['A<<i>>'] = 7:
  761. $textgrup += '</td>'
  762. elseif count1 = 6 and npc_grupTipe['A<<i>>'] = 7:
  763. $textgrup +='</td></tr><tr>' & count1 = 0
  764. end
  765. i += 1
  766. if i <= aarraynumber:jump 'familygruploop'
  767. '<<$textgrup>>'
  768. act 'Back': gt 'phone_selfies', 'selfies'
  769. !gt $loc, $metka
  770. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  771. end
  772. if $ARGS[0] = 'school':
  773. '<center><h4><font color="maroon">School friends</font></h4></center>'
  774. $textgrup = ''
  775. count1 = 0
  776. i = 1
  777. '<center><table cellspacing="3">'
  778. :schoolgruploop
  779. if count1 = 6 : $textgrup += '<tr>'
  780. if (npc_grupTipe['A<<i>>'] = 1 or npc_grupTipe['A<<i>>'] = 2 or npc_grupTipe['A<<i>>'] = 3 or npc_grupTipe['A<<i>>'] = 4 or npc_grupTipe['A<<i>>'] = 5) and npc_selfieon['A<<i>>'] = 1:
  781. count1 += 1
  782. $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
  783. end
  784. if count1< 6 and (npc_grupTipe['A<<i>>'] = 1 or npc_grupTipe['A<<i>>'] = 2 or npc_grupTipe['A<<i>>'] = 3 or npc_grupTipe['A<<i>>'] = 4 or npc_grupTipe['A<<i>>'] = 5):
  785. $textgrup += '</td>'
  786. elseif count1 = 6 and (npc_grupTipe['A<<i>>'] = 1 or npc_grupTipe['A<<i>>'] = 2 or npc_grupTipe['A<<i>>'] = 3 or npc_grupTipe['A<<i>>'] = 4 or npc_grupTipe['A<<i>>'] = 5):
  787. $textgrup +='</td></tr><tr>' & count1 = 0
  788. end
  789. i += 1
  790. if i <= aarraynumber:jump 'schoolgruploop'
  791. '<<$textgrup>>'
  792. act 'Back': gt 'phone_selfies', 'selfies'
  793. !gt $loc, $metka
  794. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  795. end
  796. if $ARGS[0] = 'teacher':
  797. '<center><h4><font color="maroon">Teachers</font></h4></center>'
  798. $textgrup = ''
  799. count1 = 0
  800. i = 1
  801. '<center><table cellspacing="3">'
  802. :teachergruploop
  803. if count1 = 6 : $textgrup += '<tr>'
  804. if npc_grupTipe['A<<i>>'] = 6 and npc_selfieon['A<<i>>'] = 1:
  805. count1 += 1
  806. $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
  807. end
  808. if count1< 6 and npc_grupTipe['A<<i>>'] = 6:
  809. $textgrup += '</td>'
  810. elseif count1 = 6 and npc_grupTipe['A<<i>>'] = 6:
  811. $textgrup +='</td></tr><tr>' & count1 = 0
  812. end
  813. i += 1
  814. if i <= aarraynumber:jump 'teachergruploop'
  815. '<<$textgrup>>'
  816. act 'Back': gt 'phone_selfies', 'selfies'
  817. !gt $loc, $metka
  818. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  819. end
  820. if $ARGS[0] = 'pavlovsk':
  821. '<center><h4><font color="maroon">Pavlovsk friends</font></h4></center>'
  822. $textgrup = ''
  823. count1 = 0
  824. i = 1
  825. '<center><table cellspacing="3">'
  826. :pavgruploop
  827. if count1 = 6 : $textgrup += '<tr>'
  828. if npc_grupTipe['A<<i>>'] = 8 and npc_selfieon['A<<i>>'] = 1:
  829. count1 += 1
  830. $textgrup += '' + '<td bgcolor=<<$bcolor2>> align="center"><img height="100" src="images/pc/npc_headshots/<<i>>.jpg"><br>' + $npc_selfie['A<<i>>']
  831. end
  832. if count1< 6 and npc_grupTipe['A<<i>>'] = 8:
  833. $textgrup += '</td>'
  834. elseif count1 = 6 and npc_grupTipe['A<<i>>'] = 8:
  835. $textgrup +='</td></tr><tr>' & count1 = 0
  836. end
  837. i += 1
  838. if i <= aarraynumber:jump 'pavgruploop'
  839. '<<$textgrup>>'
  840. act 'Back': gt 'phone_selfies', 'selfies'
  841. !gt $loc, $metka
  842. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  843. end
  844. if $ARGS[0] = 'city':
  845. '<center><h4><font color="maroon">City friends</font></h4></center>'
  846. act 'Back': gt 'phone_selfies', 'selfies'
  847. !gt $loc, $metka
  848. act 'Stop watching selfies': gt '<<$menu_loc>>', '<<$menu_arg>>'
  849. end
  850. --- phone_selfies ---------------------------------