glife-fork/locations/test.qsrc

# test
pcs_hgt = 170
fat = 110
!!stats
rikudo = 9000
pcs_stren = 100
pcs_react = 100
pcs_agil = 100
pcs_vital = 100
pcs_intel = 100
pcs_sprt = 100
boxing = 100
pcs_magik = 10
pcs_health = pcs_vital * 10 + pcs_stren * 5
pcs_willpwr = pcs_intel * 5 + pcs_sprt * 5
pcs_mana = (pcs_intel * pcs_magik) + pcs_magik * 100 + pcs_vital * 10 + rikudo
!!!!!!!!!!!!!!!!!!!!!!
vmeat = (pcs_stren + pcs_vital) / 8
!!!vmeat = vmeat / 8
vfat = fat / 10
Kves = vmeat + vfat
krost = pcs_hgt - 130
pcs_weight = Kves + krost - (pcs_agil / 10)
pcs_waist = pcs_weight - (pcs_agil / 10)
pcs_bust = pcs_waist + 10 + vfat + silicone
pcs_hips = pcs_waist + 15 + (vmeat / 2) + vfat
pcs_cupsize = pcs_bust - pcs_waist
if pcs_cupsize <= 10:
	tits = 0
elseif pcs_cupsize <= 15:
	tits = 1
elseif pcs_cupsize <= 20:
	tits = 2
elseif pcs_cupsize <= 25:
	tits = 3
elseif pcs_cupsize <= 30:
	tits = 4
elseif pcs_cupsize <= 35:
	tits = 5
elseif pcs_cupsize <= 40:
	tits = 6
elseif pcs_cupsize <= 45:
	tits = 7
elseif pcs_cupsize <= 50:
	tits = 8
elseif pcs_cupsize <= 55:
	tits = 9
else
	tits = 10
end


! Mark all spells as known
i = 0
:CombatSpellTest
$ThisSpellName = $combatSpells[i]
if i < arrsize('$combatSpells'):
	spellKnown[$ThisSpellName] = 1
	i += 1
	jump 'CombatSpellTest'
end
i = 0
:NonComSpellTest
$ThisSpellName = $nonComSpells[i]
if i < arrsize('$nonComSpells'):
	spellKnown[$ThisSpellName] = 1
	i += 1
	jump 'NonComSpellTest'
end
killvar 'i'
killvar '$ThisSpellName'


