misc scripts

Setup, mapping, script help, etc.
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
zain
Posts: 53
Joined: Thu Jun 07, 2012 10:32 am

Re: misc scripts

Post 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
Post Reply