Page 5 of 5

Re: misc scripts

Posted: Thu Sep 13, 2012 9:36 pm
by zain
#CLASS {TellHistory}
#ALIAS tellh {
#IF ((%numparam > 0)&(%isnumber( %1))) {
newhowmany = %1
#ECHO TellHistory set to the last @newhowmany tell~(s~).
howmany = @newhowmany
} {
#IF ((%numparam > 0)&(%1 == "clear")) {
#VAR tellhistory ""
#ECHO TellHistory cleared.
} {
#ECHO --- Last @howmany tell~(s~) received---
#LOOP %numitems( @tellhistory)-@howmany,%numitems( @tellhistory) {#ECHO %item( @tellhistory, %i)}
}
}
}
#VAR howmany {10}
#VAR tellrec {I tried to give away an 18 17 18 hunter earlier.. I failed.}
#VAR newhowmany {10}
#VAR curtime {18:28:16}
#VAR enterthis {(@curtime): Tiedra told you: @tellrec}
#VAR tellhistory {} {}
#TRIGGER {(%w) tells you '(*)'$} {
#IF (%numitems( @tellhistory) = 100) {#DELNITEM tellhistory 1} {#NOOP}
#VARIABLE tellrec "%2"
#VARIABLE tellrec %replace( @tellrec, ~(, ~{)
#VARIABLE tellrec %replace( @tellrec, ~", ~')
#VARIABLE tellrec %replace( @tellrec, ~), ~})
#VARIABLE curtime %time( "h:nn:ss")
#VARIABLE enterthis %expand( "~(@curtime)~: %1 told you: @tellrec")
#VARIABLE tellhistory %additem( @enterthis, @tellhistory)
}
#CLASS 0

Re: misc scripts

Posted: Sat Sep 29, 2012 3:57 pm
by zain
#DELCLASS {StabberScript}
#CLASS {StabberScript}
#ALIAS tar {StabTarget=%1;#SHOW %ansi(bold,cyan)Stab Target set to @StabTarget}
#ALIAS tar2 {StabTarget2=%1;#SHOW %ansi(bold,cyan)Stab Target 2 set to @StabTarget2}
#ALIAS unstab {#SHOW deleting stabber script;#DELCLASS {StabberScript}}
#VAR StabTarget {human}
#VAR StabTarget2 {calippo}
#KEY F1 {hide;bac h.@StabTarget}
#KEY F2 {bac h.@StabTarget}
#KEY F3 {hide;bac h.@StabTarget2}
#KEY F4 {bac h.@StabTarget2}
#KEY F5 {#T+ DlineStabTrigger;flee}
#TRIGGER {You panic and attempt to flee!} {hide;bac @stabTarget;#T- DlineStabTrigger} "DlineStabTrigger"
#CLASS 0
#T- DlineStabTrigger


tar target1 (usually race, but can be a name)
tar2 target2 (low ppl, fcs)

f1 hides and stabs target1
f2 stabs target1 for when you need to spam

f3 hides and stabs target 2
f4 stabs target 2

f5 for when your engaged, and you want to flee and dline, just hit f5, itll flee, when it goes thru, itll put in the dline stab for you, if it fails, then just keep fleeing manually and when it suceeds itll stab

Re: misc scripts

Posted: Sat Sep 29, 2012 3:58 pm
by zain
#CLASS {TravelScript}
#ALIAS listports {
#SHOW {The following port codes are stored:}
#SHOWDB @cityports
}
#ALIAS travel {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
chann 'travel' @port
}
#ALIAS store {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
#ADDKEY cityports %2 @port
}
#ALIAS entercode {
@portnum = %eval( %1)
@port = %1
#ADDKEY cityports %2 @port
}
#ALIAS enterquick {@quickport = %1}
#ALIAS port {
@port = @cityports.%1
chann 'travel' @port
}
#TRIGGER {~[chann ~'locate life~'~]} {
@portlistnum = 0
@ports = ""
}
#TRIGGER {~[chann ~'locate object~'~]} {
@portlistnum = 0
@ports = ""
}
#TRIGGER {&object - ~[&code~] - somewhere &codedir of here.} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> @codedir}
#ADDITEM ports @code
}
#TRIGGER {&object - ~[&code~] - somewhere &codedir of here, carried by &holder} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> @codedir on @holder}
#ADDITEM ports @code
}
#TRIGGER {&object - ~[&code~] - somewhere around here, carried by &holder} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> THIS ZONE on @holder}
#ADDITEM ports @code
}
#TRIGGER {&object - ~[&code~] - somewhere around here.} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> THIS ZONE}
#ADDITEM ports @code
}
#TRIGGER {It is &time o'clock &m, on the * day of the month of &month, year *.} {
#IF (@month == @oldmonth) {} {
@cityports = ""
@quickport = ""
#say {"MONTH CHANGE - PORTS LOST"}
}
@oldmonth = @month
}
#TRIGGER {The Wheel of Time spins} {
#say {"MONTH CHANGE - PORTS LOST"}
@cityports = ""
time
}
#TRIGGER {The Wheel of Time turns toward} {
#say {"MONTH CHANGE - PORTS LOST"}
@cityports = ""
time
}
#TRIGGER {A flash of bright white light appears, and suddenly envelopes you.} {#FIND}
#TRIGGER {a trolloc.} {#CW red}
#TRIGGER {a myrddraal.} {#CW red}
#TRIGGER {a dreadlord.} {#CW red}
#TRIGGER {a seanchan.} {#cw magenta}
#KEY F2 {
embrace
chann 'travel' RANDOMPORT
}
#KEY F1 {
@port = @cityports.TV
embrace
chann 'travel' @port
}
#CLASS 0

