Conversion script: link fix

2010-04-06T01:16:56Z

link fix

Conversion script: link fix

2010-04-05T08:07:24Z

link fix

Conversion script: link fix

2010-04-03T09:04:06Z

link fix

Adsl-65-70-239-125.dsl.fyvlar.swbell.net: *

2003-12-10T13:41:59Z

New page

== Example Astrology script for mIRC ==

/rolly {
var %reps = $calc( $1 )
set %sux 0
var %dice = $null
:rep
var %die = $rand(1,10)
if ( %die == 10 ) inc %sux
if ( %die >= 7 ) inc %sux
var %dice = %dice %die
dec %reps
if ( %reps > 0 ) goto rep

; echo 2 %dice . %sux

}

/astrology {

var %cha = 2
var %wit = 5
var %int = 2
var %ess = 3
var %per = 5
var %lin = 2
var %cal = 0
var %fat = 0
var %occ = 2
var %col = 3

var %roll1 = $calc( 0 )
var %petdiff = 2
var %praydiff = 4

var %cosign = $?="How many cosignatories? 0-6"
var %cntrsg = $?!="Do you have a countersignatory?"
var %extn = $?="How many hours do you pray?"
var %exty = $int( $calc( %extn / 3 ) )
if ( %exty > 3 ) var %exty = 3
var %petition = $calc( %wit + %lin )
var %pray = $calc( %cha + %per )

rolly %petition
; echo 1 Petition %petition dice : %sux sux

if ( %sux < %petdiff ) {
; echo error, not enough successes
halt
}
else if (%sux < 4) && (%sux >= 2) {
var %praydiff = $calc(%praydiff - 0)
; echo prayer diff 5
}
else if (%sux < 6) && (%sux >= 4) {
var %praydiff = $calc(%praydiff - 1)
; echo prayer diff 4
}
else if (%sux >= 6) {
var %praydiff = $calc(%praydiff - 3)
; echo prayer diff 2
}
if ( %cntrsg ) {
var %roll1 = $calc( 3 )
; echo prayer countersignatory
}
; echo 1 %cosign Cosignitories
; echo prayed for %extn hours + $+ %exty dice
; echo dice %pray
var %prayerroll = $calc( %pray + %exty + %cosign )
rolly %prayerroll
var %prayerextrasux = $calc( %sux - %praydiff )
; echo Prayer Roll Dice: %prayerroll . Base Sux: %sux . Extra Successes: %prayerextrasux

var %destiny = $calc( %int + %fat )
rolly %destiny

if ( $?!="Do Destiny Planning and Precomputed Horoscopes?" ) {
var %destsux = $calc( ( %sux - %ess + 1 ) )
var %horoscope = %calc( %int + %occ )
rolly %horoscope
var %horosux = %sux
if (%horosux > %destsux) var %horosux = %destsux
var %destsux = $int( $calc( %destsux / 3 ) )
var %horosux = $int( $calc( %horosux / 3 ) )
}
else {
var %destsux = 0
var %horosux = 0
}
var %expet = $int( $calc( %prayerextrasux / 3 ) )

var %musid = $?="Total essence of assisiting Sidereals?"
if ( $?!="Display Trappings?" ) var %ritbe = 1
else var %ritbe = 0

var %essroll = $calc( %ess + %col + %ritbe + %musid + %expet + %horosux + %destsux )
rolly %essroll

say Effect Roll Successes : %sux
}

== Comments ==

Before anyone says anything... yes, I am aware that this doesn't work easily and there isn't very many easy options but it does work correctly... AFAIK. =) You can use it to make your own scripts, or just use it for yourself. Er, make sure you copy it from the edit window - the normal window has formatting problems - GoldenH

<i>Thanks, GH! I'm going to try this out right now. Poor #WoD... - [[Balthasar]]</i>

← Older revision	Revision as of 01:16, 6 April 2010
(No difference)

← Older revision	Revision as of 08:07, 5 April 2010
(No difference)

@@ Line 103: / Line 103: @@
 == Comments ==
-Before anyone says anything... yes, I am aware that this doesn't work easily and there isn't very many easy options but it does work correctly... AFAIK. =) You can use it to make your own scripts, or just use it for yourself. Er, make sure you copy it from the edit window - the normal window has formatting problems - GoldenH
+Before anyone says anything... yes, I am aware that this doesn't work easily and there isn't very many easy options but it does work correctly... AFAIK. =) You can use it to make your own scripts, or just use it for yourself. Er, make sure you copy it from the edit window - the normal window has formatting problems - [[GoldenH]]
-<i>Thanks, GH!  I'm going to try this out right now.  Poor #WoD... - [[Balthasar]]</i>
+<i>Thanks, GH!  I'm going to try this out right now.  Poor #[[WoD]]... - [[Balthasar]]</i>

MIRCscriptedAstrology - Revision history

Conversion script: link fix

Conversion script: link fix

Conversion script: link fix

Adsl-65-70-239-125.dsl.fyvlar.swbell.net: *