glife/locations/fight_npcdata.qsrc

# fight_npcdata
!2021/05/02
!!{  Add an NPC of this type to a Team for a fight

	$ARGS[0] = The NPC Name or Type (e.g: tatiana, gustav, rapist, mugger)
	$ARGS[1] = Team to add the NPC to.  Can be 'pcs' or 'opp'.  Default is 'opp'
	$ARGS[2] = (Optional) Name to give the NPC, Overrides built in name

	Attributes that can be set:
		name	= <<name of opponent>>
		image	= opponent image ie. '<img <<$set_imgh>> src="images/characters/city/tobi/tobi.jpg">'
		def	= opponent defence
		run	= Opponent running skill used for player escape
		wrstlng	= Wrestling skill
		kick	= Kicking
		punch	= Power punch
		jab	= Light punch
		stren	= Strengh
		agil	= Agility
		vital	= vitality
		react	= Reactions
		health	= Health
		willpwr	= willpower
		shoot	= opponent marksmanship (only required if they are armed)
		magik	= only if they have magic
		mana	= only if they have magic
		fog	= (tuman): Obscures vision, makes hitting harder.
		clone	= (klon): Copies of the char that absorb 1 hit and disappear.  A char may have some number of them.
		shield	= (defence): Shielding that absorbs damage before hitpoints.
		dambonus	= (magweapbonus): damage added to melee attacks
		init	= (initBonus): attack faster/first
		stun	= (stunner): make target unable to act for some amount of time
		spells	= comma delimited list of spell names

}

$NPCFS_Team = $ARGS[1]
if $NPCFS_Team = '':
	$NPCFS_Team = 'opp'
end

NPCFS_TeamSlot=dyneval('result=arrsize(''$<<$NPCFS_Team>>_name'')')

