Mos Lejo Nick TE Piste
Page 1 of 1
Mos Lejo Nick TE Piste
[script]
n0=alias swearnick { return 0,1 No Bad Words ! / Mos Perdor Fjale Fyese ! %AlbhacK }
n1=alias swearmsg { return 0,1 No Bad Words ! / Mos Perdor Fjale Fyese ! %AlbhacK }
n2=alias swearnotice { return 0,1 No Bad Words Whith Notice ! / Mos Perdor Fjale Fyese Me Notice ! «Kick» %KickNo ««Koha» $time %AlbhacK }
n3=alias smbantime { return 5 }
n4=
n5=on *:TEXT:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1-
n6=on *:ACTION:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1-
n7=on *:NOTICE:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1-
n8=on *:JOIN:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $nick $nick
n9=
n10=alias swearx { dialog -m swearx swearx | swearlist }
n11=dialog swearx {
n12= title "Swear Kick TEXT,ACTION,NOTICE,JOIN By AlbhacK"
n13= size -1 -1 413 220
n14= option pixels
n15= list 1, 0 20 362 200, size
n16= edit "", 2, 0 0 362 20
n17= button "Add", 3, 363 0 50 20, default
n18= button "Close", 4, 363 199 50 20, ok
n19= button "Delete", 5, 363 72 50 20
n20= button "Clear", 6, 363 118 50 20
n21= button "Edit", 7, 363 95 50 20
n22=}
n23=on *:DIALOG:swearx:sclick:*:{
n24= if ($did = 1) {
n25= did -e swearx 5
n26= did -e swearx 7
n27= }
n28= if ($did = 3) {
n29= write swearkick.txt $did(2).text
n30= did -a swearx 1 $did(2).text
n31= did -r swearx 2
n32= did -b swearx 5
n33= did -b swearx 7
n34= }
n35= if ($did = 5) {
n36= if ($did(1).sel != 0) {
n37= set %temp $read(swearkick.txt, s, $did(1).seltext)
n38= write -dl $+ $readn swearkick.txt
n39= did -d swearx 1 $did(1).sel
n40= did -b swearx 5
n41= did -b swearx 7
n42= }
n43= else { did -b swearx 5 }
n44= }
n45= if ($did = 6) {
n46= if ($?!="Are you sure?" = $true) {
n47= did -r swearx 1
n48= write -c swearkick.txt
n49= did -b swearx 5
n50= did -b swearx 7
n51= }
n52= }
n53= if ($did = 7) {
n54= set %temp $$?="Change $did(1).seltext into:"
n55= did -a swearx 1 %temp
n56= set %temp2 $read(swearkick.txt, s, $did(1).seltext)
n57= write -dl $+ $readn swearkick.txt
n58= did -d swearx 1 $did(1).sel
n59= write swearkick.txt %temp
n60= did -b swearx 5
n61= did -b swearx 7
n62= }
n63=}
n64=on *:DIALOG:swearx:init:*:{
n65= did -b swearx 5
n66= did -f swearx 2
n67=}
n68=on *:DIALOG:swearx:edit*:{
n69= if ($did = 2) { did -b swearx 5 }
n70=}
n71=alias -l swearlist {
n72= .set %pnline $lines(swearkick.txt)
n73= .set %pcline 1
n74= :next
n75= if (%pcline < %pnline) { .did -a swearx 1 $read(swearkick.txt, %pcline) | inc %pcline | goto next }
n76= if (%pnline = %pcline) { .did -a swearx 1 $read(swearkick.txt, %pcline) | goto done }
n77= :done
n78= return
n79=}
n80=; SwearCheck <nick> <chan> <message>
n81=alias swearcheck {
n82= .set %pnline $lines(swearkick.txt)
n83= .set %pcline 1
n84= :next
n85= if (%pcline < %pnline) {
n86= if ($read(swearkick.txt, %pcline) !isin $3-) {
n87= inc %pcline
n88= goto next
n89= }
n90= else {
n91= goto kb
n92= }
n93= }
n94= if (%pcline = %pnline) {
n95= if ($read(swearkick.txt, %pcline) !isin $3-) {
n96= goto done
n97= }
n98= else {
n99= goto kb
n100= }
n101= }
n102= :done
n103= return
n104= :kb
n105= if ($me isop $2) {
n106= if ($event = text) { kick $2 $1 $swearmsg | ban -u3600 $2 $1 2 }
n107= if ($event = action) { kick $2 $1 $swearmsg | ban -u3600 $2 $1 2 }
n108= if ($event = join) { kick $2 $1 $swearnick | ban -u3600 $2 $1 2 }
n109= if ($event = notice) { kick $2 $1 $swearnotice | ban -u3600 $2 $1 2 }
n110= }
n111= goto done
n112=}
n113=alias -l nscheck {
n114= set %i $comchan($1,0)
n115= set %c 1
n116= while (%c <= %i) {
n117= if ($me isop $comchan($1,%c)) {
n118= kick $comchan($1,%c) $1 $swearnick
n119= ban -u3600 $comchan($1,%c) $1 $swearnick
n120= }
n121= inc %c
n122= }
n123=}
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|