mod_addedflavour_GameFunctions.qsrc 5.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146
  1. # mod_addedflavour_GameFunctions
  2. if $ARGS[0] = 'SetupFirstNamePool':
  3. KILLVAR '$modArr_AF_FNamePool'
  4. modVar_AF_Temp = 0
  5. :FNamePoolLoopStart
  6. $modArr_AF_FNamePool[] = 'Albina'
  7. $modArr_AF_FNamePool[] = 'Alexandra'
  8. $modArr_AF_FNamePool[] = 'Alyona'
  9. $modArr_AF_FNamePool[] = 'Anastasia'
  10. $modArr_AF_FNamePool[] = 'Annika'
  11. $modArr_AF_FNamePool[] = 'Dina'
  12. $modArr_AF_FNamePool[] = 'Dominika'
  13. $modArr_AF_FNamePool[] = 'Elena'
  14. $modArr_AF_FNamePool[] = 'Eva'
  15. $modArr_AF_FNamePool[] = 'Evgeniya'
  16. $modArr_AF_FNamePool[] = 'Fedosia'
  17. $modArr_AF_FNamePool[] = 'Galina'
  18. $modArr_AF_FNamePool[] = 'Inessa'
  19. $modArr_AF_FNamePool[] = 'Inga'
  20. $modArr_AF_FNamePool[] = 'Inna'
  21. $modArr_AF_FNamePool[] = 'Irina'
  22. $modArr_AF_FNamePool[] = 'Iskra'
  23. $modArr_AF_FNamePool[] = 'Izabella'
  24. $modArr_AF_FNamePool[] = 'Izolda'
  25. $modArr_AF_FNamePool[] = 'Katina'
  26. $modArr_AF_FNamePool[] = 'Khristina'
  27. $modArr_AF_FNamePool[] = 'Klavdiya'
  28. $modArr_AF_FNamePool[] = 'Kseniya'
  29. $modArr_AF_FNamePool[] = 'Larisa'
  30. $modArr_AF_FNamePool[] = 'Lelyah'
  31. $modArr_AF_FNamePool[] = 'Lizabeta'
  32. $modArr_AF_FNamePool[] = 'Lucya'
  33. $modArr_AF_FNamePool[] = 'Ludmila'
  34. $modArr_AF_FNamePool[] = 'Malvina'
  35. $modArr_AF_FNamePool[] = 'Marisha'
  36. $modArr_AF_FNamePool[] = 'Mariya'
  37. $modArr_AF_FNamePool[] = 'Maya'
  38. $modArr_AF_FNamePool[] = 'Natasha'
  39. $modArr_AF_FNamePool[] = 'Nina'
  40. $modArr_AF_FNamePool[] = 'Oksana'
  41. $modArr_AF_FNamePool[] = 'Olesya'
  42. $modArr_AF_FNamePool[] = 'Olga'
  43. $modArr_AF_FNamePool[] = 'Rada'
  44. $modArr_AF_FNamePool[] = 'Raisa'
  45. $modArr_AF_FNamePool[] = 'Svetlana'
  46. $modArr_AF_FNamePool[] = 'Tatyana'
  47. $modArr_AF_FNamePool[] = 'Valentina'
  48. $modArr_AF_FNamePool[] = 'Valeriya'
  49. $modArr_AF_FNamePool[] = 'Veronika'
  50. $modArr_AF_FNamePool[] = 'Viktoriya'
  51. $modArr_AF_FNamePool[] = 'Yana'
  52. $modArr_AF_FNamePool[] = 'Yelena'
  53. $modArr_AF_FNamePool[] = 'Zhanna'
  54. $modArr_AF_FNamePool[] = 'Zinaida'
  55. $modArr_AF_FNamePool[] = 'Zlata'
  56. modVar_AF_Temp += 1
  57. if modVar_AF_Temp < ARGS[1] : jump 'FNamePoolLoopStart'
  58. end
  59. if $ARGS[0] = 'SetupLastNamePool':
  60. KILLVAR '$modArr_AF_LNamePool'
  61. modVar_AF_Temp = 0
  62. :LNamePoolLoopStart
  63. $modArr_AF_LNamePool[] = 'Abakumov'
  64. $modArr_AF_LNamePool[] = 'Abdulov'
  65. $modArr_AF_LNamePool[] = 'Agapov'
  66. $modArr_AF_LNamePool[] = 'Alekseev'
  67. $modArr_AF_LNamePool[] = 'Alexeyev'
  68. $modArr_AF_LNamePool[] = 'Andreev'
  69. $modArr_AF_LNamePool[] = 'Angeloff'
  70. $modArr_AF_LNamePool[] = 'Antonov'
  71. $modArr_AF_LNamePool[] = 'Arkhangelsky'
  72. $modArr_AF_LNamePool[] = 'Arsenyev'
  73. $modArr_AF_LNamePool[] = 'Babanin'
  74. $modArr_AF_LNamePool[] = 'Belov'
  75. $modArr_AF_LNamePool[] = 'Belyakov'
  76. $modArr_AF_LNamePool[] = 'Bocharov'
  77. $modArr_AF_LNamePool[] = 'Borodin'
  78. $modArr_AF_LNamePool[] = 'Brezhnev'
  79. $modArr_AF_LNamePool[] = 'Chaban'
  80. $modArr_AF_LNamePool[] = 'Chernoff'
  81. $modArr_AF_LNamePool[] = 'Davydov'
  82. $modArr_AF_LNamePool[] = 'Devin'
  83. $modArr_AF_LNamePool[] = 'Dobrow'
  84. $modArr_AF_LNamePool[] = 'Genrich'
  85. $modArr_AF_LNamePool[] = 'Grishin'
  86. $modArr_AF_LNamePool[] = 'Gurin'
  87. $modArr_AF_LNamePool[] = 'Gusev'
  88. $modArr_AF_LNamePool[] = 'Ilyin'
  89. $modArr_AF_LNamePool[] = 'Ivanov'
  90. $modArr_AF_LNamePool[] = 'Kalashnik'
  91. $modArr_AF_LNamePool[] = 'Kapitsa'
  92. $modArr_AF_LNamePool[] = 'Kovalyov'
  93. $modArr_AF_LNamePool[] = 'Krupin'
  94. $modArr_AF_LNamePool[] = 'Kuzmin'
  95. $modArr_AF_LNamePool[] = 'Kuznetsov'
  96. $modArr_AF_LNamePool[] = 'Lebedev'
  97. $modArr_AF_LNamePool[] = 'Litvin'
  98. $modArr_AF_LNamePool[] = 'Mikhailov'
  99. $modArr_AF_LNamePool[] = 'Morozov'
  100. $modArr_AF_LNamePool[] = 'Petrov'
  101. $modArr_AF_LNamePool[] = 'Petukhov'
  102. $modArr_AF_LNamePool[] = 'Polakoff'
  103. $modArr_AF_LNamePool[] = 'Rabinovich'
  104. $modArr_AF_LNamePool[] = 'Rogov'
  105. $modArr_AF_LNamePool[] = 'Semyonov'
  106. $modArr_AF_LNamePool[] = 'Smirnov'
  107. $modArr_AF_LNamePool[] = 'Sokolov'
  108. $modArr_AF_LNamePool[] = 'Stepanov'
  109. $modArr_AF_LNamePool[] = 'Turgenev'
  110. $modArr_AF_LNamePool[] = 'Vitsin'
  111. $modArr_AF_LNamePool[] = 'Zharkov'
  112. $modArr_AF_LNamePool[] = 'Zhigunov'
  113. modVar_AF_Temp += 1
  114. if modVar_AF_Temp < ARGS[1] : jump 'LNamePoolLoopStart'
  115. end
  116. if $ARGS[0] = 'SetupTeam':
  117. !! Call Definition: gs 'mod_addedflavour_GameFunctions' , 'SetupTeam' , [Team Name] , [Amount to Repeat Names in Pool] , [Amount of Players] , [Skill Level Lower] , [Skill Level Higher] !!
  118. if arrsize('$modArr_AF_FNamePool') = 0 : gs 'mod_addedflavour_GameFunctions' , 'SetupFirstNamePool' , ARGS[2]
  119. if arrsize('$modArr_AF_LNamePool') = 0 : gs 'mod_addedflavour_GameFunctions' , 'SetupLastNamePool' , ARGS[2]
  120. KILLVAR '$modArr_AF_PlayerNameTemp'
  121. KILLVAR '$modArr_AF_PlayerTeamTemp'
  122. KILLVAR 'modArr_AF_PlayerSkillTemp'
  123. SetupTeamLoopCount = 0
  124. SetupTeamErrorLoopCount = 0
  125. :SetupTeamLoopStart
  126. if SetupTeamLoopCount >= ARGS[3] : jump 'SetupTeamLoopend'
  127. if SetupTeamErrorLoopCount >= 1000 : $modVar_AF_LoopErrorLoc = 'Setup Team Loop' & jump 'SetupTeamLoopend'
  128. SetupTeamErrorLoopCount += 1
  129. modVar_AF_Rand = (rand(1,arrsize('$modArr_AF_FNamePool'))) - 1
  130. modVar_AF_Rand2 = (rand(1,arrsize('$modArr_AF_LNamePool'))) - 1
  131. $modVar_AF_TempStr = $modArr_AF_FNamePool[modVar_AF_Rand] + ' ' + $modArr_AF_LNamePool[modVar_AF_Rand2]
  132. if arrpos('$modArr_AF_PlayerNameTemp',$modVar_AF_TempStr) >= 0 : jump 'SetupTeamLoopStart'
  133. if arrpos('$modArr_AF_PlayerNameTemp','<<$pcs_firstname>> <<$pcs_lastname>>') >= 0 : jump 'SetupTeamLoopStart'
  134. $modArr_AF_PlayerNameTemp[] = $modVar_AF_TempStr
  135. $modArr_AF_PlayerTeamTemp[] = $ARGS[1]
  136. modArr_AF_PlayerSkillTemp[] = rand(ARGS[4],ARGS[5])
  137. KILLVAR '$modArr_AF_FNamePool' , modVar_AF_Rand
  138. KILLVAR '$modArr_AF_LNamePool' , modVar_AF_Rand2
  139. SetupTeamLoopCount += 1
  140. jump 'SetupTeamLoopStart'
  141. :SetupTeamLoopend
  142. end
  143. --- mod_addedflavour_GameFunctions ---------------------------------