Re: misc scripts

Posted: Sun Sep 30, 2012 8:09 pm
by zain
#class {FCTarg}
#alias {setfire} {#T+ fire;#T- ice}
#alias {setice} {#T+ ice;#T- fire}
#class {FCTarg/Fire}
#key ] {channel 'fireball' @wtgt}
#class 0
#class {FCTarg/Ice}
#key ] {channel 'ice spikes' @wtgt}
#class 0
#class 0

Re: misc scripts

Posted: Mon Oct 01, 2012 9:24 pm
by zain
#CLASS {Search script}
#ALIAS startsearch {
#VAR dirstosearch {N|S|E|W|U|D}
#FORALL @roomexlist {#DELI dirstosearch %i}
#VAR numofdirs {%numitems( @dirstosearch)}
#VAR doorsfound 0
search %item( @dirstosearch, @numofdirs)
#T+ hiddenfound
#T+ nothingfound
}
#VAR dirstosearch {}
#VAR numofdirs {0}
#VAR doorsfound {0}
#VAR roomex {}
#VAR roomexlist {}
#TRIGGER {~[ obvious exits: (*) ~]} {
roomex = %1
#VAR roomexlist {%replace( @roomex, " ", "|")}
}
#TRIGGER "nothingfound" {You didn't find anything.$} {
#DELI dirstosearch %item( @dirstosearch, @numofdirs)
#ADD numofdirs -1
#IF (@numofdirs = 0) {
#ECHO Room search done.
#ECHO Doors found: @doorsfound
#T- hiddenfound
#T- nothingfound
} {search %item( @dirstosearch, @numofdirs)}
} "" {disable}
#TRIGGER "hiddenfound" {You skillfully discover a hidden (%w).$} {
#DOOR %item( @dirstosearch, @numofdirs) %1
#DELI dirstosearch %item( @dirstosearch, @numofdirs)
#ADD doorsfound 1
#ADD numofdirs -1
#IF (@numofdirs = 0) {
#ECHO Room search done.
#ECHO Doors found: @doorsfound
#T- hiddenfound
#T- nothingfound
} {search %item( @dirstosearch, @numofdirs)}
} "" {disable}
#CLASS 0

Re: misc scripts

Posted: Tue Jan 03, 2017 8:53 pm
by zain
#CLASS {mob}
#ALIAS setmob {
#var mob {%1}
#say {mob set to %1}
}
#ALIAS dim {dia @mob}
#ALIAS oo {order @mob}
#ALIAS o {
order @mob kill @target
order @mob bash
}
#ALIAS of {order @mob flee}
#ALIAS or {order @mob rescue}
#VAR mob {riane}
#CLASS 0

Re: misc scripts

Posted: Sat Jan 20, 2018 11:26 am
by zain
#CLASS {MakeGate}
#ALIAS makegate {
#var newgatealias %1
#var makinggate 1
embrace
channel 'gate'
}
#ALIAS resetgates {#DELC @CurrentGater}
#ALIAS listgates {#forall %concat( "@", %eval( @CurrentGater), gatelist) {#show %i}}
#VAR newgatealias {gcair}
#VAR makinggate {0}
#VAR CurrentGater {GretchenGatecodes}
#TRIGGER {^You memorize this place as (%1).$} {
release
#if (@makinggate=1) {
#var makinggate 0
#CLASS @CurrentGater
#alias @newgatealias {
embrace
channel 'gate' %1
}
#echo @newgatealias set to %1.
#if (%class( %concat( %eval( @CurrentGater), gatelist))=-1) {#var %concat( "@", %eval( @CurrentGater), gatelist) {}}
#additem %concat( %eval( @CurrentGater), gatelist) {@newgatealias}
#CLASS 0
}
}
#TRIGGER {You lost control of Saidar!$} {#if (@makinggate=1) {#var makinggate 0}}
#TRIGGER {^Welcome to the Wheel of Time! Type 'help' for information.} {score}
#TRIGGER {This ranks you as (%w)} {#var CurrentGater %1Gatecodes}
#TRIGGER {Cancelled.} {#if (@makinggate=1) {#var makinggate 0}}
#TRIGGER {You concentrate and a bright slash of light dilates into a gateway to another place.} {
rel
look gate
}
#CLASS 0

