fight.qsrc 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640
  1. # fight
  2. !! Variables to be set before fight - in brackets so you can copy/paste
  3. !!{
  4. $opp_name[0] = <<name of opponent>>
  5. $opp_image[0] = opponent image ie. '<img <<$set_imgh>> src="images/characters/city/tobi/tobi.jpg">'
  6. opp_def[0] = opponent defence
  7. opp_run[0] = Opponent running skill used for player escape
  8. opp_wrstlng[0] = Wrestling skill
  9. opp_kick[0] = Kicking
  10. opp_punch[0] = Power punch
  11. opp_jab[0] = Ligth punch
  12. opp_stren[0] = Strengh
  13. opp_agil[0] = Agility
  14. opp_vital[0] = vitality
  15. opp_react[0] = Reactions
  16. opp_health[0] = Health
  17. opp_willpwr[0] = willpower
  18. opp_shoot[0] = opponent marksmanship (only required if they are armed)
  19. opp_magik[0] = only if they have magic
  20. opp_mana[0] = only if they have magic
  21. opp_fog[0] = (tuman): Obscures vision, makes hitting harder.
  22. opp_clone[0] = (klon): Copies of the char that absorb 1 hit and disappear. A char may have some number of them.
  23. opp_shield[0] = (defence): Shielding that absorbs damage before hitpoints.
  24. opp_dambonus[0] = (magweapbonus): damage added to melee attacks
  25. opp_init[0] = (initBonus): attack faster/first
  26. opp_stun[0] = (stunner): make target unable to act for some amount of time
  27. }
  28. !! Use the above with [1] and [2] for extra opponents
  29. !! Use pcs_ prefix for Sveta and add [1] and [2] for allies. ie. $pcs_name[1] = 'Reinhold'
  30. if $ARGS[0] = 'initFight':
  31. !! Clear Opponents from previous battle
  32. killvar '$opp_name'
  33. killvar '$opp_image'
  34. killvar 'opp_def'
  35. killvar 'opp_run'
  36. killvar 'opp_wrstlng'
  37. killvar 'opp_kick'
  38. killvar 'opp_punch'
  39. killvar 'opp_jab'
  40. killvar 'opp_stren'
  41. killvar 'opp_agil'
  42. killvar 'opp_vital'
  43. killvar 'opp_react'
  44. killvar 'opp_health'
  45. killvar 'opp_willpwr'
  46. killvar 'opp_shoot'
  47. killvar 'opp_magik'
  48. killvar 'opp_mana'
  49. killvar 'opp_fog'
  50. killvar 'opp_clone'
  51. killvar 'opp_shield'
  52. killvar 'opp_dambonus'
  53. killvar 'opp_init'
  54. killvar 'opp_stun'
  55. killvar 'opp_timer'
  56. !! Clear any allies from previous battle
  57. i = arrsize('pcs_health')
  58. :ClearAllyLoop
  59. if i > 1:
  60. gs 'fight', 'clearPCSArray', i-1
  61. i -= 1
  62. jump 'ClearAllyLoop'
  63. end
  64. killvar 'i'
  65. !! Initialize $pcs_name for Sveta
  66. $pcs_name[0] = 'You'
  67. $pcs_image[0] = FUNC('$face_image')
  68. end
  69. if $ARGS[0] = 'clearPCSArray':
  70. !{ Delete an Ally from the pcs data arrays
  71. ARGS[1] = Which ally slot tot delete
  72. }
  73. i = ARGS[1]
  74. killvar '$pcs_name', i
  75. killvar '$pcs_image', i
  76. killvar 'pcs_def', i
  77. killvar 'pcs_run', i
  78. killvar 'pcs_wrstlng', i
  79. killvar 'pcs_kick', i
  80. killvar 'pcs_punch', i
  81. killvar 'pcs_jab', i
  82. killvar 'pcs_stren', i
  83. killvar 'pcs_agil', i
  84. killvar 'pcs_vital', i
  85. killvar 'pcs_react', i
  86. killvar 'pcs_health', i
  87. killvar 'pcs_willpwr', i
  88. killvar 'pcs_shoot', i
  89. killvar 'pcs_magik', i
  90. killvar 'pcs_mana', i
  91. killvar 'pcs_fog', i
  92. killvar 'pcs_clone', i
  93. killvar 'pcs_shield', i
  94. killvar 'pcs_dambonus', i
  95. killvar 'pcs_init', i
  96. killvar 'pcs_stun', i
  97. killvar 'pcs_timer', i
  98. killvar 'i'
  99. end
  100. if $ARGS[0] = 'randomOpp':
  101. !{ Generate a random Opponent
  102. ARGS[1] = Optional, raise difficulty of the attacker, 0 - 50
  103. }
  104. OppDiffBonus = ARGS[1]
  105. i = arrsize('opp_health')
  106. $opp_name[i] = 'Opponent 1'
  107. $opp_image[i] = 'images/locations/shared/street/mugger.jpg'
  108. opp_def[i] = rand(1,50) + OppDiffBonus
  109. opp_run[i] = rand(1,50) + OppDiffBonus
  110. opp_wrstlng[i] = rand(1,50) + OppDiffBonus
  111. opp_kick[i] = rand(1,50) + OppDiffBonus
  112. opp_punch[i] = rand(1,50) + OppDiffBonus
  113. opp_jab[i] = rand(1,50) + OppDiffBonus
  114. opp_stren[i] = rand(1,50) + OppDiffBonus
  115. opp_agil[i] = rand(1,50) + OppDiffBonus
  116. opp_vital[i] = rand(1,50) + OppDiffBonus
  117. opp_health[i] = (opp_vital * 10 + opp_stren * 5)
  118. opp_react[i] = rand(1,50) + OppDiffBonus
  119. opp_willpwr[i] = rand(1,50) + OppDiffBonus
  120. opp_shoot[i] = rand(1,50) + OppDiffBonus
  121. killvar 'OppDiffBonus'
  122. killvar 'i'
  123. end
  124. if $ARGS[0] = 'applyDamage':
  125. !{ Apply Damage to a participant taking into account clones and shields
  126. $ARGS[1] = Target Type ('opp','pcs')
  127. ARGS[2] = Target number
  128. ARGS[3] = damage to be applied
  129. }
  130. $fightAppDam['TargetType'] = $ARGS[1]
  131. fightAppDam['TargetNumber'] = ARGS[2]
  132. fightAppDam['Damage'] = ARGS[3]
  133. dynamic "
  134. !!If the target has clones, destroy one
  135. if <<$fightAppDam['TargetType']>>_clone[<<fightAppDam['TargetNumber']>>] > 0:
  136. <<$fightAppDam['TargetType']>>_clone[<<fightAppDam['TargetNumber']>>] -= 1
  137. 'Clone Destroyed!'
  138. !!if the target has enough shields to mitigate, remove some shields
  139. elseif <<$fightAppDam['TargetType']>>_shield[<<fightAppDam['TargetNumber']>>] >= fightAppDam['Damage']:
  140. <<$fightAppDam['TargetType']>>_shield[<<fightAppDam['TargetNumber']>>] -= fightAppDam['Damage']
  141. !!otherwise remove shields to 0 and the remainder comes from health
  142. else
  143. <<$fightAppDam['TargetType']>>_health -= (fightAppDam['Damage'] - <<$fightAppDam['TargetType']>>_shield[<<fightAppDam['TargetNumber']>>])
  144. <<$fightAppDam['TargetType']>>_shield[<<fightAppDam['TargetNumber']>>] = 0
  145. end"
  146. killvar '$fightAppDam'
  147. killvar 'fightAppDam'
  148. end
  149. if $ARGS[0] = 'start':
  150. menu_off = 1
  151. inFight = 1
  152. gs 'themes', 'indoors'
  153. cla
  154. if arrsize('pcs_health') > arrsize('opp_health'):
  155. tableSize = arrsize('pcs_health')
  156. else
  157. tableSize = arrsize('opp_health')
  158. end
  159. $HTMLText = '<table>
  160. <tr>
  161. <th align="left">Allies</left></td>
  162. <th align="center" valign="center" rowspan=<<tableSize*2+1>> >vs.</center></td>
  163. <th align="right">Opponents</right></td>
  164. </tr>'
  165. i = 0
  166. :FightPoster
  167. if i < tableSize:
  168. $HTMLText += '
  169. <tr>
  170. <td align="left"><img HEIGHT=400 src="<<$pcs_image[i]>>"></left></td>
  171. <td align="right"><img HEIGHT=400 src="<<$opp_image[i]>>"></right></td>
  172. </tr>
  173. <tr>
  174. <td align="left"><<$pcs_name[i]>></left></td>
  175. <td align="right"><<$opp_name[i]>></right></td>
  176. </tr>'
  177. i += 1
  178. jump 'FightPoster'
  179. end
  180. $HTMLText += '</table>'
  181. *pl func('cleanHTML',$HTMLText)
  182. i=0
  183. :PCSTimerInit
  184. if i < arrsize('pcs_health'):
  185. pcs_timer[i] = 100 - pcs_react[i]
  186. i +=1
  187. jump 'PCSTimerInit'
  188. end
  189. i=0
  190. :OppTimerInit
  191. if i < arrsize('opp_health'):
  192. opp_timer[i] = 100 - opp_react[i]
  193. i +=1
  194. jump 'OppTimerInit'
  195. end
  196. act 'Engage': gt 'fight', 'main'
  197. killvar '$HTMLText'
  198. killvar 'tableSize'
  199. killvar 'i'
  200. end
  201. if $ARGS[0] = 'findActiveTimer':
  202. !! Find the participant with the lowest Timer
  203. ! These values are passed back via two global variables.
  204. !
  205. ! $fightTimType = 'player' or 'opponent' depending on which group has the lowest member
  206. ! fightTimNum = the array number of the lowest participant
  207. $fightTimType = 'player'
  208. fightTimNum = 0
  209. !! set this to high so that everyone will be lower.
  210. fightTimLow = 99999
  211. !! Find lowest of pcs participants
  212. i = 0
  213. :LowTimerLoop1
  214. if i < arrsize('pcs_timer'):
  215. if pcs_timer[i] < fightTimLow:
  216. fightTimLow = pcs_timer[i]
  217. fightTimNum = i
  218. end
  219. i += 1
  220. jump 'LowTimerLoop1'
  221. end
  222. !!Find if any Opponents have lower than best PCS
  223. i = 0
  224. :LowTimerLoop2
  225. if i < arrsize('opp_timer'):
  226. if opp_timer[i] < fightTimLow:
  227. fightTimLow = opp_timer[i]
  228. fightTimNum = i
  229. $fightTimType = 'opponent'
  230. end
  231. i += 1
  232. jump 'LowTimerLoop2'
  233. end
  234. killvar 'i'
  235. end
  236. if $ARGS[0] = 'main':
  237. gs 'fight', 'result_check'
  238. gs 'fight', 'findActiveTimer'
  239. gt 'fight', $fightTimType, fightTimNum
  240. end
  241. if $ARGS[0] = 'printStats':
  242. !{ Print the stats for a character
  243. $ARGS[1] = The Type of char ('opp','pcs')
  244. ARGS[2] = The member of the party
  245. }
  246. $fightPStats['CharType'] = $ARGS[1]
  247. i = ARGS[2]
  248. if $fightPStats['CharType'] = 'opp':
  249. $fightPStats['Name'] = $opp_name[i]
  250. fightPStats['Health'] = opp_health[i]
  251. fightPStats['Mana'] = opp_mana[i]
  252. fightPStats['Willpower'] = opp_willpwr[i]
  253. fightPStats['Shield'] = opp_shield[i]
  254. fightPStats['Fog'] = opp_fog[i]
  255. fightPStats['Clone'] = opp_clone[i]
  256. else
  257. $fightPStats['Name'] = $pcs_name[i]
  258. fightPStats['Health'] = pcs_health[i]
  259. fightPStats['Mana'] = pcs_mana[i]
  260. fightPStats['Willpower'] = pcs_willpwr[i]
  261. fightPStats['Shield'] = pcs_shield[i]
  262. fightPStats['Fog'] = pcs_fog[i]
  263. fightPStats['Clone'] = pcs_clone[i]
  264. end
  265. '<b><<$fightPStats["Name"]>></b> life <b><font color = red><<fightPStats["Health"]>></font></b>, mana <b><font color = blue><<fightPStats["Mana"]>></font></b>, willpower <b><font color = green><<fightPStats["Willpower"]>></font></b>'
  266. if fightPStats['Shield'] > 0:'<b><font color = red>Protection <<fightPStats["Shield"]>> units</font></b>'
  267. if fightPStats['Clone'] > 0:'<b><font color = red>Clones active <<fightPStats["Clone"]>> </font></b>'
  268. if fightPStats['Fog'] > 0:'<b><font color = red>Obscuring Fog <<fightPStats["Fog"]>> units</font></b>'
  269. '<b>= = = = = = = = = = = = = = = = = = = = = = = = = = = = =</b>'
  270. killvar 'i'
  271. killvar 'fightPStats'
  272. killvar '$fightPStats'
  273. end
  274. if $ARGS[0] = 'statDisplay':
  275. '<b>= = = = = = = = = = = O p p o n e n t s = = = = = = = = = = =</b>'
  276. i = 0
  277. :OppLoopRC1
  278. if i < arrsize('opp_health'):
  279. gs 'fight', 'printStats', 'opp', i
  280. i += 1
  281. jump 'OppLoopRC1'
  282. end
  283. *nl
  284. '<b>= = = = = = = = = = = = A l l i e s = = = = = = = = = = = = =</b>'
  285. i = 0
  286. :PCSLoopRC1
  287. if i < arrsize('pcs_health'):
  288. gs 'fight', 'printStats', 'pcs', i
  289. i += 1
  290. jump 'PCSLoopRC1'
  291. end
  292. end
  293. if $ARGS[0] = 'result_check':
  294. !!cheat to auto-win fights check
  295. if fight_cheat = 1:
  296. xgt 'ender', 'win'
  297. gt $loc, $metka
  298. exit
  299. end
  300. !!win/lose conditions
  301. if pcs_health <= 0:
  302. '<b><font color = red> You lost!</font></b>'
  303. xgt'ender','loss'
  304. gt $loc, $metka
  305. exit
  306. elseif opp_health[0] <= 0:
  307. '<b><font color = green><<$boydesc>> You won!</font></b>'
  308. xgt'ender','win'
  309. gt $loc, $metka
  310. exit
  311. elseif pcs_willpwr <= 0:
  312. '<b><font color = red> You cannot summon the will to fight!</font></b>'
  313. xgt'ender','loss'
  314. gt $loc, $metka
  315. exit
  316. end
  317. !gt 'fight', 'main'
  318. killvar 'i'
  319. end
  320. !! Kick
  321. $AttackType[0] = 'Kick'
  322. $AttackSkill[0] = 'kick'
  323. AttackMin[0] = 5
  324. AttackMax[0] = 8
  325. AttackTime[0] = 40
  326. !! Hard Punch
  327. $AttackType[1] = 'Hard Punch'
  328. $AttackSkill[1] = 'punch'
  329. AttackMin[1] = 4
  330. AttackMax[1] = 6
  331. AttackTime[1] = 30
  332. !! Jab
  333. $AttackType[2] = 'Jab'
  334. $AttackSkill[2] = 'jab'
  335. AttackMin[2] = 2
  336. AttackMax[2] = 3
  337. AttackTime[2] = 15
  338. !!{Attack a target
  339. $ARGS[0] = Attack Type
  340. $ARGS[1] = Target Type
  341. ARGS[2] = Which target
  342. ARGS[3] = Which Attacker
  343. }
  344. if $ARGS[0] = 'Attack':
  345. $fightAtk_Type = $ARGS[1]
  346. $fightAtk_TargetType = $ARGS[2]
  347. fightAtk_TargetNumber = ARGS[3]
  348. fightAtk_AttackerNumber = ARGS[4]
  349. if $fightAtk_TargetType = 'opp' and fightAtk_AttackerNumber = 0:
  350. $fightAtk_AttackerType = 'pcs'
  351. $fightAtk['DefenderName'] = $opp_name[fightAtk_TargetNumber]
  352. $fightAtk['AttackerName'] = 'You'
  353. elseif $fightAtk_TargetType = 'opp':
  354. $fightAtk['AttackerName'] = $pcs_name[fightAtk_AttackerNumber]
  355. $fightAtk['DefenderName'] = $opp_name[fightAtk_TargetNumber]
  356. $fightAtk_AttackerType = 'pcs'
  357. else
  358. $fightAtk_AttackerType = 'opp'
  359. $fightAtk['AttackerName'] = $opp_name[fightAtk_AttackerNumber]
  360. $fightAtk['DefenderName'] = $pcs_name[fightAtk_TargetNumber]
  361. end
  362. fightAtk_Type = arrpos('$AttackType',$fightAtk_Type)
  363. fightAtk['AttackerSkillValue'] = dyneval('result = <<$fightAtk_AttackerType>>_<<$AttackSkill[fightAtk_Type]>>[<<fightAtk_AttackerNumber>>]')
  364. fightAtk['TargetReactValue'] = dyneval('result = <<$fightAtk_TargetType>>_react[<<fightAtk_TargetNumber>>]')
  365. fightAtk['TargetAgilValue'] = dyneval('result = <<$fightAtk_TargetType>>_agil[<<fightAtk_TargetNumber>>]')
  366. fightAtk['MinDamage'] = AttackMin[fightAtk_Type]
  367. fightAtk['MaxDamage'] = AttackMax[fightAtk_Type]
  368. if $fightAtk_TargetType = 'opp' and fightAtk_AttackerNumber = 0:
  369. 'You attempt to <<$fightAtk_Type>> <<$fightAtk["DefenderName"]>>!'
  370. else
  371. '<<$fightAtk["AttackerName"]>> attempts to <<$fightAtk_Type>> <<$fightAtk["DefenderName"]>>!'
  372. end
  373. *nl
  374. if fightAtk['AttackerSkillValue'] + rand(0,30) > fightAtk['TargetReactValue'] / 4 + 3 * fightAtk['TargetAgilValue'] / 4:
  375. !!Calculate Damage
  376. dynamic "fightAtk['Damage'] = <<$fightAtk_AttackerType>>_stren[<<fightAtk_AttackerNumber>>] * rand(<<fightAtk['MinDamage']>>,<<fightAtk['MaxDamage']>>) / 15"
  377. !!Apply Damage
  378. gs 'fight', 'applyDamage', $fightAtk_TargetType, fightAtk_TargetNumber, fightAtk['Damage']
  379. if fightAtk['Damage'] > 10:
  380. if $fightAtk_TargetType = 'opp' and fightAtk_AttackerNumber = 0:
  381. 'The hit is hard and <<$fightAtk["DefenderName"]>> reels in pain.'
  382. else
  383. 'The hit is hard and you reel in pain.'
  384. end
  385. else
  386. 'Its a glancing blow, but still hurts.'
  387. end
  388. else
  389. if $fightAtk_TargetType = 'pcs' and fightAtk_AttackerNumber = 0:
  390. 'You avoid the blow.'
  391. else
  392. '<<$fightAtk["DefenderName"]>> avoids the blow.'
  393. end
  394. end
  395. dynamic "<<$fightAtk_AttackerType>>_timer += AttackTime[fightAtk_Type]"
  396. cla
  397. act 'Next': gt 'fight', 'main'
  398. end
  399. if $ARGS[0] = 'opponent':
  400. gs 'fight', 'statDisplay'
  401. if pcs_health[0] > 0 and pcs_health[1] > 0 and pcs_health[2] > 0:
  402. TargetNumber = rand(0,2)
  403. elseif pcs_health[0] > 0 and pcs_health[1] > 0:
  404. TargetNumber = rand(0,1)
  405. elseif pcs_health[0] > 0 and pcs_health[2] > 0:
  406. if rand(0,1) = 0:
  407. TargetNumber = 0
  408. else
  409. TargetNumber = 2
  410. end
  411. elseif pcs_health[1] > 0 and pcs_health[2] > 0:
  412. TargetNumber = rand(1,2)
  413. elseif pcs_health[0] > 0:
  414. TargetNumber = 0
  415. elseif pcs_health[1] > 0:
  416. TargetNumber = 1
  417. else
  418. TargetNumber = 2
  419. end
  420. !! if opp_magik[0] > 0: gs 'fight', 'opp_spellcast'
  421. if rand(0,opp_kick[0]) > 40:
  422. gs 'fight', 'Attack', 'Kick', 'pcs', ARGS[2], TargetNumber
  423. elseif rand(0,opp_punch[0]) > 40:
  424. gs 'fight', 'Attack', 'Hard Punch', 'pcs', ARGS[2], TargetNumber
  425. else
  426. gs 'fight', 'Attack', 'Jab', 'pcs', ARGS[2], TargetNumber
  427. end
  428. end
  429. if $ARGS[0] = 'player':
  430. gs 'fight', 'statDisplay'
  431. if opp_health[0] > 0 and opp_health[1] > 0 and opp_health[2] > 0:
  432. TargetNumber = rand(0,2)
  433. elseif opp_health[0] > 0 and opp_health[1] > 0:
  434. TargetNumber = rand(0,1)
  435. elseif opp_health[0] > 0 and opp_health[2] > 0:
  436. if rand(0,1) = 0:
  437. TargetNumber = 0
  438. else
  439. TargetNumber = 2
  440. end
  441. elseif opp_health[1] > 0 and opp_health[2] > 0:
  442. TargetNumber = rand(1,2)
  443. elseif opp_health[0] > 0:
  444. TargetNumber = 0
  445. elseif opp_health[1] > 0:
  446. TargetNumber = 1
  447. else
  448. TargetNumber = 2
  449. end
  450. if pcs_magik > 0:
  451. act 'Cast a Spell': gs 'fight', 'spellcast'
  452. end
  453. if opp_health[0] > 0:
  454. act 'Kick <<$opp_name[0]>>':
  455. gs 'fight', 'Attack', 'Kick', 'opp', 0, 0
  456. end
  457. act 'Punch <<$opp_name[0]>> hard':
  458. gs 'fight', 'Attack', 'Hard Punch', 'opp', 0, 0
  459. end
  460. act 'Jab <<$opp_name[0]>>':
  461. gs 'fight', 'Attack', 'Jab', 'opp', 0, 0
  462. end
  463. end
  464. if opp_health[1] > 0:
  465. act 'Kick <<$opp_name[1]>>':
  466. gs 'fight', 'Attack', 'Kick', 'opp', 0, 1
  467. end
  468. act 'Punch <<$opp_name[1]>> hard':
  469. gs 'fight', 'Attack', 'Hard Punch', 'opp', 0, 1
  470. end
  471. act 'Jab <<$opp_name[1]>>':
  472. gs 'fight', 'Attack', 'Jab', 'opp', 0, 1
  473. end
  474. end
  475. if opp_health[2] > 0:
  476. act 'Kick <<$opp_name[2]>>':
  477. gs 'fight', 'Attack', 'Kick', 'opp', 0, 2
  478. end
  479. act 'Punch <<$opp_name[2]>> hard':
  480. gs 'fight', 'Attack', 'Hard Punch', 'opp', 0, 2
  481. end
  482. act 'Jab <<$opp_name[2]>>':
  483. gs 'fight', 'Attack', 'Jab', 'opp', 0, 2
  484. end
  485. end
  486. end
  487. if $ARGS[0] = 'opp_spellcast':
  488. end
  489. if $ARGS[0] = 'pcs_spellcast':
  490. end
  491. !!--------------------------------------------------old shit--------------------------------------------------
  492. if $ARGS[0] = 'sta':
  493. menu_off = 1
  494. cla
  495. damTip = 0
  496. damTipM = 0
  497. damTipV = 0
  498. damTipMV = 0
  499. magweapbonus = 0
  500. magweapbonusV = 0
  501. bonusSh = 0
  502. bonusShV = 0
  503. eleSh = 0
  504. eleShV = 0
  505. poisonAV = 0
  506. hidanAtk = 0
  507. '<b>= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =</b>'
  508. '<b><<$boydesc>></b> life <b><font color = red><<healthV>></font></b>, mana <b><font color = blue><<manaV>></font></b>, willpower <b><font color = green><<willpowerV>></font></b>'
  509. if defenceV > 0:'<b><font color = red>Protection <<defenceV>> units</font></b>'
  510. if defenceMV > 0:'<b><font color = red>Mana protection <<defenceMV>> units</font></b>'
  511. if defenceWV > 0:'<b><font color = red>Will protection <<defenceWV>> units</font></b>'
  512. 'Your life <b><font color = red><<pcs_health>></font></b>, mana <b><font color = blue><<pcs_mana>></font></b>, willpower <b><font color = green><<pcs_willpwr>></font></b>'
  513. if defence > 0:'<b><font color = green>Protection <<defence>> units</font></b>'
  514. if defenceM > 0:'<b><font color = green>Mana impact protection <<defenceM>> units</font></b>'
  515. if defenceW > 0:'<b><font color = green>Will impact protection <<defenceW>> units</font></b>'
  516. if defenceAct > 0:'<b><font color = green><<defenceAct>> Regeneration</font></b>'
  517. if defenceActM > 0:'<b><font color = green><<defenceActM>> Mana recovery protection</font></b>'
  518. '<b>= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =</b>'
  519. if autocombat_cheat = 0: act 'Continue':gt'fight','start'
  520. if autocombat_cheat = 1: gt'fight','start'
  521. end
  522. if $ARGS[0] = 'Wrestlergen':
  523. if nopornowrestling = 0:
  524. nopornowrestling = 1
  525. NPCnum = 30
  526. NPCnow = 1
  527. !!shag = 1
  528. gs 'npc'
  529. NoView = 1
  530. NPCrost = 30
  531. gs 'generation'
  532. NoView = 1
  533. NPCrost = 30
  534. gs 'generation'
  535. NoView = 1
  536. NPCrost = 30
  537. gs 'generation'
  538. NoView = 1
  539. NPCrost = 30
  540. gs 'generation'
  541. NoView = 1
  542. NPCrost = 30
  543. gs 'generation'
  544. $nikname[1] = 'schoolgirl'
  545. !!musle[0] = 100
  546. !!flex[0] = pcs_agil
  547. !!stamina[0] = pcs_vital * 3
  548. !!wipo[0] = pcs_sprt
  549. !!pcs_intel[0] = 10
  550. !!krasota[0] = pcs_apprnc
  551. !!pcs_hgt[0] = 165
  552. !!salo[0] = 100
  553. !!fat[0] = 100
  554. !!$nikname[1] = 'steel Virgo'
  555. !!musle[1] = 100
  556. !!flex[1] = 100
  557. !!stamina[1] = 300
  558. !!wipo[1] = 50
  559. !!pcs_intel[1] = 10
  560. !!krasota[1] = 10
  561. !!pcs_hgt[1] = 165
  562. !!salo[1] = 100
  563. !!fat[1] = 100
  564. end
  565. end
  566. --- fight ---------------------------------