'<<pcs_hgt>>cm <<pcs_weight>>kg <<pcs_bust>>-<<pcs_waist>>-<<pcs_hips>> the size of the breast <<tits>>'
'All articles on the 100, all spells, magical about the 10 forces Rikudo 9000'
'Do you have any second shadow sedtse that may once to die for you.'
heart = 1
manaReset= 10000
act '(Toby mag12)':
	cla
	gs 'boyStat', 'A167'
	!!stats
	strenV = 300
	speedV = 100
	agilV = 100
	reactV = 100
	vitalV = 100
	intelV = 100
	willV = 200
	!!skills
	magikV = 12
	boxingV = 100
	shootV = 100
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 6
	test = 1
	tobiPic = 1
	unmaterialV = 40
	izanagiOnce = 0
	tobizanagi = 0
	izanagiV = 1
	GedoMazo = 0
	TobiStena = 0

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Kisame mag10)':
	cla
	pcs_horny += 10
	gs 'boyStat', 'A40'
	!!stats
	strenV = 300
	speedV = 100
	agilV = 100
	reactV = 100
	vitalV = 200
	intelV = 100
	willV = 50
	!!skills
	magikV = 10
	boxingV = 100
	shootV = 100
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 5
	test = 1
	kisamePic = 1
	KisaFight = 1
	klonV = 5
	!!defenceV = 10000

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Sasori mag10)':
	cla
	gs 'boyStat', 'A180'
	!!stats
	strenV = 100
	speedV = 50
	agilV = 50
	reactV = 50
	vitalV = 100
	intelV = 100
	willV = 100
	!!skills
	magikV = 10
	boxingV = 50
	shootV = 100
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 9
	test = 1
	sasoriPic = 1
	klonV = 3
	SasoriBody = 6
	!!defenceV = 10000

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Conan mag10)':
	cla
	gs 'boyStat', 'A182'
	!!stats
	strenV = 60
	speedV = 105
	agilV = 100
	reactV = 100
	vitalV = 60
	intelV = 100
	willV = 100
	!!skills
	magikV = 10
	boxingV = 100
	shootV = 100
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 10
	test = 1
	konanPic = 1
	!!klonV = 3
	!!defenceV = 10000
	unmaterialV = 20

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Hidan mag9)':
	cla
	gs 'boyStat', 'A183'
	!!stats
	strenV = 500
	speedV = 100
	agilV = 80
	reactV = 100
	vitalV = 600
	intelV = 100
	willV = 100
	!!skills
	magikV = 9
	boxingV = 110
	shootV = 100
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 11
	test = 1
	hidanPic = 1
	!!klonV = 3
	!!defenceV = 10000
	barierV = 5500
	hidanAtk = 1
	!!unmaterialV = 20

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Juugo, mutant power 600)':
	cla
	!!judosparday = day
	gs 'boyStat', 'A175'
	!!stats
	strenV = 600
	speedV = 60
	agilV = 60
	reactV = 50
	vitalV = 200
	intelV = 50
	willV = 50
	!!skills
	magikV = 1
	boxingV = 100
	shootV = 100
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 0
	test = 1
	jugoFight = 2

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(tatiana mag6)':
	cla
	gs 'boyStat', 'A176'
	!!stats
	strenV = 60
	speedV = 90
	agilV = 90
	reactV = 60
	vitalV = 100
	intelV = 100
	willV = 100
	!!skills
	magikV = 6
	boxingV = 100
	shootV = 100
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 4
	test = 1
	tatianaFight = 1
	klonV = 3
	tumanV = 10

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Throwing knives mag1)':
	cla
	gs 'npcgeneratec', 0, 'Knife Thrower', rand(18,48)
	gs 'boyStat', $npclastgenerated
	!!stats
	strenV = 40
	speedV = 40
	agilV = 40
	reactV = 40
	vitalV = 60
	intelV = 60
	willV = 60
	!!skills
	magikV = 1
	boxingV = 60
	shootV = 60
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 1
	test = 1

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Misty thrower, mag2)':
	cla
	gs 'npcgeneratec', 0, 'Misty Thrower', rand(18,48)
	gs 'boyStat', $npclastgenerated
	!!stats
	strenV = 50
	speedV = 50
	agilV = 50
	reactV = 50
	vitalV = 60
	intelV = 60
	willV = 60
	!!skills
	magikV = 2
	boxingV = 60
	shootV = 60
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 2
	test = 1

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Misty lord clones mag3)':
	cla
	gs 'npcgeneratec', 0, 'Misty Lord Clones', rand(18,48)
	gs 'boyStat', $npclastgenerated
	!!stats
	strenV = 60
	speedV = 60
	agilV = 60
	reactV = 60
	vitalV = 70
	intelV = 70
	willV = 70
	!!skills
	magikV = 3
	boxingV = 70
	shootV = 70
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 3
	test = 1

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Gouge magician mag4)':
	cla
	gs 'npcgeneratec', 0, 'Gouge magician', rand(20,40)
	gs 'boyStat', $npclastgenerated
	!!stats
	strenV = 70
	speedV = 70
	agilV = 70
	reactV = 70
	vitalV = 80
	intelV = 80
	willV = 80
	!!skills
	magikV = 4
	boxingV = 80
	shootV = 80
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 4
	test = 1

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

act '(Commando)':
	cla
	gs 'npcgeneratec', 0, 'Commando', rand(19,28)
	gs 'boyStat', $npclastgenerated
	!!stats
	strenV = 200
	speedV = 100
	agilV = 100
	reactV = 100
	vitalV = 200
	intelV = 10
	willV = 10
	!!skills
	magikV = 0
	boxingV = 100
	shootV = 80
	!!parameters
	healthV = vitalV * 10 + strenV * 5
	manaV = intelV * magikV + magikV * 100 + vitalV * 10
	willpowerV = willV * 10
	BonusAtakV = 0
	BonusDefV = 0
	!!Programme of Action
	program = 8
	dospehV = 800
	dospehEnV = 10
	test = 1

	if spellavtoklon = 1:klon = 3
	if spellbefshild = 1:defence = 500

	gt 'fight', 'start'
end

--- test ---------------------------------