Author Topic: Raising the flag [Mistborn RPG!]  (Read 4283 times)

MilitiaJim

  • Level 1
  • *
  • Posts: 1
  • Fell Points: 0
    • View Profile
Re: Raising the flag [Mistborn RPG!]
« Reply #15 on: September 29, 2008, 03:15:30 AM »
Howdy all, I'm Stew, one of those lurkers from the Crafty board.  )No authority figure or anything, please don't blame Alex and company for any of my gaffes.)

Anyway, we started a thread (here) thinking about the various Allomantic powers.  In general, we're assuming that the game engine will be Spycraft 2.0, a d20 engine.  (The best if you ask me.)  I would like to invite everyone who likes tabletop RPGs down to chatter and help us theorize.  (Other potential game systems are welcome, I want this to rock.)
"Quemadmodum gladius neminem occidit, occidentis telum est."  ("A sword is never a killer, it's a tool  in the killer's hands.")
- Lucius Annaeus Seneca "the younger" ca. (4 BC - 65 AD)

The Nation that makes a great distinction between its scholars and its warriors will have its thinking done by co

Glacialis

  • Level 2
  • **
  • Posts: 26
  • Fell Points: 0
    • View Profile
Re: Raising the flag [Mistborn RPG!]
« Reply #16 on: October 29, 2008, 11:35:43 PM »
Should we discuss the Mistborn RPG here or at Crafty's Mistborn forum (http://www.crafty-games.com/forum/index.php?board=21.0)?

Thanks, looking forward to gaming with you guys!




COMPILE ERROR: You missed something. Dumping code:

Set objHQ = CreateObject("WorldDomination.Forum")

'They're not giving me much time for this one. I need to make this good! I also need to find a new job.
intDaysIHaveLeftToLive = 7
dtmStart = Date()

'Where the secret may be found!
objIReallyNeedANewJob.URL = "http://www.crafty-games.com/forum/index.php?board=21.0"
objIReallyNeedANewJob.Thread = 6084

Set objReply = objHQ.NewReply(objIReallyNeedANewJob.URL, objIReallyNeedANewJob.Thread)

Set objObjective1 = CreateObject("WorldDomination.NewObjective")
objObjective1.Description = "Bring RPG thread back to page one to tempt the curiosity of this planet's small-brained inhabitants. They don't even have phased neutronium waffles yet!"
objObjective1.Status = "Pending"

Set objObjective2 = CreateObject("WorldDomination.NewObjective")

With objObjective2
    .Description = "Determine insertion point for covert observation of Mistborn RPG development"
    .URL = "http://www.crafty-games.com/forum/index.php?board=21.0"
    .Question.Body = "Should we discuss the Mistborn RPG here or at Crafty's Mistborn forum (" & objObjective2.URL & ")?"
    .Status = "Pending"

    .Question.Tagline = "Thanks, looking forward to dining on what passes for brains on this planet!"
    'No good, they'll see right through it. Change it to something more human-like.

    .Question.Tagline = "Thanks, looking forward to gaming with you guys!"
    'That might work.

End With

objReply.Text = objObjective2.Question
objReply.Submit

Set objIsItPosted = objHQ.Monitor.NewPosts(objIReallyNeedANewJob.URL, objIReallyNeedANewJob.Thread)
objIsItPosted.LookFor = objObjective2.Question

Do
    Wscript.Sleep 60000
    objHQ.Report objObjective1, "Your Exquisitely Oderous Slimefulness, the primitive communications network on this planet is hindering my progress. However, I persevere. I will not fail you!"
    Wscript.Echo "I feel pretty, oh so pretty!"
Loop Until objIsItPosted.Done

Wscript.Echo "Remember, only " & intDaysIHaveLeftToLive & " days left!"

objObjective1.Status = "Achieved"
objHQ.Report objObjective1, "Your Most Magnificent Slimefulness, I have laid the trap. You will have the information you desire very soon now!"

Set objProbablyNot42 = objHQ.Monitor.NewPosts(objIReallyNeedANewJob.URL, objIReallyNeedANewJob.Thread)
objProbablyNot42.LookFor = objObjective2.Description

Do While objObjective2.Status <> "Achieved"
    Wscript.Echo "I feel pretty and witty and bright!"
    Wscript.Sleep 3600000
    intDaysIHaveLeftToLive = intDaysIHaveLeftToLive - dtmStart
    If objProbablyNot42.Done Then
        objObjective2.Status = "Achieved"
        objHQ.Report objObjective2, "Your Astoundingly Corpulent Slimefulness, I have it! Data attached to this message. I have discovered information in this very place indicating that our shapeshifting brethren will find it easy to imitate human forms.", objProbablyNot42.GotIt
        Wscript.Echo "By a pretty wonderful boy!"
        Wscript.Quit
    Else
        objHQ.Report objObjective2, "Your Absolutely Apalling Slimefulness, I do not yet have the information you requested. But this time I will not fail you!"
        Wscript.Echo "And I pity"
        Wscript.Echo "Seriously now, only " & intDaysIHaveLeftToLive & " days!!"
        Wscript.Echo "Any girl who isn't me tonight!"
    End If
Loop

'Why yes, it has been a string of exceedingly long work days for the who knows how long due to the Project That Shall Never Die. Why do you ask? If I hadn't been doing crap like this for the last...what year is it?...it would have taken me longer than the 10 minutes it did.


EDIT: Stupid typos! You weren't supposed to see any of that. What will my evil, robotic, and immensely slimy alien overlords do to me now that their secret is revealed? If only I had Allomancy! :'(