@verb #9090:"shoot sh f" any any any rdo #7446
@program #9090:"shoot sh f" any any any
"$tcm && {player:tell(\"During ticks conservation mode (see ?tcm) this game is non-functional.\"), kill_task(task_id())};"
x = listiassoc(player, this.recharging)
if (time() < `this.recharging[x][2] ! E_RANGE => 0')
  return player:tell("Your paintball gun is recharging.")
endif
this.recharging = `listdelete(this.recharging, x) ! E_RANGE => this.recharging'
usage = "Usage: Shoot <anyone>"
if (!args)
  return player:tell(usage)
endif
tosh = $string_utils:match_player(argstr)
if (tosh == #-3)
  return player:tell("That is not a person.")
elseif (!(tosh in this.p))
  return player:tell("That person isn't a paintbaler.")
elseif (tosh.location != this)
  return player:tell("That person isn't in the paintball area.")
elseif (this:loc(tosh) == 0)
  return player:tell("That person isn't connected.")
elseif (this:loc(tosh) != this:loc(player))
  return player:tell("I don't see that person here.")
elseif (tosh in this.hiding)
  return player:tell("I don't see that person here.")
elseif (this:team(player) != 0 && this:team(player) == this:team(tosh) && this.teamgame)
  return player:Tell(tosh.name, " is on your team!!")
endif
"this.recharging = listappend(this.recharging, player);"
"fork (10)"
"  this.recharging = setremove(this.recharging, player);"
"endfork"
this.recharging = listappend(this.recharging, {player, time() + 10})
hp = this.ps[tosh in this.p][9]
if (random(4) == 1)
  this:announce_all_but({player, tosh}, player:title(), " shoots at ", tosh:title(), ", but misses.")
  player:tell("You shoot at ", tosh:title(), ", but miss.")
  tosh:tell(player:title(), " shoots at you, but misses.")
  return
endif
color = this.colors[random($)]
this:announce_all_but({tosh, player}, player:title(), " shoots ", tosh:title(), " with a ", color, " paintball.")
player:tell("You shoot ", tosh:title(), " with a ", color, " paintball.")
tosh:tell(player:title(), " shoots you with a ", color, " paintball.")
hp = hp - 1
if (hp == 0)
  tosh:tell("You have been \"killed\". Giving you 3 more hp.")
  this:announce_all_but({tosh}, tosh:title(), " has been \"killed\"!")
  this.ps[player in this.p][8] = this.ps[player in this.p][8] + 1
  this.ps[tosh in this.p][7] = this.ps[tosh in this.p][7] + 1
  hp = 3
  for x in (this.contents)
    $cmd_utils:suspend_if_needed()
    x:tell("[Paintball]: ", tosh:title(), " has just been killed by ", player:title(), "!")
  endfor
endif
this.ps[player in this.p][6] = this.ps[player in this.p][6] + 1
this.ps[tosh in this.p][9] = hp
"Last modified by James (#6397) on Tue Aug 25 13:07:47 1998 EDT."
.