Re: misc scripts

Posted: Sat Jan 20, 2018 11:32 am
by zain
#CLASS {TravelScript}
#ALIAS listports {
#SHOW {The following port codes are stored:}
#SHOWDB @cityports
}
#ALIAS travel {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
chann 'travel' @port
}
#ALIAS store {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
#ADDKEY cityports %2 @port
}
#ALIAS entercode {
@portnum = %eval( %1)
@port = %1
#ADDKEY cityports %2 @port
}
#ALIAS enterquick {@quickport = %1}
#ALIAS port {
@port = @cityports.%1
chann 'travel' @port
}
#ALIAS listports {
#SHOW {The following port codes are stored:}
#SHOWDB @cityports
}
#ALIAS travel {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
chann 'travel' @port
}
#ALIAS store {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
#ADDKEY cityports %2 @port
}
#ALIAS entercode {
@portnum = %eval( %1)
@port = %1
#ADDKEY cityports %2 @port
}
#ALIAS enterquick {@quickport = %1}
#ALIAS port {
@port = @cityports.%1
chann 'travel' @port
}
#ALIAS listports {
#SHOW {The following port codes are stored:}
#SHOWDB @cityports
}
#ALIAS travel {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
chann 'travel' @port
}
#ALIAS store {
@portnum = %eval( %1)
@port = %item( @ports, @portnum)
#ADDKEY cityports %2 @port
}
#ALIAS entercode {
@portnum = %eval( %1)
@port = %1
#ADDKEY cityports %2 @port
}
#ALIAS enterquick {@quickport = %1}
#ALIAS port {
@port = @cityports.%1
chann 'travel' @port
}
#TRIGGER {^(%w)} {#ADDITEM Group "%1"}
#TRIGGER {^$} {#T- {GroupDiag|Update}}
#TRIGGER {~[chann ~'locate life~'~]} {
portlistnum = 0
ports = ""
}
#TRIGGER {~[chann ~'locate object~'~]} {
portlistnum = 0
ports = ""
}
#TRIGGER {&object - ~[&code~] - somewhere &codedir of here.} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> @codedir}
#ADDITEM ports @code
}
#TRIGGER {&object - ~[&code~] - somewhere &codedir of here, carried by &holder} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> @codedir on @holder}
#ADDITEM ports @code
}
#TRIGGER {&object - ~[&code~] - somewhere around here, carried by &holder} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> THIS ZONE on @holder}
#ADDITEM ports @code
}
#TRIGGER {&object - ~[&code~] - somewhere around here.} {
@portlistnum = %eval( @portlistnum + 1)
#SUB {@portlistnum ~<send = 'chann ~'travel~' @code'>@object~</send> THIS ZONE}
#ADDITEM ports @code
}
#TRIGGER {It is &time o'clock &m, on the * day of the month of &month, year *.} {
#IF (@month == @oldmonth) {} {
@cityports = ""
@quickport = ""
#say {"MONTH CHANGE - PORTS LOST"}
}
@oldmonth = @month
}
#TRIGGER {The Wheel of Time spins} {
#say {"MONTH CHANGE - PORTS LOST"}
@cityports = ""
time
}
#TRIGGER {The Wheel of Time turns toward} {
#say {"MONTH CHANGE - PORTS LOST"}
@cityports = ""
time
}
#TRIGGER {a trolloc.} {#CW red}
#TRIGGER {a myrddraal.} {#CW red}
#TRIGGER {a dreadlord.} {#CW red}
#TRIGGER {a seanchan.} {#cw magenta}
#ONINPUT {^{chann|channe|channel} 'locate {life|object}' %w$} {
portlistnum = 0
ports = ""
} "" {notrig}
#KEY F2 {
embrace
chann 'travel' RANDOMPORT
}
#KEY F1 {
@port = @cityports.TV
embrace
chann 'travel' @port
}
#CLASS 0