npccleanc.qsrc 3.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980
  1. # npccleanc
  2. !! {This code should be called to purge a specific NPC. It expects an ARGS[0] of the code of the C array.}
  3. $tempcclean = $ARGS[0]
  4. if (mid($tempcclean, 1, 1) = 'B' or mid($tempcclean, 1, 1) = 'C'):
  5. gs 'shortgs', 'remove_array_element', 'npc_firstname',$tempcclean
  6. gs 'shortgs', 'remove_array_element', '$npc_nickname',$tempcclean
  7. gs 'shortgs', 'remove_array_element', '$npc_lastname',$tempcclean
  8. gs 'shortgs', 'remove_array_element', '$npc_usedname',$tempcclean
  9. gs 'shortgs', 'remove_array_element', '$npc_notes',$tempcclean
  10. gs 'shortgs', 'remove_array_element', '$npc_pic',$tempcclean
  11. gs 'shortgs', 'remove_array_element', '$npc_thdick',$tempcclean
  12. gs 'shortgs', 'remove_array_element', '$npc_perstype',$tempcclean
  13. gs 'shortgs', 'remove_array_element', '$npc_dna',$tempcclean
  14. gs 'shortgs', 'remove_array_element', '$npc_occupation',$tempcclean
  15. gs 'shortgs', 'remove_array_element', 'npc_dob',$tempcclean
  16. gs 'shortgs', 'remove_array_element', 'npc_gender',$tempcclean
  17. gs 'shortgs', 'remove_array_element', 'npc_height',$tempcclean
  18. gs 'shortgs', 'remove_array_element', 'npc_haircol',$tempcclean
  19. gs 'shortgs', 'remove_array_element', 'npc_apprnc',$tempcclean
  20. gs 'shortgs', 'remove_array_element', 'npc_dick',$tempcclean
  21. gs 'shortgs', 'remove_array_element', 'npc_spermpot',$tempcclean
  22. gs 'shortgs', 'remove_array_element', 'npc_sexskill',$tempcclean
  23. gs 'shortgs', 'remove_array_element', 'npc_drunk',$tempcclean
  24. gs 'shortgs', 'remove_array_element', 'npc_horny',$tempcclean
  25. ! gs 'shortgs', 'remove_array_element', 'npc_bust',$tempcclean
  26. gs 'shortgs', 'remove_array_element', 'npc_rel',$tempcclean
  27. gs 'shortgs', 'remove_array_element', 'npc_love',$tempcclean
  28. gs 'shortgs', 'remove_array_element', 'npc_sex',$tempcclean
  29. gs 'shortgs', 'remove_array_element', 'npc_QW',$tempcclean
  30. gs 'shortgs', 'remove_array_element', 'npc_herpes',$tempcclean
  31. gs 'shortgs', 'remove_array_element', 'npc_syth',$tempcclean
  32. gs 'shortgs', 'remove_array_element', 'npc_gon',$tempcclean
  33. gs 'shortgs', 'remove_array_element', 'npc_thrush',$tempcclean
  34. gs 'shortgs', 'remove_array_element', 'npc_apt_type',$tempcclean
  35. gs 'shortgs', 'remove_array_element', 'npc_apt_number',$tempcclean
  36. gs 'shortgs', 'remove_array_element', '$npc_apt_bedroom',$tempcclean
  37. gs 'shortgs', 'remove_array_element', '$npc_apt_kitchen',$tempcclean
  38. gs 'shortgs', 'remove_array_element', '$npc_apt_livingroom',$tempcclean
  39. gs 'shortgs', 'remove_array_element', '$npc_apt_bathroom',$tempcclean
  40. gs 'shortgs', 'remove_array_element', 'npc_perv',$tempcclean
  41. gs 'shortgs', 'remove_array_element', 'npc_outfit',$tempcclean
  42. gs 'shortgs', 'remove_array_element', 'npc_finance',$tempcclean
  43. gs 'shortgs', 'remove_array_element', 'npc_intel',$tempcclean
  44. gs 'shortgs', 'remove_array_element', 'npc_humor',$tempcclean
  45. gs 'shortgs', 'remove_array_element', 'npc_fav_pos',$tempcclean
  46. gs 'shortgs', 'remove_array_element', 'npc_tit_pref',$tempcclean
  47. gs 'shortgs', 'remove_array_element', 'npc_style',$tempcclean
  48. gs 'shortgs', 'remove_array_element', 'npc_addit',$tempcclean
  49. gs 'shortgs', 'remove_array_element', 'npc_doors',$tempcclean
  50. gs 'shortgs', 'remove_array_element', 'npc_goal',$tempcclean
  51. gs 'shortgs', 'remove_array_element', 'npc_fidelity',$tempcclean
  52. gs 'shortgs', 'remove_array_element', 'npc_lover_days',$tempcclean
  53. gs 'shortgs', 'remove_array_element', 'npc_lover_keys',$tempcclean
  54. gs 'shortgs', 'remove_array_element', 'npc_residence',$tempcclean
  55. end
  56. i = arrsize('$cemptyarray')
  57. $cemptyarray[i] = $tempcclean
  58. :clean_sanity_loop
  59. i = arrsize('$cemptyarray')
  60. If i > 1 and $cemptyarray[0] = $cemptyarray[i]: killvar '$cemptyarray', i & jump 'clean_sanity_loop'
  61. killvar '$tempcclean'
  62. --- npccleanc ---------------------------------