|
@@ -1,5 +1,29 @@
|
|
|
# npc
|
|
|
|
|
|
+if $ARGS[0] = 'cleanarrays':
|
|
|
+ i_gs_cl = 0
|
|
|
+ :CiklNpcCleanLoop
|
|
|
+ if i_gs_cl < arrsize('$npc_index'):
|
|
|
+ if $npc_index[i_gs_cl] = $npclastgenerated : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$cumarrnam', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$sparrnam', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$cumfthname', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$wombpotfath', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$wombName', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$cumfathlotto', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$ChildFath', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+ if arrpos('$ChildThFath', $npc_index[i_gs_cl]) >= 0 : i_gs_cl += 1 & jump 'CiklNpcCleanLoop'
|
|
|
+
|
|
|
+ if mid($npc_index[i_gs_cl],1,1) = 'C' or mid($npc_index[i_gs_cl],1,1) = 'b' :
|
|
|
+ gs 'npccleanc',ucase($npc_index[i_gs_cl])
|
|
|
+ jump 'CiklNpcCleanLoop'
|
|
|
+ end
|
|
|
+ i_gs_cl += 1
|
|
|
+ jump 'CiklNpcCleanLoop'
|
|
|
+ end
|
|
|
+ killvar 'i_gs_cl'
|
|
|
+end
|
|
|
+
|
|
|
if $ARGS[0] = 'age':
|
|
|
currnpc_year = mid(npc_dob[$ARGS[1]], 1, 4)
|
|
|
currnpc_month = mid(npc_dob[$ARGS[1]], 5, 2)
|