By Pangaea on Jan 26, 2010Hi Folks
Some buddhist related bits and pieces for your enlightenment.
As im hopless with "from scratch" scripts & only learning basic editing i tend to remix other codes so the 2 scripts here are most likey familer but I thought as I sometimes get requests for buddhist related and never can seem to find any i thought ide make some themed scripts.
Also this is a little thanks to all the folk on hawkee for the wonderful help they have given me over recent months. Beacuse i dont wont to clutter the Latest snippets section with 3 of more or less the same code scripts I thought it might be better to get everything into one post.
!buddha = Random Buddhist Quotes 120+ (with !addbudd feature for ops to add in more)
The Code for this is downbelow in the code box (relace #yourchannel with you chan name)
Txt file with compiled Quotes here: http://www.fractalscapes.net/hawkee-stuff/buddah-quotes.txt (put into your mirc root dir)
Silly Mini Meditation Game
(from and old !fish and !hunt game, tnx for the original code by Da_DoN)
Type !meditate and see how many possibilites you can relise
Type !best meditate to see the nick who has been closest to reaching enlightenment
Get the code here: http://www.fractalscapes.net/hawkee-stuff/meditate.txt (copy text to remotes and save as meditate.
and a complete change of theme, but same code , got a request to make Stig "some say.." quotes, from BBC`s Top Gear :P enjoy
!stig = random stig quote (70+)..and of course, the now obligatry, !addstig command so ops can add in more as the Top Gear sesaons come and go.
Get the .mrc file here: http://www.fractalscapes.net/hawkee-stuff/THE-STIG.txt (relace #yourchannel with you chan name)
And of course the Stig "some say" quotes txt file here: http://www.fractalscapes.net/hawkee-stuff/stig-quotes.txt (put in mirc root)
Regards
pan
On *:text:!buddha:#: {
msg # $read(buddah-quotes.txt)
}
on $*:TEXT:/^[!`.](\w+)/Si:*: {
if ($regml(1) == addbudd) && ($2-) && ($nick isop #yourchan) {
write buddah-quotes.txt $2- | .msg $v2 $v1 $+ , $2- $+ 's been added successfully added to the Buddhist Quote Bank!
}
}
Ghost-writer, you could just use:
on $*:TEXT:/^[.!@](\w+)/Si:#: {
since the $regml(1) already indicates the command for both buddah and addbud. The \w will do the trick. Also, there's no var for %chan
Pangaea, I already gave you an example of combining the text events into one in the forum, yet you still posted your old one. lol
lol, its not that its bad its just that you have different styles of scripting in the same script and that confuses me :p. Good job i guess but if i could improve upon it.
on $*:TEXT:/^[.!@](AddBud|buddah)/Si:#: {
if ($regml(1) == buddah) msg $chan $iif($read(bud.txt),$v1,There are currently no quotes $+ $chr(44) to add one type !Addbud <Quote>)
if ($regml(1) == addbud) {
if ($nick isop %chan) {
if ($2) write bud.txt $2-
msg $chan $iif($2,$nick $+ $chr(44) Your quote of $+(",$2-,") has been added successfully,Your quote could not be added because you have not specified anything to add!)
}
else notice $nick You need to be an op in %chan to add this quote!
}
}
In mine it provides an error message if you cannot add a quote and it tells you if you have no quotes.
Hi there ghost-writer,
No im not kidding, I just suck at scripting. To be honset i didnt want to post anything, i feel kinda out of place (skill wise) so was nervous about posting anything. However i thought i aught to contribute somthing for the help ive recived latley.
But sorry in advance if it upsets anyone. I wont post again till im at an advanced stage or whatever
regards
pan
