This is a breakdown of the breeding scripts for Albia, and how they are changed by a few chosen cobs.
Alternate versions of the scripts are put in square brackets.
(1) The original breed scripts for creatures (Grendel Nasty, Norns breed up to 12)
(2) 24 Norn World, this script is as tad more complex and allows cross-species and same sex mating, as well as female sex initiation.
(3) Grendel Friendly is by far the simplest alteration, skipping Grendel aimed scripts.
(4) No Eggs Birth
(5) World Upgrade (from the Grendel Toolkit)
Every time a script is nested, I moved a column to the right, when that loop ends, the script moves back left.
| (1) Original Breeding Script | Description & translation | |||
| scrp 0 0 0 17 | ||||
| targ _it_ | Ends the script if the target creature is dead, to prevent necrophilia | |||
| doif dead ne 0 | ||||
| stop | ||||
| endi | ||||
| targ ownr | ||||
| doif gnus eq 2 | This makes Grendels punch other creatures, then stops the script | |||
| [doif gnus eq 9] | ||||
| impt 6 appr touc anim [33343334] snde punc mesg writ _it_ 2 stim writ targ 0 0 0 0 34 55 43 30 22 30 0 0 stim writ _it_ 0 0 0 0 17 30 26 30 69 20 0 0 | ||||
| stop | ||||
| else | Checks if the target Creature is a Grendel | |||
| targ _it_ | ||||
| doif gnus eq 2 | ||||
| [doif gnus eq 9] | ||||
| setv var0 1 | ||||
| else | ||||
| setv var0 0 | ||||
| endi | ||||
| targ ownr | This makes Grenels hit other Grendels, then stops the script. "Grendel foreplay" | |||
| doif var0 eq 1 | ||||
| impt 3 appr anim [33343334] snde spnk mesg writ _it_ 0 |
||||
| stop endi | ||||
| endi | ||||
| setv var0 0 doif spcs eq 1 | Checks if the owner Creature is male | |||
| addv var0 1 | ||||
| endi | ||||
| doif chem 13 gt 128 | Checks if the owner Creature has high sex drive | |||
| addv var0 1 | ||||
| endi | ||||
| setv var2 spcs targ _it_ doif spcs ne var2 | Checks if the target creature is the same species as the owner | |||
| addv var0 1 setv var1 1 | ||||
| endi | ||||
| doif cage ge 2 | Checks if the target Creature is adult | |||
| addv var0 1 | ||||
| endi | ||||
| targ ownr | ||||
| doif var0 eq 4 | ||||
| impt 3 aim: 0 appr pose 37 wait 5 snde kis2 mesg writ _it_ 0 |
Starts the mating behaviour | |||
| doif totl 4 1 0 lt 12 | Transfers sperm if the norn population is below 12. | |||
| f**k | ||||
| endi | ||||
| stim writ targ 0 0 0 0 45 255 34 100 22 40 23 60 stim writ _it_ 32 0 0 0 45 255 34 100 22 40 23 60 wait 15 pose 12 wait 20 |
Concludes mating Makes the owner & target less horny, pleasured, tired & sleepy. |
|||
| done |
||||
| else | Causes the owner to chastely kiss the target if: The owner is female The owner is not horny The target is of a different species and/or The target is immature | |||
| impt 3 aim: 0 appr |
||||
| doif var1 eq 1 | ||||
| pose 37 wait 5 snde kis1 | ||||
| endi | ||||
| mesg writ _it_ 0 stm# writ targ 13 wait 15 pose 12 wait 20 |
||||
| done | ||||
| endi | ||||
| endm | end the module | |||
This complex script makes grendels violent, and makes sure that only fertile male norns mate with adult, same species females.
It also makes norns kiss under other conditions.