$setNPCFightStats = {
!! $ARGS[0] = Attrib Name
!! $ARGS[1]/ARGS[1] = Value to set the Attribute
	$NPCFS_Attrib = $ARGS[0]

	! See if Value passed is String or Number
	$NPCFS_Value = $ARGS[1]
	 NPCFS_Value =  ARGS[1]

	if $NPCFS_Value = '':
		!Numeric type Array
		dynamic '<<$NPCFS_Team>>_<<$NPCFS_Attrib>>[<<NPCFS_TeamSlot>>] = <<NPCFS_Value>>'
	else
		!String type Array
		dynamic '$<<$NPCFS_Team>>_<<$NPCFS_Attrib>>[<<NPCFS_TeamSlot>>] = ''<<$NPCFS_Value>>'''
		!'''' colour fix for editing program
	end
}

$calcNPCFightHealth = {
	NPCFightStatStr = dyneval("result=<<$NPCFS_Team>>_stren[<<NPCFS_TeamSlot>>]")
	NPCFightStatVit = dyneval("result=<<$NPCFS_Team>>_vital[<<NPCFS_TeamSlot>>]")
	result = NPCFightStatStr*5 + NPCFightStatVit*5
}

if $args[0] = 'gustav':
	dynamic $setNPCFightStats, 'name', 'Gustav'
	dynamic $setNPCFightStats, 'image', 'images/characters/city/jugo/jugopre.jpg'
	dynamic $setNPCFightStats, 'def', 100
	dynamic $setNPCFightStats, 'run', 75
	dynamic $setNPCFightStats, 'wrstlng', 75
	dynamic $setNPCFightStats, 'kick', 75
	dynamic $setNPCFightStats, 'punch', 85
	dynamic $setNPCFightStats, 'jab', 75
	dynamic $setNPCFightStats, 'stren', 250
	dynamic $setNPCFightStats, 'agil', 60
	dynamic $setNPCFightStats, 'vital', 200
	dynamic $setNPCFightStats, 'react', 50
	dynamic $setNPCFightStats, 'willpwr', 50
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 2
end

if $args[0] = 'tatiana':
	dynamic $setNPCFightStats, 'name', 'Tatiana'
	dynamic $setNPCFightStats, 'image', 'images/characters/city/tatiana/magiclook.jpg'
	dynamic $setNPCFightStats, 'def', 30
	dynamic $setNPCFightStats, 'run', 75
	dynamic $setNPCFightStats, 'wrstlng', 10
	dynamic $setNPCFightStats, 'kick', 50
	dynamic $setNPCFightStats, 'punch', 50
	dynamic $setNPCFightStats, 'jab', 50
	dynamic $setNPCFightStats, 'stren', 30
	dynamic $setNPCFightStats, 'agil', 75
	dynamic $setNPCFightStats, 'vital', 100
	dynamic $setNPCFightStats, 'react', 60
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'magik', 1
	dynamic $setNPCFightStats, 'mana', 200
	dynamic $setNPCFightStats, 'spells', 'fog,clone,stun,energo'
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 3
end

if $args[0] = 'prostitute':
	dynamic $setNPCFightStats, 'name', 'Prostitute'
	dynamic $setNPCFightStats, 'image', 'images/locations/city/shared/streetwalker/working<<rand(1,4)>>.jpg'
	dynamic $setNPCFightStats, 'def', rand(25,35)
	dynamic $setNPCFightStats, 'run', rand(25,35)
	dynamic $setNPCFightStats, 'wrstlng', rand(5,15)
	dynamic $setNPCFightStats, 'kick', 5
	dynamic $setNPCFightStats, 'punch', rand(5,15)
	dynamic $setNPCFightStats, 'jab', rand(5,15)
	dynamic $setNPCFightStats, 'stren', rand(15,25)
	dynamic $setNPCFightStats, 'agil', rand(25,35)
	dynamic $setNPCFightStats, 'vital', rand(45,55)
	dynamic $setNPCFightStats, 'react', rand(25,35)
	dynamic $setNPCFightStats, 'willpwr', 50
	dynamic $setNPCFightStats, 'shoot', 10
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 4
end

if $args[0] = 'bandit':
	dynamic $setNPCFightStats, 'name', 'Bandit'
	dynamic $setNPCFightStats, 'image', 'images/locations/shared/street/mugger.jpg'
	dynamic $setNPCFightStats, 'def', rand(5,15)
	dynamic $setNPCFightStats, 'run', 30
	dynamic $setNPCFightStats, 'wrstlng', rand(5,15)
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', rand(5,15)
	dynamic $setNPCFightStats, 'jab', rand(5,15)
	dynamic $setNPCFightStats, 'stren', rand(95,115)
	dynamic $setNPCFightStats, 'agil', rand(15,25)
	dynamic $setNPCFightStats, 'vital', rand(65,75)
	dynamic $setNPCFightStats, 'react', rand(15,25)
	dynamic $setNPCFightStats, 'willpwr', 50
	dynamic $setNPCFightStats, 'shoot', 10
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 5
end

if $args[0] = 'prostitute2':
	dynamic $setNPCFightStats, 'name', 'Prostitute'
	dynamic $setNPCFightStats, 'image', 'images/locations/city/shared/streetwalker/working<<rand(1,4)>>.jpg'
	dynamic $setNPCFightStats, 'def', 10
	dynamic $setNPCFightStats, 'run', 50
	dynamic $setNPCFightStats, 'wrstlng', 10
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', 10
	dynamic $setNPCFightStats, 'jab', 10
	dynamic $setNPCFightStats, 'stren', 50
	dynamic $setNPCFightStats, 'agil', 40
	dynamic $setNPCFightStats, 'vital', 60
	dynamic $setNPCFightStats, 'react', 30
	dynamic $setNPCFightStats, 'willpwr', 50
	dynamic $setNPCFightStats, 'shoot', 10
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 6
end

if $args[0] = 'kisame':
	dynamic $setNPCFightStats, 'name', 'Kisame'
	dynamic $setNPCFightStats, 'image', 'images/characters/city/kisame/kisamev.jpg'
	dynamic $setNPCFightStats, 'def', 100
	dynamic $setNPCFightStats, 'run', 100
	dynamic $setNPCFightStats, 'wrstlng', 75
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', 100
	dynamic $setNPCFightStats, 'jab', 100
	dynamic $setNPCFightStats, 'stren', 150
	dynamic $setNPCFightStats, 'agil', 100
	dynamic $setNPCFightStats, 'vital', 150
	dynamic $setNPCFightStats, 'react', 100
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'magik', 1
	dynamic $setNPCFightStats, 'mana', 500
	dynamic $setNPCFightStats, 'spells', 'leechmana,flood,blister,sharkrockets'
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 7
end

if $args[0] = 'rapist':
	dynamic $setNPCFightStats, 'name', 'Rapist'
	dynamic $setNPCFightStats, 'image', 'images/locations/shared/street/rapist.jpg'
	dynamic $setNPCFightStats, 'def', rand(40,60)
	dynamic $setNPCFightStats, 'run', rand(40,60)
	dynamic $setNPCFightStats, 'wrstlng', rand(5,15)
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', rand(40,60)
	dynamic $setNPCFightStats, 'jab', rand(40,60)
	dynamic $setNPCFightStats, 'stren', rand(70,90)
	dynamic $setNPCFightStats, 'agil', rand(30,50)
	dynamic $setNPCFightStats, 'vital', rand(40,60)
	dynamic $setNPCFightStats, 'react', rand(30,50)
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 8
end

if $args[0] = 'robber':
	dynamic $setNPCFightStats, 'name', 'Robber'
	dynamic $setNPCFightStats, 'image', 'images/locations/shared/street/mugger.jpg'
	dynamic $setNPCFightStats, 'def', rand(40,60)
	dynamic $setNPCFightStats, 'run', rand(40,60)
	dynamic $setNPCFightStats, 'wrstlng', rand(5,15)
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', rand(40,60)
	dynamic $setNPCFightStats, 'jab', rand(40,60)
	dynamic $setNPCFightStats, 'stren', rand(60,80)
	dynamic $setNPCFightStats, 'agil', rand(30,50)
	dynamic $setNPCFightStats, 'vital', rand(40,60)
	dynamic $setNPCFightStats, 'react', rand(30,50)
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	if rand(0,10) < 5:
		fightEnding = 8
	else
		fightEnding = 9
	end
end

if $args[0] = 'snatcher':
	dynamic $setNPCFightStats, 'name', 'Purse Snatcher'
	dynamic $setNPCFightStats, 'image', 'images/locations/shared/street/pursesnatch.jpg'
	dynamic $setNPCFightStats, 'def', rand(40,60)
	dynamic $setNPCFightStats, 'run', rand(40,60)
	dynamic $setNPCFightStats, 'wrstlng', rand(5,15)
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', rand(40,60)
	dynamic $setNPCFightStats, 'jab', rand(40,60)
	dynamic $setNPCFightStats, 'stren', rand(60,80)
	dynamic $setNPCFightStats, 'agil', rand(30,50)
	dynamic $setNPCFightStats, 'vital', rand(40,60)
	dynamic $setNPCFightStats, 'react', rand(30,50)
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 9
end

if $args[0] = 'dimka':
	dynamic $setNPCFightStats, 'name', 'Dimka'
	dynamic $setNPCFightStats, 'image', 'images/characters/pavlovsk/school/head/1.jpg'
	dynamic $setNPCFightStats, 'def', 50
	dynamic $setNPCFightStats, 'run', 50
	dynamic $setNPCFightStats, 'wrstlng', 10
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', 50
	dynamic $setNPCFightStats, 'jab', 50
	dynamic $setNPCFightStats, 'stren', 100
	dynamic $setNPCFightStats, 'agil', 40
	dynamic $setNPCFightStats, 'vital', 50
	dynamic $setNPCFightStats, 'react', 40
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 10
end

if $args[0] = 'stranger':
	dynamic $setNPCFightStats, 'name', 'Stranger'
	dynamic $setNPCFightStats, 'image', 'images/locations/shared/street/rapist.jpg'
	dynamic $setNPCFightStats, 'def', 10
	dynamic $setNPCFightStats, 'run', 20
	dynamic $setNPCFightStats, 'wrstlng', 10
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', 10
	dynamic $setNPCFightStats, 'jab', 10
	dynamic $setNPCFightStats, 'stren', 100
	dynamic $setNPCFightStats, 'agil', 10
	dynamic $setNPCFightStats, 'vital', 50
	dynamic $setNPCFightStats, 'react', 10
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 11
end

if $args[0] = 'christina':
	dynamic $setNPCFightStats, 'name', 'Christina'
	dynamic $setNPCFightStats, 'image', 'images/characters/shared/headshots_main/18.jpg'
	dynamic $setNPCFightStats, 'def', 45
	dynamic $setNPCFightStats, 'run', 80
	dynamic $setNPCFightStats, 'wrstlng', 10
	dynamic $setNPCFightStats, 'kick', 10
	dynamic $setNPCFightStats, 'punch', 35
	dynamic $setNPCFightStats, 'jab', 35
	dynamic $setNPCFightStats, 'stren', 85
	dynamic $setNPCFightStats, 'agil', 75
	dynamic $setNPCFightStats, 'vital', 95
	dynamic $setNPCFightStats, 'react', 75
	dynamic $setNPCFightStats, 'willpwr', 45
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 12
end

if $args[0] = 'stallion':
	dynamic $setNPCFightStats, 'name', 'Naked Man'
	dynamic $setNPCFightStats, 'image', 'images/locations/shared/street/rapist.jpg'
	dynamic $setNPCFightStats, 'def', 100
	dynamic $setNPCFightStats, 'run', 100
	dynamic $setNPCFightStats, 'wrstlng', 100
	dynamic $setNPCFightStats, 'kick', 100
	dynamic $setNPCFightStats, 'punch', 100
	dynamic $setNPCFightStats, 'jab', 100
	dynamic $setNPCFightStats, 'stren', 100
	dynamic $setNPCFightStats, 'agil', 300
	dynamic $setNPCFightStats, 'vital', 200
	dynamic $setNPCFightStats, 'react', 100
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 10
	dynamic $setNPCFightStats, 'magik', 1
	dynamic $setNPCFightStats, 'mana', 200
	dynamic $setNPCFightStats, 'spells', 'clone,energo'
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 13
end

if $args[0] = 'ganggirl':
	dynamic $setNPCFightStats, 'name', 'Gang Girl'
	dynamic $setNPCFightStats, 'image', 'images/characters/shared/<<rand(31,60)>>.jpg'
	dynamic $setNPCFightStats, 'def', rand(5,15)
	dynamic $setNPCFightStats, 'run', rand(25,35)
	dynamic $setNPCFightStats, 'wrstlng', rand(5,15)
	dynamic $setNPCFightStats, 'kick', rand(5,15)
	dynamic $setNPCFightStats, 'punch', rand(5,15)
	dynamic $setNPCFightStats, 'jab', rand(5,15)
	dynamic $setNPCFightStats, 'stren', rand(15,30)
	dynamic $setNPCFightStats, 'agil', rand(25,35)
	dynamic $setNPCFightStats, 'vital', rand(25,35)
	dynamic $setNPCFightStats, 'react', rand(25,35)
	dynamic $setNPCFightStats, 'willpwr', 50
	dynamic $setNPCFightStats, 'shoot', rand(25,35)
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 14
end

if $args[0] = 'girls':
	dynamic $setNPCFightStats, 'name', 'The group of girls'
	dynamic $setNPCFightStats, 'image', 'images/locations/shared/street/girlgang.jpg'
	dynamic $setNPCFightStats, 'def', 50
	dynamic $setNPCFightStats, 'run', 50
	dynamic $setNPCFightStats, 'wrstlng', 10
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', 50
	dynamic $setNPCFightStats, 'jab', 50
	dynamic $setNPCFightStats, 'stren', 100
	dynamic $setNPCFightStats, 'agil', 60
	dynamic $setNPCFightStats, 'vital', 60
	dynamic $setNPCFightStats, 'react', 60
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 14
end

if $args[0] = 'bitch squad':
	dynamic $setNPCFightStats, 'name', 'The bitch squad'
	dynamic $setNPCFightStats, 'image', 'images/characters/pavlovsk/school/girl/katja/KWT14.jpg'
	dynamic $setNPCFightStats, 'def', 50
	dynamic $setNPCFightStats, 'run', 50
	dynamic $setNPCFightStats, 'wrstlng', 10
	dynamic $setNPCFightStats, 'kick', 0
	dynamic $setNPCFightStats, 'punch', 50
	dynamic $setNPCFightStats, 'jab', 50
	dynamic $setNPCFightStats, 'stren', 100
	dynamic $setNPCFightStats, 'agil', 60
	dynamic $setNPCFightStats, 'vital', 60
	dynamic $setNPCFightStats, 'react', 60
	dynamic $setNPCFightStats, 'willpwr', 100
	dynamic $setNPCFightStats, 'shoot', 100
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 16
end	

if $args[0] = 'btatiana':
	dynamic $setNPCFightStats, 'name', 'BTatiana'
	dynamic $setNPCFightStats, 'image', 'images/characters/city/btatiana/ST1.jpg'
	dynamic $setNPCFightStats, 'def', 55
	dynamic $setNPCFightStats, 'run', 100
	dynamic $setNPCFightStats, 'wrstlng', 1
	dynamic $setNPCFightStats, 'kick', 25
	dynamic $setNPCFightStats, 'punch', 25
	dynamic $setNPCFightStats, 'jab', 25
	dynamic $setNPCFightStats, 'stren', 5
	dynamic $setNPCFightStats, 'agil', 75
	dynamic $setNPCFightStats, 'vital', 75
	dynamic $setNPCFightStats, 'react', 85
	dynamic $setNPCFightStats, 'willpwr', 75
	dynamic $setNPCFightStats, 'shoot', 75
	dynamic $setNPCFightStats, 'magik', 1
	dynamic $setNPCFightStats, 'mana', 100
	dynamic $setNPCFightStats, 'spells', 'energo,dambonus,init'
	dynamic $setNPCFightStats, 'health', dyneval($calcNPCFightHealth)
	fightEnding = 17
end




if $ARGS[2] ! '':
	dynamic $setNPCFightStats, 'name', $ARGS[2]
end

--- fight_npcdata ---------------------------------