WoTMUD Archives

A player-run forum for the Wheel of Time MUD
It is currently Mon Dec 10, 2018 8:52 am

All times are UTC - 5 hours [ DST ]




Post new topic Reply to topic  [ 48 posts ]  Go to page Previous  1, 2, 3, 4, 5
Author Message
 Post subject: Re: misc scripts
PostPosted: Thu Sep 13, 2012 9:36 pm 
Offline

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


Top
 Profile  
 
 Post subject: Re: misc scripts
PostPosted: Sat Sep 29, 2012 3:57 pm 
Offline

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


Top
 Profile  
 
 Post subject: Re: misc scripts
PostPosted: Sat Sep 29, 2012 3:58 pm 
Offline

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


Top
 Profile  
 
 Post subject: Re: misc scripts
PostPosted: Sun Sep 30, 2012 8:09 pm 
Offline

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


Top
 Profile  
 
 Post subject: Re: misc scripts
PostPosted: Mon Oct 01, 2012 9:24 pm 
Offline

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


Top
 Profile  
 
 Post subject: Re: misc scripts
PostPosted: Tue Jan 03, 2017 8:53 pm 
Offline

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


Top
 Profile  
 
 Post subject: Re: misc scripts
PostPosted: Sat Jan 20, 2018 11:26 am 
Offline

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


Top
 Profile  
 
 Post subject: Re: misc scripts
PostPosted: Sat Jan 20, 2018 11:32 am 
Offline

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


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 48 posts ]  Go to page Previous  1, 2, 3, 4, 5

All times are UTC - 5 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Group