/ScriptServ

[script]
n0=
n1=;ChatSpace Controls for ChatSpace 2.1
n2=;author: Prometheus (http://pro.kerplunk.net)
n3=;for mirc 5.91 (http://www.mirc.com)
n4=;using ChatSpace 2.1 (http://www.chatspace.com)
n5=;enjoy!
n6=;
n7=;WARNING
n8=;This script contains modifications done by Jerry
n9=;you may not use this coding in any other script
n10=;without my express permission
n11=;contact me -->  jerry@whatevah.com
n12=
n13=dialog cs {
n14=  title "ChatSpace Controls 2.1"
n15=  size -1 -1 149 160
n16=  option dbu
n17=  tab "Room",2,2 1 145 155
n18=  tab "User",3
n19=  tab "Memo",4
n20=  tab "Admin",5
n21=  button "Get Info",22,67 20 25 10,tab 2
n22=  button "Reg",222,92 20 25 10,tab 2
n23=  button "Drop",223,117 20 25 10,tab 2
n24=  edit "",20,7 20 58 10,autohs,tab 2
n25=  box "Info",21,7 32 135 38,tab 2
n26=  text "",23,12 40 125 27,tab 2
n27=  box "Ops",24,7 70 135 54,tab 2
n28=  list 25,12 78 85 43,tab 2,vsbar
n29=  button "Delete",26,99 78 40 8,tab 2
n30=  button "Add",27,99 86 40 8,tab 2
n31=  edit "",28,99 110 40 10,tab 2,autohs
n32=  combo 29,99 96 40 50,tab 2,drop
n33=  box "Pass",200,7 124 135 29,tab 2
n34=  text "SOP:",201,12 132 15 10,tab 2
n35=  edit "",202,28 130 90 10,tab 2,autohs
n36=  button "Set",205,120 130 20 10,tab 2
n37=  text "AOP:",203,12 142 15 10,tab 2
n38=  edit "",204,28 140 90 10,tab 2,autohs
n39=  button "Set",206,120 140 20 10,tab 2
n40=  edit "",30,7 20 58 10,autohs,tab 3
n41=  button "Get Info",31,67 20 25 10,tab 3
n42=  button "Reg",310,92 20 25 10,tab 3
n43=  button "Drop",311,117 20 25 10,tab 3
n44=  button "Save",312,12 122 31 10,tab 3
n45=  button "Chg Pass",313,43 122 31 10,tab 3
n46=  button "Email",314,74 122 31 10,tab 3
n47=  button "Visit URL",315,105 122 32 10,tab 3
n48=  box "Info",32,7 32 135 106,tab 3
n49=  text "Name:",33,12 40 20 10,tab 3
n50=  edit "",34,35 39 103 10,tab 3,autohs,read
n51=  text "Email:",35,12 50 20 10,tab 3
n52=  edit "",36,35 49 103 10,tab 3,autohs,read
n53=  text "URL:",37,12 60 20 10,tab 3
n54=  edit "",38,35 59 103 10,tab 3,autohs,read
n55=  text "Info:",39,12 70 20 10,tab 3
n56=  edit "",40,35 69 103 10,tab 3,autohs,read
n57=  text "Auth:",41,12 80 20 10,tab 3
n58=  edit "",42,35 79 103 10,tab 3,autohs,read
n59=  text "Reg:",43,12 90 20 10,tab 3
n60=  edit "",44,35 89 103 10,tab 3,autohs,read
n61=  text "On:",45,12 100 20 10,tab 3
n62=  edit "",46,35 99 103 10,tab 3,autohs,read
n63=  text "Used:",47,12 110 20 10,tab 3
n64=  edit "",48,35 109 103 10,tab 3,autohs,read
n65=  box "Read",50,7 20 135 85,tab 4
n66=  button "List",51,12 28 42 10,tab 4
n67=  button "Read",52,54 28 42 10,tab 4
n68=  button "Delete",53,96 28 42 10,tab 4
n69=  list 54,12 40 126 43,tab 4,vsbar
n70=  edit "",60,12 85 126 17,tab 4,multi,read,return,autovs,vsbar
n71=  box "Write",55,7 105 135 33,tab 4
n72=  text "Send to:",56,12 114 20 10,tab 4
n73=  edit "",57,35 112 70 10,autohs,tab 4
n74=  button "Send",58,108 112 30 10,tab 4
n75=  edit "",59,12 123 126 10,tab 4,autohs
n76=  combo 80,7 20 50 70,drop,tab 5
n77=  box "Info",82,7 32 135 106,tab 5
n78=  list 81,12 40 126 100,tab 5,hsbar,sort,vsbar
n79=  button "Remove",83,60 20 25 10,tab 5
n80=  button "ok",1,1 1 1 1,ok
n81=}
n82=on *:dialog:cs:sclick:*:{
n83=  if ($did == 22) { did -r cs 23,25,204,202 | .raw services info $did(20) }
n84=  if ($did == 26) && ($did(25).seltext) { tokenize 32 $ifmatch | .raw services $rp($2,a) $did(20) DEL $1 }
n85=  if ($did == 27) && ($did(28)) { .raw services $replace($did(29),superop,SOP,autoop,AOP,voiceop,VOP,member,MEM) $did(20) ADD $ifmatch }
n86=  if ($did == 31) { did -mr cs 34,36,38,40,42,44,46,48 | .raw services info $did(30) }
n87=  if ($did == 51) { did -r cs 54,60 | .raw services memo $me list }
n88=  if ($did == 52) { did -r cs 60 | .raw services memo $me read $did(54).sel }
n89=  if ($did == 53) .raw services memo $me delete $did(54).sel
n90=  if ($did == 58) .raw services memo $$did(57) send $$did(59)
n91=  if ($did == 80) { .raw $$replace($did(80),Server bans,stats k,server links,links,defined servers,stats c,reg. rooms,services info,shun list,shun) | if ($did(80) == reg. rooms) did -a cs 83 Drop | did -r cs 81 }
n92=  if ($did == 83) { var %t $gettok($did(81).seltext,1,32) | .raw $replace($did(83),remove,$iif($gettok($did(81).seltext,-1,32) == (K),UNKLINE,RAKILL),delink,SQUIT,connect,CONNECT,drop,services drop,UNSHUN,shun -) %t }
n93=  if ($did isnum 205-206) .raw services set $did(20) $iif($did == 205,SOPPASS $did(202),AOPPASS $did(204))
n94=  if ($did isnum 222-223) .raw services $iif($did == 222,REGISTER,DROP) $did(20)
n95=  if ($did isnum 310-311) .raw services $iif($did == 310,REGISTER,DROP) $did(30) $iif($did == 310,$$input(Password?,129))
n96=  if ($did == 312) { var %i 1 | did -b cs 31 | while ($gettok(NAME:EMAIL:URL:INFO,%i,58)) { .timer 1 %i .raw services set $did(30) $ifmatch $did($replace($ifmatch,NAME,34,EMAIL,36,URL,38,INFO,40)) | inc %i } }
n97=  if ($did == 313) .raw services set $did(30) PASS $$input(Password?,129)
n98=  if ($did == 314) run mailto: $+ $did(36)
n99=  if ($did == 315) run $iif($left($did(38),7) == http://,$did(38),http:// $+ $did(38))
n100=}
n101=on *:dialog:cs:dclick:*:{
n102=  if ($did == 54) { did -r cs 60 | .raw services memo $me read $did(54).sel }
n103=  if ($did == 81) { var %t = $did(80) | if (%t == reg. rooms) .raw JOIN $did(81).seltext | if (%t == server bans) .raw $iif($gettok($did(81).seltext,-1,32) == (A),RAKILL,UNKLINE) $gettok($did(81).seltext,1,32) }
n104=}
n105=on *:dialog:cs:edit:*:{
n106=  if ($did == 20) did -r cs 23,25,204,202
n107=  if ($did == 30) did -mr cs 34,36,38,40,42,44,46,48
n108=}
n109=on *:dialog:cs:init:0:{
n110=  var %i 1 | while ($gettok(SuperOP:AutoOP:VoiceOP:MEMber,%i,58)) { did -a cs 29 $ifmatch | inc %i } | did -c cs 29 1
n111=  var %i 1 | while ($gettok(Server Bans:Server Links:Defined Servers:Reg. Rooms:Shun list,%i,58)) { did -a cs 80 $ifmatch | inc %i }
n112=  if ($regex(%zch,$chr(35)|&|+)) did -o cs 20 1 %zch | elseif (%zch == -S) .timer 1 0 did -f cs 5 | else { did -o cs 30 1 %zch | .timer 1 0 did -f cs 3 }
n113=}
n114=
n115=on ^*:open:?:if ($nick == SERVICES) && ($dialog(cs)) { .timerscl 1 1 close -m SERVICES }
n116=on ^*:text:*:?:{
n117=  if ($nick == SERVICES) && ($dialog(cs)) {
n118=    if (------*------ iswm $1-) { set %zt 1 | unset %zi }
n119=    if (Nickname*registered* iswm $1-) unset %zt
n120=    if (Managed by*on* iswm $1-) set %zi Server: $7
n121=    if (Created by*on:* iswm $1-) { if (%zt) set %zi %zi $crlf $+ Reg: $3 $crlf $+ On: $5-6 | else { did -o cs 44 1 $3 | did -o cs 46 1 $5-6 } }
n122=    if (Last joined by moderator* iswm $1-) { set %zi %zi $crlf $+ Last Aop: $5-6 | did -a cs 23 %zi }
n123=    if ($regex($1,^(SOP|AOP|VOP|MEM)$)) && (!$3) did -a cs 25 $2 $rp($1)
n124=    if (last*used:* iswm $1-) did -o cs 48 1 $3
n125=    if ($me deleted*entry* iswm $1-) did -d cs 25 $didwm(cs,25,$+($6,*(*)))
n126=    if ($me added*entry* iswm $1-) did -a cs 25 $6 $rp($3)
n127=    if (info for*changed* iswm $1-) did -e cs 31
n128=    if (Channel: == $1) did -a cs 81 $2
n129=    if (AOP*Passwd:*SOP*Passwd:* iswm $1-) { did -o cs 202 1 $gettok($4,2-,58) | did -o cs 204 1 $gettok($2,2-,58) }
n130=    if ($1 == name:) did -o cs 34 1 $2- | if ($1 == email:) did -o cs 36 1 $2- | if ($1 == URL:) did -o cs 38 1 $2- | if ($1 == Info:) { did -o cs 40 1 $2- | if ($did(cs,30) == $me) || (o isin $usermode) did -n cs 34,36,38,40 }
n131=    if ($1-2 == authority level:) did -o cs 42 1 $3-
n132=    haltdef | halt
n133=  }
n134=}
n135=
n136=alias opencsinfo { set %zch $1 | dialog -m cs cs }
n137=
n138=raw 000:*:if ($dialog(cs)) && ($left($1,1) == -) { did -d cs 81 $didwm(cs,81,$right($1,-1),1) | halt }
n139=raw 213:*:if ($dialog(cs)) halt
n140=raw 214:*:if ($dialog(cs)) { did -a cs 81 $5 | halt }
n141=raw 216:*:if ($dialog(cs)) { did -a cs 81 $+($gettok($1-,-3,32),@,$3) $rp($right($gettok($1-,-6,32),-1) $+ : $right($deltok($4-,-6-,32),-1)) $rp($2) | halt }
n142=raw 219:*:if ($dialog(cs)) { did -z cs 81 | did -a cs 83 $iif($2 == k,Remove,Connect) | halt }
n143=raw 264:*:if ($dialog(cs)) { did -d cs 54 $2 | halt }
n144=raw 270:*:if ($dialog(cs)) halt
n145=raw 276:*:if ($dialog(cs)) { did -a cs 60 $2- | did -c cs 60 1 | halt }
n146=raw 277:*:if ($dialog(cs)) { did -a cs 54 $3 $rp($4-) | halt }
n147=raw 278:*:if ($dialog(cs)) halt
n148=raw 291:*:if ($dialog(cs)) { did -a cs 81 $2 | halt }
n149=raw 292:*:if ($dialog(cs)) { did -z cs 81 | did -a cs 83 Unshun | halt }
n150=raw 364:*:if ($dialog(cs)) { did -a cs 81 $2 $rp($5-) | halt }
n151=raw 365:*:if ($dialog(cs)) { did -z cs 81 | did -a cs 83 Delink | halt }
n152=alias rp if ($2) return $left($right($1,-1),-1) | if ($1) return ( $+ $1 $+ )
n153=
n154=
n155=
n156=;------------------------------------------------------------------
n157=; Addon: [SZ] Domain Lookup v1.3 (InterNIC[v1.3].zip)
n158=; Author: GrimZ
n159=; Email: GrimZ@ScriptaZ.com
n160=; Relased: 10/11/01
n161=; IRC: #ScriptaZ - irc.darktides.net
n162=; Website: http://www.ScriptaZ.com
n163=:
n164=: Updated 11/25/02 by ^Jerry so it would work again
n165=;------------------------------------------------------------------
n166=
n167=alias domain { set %domain.lookup $1- | dialog -m sz_internic sz_internic }
n168=
n169=dialog sz_internic {
n170=  title "[SZ] Domain name Lookup"
n171=  size -1 -1 206 119
n172=  option dbu
n173=  box "", 1, 1 2 202 103
n174=  edit "", 2, 4 8 196 94, multi, vsbar, read
n175=  ;  list 2, 4 8 196 94, vsbar, autohs
n176=  edit "yahoo.com", 3, 22 107 53 10, autohs
n177=  text "Domain&:", 4, 1 110 19 8
n178=  button "&Lookup", 5, 78 107 30 10, default
n179=  link "GrimZ", 6, 144 110 16 8
n180=  text "@", 7, 161 110 7 8
n181=  link "ScriptaZ.com", 8, 171 110 32 8
n182=  button "&Close", 9, 111 107 29 10, cancel
n183=}
n184=
n185=on 1:dialog:sz_internic:*:*: {
n186=  if ($devent == init) {
n187=    if (%domain.lookup != $null) { did -r $dname 3 | did -a $dname 3 %domain.lookup | unset %domain.lookup } 
n188=    did -a $dname 2 ; Ready for Lookup
n189=  }
n190=  if ($devent == sclick) {
n191=    if ($did == 5) {
n192=      did -ra $dname 2 » Performing InterNIC lookup on domain: $did(3)
n193=      did -a $dname 2 -
n194=      set %SZ.InterNIC.start $ticks
n195=      sockopen internic rs.internic.net 43
n196=    }
n197=    ;yes, I de-activated the coding...  you can still goto the site, though
n198=
n199=    ;    if ($did == 6) run http://www.scriptaz.com/profile.php?user=GrimZ
n200=    ;    if ($did == 8) run http://www.scriptaz.com
n201=    if ($did == 9) sockclose internic
n202=  }
n203=  ;  elseif ($devent == dclick) {
n204=  ;    if ($did == 6) run http://www.scriptaz.com/profile.php?user=GrimZ
n205=  ;    if ($did == 8) run http://www.scriptaz.com
n206=  ;  }
n207=}
n208=
n209=on 1:sockopen:internic: { 
n210=  if ($sockerr > 0) {
n211=    did -a sz_internic 2 *** ERROR: Connection could not be established to database; aborting lookup! ***
n212=    return
n213=  }
n214=  sockwrite -n $sockname whois $did(sz_internic,3) 
n215=}
n216=on 1:sockread:internic: {
n217=  if ($sockerr > 0) {
n218=    did -a sz_internic 2 *** ERROR: Could not revieve data from database; aborting lookup! ***
n219=    return
n220=  }
n221=  var %tmp
n222=  sockread %tmp
n223=  if ($sockbr == 0) return
n224=  if (!%tmp) %tmp = -
n225=  did -a sz_internic 2 $crlf %tmp
n226=}
n227=on 1:sockclose:internic: {
n228=  did -a sz_internic 2 » Lookup completed in $round($calc(($ticks - %SZ.InterNIC.start) / 1000),3) second(s)
n229=  did -z sz_internic 2
n230=  unset %SZ.InterNIC.start
n231=}