Missions and NPC Interaction Code Example - Revision history

Zonkmachine: Fix comment

2022-09-08T17:58:00Z

Fix comment

Zonkmachine: FIx randomness.

2021-11-15T18:51:40Z

FIx randomness.

Zonkmachine: Alternative code to see all character elements

2021-11-07T14:30:32Z

Alternative code to see all character elements

Zonkmachine: Remove redundant 'Save()'

2021-11-07T14:23:39Z

Remove redundant 'Save()'

Zonkmachine: Fixup

2021-11-04T18:16:49Z

Fixup

Zonkmachine: Code example - generate characters

2021-11-04T16:20:12Z

Code example - generate characters

New page

<pre>local Event = require "Event"
local Character = require 'Character'
local Rand = require 'Rand'

local person = nil

local generatecitizen = function(citizen)
citizen = citizen or 1 --default
print("Generating person...")
if citizen == 1 then
person = Character.New()
elseif citizen == 2 then
person = Character.New()
person:RollNew()
elseif citizen == 3 then
person = Character.New()
person:RollNew(true)
elseif citizen == 4 then
--person = Character.New()
local rand = Rand.New()
local AceRoll = function ()
return ( -- 32 + 2xD16, range is 34..64 averaging 49)
32 + rand:Integer(1,16) + rand:Integer(1,16) )
end
person = Character.New({
luck = AceRoll(),
intelligence = AceRoll(),
charisma = AceRoll(),
notoriety = AceRoll(),
lawfulness = AceRoll(),
engineering = AceRoll(),
piloting = AceRoll(),
navigation = AceRoll(),
sensors = AceRoll()})
else
print("generatecitizen called with wrong argument: " .. citizen)
end
person:Save()
end

local onChat = function (form, ref, option)
form:Clear()

if option == -1 then
form:Close()
return
elseif option == 1 then
generatecitizen(1)
elseif option == 2 then
generatecitizen(2)
elseif option == 3 then
generatecitizen(3)
elseif option == 4 then
generatecitizen(4)
end

form:SetTitle("Populate the planet!")
form:SetFace(person)
form:SetMessage("Hi! I'm " .. person.name .. " and I'm newly generated. As you may well know there isn't enough of us here. Please push some buttons to generate more citizens. We believe in you!")

form:AddOption("Average", 1)
form:AddOption("Random", 2)
form:AddOption("Crew", 3)
form:AddOption("Ace", 4)
end

local onCreateBB = function (station)
generatecitizen()
station:AddAdvert('Population issue',onChat)
end

onGameEnd = function ()
person:Save()

for person in Character.Find()
do
person:PrintStats()
print("Available: " .. tostring(person.available) .. "\n")
end
end

Event.Register("onGameEnd", onGameEnd)
Event.Register("onCreateBB", onCreateBB)</pre>

@@ Line 21: / Line 21: @@
          --person = Character.New()
          local AceRoll = function ()
-             return ( -- 32 + 2xD16, range is 34..64 averaging 49)
+             -- 32 + 2xD16, range is 34..64 averaging 49
-+ rand:Integer(1,16) + rand:Integer(1,16) )
+            return ( 32 + rand:Integer(1,16) + rand:Integer(1,16) )
          end
          person = Character.New({

@@ Line 1: / Line 1: @@
 <pre>local Event = require "Event"
 local Character = require 'Character'
 local Rand = require 'Rand'
 local person = nil
@@ Line 18: / Line 20: @@
      elseif citizen == 4 then
          --person = Character.New()
          local AceRoll = function ()
              return ( -- 32 + 2xD16, range is 34..64 averaging 49)

@@ Line 75: / Line 75: @@
          person:PrintStats()
          print("Available: " .. tostring(person.available) .. "\n")
      end
 end

@@ Line 71: / Line 71: @@
 onGameEnd = function ()
      for person in Character.Find()
      do

@@ Line 57: / Line 57: @@
      form:SetTitle("Populate the planet!")
      form:SetFace(person)
-     form:SetMessage("Hi! I'm " ..    person.name .. " and I'm newly generated. As you may well know there isn't enough of us here. Please push some buttons to generate more citizens. We believe in you!")
+     form:SetMessage("Hi! I'm " .. person.name .. " and I'm newly generated. As you may well know there isn't enough of us here. Please push some buttons to generate more citizens. We believe in you!")
      form:AddOption("Average", 1)