rendered paste body
alias gban {
var %a = 1, %net = $network
while $scon(%a) {
scid %a
if ($network == %net) {
var %p 1
while (%p <= $chan(0)) {
if ($me isop $chan(%p)) || ($me ishop $chan(%p)) {
mode $chan(%p) +b $1
}
inc %p
}
}
inc %a
}
scid -r
}
alias gunban {
var %a = 1, %net = $network
while $scon(%a) {
scid %a
if ($network == %net) {
var %p 1
while (%p <= $chan(0)) {
if ($me isop $chan(%p)) || ($me ishop $chan(%p)) {
mode $chan(%p) -b $1
}
inc %p
}
}
inc %a
}
scid -r
}
g unban
on *:input:#: {
if ($2) && (!$3) {
if ($2 ison $chan) || ($2 == me) {
if ($left($1,2) == +q) { mode $chan +q $iif($2 == me,$me,$2) }
if ($left($1,2) == +a) { mode $chan +a $iif($2 == me,$me,$2) }
if ($left($1,2) == +o) { mode $chan +o $iif($2 == me,$me,$2) }
if ($left($1,2) == +h) { mode $chan +h $iif($2 == me,$me,$2) }
if ($left($1,2) == +v) { mode $chan +v $iif($2 == me,$me,$2) }
if ($left($1,2) == -q) { mode $chan -q $iif($2 == me,$me,$2) }
if ($left($1,2) == -a) { mode $chan -a $iif($2 == me,$me,$2) }
if ($left($1,2) == -o) { mode $chan -o $iif($2 == me,$me,$2) }
if ($left($1,2) == -h) { mode $chan -h $iif($2 == me,$me,$2) }
if ($left($1,2) == -v) { mode $chan -v $iif($2 == me,$me,$2) }
if ($left($1,2) == +e) { mode $chan +e $address($2,3) }
if ($left($1,2) == -e) { mode $chan -e $address($2,3) }
if ($left($1,2) == +I) { mode $chan +I $address($2,3) }
if ($left($1,2) == -I) { mode $chan -I $address($2,3) }
if ($left($1,2) == +b) { mode $chan +b $address($2,3) }
if ($left($1,2) == -b) { mode $chan -b $address($2,3) }
if ($left($1,3) == +eI) { mode $chan +eI $address($2,3) $address($2,3) }
if ($left($1,3) == -eI) { mode $chan -eI $address($2,3) $address($2,3) }
if ($left($1,5) == .mute) { mode $chan +b-aohv ~q: $+ $address($2,2) $2 $2 $2 $2 }
if ($left($1,7) == .unmute) { ban -r $chan ~q: $+ $address($2,2) }
if ($left($1,4) == .inv) { invite $2 $chan }
if ($left($1,2) == .k) { kick $chan $iif($2 == me,$me,$2) }
if ($left($1,3) == .kb) || ($left($1,7) == .kaybee) { mode $chan +b $address($2,3) | kick $chan $2 Banned }
}
if ($2 !ison $chan) {
if ($left($1,2) == +b) { mode $chan +b $2 }
if ($left($1,2) == -b) { mode $chan -b $2 }
}
}
if (!$2) {
if ($left($1,2) == +E) && ($len($1) == 2) { mode $chan +E }
if ($left($1,2) == -E) && ($len($1) == 2) { mode $chan -E }
if ($left($1,2) == +V) { mode $chan +V }
if ($left($1,2) == -V) { mode $chan -V }
if ($left($1,2) == +Q) { mode $chan +Q }
if ($left($1,2) == -Q) { mode $chan -Q }
if ($left($1,2) == +m) { mode $chan +m }
if ($left($1,2) == -m) { mode $chan -m }
if ($left($1,2) == +i) { mode $chan +i }
if ($left($1,2) == -i) { mode $chan -i }
if ($left($1,2) == +p) { mode $chan +p }
if ($left($1,2) == -p) { mode $chan -p }
if ($left($1,2) == +s) { mode $chan +s }
if ($left($1,2) == -s) { mode $chan -s }
if ($left($1,2) == -f) { mode $chan -f }
if ($left($1,3) == +eI) { mode $chan +eI $address($me,3) $address($me,3) }
if ($left($1,3) == -eI) { mode $chan -eI $address($me,3) $address($me,3) }
}
}
menu * {
Autotalker:dialog -m Autotalker Autotalker
}
dialog -l AutoTalker {
title "mIRC AutoTalker by JtRacer"
size -1 -1 215 103
option dbu
combo 1, 6 45 60 50, size drop
edit "Enter text here", 2, 5 10 205 16, multi
edit "10", 3, 136 44 22 10
combo 4, 161 44 40 33, size drop
text "Channel to msg:", 5, 7 32 40 8
text "Repeat text once every", 6, 72 44 61 10
button "Start", 7, 72 60 37 12
button "Stop", 8, 114 60 37 12
button "Close", 9, 94 83 37 12, ok cancel
}
on *:dialog:Autotalker:init:0: {
var %i = 1, %x = AMSG, %y = Seconds Minutes Hours
while (%i <= $chan(0)) {
%x = %x $chan(%i)
inc %i
}
did -r Autotalker 1
didtok Autotalker 1 32 %x
did -c Autotalker 1 1
didtok Autotalker 4 32 %y
did -c Autotalker 4 1
}
on *:dialog:Autotalker:sclick:7: {
var %t $did(Autotalker,3) $replace($did(Autotalker,4),seconds,*1,minutes,*60,hours,*3600)
var %o $iif($did(Autotalker,1) == AMSG,amsg,msg $v1)
timerat 0 $calc(%t) %o $did(Autotalker,2)
}
on *:dialog:Autotalker:sclick:8: {
timerat off
}
=========================================================-=
on *:start: {
hmake nucsban 100
if ($isfile(nucsban.hsh)) hload nucsban nucsban.hsh
}
on *:exit: if ($hget(nucs)) hsave -o nucsban nucsban.hsh
on $*:text:/^!(addban|delban) */si:#: {
if (#nucs* !iswm $chan) || ($nick isreg $chan) || ($nick isvoice $chan) { halt }
if ($right($1,6) == addban) {
var %a $iif($2 ison $chan,$address($2,3),$iif($chr(64) isin $2,$2,$+($2,$chr(33),$chr(42),$chr(64),$chr(42))))
.notice $nick $2 ( $+ %a $+ ) added to Banlist.
hadd nucsban $2 %a
mode $chan +b %a
if ($2 ison $chan) { kick $chan $2 }
}
if ($right($1,6) == delban) {
if ($hget(nucsban,$2)) {
.notice $nick $2 ( $+ $hget(nucsban,$2) $+ ) removed from Banlist.
hdel nucsban $2
}
}
}
on *:text:!address*:#: {
if (#nucs* !iswm $chan) || ($nick isreg $chan) || ($nick isvoice $chan) { halt }
.notice $nick $hget(nucsban,$2)
}
on *:text:!banlist:#: {
if (#nucs* !iswm $chan) || ($nick isreg $chan) || ($nick isvoice $chan) { halt }
if ($hget(nucsban,0).item == 0) {
.notice $nick No entries in banlist
halt
}
var %i = 1, %x
while ($hget(nucsban,%i).item) {
%x = %x $v1
inc %i
}
.notice $nick Nicknames in Banlist: %x
}
on *:text:!ban noobs:#: {
if (#nucs* !iswm $chan) || ($nick isreg $chan) || ($nick isvoice $chan) { halt }
var %i = 1, %x
while ($hget(nucsban,%i).data) {
%x = %x $v1
inc %i
}
mode $chan $+(+,$str(b,$numtok(%x,32))) %x
%i = 1
while ($hget(nucsban,%i).item) {
if ($v1 ison $chan) { kick $chan $v1 }
inc %i
}
}
alias addban {
var %a $iif($1 ison $chan,$address($1,3),$iif($chr(64) isin $1,$1,$+($1,$chr(33),$chr(42),$chr(64),$chr(42))))
.notice $nick $1 ( $+ %a $+ ) added to Banlist.
hadd nucsban $1 %a
echo -a $1 ( $+ %a $+ ) added to Banlist.
mode $chan +b %a
if ($1 ison $chan) { kick $chan $1 }
}
alias delban {
if ($hget(nucsban,$1)) {
echo -a $1 ( $+ $hget(nucsban,$1) $+ ) removed from Banlist.
hdel nucsban $1
}
}
alias meop { var %x = 1 | var %y | while (%x <= $chan(0)) { if ($me isop $chan(%x)) { inc %y 1 } | inc %x } | return %y }
alias mevoice { var %x = 1 | var %y | while (%x <= $chan(0)) { if ($me isvoice $chan(%x)) { inc %y 1 } | inc %x } | return %y }
alias mehop { var %x = 1 | var %y | while (%x <= $chan(0)) { if ($me ishop $chan(%x)) { inc %y 1 } | inc %x } | return %y }
alias oppower {
/say 01I'm On04 $chan(0) 01Channels On This Network; I Am Op On04 $meop 01 $+ , Halfop On04 $mehop 01And Voice On04 $mevoice 01 $+ . I Can Kick And Ban About04 $calc($calc($meop + $mehop) / $chan(0) * 100) $+ % 01Of The Retards.
}
alias mass {
var %c = $nick(#,0)
while (%c) {
$1- $nick(#,%c)
dec %c 1
}
}
alias big {
set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A
var %bl.cmd say, %bl.col1, %bl.col2
if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- }
if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 }
elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- }
else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- }
var %bl.idx1 1, %bl.idx2 1, %bl.idx3 1
;set the block field
while (%bl.idx1 <= $0) {
set %bl.idx2 1
while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) {
blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1))
inc %bl.idx2
}
if (%bl.idx1 < $0) blockappend $blockletter
inc %bl.idx1
}
;colorize the block field
blockcolor %bl.col1 %bl.col2
;output the block field
set %bl.idx3 1
while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 }
}
alias -l blockletter {
if ($1 === A) return ABA BAB BBB BAB BAB
elseif ($1 === B) return BBA BAB BBA BAB BBA
elseif ($1 === C) return ABB BAA BAA BAA ABB
elseif ($1 === D) return BBA BAB BAB BAB BBA
elseif ($1 === E) return BBB BAA BBA BAA BBB
elseif ($1 === F) return BBB BAA BBA BAA BAA
elseif ($1 === G) return ABB BAA BAB BAB ABB
elseif ($1 === H) return BAB BAB BBB BAB BAB
elseif ($1 === I) return BBB ABA ABA ABA BBB
elseif ($1 === J) return BBB ABA ABA ABA BBA
elseif ($1 === K) return BAB BAB BBA BAB BAB
elseif ($1 === L) return BAA BAA BAA BAA BBB
elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB
elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB
elseif ($1 === O) return BBB BAB BAB BAB BBB
elseif ($1 === P) return BBB BAB BBB BAA BAA
elseif ($1 === Q) return BBB BAB BAB BBB AAB
elseif ($1 === R) return BBB BAB BBB BBA BAB
elseif ($1 === S) return ABB BAA ABA AAB BBA
elseif ($1 === T) return BBB ABA ABA ABA ABA
elseif ($1 === U) return BAB BAB BAB BAB BBB
elseif ($1 === V) return BAB BAB BAB BAB ABA
elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA
elseif ($1 === X) return BAB BAB ABA BAB BAB
elseif ($1 === Y) return BAB BAB BAB ABA ABA
elseif ($1 === Z) return BBB AAB ABA BAA BBB
elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB
elseif ($1 === b) return BAA BAA BBB BAB BBB
elseif ($1 === c) return AAA AAA BBB BAA BBB
elseif ($1 === d) return AAB AAB BBB BAB BBB
elseif ($1 === e) return AAA ABB BAB BBA ABB
elseif ($1 === f) return ABB ABA BBB ABA ABA
elseif ($1 === g) return AAA BBB BAB ABB BBA
elseif ($1 === h) return BAA BAA BBB BAB BAB
elseif ($1 === i) return A B A B B
elseif ($1 === j) return AB AA AB AB BB
elseif ($1 === k) return BAA BAA BAB BBA BAB
elseif ($1 === l) return BA BA BA BA BB
elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB
elseif ($1 === n) return AAA AAA BBA BAB BAB
elseif ($1 === o) return AAA AAA BBB BAB BBB
elseif ($1 === p) return AAA BBB BAB BBB BAA
elseif ($1 === q) return AAA BBB BAB BBB AAB
elseif ($1 === r) return AAA AAA BAB BBA BAA
elseif ($1 === s) return AA AB BA AB BB
elseif ($1 === t) return ABA ABA BBB ABA ABA
elseif ($1 === u) return AAA AAA BAB BAB BBB
elseif ($1 === v) return AAA AAA BAB BAB ABA
elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA
elseif ($1 === x) return AAA AAA BAB ABA BAB
elseif ($1 === y) return AAA BAB BAB ABA BAA
elseif ($1 === z) return AAA BBB AAB ABA BBB
elseif ($1 == 0) return ABA BAB BAB BAB ABA
elseif ($1 == 1) return ABA BBA ABA ABA BBB
elseif ($1 == 2) return BBA AAB ABA BAA BBB
elseif ($1 == 3) return BBA AAB ABA AAB BBA
elseif ($1 == 4) return BAB BAB BBB AAB AAB
elseif ($1 == 5) return BBB BAA BBA AAB BBA
elseif ($1 == 6) return ABB BAA BBB BAB BBB
elseif ($1 == 7) return BBB AAB AAB ABA ABA
elseif ($1 == 8) return BBB BAB BBB BAB BBB
elseif ($1 == 9) return BBB BAB BBB AAB BBA
elseif ($1 == .) return A A A A B
elseif ($1 == !) return B B B A B
elseif ($1 == ?) return BBB AAB ABA AAA ABA
elseif ($1 == -) return AAA AAA BBB AAA AAA
elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB
elseif ($1 == ^) return ABA BAB AAA AAA AAA
elseif ($1 == +) return AAA ABA BBB ABA AAA
elseif ($1 == =) return AAA BBB AAA BBB AAA
elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA
elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB
elseif ($1 == ]) return BB AB AB AB BB
elseif ($1 == [) return BB BA BA BA BB
elseif ($1 == :) return A B A B A
elseif ($1 == $chr(59)) return AA AB AA AB BA
elseif ($1 == <) return AAB ABA BAA ABA AAB
elseif ($1 == >) return BAA ABA AAB ABA BAA
elseif ($1 == $chr(40)) return AB BA BA BA AB
elseif ($1 == $chr(41)) return BA AB AB AB BA
elseif ($1 == ") return BAB BAB AAA AAA AAA
elseif ($1 == ') return B B A A A
elseif ($1 == `) return BA AB AA AA AA
elseif ($1 == ,) return AA AA AA AB BA
elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA
elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB
elseif ($1 == $chr(124)) return B B B B B
elseif ($1 == *) return BAB ABA BAB AAA AAA
else return A A A A A
}
alias -l blockappend {
set %bl.buffer1 $+(%bl.buffer1,$$1,A)
set %bl.buffer2 $+(%bl.buffer2,$$2,A)
set %bl.buffer3 $+(%bl.buffer3,$$3,A)
set %bl.buffer4 $+(%bl.buffer4,$$4,A)
set %bl.buffer5 $+(%bl.buffer5,$$5,A)
}
alias -l blockcolor {
var %bl.buff 1, %bl.string 5
while (%bl.buff <= 5) {
while (%bl.string >= 1) {
set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string)))
set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string)))
dec %bl.string
}
set %bl.string 5
inc %bl.buff
}
}
alias -l blockrand return $iif($rand(0,1) == 0,<,>)
alias ra1 {
set %rainbow $1-
%rainbow = $replace(%rainbow,a,2a,b,3b,c,4c,d,5d,e,6e,f,7f,g,8g,h,9h,i,10i,j,11j,k,12k,l,13l,m,14m,n,15n,o,2o,p,3p,q,4q,r,5r,s,6s,t,7t,u,8u,v,9v,w,10w,x,11x,y,12y,z,13z,=,14=,?,2?,!,3!,",4",£,5£,$,6$,%,7%,^,8^,&,9&,*,10*,$chr(40),11 $+ $chr(40),$chr(41),13 $+ $chr(41),-,3-,_,4_,=,5=,+,6+)
say %rainbow
unset %rainbow
}
alias ascii {
set %ascii $1-
%ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)
say %ascii
unset %ascii
}
on *:TEXT:*:#: {
if ($left($1,1) == !) { halt }
if (%mimic == 1) && ($nick == %mnick) {
msg # $1-
}
elseif (%rmimic == 1) && ($nick == %mnick) {
set %n 250
while (%n > 0) {
set %msgreverse %msgreverse $+ $mid($1-, $+ %n $+ ,1)
if ($mid($1-, $+ %n $+ ,1) == $chr(32)) { set %msgreverse %msgreverse $chr(32) }
%n = %n - 1
}
msg # %msgreverse
unset %msgreverse
}
elseif (%mimic == 1) && (# == %chnl) {
msg # $1-
}
elseif (%rmimic == 1) && (# == %chnl) {
set %n 250
while (%n > 0) {
set %msgreverse %msgreverse $+ $mid($1-, $+ %n $+ ,1)
if ($mid($1-, $+ %n $+ ,1) == $chr(32)) { set %msgreverse %msgreverse $chr(32) }
%n = %n - 1
}
msg # %msgreverse
unset %msgreverse
}
}
menu Channel,Query {
Mimicer:mimicer
}
alias mimicer {
if ( $dialog(mimicerd) ) { dialog -v mimicerd mimicerd }
else { dialog -md mimicerd mimicerd }
}
;, $did, xlocation ylocation length height
dialog mimicerd {
title "MIMIC"
size -1 -1 113 74
option dbu
text "Channel", 1, 5 26 35 8
edit "#", 2, 5 35 75 10
button "OK", 3, 85 34 20 12
button "Copy cat", 4, 5 48 50 12
button "Reverse", 5, 60 48 50 12
button "Copy off", 6, 5 61 50 12
button "Rev off", 7, 60 61 50 12
button "OK", 8, 85 11 20 12
text "Nick", 9, 5 3 35 8
edit "", 10, 5 12 75 10
}
on *:dialog:mimicerd:*:*: {
if ( $devent == sclick ) {
if ($did == 3) { set %chnl $did(2) }
if ($did == 4) { set %mimic 1 }
if ($did == 5) { set %rmimic 1 }
if ($did == 6) { unset %mimic }
if ($did == 7) { unset %rmimic }
if ($did == 8) { set %mnick $did(10) }
}
}
;______________________________________________________________________________________________________________________________
;| |
;|Shooting game created by FRISH :) |
;| |
;|For you to play just type /fsg (short for FRISH'S Shooting/suicide Game) and click on any of the buttons. |
;|If you pick a name from the list in /fsg then click "SHOOT PLAYER" then that player will be chose to be shot. |
;|Alternatively you can right click, then click "suicide game" and click the button |
;|Other players have to type the commands to play. |
;| |
;|There is now no need to manually enter your channel to play, |
;|it now auto does it on typing !suicicdegame or pressing the button in /fsg ;) |
;| |
;|Commands in this game are commands are !suicidegame, !shootme, !shoothim/her, !newshooter, !shootsetme, and !stopsuicidegame |
;|These are shown in !scommands when THEY type it in. |
;| |
;|Remember to replace: |
;|*botname1/2/3 with your bot names, if any in this section (there are 2 to replace on the 3 lines below |
;|alias picknewrandom { |
;| %nospam = 1 |
;| :repick |
;| set %victim $nick($1,$rand(1,$nick($1,0))) |
;| msg %mychan 9 %victim 2type !shootme, its your turn to put the gun to your head |
;| if (%victim == botname1) { msg %mychan 4 botname1 can't play, hes a bot :P, rechoosing | goto repick } |
;| if (%victim == botname2) { msg %mychan 4 botname2 can't play, hes a bot :P, rechoosing | goto repick } |
;| if (%victim == botname3) { msg %mychan 4 botname3 can't play, hes a bot :P, rechoosing | goto repick } |
;|} |
;| |
;|_____________________________________________________________________________________________________________________________|
;this code below may be buggy when the round is over
;elseif (%nospam == 2) { notice $nick dont spam!! wait till round is over!! }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; CoDING ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on 1:load:{ .echo -a Frish's Suicide Game Loaded }
on *:text:!scommands:#:{ if (# == %mychan) {
.notice $nick the suicidegames commands are !suicidegame, !shootme, !shoothim/her, !newshooter, !shootsetme, !stopsuicidegame, !victim and !smaker
}
}
menu Channel,Query {
Suicide game:fsg
}
menu menubar {
-
Frish's Suicide Game:{ .dialog -md suicide_game suicide_game }
-
}
on *:text:!smaker:#:{ if (%FRISH != 4) {
%FRISH = 4
msg # maker of the suicidegame is FRISH
.notice $nick 0,0#########################################
.notice $nick 0,0###4,4####0,0###4,4#####0,0#####4,4#####0,0###4,4#####0,0###4,4#0,0###4,4#
.notice $nick 0,0##7,7####0,0###7,7#####4,4#0,0####7,7#####0,0###7,7#####0,0###7,7#4,4#0,0##7,7#4,4#
.notice $nick 0,0##7,7#4,4#0,0#####7,7#4,4#0,0##7,7#4,4#0,0######7,7#4,4#0,0####7,7#4,4#0,0######7,7#4,4#0,0##7,7#4,4#
.notice $nick 0,0##7,7#4,4#0,0#####7,7#4,4#0,0##7,7#4,4#0,0######7,7#4,4#0,0####7,7#4,4#0,0######7,7#4,4#0,0##7,7#4,4#
.notice $nick 0,0##7,7#4,4###0,0###7,7#4,4###7,7#4,4#0,0######7,7#4,4#0,0####7,7#4,4####0,0###7,7#4,4###7,7#4,4#
.notice $nick 0,0##7,7###0,0####7,7#####0,0#######7,7#4,4#0,0####7,7####4,4#0,0###7,7#####4,4#
.notice $nick 0,0##7,7#4,4#0,0#####7,7#4,4#7,7#4,4#0,0########7,7#4,4#0,0#######7,7#4,4#0,0###7,7#4,4#0,0##7,7#4,4#
.notice $nick 0,0##7,7#4,4#0,0#####7,7#4,4#0,0#7,7#4,4#0,0#######7,7#4,4#0,0#######7,7#4,4#0,0###7,7#4,4#0,0##7,7#4,4#
.notice $nick 0,0##7,7#4,4#0,0#####7,7#4,4#0,0##7,7#4,4#0,0#####4,4#7,7#4,4###0,0###4,4##7,7#4,4#0,0###7,7#4,4#0,0##7,7#4,4#
.notice $nick 0,0##7,7#0,0######7,7#0,0####7,7#0,0####7,7#####0,0###7,7####0,0####7,7#0,0###7,7#0,0#
.notice $nick 0,0#########################################
}
.timer2 1 15 set %FRISH 9
else .notice $nick please wait a bit, (15 secs after the last person)
}
on *:TEXT:*!suicidegame*:#: {
if (%no!suigaspam == 7) && (%gamelock != 1) {
if (%chanlock != 1) { set %mychan $chan }
msg %mychan 13,1 $nick has activated the suicide game... you will take it in turns to put the gun against your head and shoot! Will you live another day or die? Other commands: "!scommands", "!shoothim/her" "!newshooter" and "!shootsetme"
set %no!suigaspam 8
set %nicks $nick(#,0)
set %Nuz $rand(1,%nicks)
set %RandomNick $nick(#,%Nuz)
set %nospam 1
picknewrandom %mychan }
elseif (%no!suigaspam == 8) .notice $nick game is already active :P
elseif (%gamelock != 1) .notice $nick game lock is on :P, ask the host to play it
}
on *:text:!victim:#:{
if (%victim == $NULL) && (%victimspam != 5) && (%no!suigaspam == 8) {
msg %mychan there is no victim ¬_¬
set %victimspam 5
.timer 1 22 unset %victimspam
}
elseif (%victimspam != 5) && (%no!suigaspam == 8) && (%victim != $NULL) {
set %victimspam 5
msg %mychan Victim is %victim $+ !!
.timer 1 22 unset %victimspam
}
elseif (%no!suigaspam == 7) .notice $nick there's no victim as the game isnt active
}
on *:text:!shootme:#:{ if (%nospam == 2) { .notice $nick dont spam!! wait till round is over!! }
elseif (%victim != $nick) && (%no!suigaspam == 8) { .notice $nick 4wait your turn }
elseif (%no!suigaspam == 8) { set %sher 2 | shootgame }
elseif (%no!suigaspam == 7) && (%gamelock != 1) { .notice $nick type !suicidegame to activate the game ;) }
elseif (%gamelock == 1) { .notice $nick tell the host to activate the game, the game lock is on }
}
on *:text:!shoothim/her:#:{ if (%nospam == 2) { .notice $nick dont spam!! wait till round is over!! }
elseif (%no!suigaspam == 8) { set %sher 2 | shootgame }
elseif (%no!suigaspam == 7) && (%gamelock != 1) { .notice $nick type !suicidegame to activate the game ;) }
elseif (%gamelock == 1) { .notice $nick tell the host to activate the game, the game lock is on }
}
on *:text:!shoothim:#:{ if (%nospam == 2) { .notice $nick dont spam!! wait till round is over!! }
elseif (%no!suigaspam == 8) { unset %sher | shootgame }
elseif (%no!suigaspam == 7) && (%gamelock != 1) { .notice $nick type !suicidegame to activate the game ;) }
elseif (%gamelock == 1) { .notice $nick tell the host to activate the game, the game lock is on }
}
on *:text:!shoother:#:{ if (%nospam == 2) { .notice $nick dont spam!! wait till round is over!! }
elseif (%no!suigaspam == 8) { set %sher 1 | shootgame }
elseif (%no!suigaspam == 7) && (%gamelock != 1) { .notice $nick type !suicidegame to activate the game ;) }
elseif (%gamelock == 1) { .notice $nick tell the host to activate the game, the game lock is on }
}
on *:text:!newshooter:#:{ if (%no!suigaspam == 8) && (%nospam == 1) {
msg %mychan 11,12 NEW VICTIM SET
unset %victim
picknewrandom %mychan }
else .notice $nick type !suicidegame to activate the game ;)
}
on *:text:!shootsetme:#:{ if (%no!suigaspam == 8) { unset %victim
set %victim $nick
msg %mychan 11,12 NEW VICTIM SET
msg %mychan 9 %victim 2type !shootme, its your turn to put the gun to your head }
else .notice $nick type !suicidegame to activate the game ;)
}
on *:TEXT:*!stopsuicidegame*:#: { if (%no!suigaspam == 8) && (%gamelock != 1) { msg %mychan 13,1 $nick has stopped the suicide game!! Type !suicidegame to start again
set %no!suigaspam 7
unset %victim
elseif (%gamelock != 1) .notice $nick game lock is on :P, you cant stop the game
}
}
alias picknewrandom {
set %nospam 1
:repick
set %victim $nick($1,$rand(1,$nick($1,0)))
msg %mychan 9 %victim 2type !shootme, its your turn to put the gun to your head
if (%victim == botname1) { msg %mychan 4 botname1 can't play, hes a bot :P, rechoosing | goto repick }
if (%victim == botname2) { msg %mychan 4 botname2 can't play, hes a bot :P, rechoosing | goto repick }
if (%victim == botname3) { msg %mychan 4 botname3 can't play, hes a bot :P, rechoosing | goto repick }
}
alias shootgame {
if (%victim == $NULL) { .notice $nick there is no victim ¬_¬ | halt }
set %shot $rand(1,9)
if (%nospam == 1) {
set %nospam 2
if (%sher == 1) {
.timer 1 1 msg %mychan 2 %victim puts the gun towards her head
.timer 1 2 msg %mychan 2 %victim prepares herself
}
if (%sher == 2) {
.timer 1 1 msg %mychan 2 %victim puts the gun towards his/her head
.timer 1 2 msg %mychan 2 %victim prepares him/herself
}
if (%sher != 1) && (%sher != 2) {
.timer 1 1 msg %mychan 2 %victim puts the gun towards his head
.timer 1 2 msg %mychan 2 %victim prepares himself
}
.timer 1 3 msg %mychan 2 %victim sweats
.timer 1 6 msg %mychan 2 Think of your last thoughts!
.timer 1 7 msg %mychan 2 SHOOT IN:
.timer 1 8 msg %mychan 2 5
.timer 1 10 msg %mychan 2 4
.timer 1 12 msg %mychan 2 3
.timer 1 13 msg %mychan 2 2
.timer 1 14 msg %mychan 2 1
.timer 1 15 msg %mychan 2 0!!
if (%shot == 1) .timer 1 17 msg %mychan 0,1 %victim lives another day
if (%shot == 2) .timer 1 17 msg %mychan 0,1 lucky %victim has longer to live
if (%shot == 3) .timer 1 17 msg %mychan 0,1 %victim panics and cant go through with pulling the trigger and collapses
if (%shot == 4) .timer 1 17 msg %mychan 0,1 looks like someone up there loves you %victim
if (%shot == 5) .timer 1 17 msg %mychan 4BANG!! 0,1 what a waste, %victim shoots himself and goes to a better (or worse) place
if (%shot == 6) .timer 1 17 msg %mychan 0,1 %victim takes a deep breath to find that he's safe
if (%shot == 7) .timer 1 17 msg %mychan 14CLICK!! 0,1 phew that was close
if (%shot == 8) .timer 1 17 msg %mychan 4BANG!! 0,1 Christ %RandomNick dont slam the door like that!! Anyway %victim lives
if (%shot == 9) .timer 1 17 msg %mychan 0,1 %victim cries asking for his mummy but is safe
.timer 1 20 msg %mychan 1NEXT!!
.timer 1 22 picknewrandom %mychan
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;chan select dialogue;;;;;;;;;;;;;;;;;;;;;;;;;
alias chanslectxz {
if ( $dialog(channel_select) ) { dialog -v channel_select channel_select }
else { dialog -md channel_select channel_select }
}
;, $did, xlocation ylocation length height
dialog channel_select {
title "Choose new channel to play"
size -1 -1 132 50
option dbu
text "Enter channel to activate game below: (#chan)", 10, 11 5 135 8
edit "", 2, 10 16 112 10
button "Change channel", 3, 10 30 112 12
}
on *:dialog:channel_select:*:*: {
if ( $devent == init ) {
set %cc.chan $active
var %total = $nick($active,0), %x = 1
while ( %x <= %total ) {
inc %x
}
}
elseif ( $devent == sclick ) {
if ($did == 3) {
msg %mychan 13,1 Game will now play in $did(2)
set %mychan $did(2)
msg %mychan 13,1 Game is now set in this channel
}
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;main dialogue;;;;;;;;;;;;;;;;;;;;;;;;;
alias fsg {
if (%chanlock != 1) { set %mychan $chan }
if ( $dialog(suicide_game) ) { dialog -v suicide_game suicide_game }
else { dialog -md suicide_game suicide_game }
}
;, $did, xlocation ylocation length height
dialog suicide_game {
title "FRISH's suicide game"
size -1 -1 132 198
option dbu
menu "&Help", 60
item "&Help", 70
item "&About", 80
box "Select player to shoot and click 'SHOOT PLAYER'", 2, 9 5 115 104
list 1, 15 15 103 77, size vsbar
button "SHOOT PLAYER", 3, 13 94 50 12
button "SHOOTSET PLAYER", 16, 70 94 50 12
box "commands", 4, 8 111 117 78
button "!shootme", 5, 13 119 50 12
button "!shoothim/her", 6, 70 119 50 12
button "!newshooter", 7, 13 133 50 12
button "!shootsetme", 8, 70 133 50 12
button "!suicidegame", 9, 13 147 50 12
button "!stopsuicidegame", 10, 70 147 50 12
button "set new channel", 13, 13 161 50 12
button "lock/unlock channel", 14, 70 161 50 12
button "game lock on/off", 17, 13 175 50 12
button "!victim", 12, 70 175 50 12
text "Made by FRISH", 11, 47 190 45 8
}
on 1:dialog:suicide_game:menu:70: {
helpxz
}
on 1:dialog:suicide_game:menu:80: {
aboutfsg
}
on *:dialog:suicide_game:*:*: {
if ( $devent == init ) {
set %fsg.chan $active
var %total = $nick($active,0), %x = 1
while ( %x <= %total ) {
did -i suicide_game 1 %x $nick($active,%x)
inc %x
}
}
elseif ( $devent == sclick ) {
if ($did == 2) { .mode %fsg.chan +e $did(1).seltext }
elseif ($did == 3) {
if (%SHOOTPLAYERSPAM != 7) {
set %victim $did(1).seltext
if (%victim == $NULL) { echo -a click on a name in the list first | halt }
set %SHOOTPLAYERSPAM 7
msg %mychan 8,4 YOU GOT PWNT %victim $+ ! $nick forces the gun to %victim $+ 's head
shootgame %mychan
.timer 1 22 unset %SHOOTPLAYERSPAM
}
}
elseif ($did == 5) {
if (%no!suigaspam == 8) && (%victim === $nick) { shootgame | msg %mychan !shootme }
elseif (%victim != $nick) && (%no!suigaspam == 8) { .notice $nick 4wait your turn }
elseif (%no!suigaspam == 7) { .notice $nick press !suicidegame button to activate the game ;) }
elseif (%nospam == 2) { .notice $nick dont spam!! wait till round is over!! (possibly another game is current in another channel) }
}
elseif ($did == 6) {
if (%no!suigaspam == 8) {
msg %mychan !shoothim/her
shootgame
set %sher 2
}
if (%no!suigaspam == 7) { .notice $nick type !suicidegame to activate the game ;) }
elseif (%nospam == 2) { .notice $nick dont spam!! wait till round is over!! (possibly another game is current in another channel) }
}
elseif ($did == 7) {
if (%no!suigaspam == 8) && (%nospam == 1) {
msg %mychan !newshooter
msg %mychan 11,12 NEW VICTIM SET
unset %victim
picknewrandom %mychan }
elseif (%no!suigaspam == 7) { .notice $nick press !suicidegame button to activate the game ;) }
}
elseif ($did == 8) {
if (%no!suigaspam == 8) { unset %victim
msg %mychan !shootsetme
set %victim $nick
msg %mychan 11,12 NEW VICTIM SET
msg %mychan 9 %victim 2type !shootme, its your turn to put the gun to your head }
else .notice $nick type !suicidegame to activate the game ;)
}
elseif ($did == 9) {
if (%no!suigaspam == 7) {
msg %mychan !suicidegame
msg %mychan 13,1 $nick has activated the suicide game... you will take it in turns to put the gun against your head and shoot! Will you live another day or die? Other commands: "!scommands", "!shoothim/her" "!newshooter" and "!shootsetme"
set %no!suigaspam 8
set %nicks $nick(#,0)
set %Nuz $rand(1,%nicks)
set %RandomNick $nick(#,%Nuz)
set %nospam 1
picknewrandom %mychan }
else .notice $nick game is already active :P
}
elseif ($did == 10) {
msg %mychan !stopsuicidegame
msg %mychan 13,1 $nick has stopped the suicide game!! Type !suicidegame to start again
set %no!suigaspam 7
unset %victim
}
elseif ($did == 12) { if (%victim == $NULL) { echo -a there is no victim ¬_¬ }
if (%victimspam2 != 5) && (%no!suigaspam == 8) && (%victim != $NULL) {
msg %mychan !victim
set %victimspam2 5
msg %mychan Victim is %victim $+ !!
.timer 1 5 unset %victimspam2
}
}
elseif ($did == 13) {
chanslectxz
}
elseif ($did == 14) {
if (%chanlock != 1) {
set %chanlock 1
msg %mychan Channel been locked to %mychan
}
else { msg %mychan Channel has been unlocked from %mychan
unset %chanlock
}
}
elseif ($did == 16) {
if (%nospam != 2) {
if (%SHOOTSETPLAYERSPAM != 7) {
set %victim $did(1).seltext
if (%victim == $NULL) { echo -a click on a name in the list first | halt }
set %SHOOTSETPLAYERSPAM 7
msg %mychan 8,4 PWNT, $nick chooses %victim to play next
.timer 1 3 unset %SHOOTSETPLAYERSPAM
}
}
}
elseif ($did == 17) {
if (%gamelock != 1) {
set %gamelock 1
msg %mychan Game lock on, you can't type !suicidegame to restart the game
}
else {
unset %gamelock
msg %mychan Game lock off, you can now type !suicidegame when the game isnt active
}
}
; elseif ($did == 18) { .mode %fsg.chan -v $did(1).seltext }
; elseif ($did == 19) { .mode %fsg.chan +a $did(1).seltext }
; elseif ($did == 20) { .mode %fsg.chan -a $did(1).seltext }
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;HELP dialogue;;;;;;;;;;;;;;;;;;;;;;;;;
alias helpxz {
if ( $dialog(command_help) ) { dialog -v command_help command_help }
else { dialog -md command_help command_help }
}
;, $did, xlocation ylocation length height
dialog command_help {
title "Help, command explanations"
size -1 -1 317 196
option dbu
menu "&These commands have anti spam protection so when activated may take time to reactivate, but wont cause any disadvantages ;)", 99
item "&BOO!", 98
item "", 97
item "&Note that other people type the commands in, you can only click the buttons, but you have more commands", 96
item "&No buttons on this help page do any of the game commands :P", 95
text "Commands", 12, 5 5 45 8
text "What it does (on the previous form :P)", 13, 65 5 100 8
button "SHOOT PLAYER", 1, 5 15 50 12
button "SHOOTSET PLAYER", 2, 5 30 50 12
button "!shootme", 3, 5 45 50 12
button "!shoothim/her", 4, 5 60 50 12
button "!newshooter", 5, 5 75 50 12
button "!shootsetme", 6, 5 90 50 12
button "!suicidegame", 7, 5 105 50 12
button "!stopsuicidegame", 8, 5 120 50 12
button "set new channel", 9, 5 135 50 12
button "lock/unlock channel", 10, 5 150 50 12
button "!victim", 11, 5 165 50 12
button "game lock on/off", 30, 5 180 50 12
text "Click on a name in the list then press this button to set that person as the victim and shoot themself", 14, 65 17 250 8
text "Click on a name in the list then press this button to set that person as the victim", 15, 65 32 250 8
text "If you are the victim, this shoots you, will you live?", 16, 65 47 250 8
text "This will shoot the victim (preferably use if they are afk)", 17, 65 62 250 8
text "This picks randomly a new shooter as the victim", 18, 65 77 250 8
text "This sets you as the victim", 19, 65 92 250 8
text "This starts the game", 20, 65 107 75 8
text "This stops the game", 21, 65 122 75 8
text "This brings up a form to enter the channel to continue the game", 22, 65 136 250 8
text "This locks/unlocks the channel so that when other players type !suicidegame in a channel, the game", 23, 65 148 250 8
text "won't/will change to the channel they typed it into", 24, 65 157 250 8
text "This shows who is the victim", 25, 65 167 250 8
text "Click this to toggle game lock on/off, this makes the game unable/able to start/stop when someone", 26, 65 178 250 8
text "types !suicidegame/!stopsuicidegame", 27, 65 187 250 8
}
on *:dialog:command_help:*:*: {
if ( $devent == sclick ) {
if ($did == 5) {
echo -a cheese is gooood
}
elseif ($did == 3) {
describe %mychan shoots self
}
}
}
;;;;;;;;;;;;;;;;;;;;;;;;;;About dialogue;;;;;;;;;;;;;;;;;;;;;;;;;
alias aboutfsg {
if ( $dialog(about_fsg) ) { dialog -v about_fsg about_fsg }
else { dialog -md about_fsg about_fsg }
}
;, $did, xlocation ylocation length height
dialog about_fsg {
title "About this game"
size -1 -1 170 150
option dbu
text "This game has been created fully by:", 1, 5 5 135 8
text " ////////// /////// /////////// ///// /// ///", 2, 8 13 155 8
text " ////////// //// //// /// /// /// /// ///", 3, 8 19 155 8
text " /// /// /// /// /// /// ///", 4, 8 25 155 8
text " /// /// /// /// /// /// ///", 5, 8 31 155 8
text " ////// /// /// /// /// ///////////", 6, 8 37 155 8
text " ////// ////////// /// /// /// ///", 7, 8 43 155 8
text " /// /// /// /// /// /// ///", 8, 8 49 155 8
text " /// /// /// /// /// /// /// ///", 9, 8 55 155 8
text "/// /// /// /////////// /// /// ///", 10, 8 61 155 8
text "In this game you take it in turns (random choice) to put the gun", 11, 8 75 165 8
text "towards your head and shoot, will you live or die?", 12, 8 83 165 8
text "You have an 8/9 chance of surviving.", 13, 8 91 165 8
text "You will use the buttons on the previous page to play, and your", 14, 8 99 165 8
text "opponents will type the commands out, all of their commands will", 15, 8 107 165 8
text "show in a notice to them if they type !scommands.", 16, 8 115 165 8
text "What each command does is shown in the help section.", 17, 8 123 165 8
text "Enjoy :)", 18, 73 137 165 8
}
on *:dialog:about_fsg:*:*: {
if ( $devent == sclick ) {
if ($did == 3) {}
}
}
on *:INPUT:*:{
if (%rainbowtexton == 1) && ($left($1,1) != /) {
unset %msgrbw
set %r1 1
while (%r1 < 250) {
set %msgrbw %msgrbw $+ $+ 04 $+ $mid($1-,%r1,1)
if ($mid($1-, $+ %r1 $+ ,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
%r1 = %r1 + 1
set %msgrbw %msgrbw $+ $+ 07 $+ $mid($1-,%r1,1)
if ($mid($1-, $+ %r1 $+ ,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
%r1 = %r1 + 1
set %msgrbw %msgrbw $+ $+ 08 $+ $mid($1-,%r1,1)
if ($mid($1-, $+ %r1 $+ ,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
%r1 = %r1 + 1
set %msgrbw %msgrbw $+ $+ 09 $+ $mid($1-,%r1,1)
if ($mid($1-, $+ %r1 $+ ,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
%r1 = %r1 + 1
set %msgrbw %msgrbw $+ $+ 12 $+ $mid($1-,%r1,1)
if ($mid($1-, $+ %r1 $+ ,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
%r1 = %r1 + 1
set %msgrbw %msgrbw $+ $+ 06 $+ $mid($1-,%r1,1)
if ($mid($1-, $+ %r1 $+ ,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
%r1 = %r1 + 1
set %msgrbw %msgrbw $+ $+ 13 $+ $mid($1-,%r1,1)
if ($mid($1-, $+ %r1 $+ ,1) == $chr(32)) { set %msgrbw %msgrbw $chr(32) }
%r1 = %r1 + 1
}
say %msgrbw
unset %msgrbw
halt
}
elseif (%rainbowtextandbackgroundon == 1) && ($left($1,1) != /) {
unset %msgrbw2
set %r2 1
while (%r2 < 115) {
set %msgrbw2 %msgrbw2 $+ $+ 06,04 $+ $mid($1-,%r2,1)
if ($mid($1-, $+ %r2 $+ ,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
%r2 = %r2 + 1
set %msgrbw2 %msgrbw2 $+ $+ 13,07 $+ $mid($1-,%r2,1)
if ($mid($1-, $+ %r2 $+ ,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
%r2 = %r2 + 1
set %msgrbw2 %msgrbw2 $+ $+ 12,08 $+ $mid($1-,%r2,1)
if ($mid($1-, $+ %r2 $+ ,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
%r2 = %r2 + 1
set %msgrbw2 %msgrbw2 $+ $+ 03,09 $+ $mid($1-,%r2,1)
if ($mid($1-, $+ %r2 $+ ,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
%r2 = %r2 + 1
set %msgrbw2 %msgrbw2 $+ $+ 08,12 $+ $mid($1-,%r2,1)
if ($mid($1-, $+ %r2 $+ ,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
%r2 = %r2 + 1
set %msgrbw2 %msgrbw2 $+ $+ 07,13 $+ $mid($1-,%r2,1)
if ($mid($1-, $+ %r2 $+ ,1) == $chr(32)) { set %msgrbw2 %msgrbw2 $chr(32) }
%r2 = %r2 + 1
set %msgrbw2 %msgrbw2 $+ $+ 04,06 $+ $mid($1-,%r2,1)
if ($mid($1-, $+ %r2 $+ ,1) == $chr(32)) { set %msgrbw22 %msgrbw2 $chr(32) }
%r2 = %r2 + 1
}
say %msgrbw2
unset %msgrbw2
halt
}
}
menu channel {
-
Rainbow
.text On:{
unset %rainbowtextandbackgroundon
set %rainbowtexton 1
;echo -a Rainbow text turned on
}
.text + background On:{
unset %rainbowtexton
set %rainbowtextandbackgroundon 1
;echo -a Rainbow text and background colour turned on
}
.Colour Off:{
unset %rainbowtexton
unset %rainbowtextandbackgroundon
;echo -a Rainbow text, and Rainbow text with background colour turned off
}
-
}