Jump to content

3ntity

Members
  • Posts

    12
  • Joined

  • Last visited

Profile Information

  • Country
    United States

3ntity's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. I fixed the revenge kick, as for the rest of the code it's all in remotes seperate, I don't have it in my script as seen here.
  2. **Auto owner access** on *:OWNER:*: { if ($opnick == $me) && ($nick != $me) { .raw access $active add OWNER *! $+ $$ial($$1 $+ *,1).addr } } **Deowner** on *:DEOWNER:#:{ if ($nick == $me) halt if ($1- == -q $me) { /hop # | .raw kick $chan $nick : :@ | .raw access # add deny *! $+ $ial($nick,1).addr 30 | var %o $rand(000000,999999) $+ $chr($r(65,200)) } | prop $chan ownerkey fd^&^%&^&vbh: $+ %o | set %okey %o } } **Kick list** #kicklist on on *:join:#: { if ($readini(kick.ini,(.raw kick,$chan),$address($nick,1))) { var %ifmatch = $ifmatch if ($me isop $chan) { raw -q KICK $chan $nick $gettok(%ifmatch,2-,32) } } } menu nicklist { Kicklist .Add: var %r | writeini -n kick.ini (.raw kick,$chan) $address($1,1) $1 %r .Remove: remini kick.ini (.raw kick,$chan) $address($1,1) } #kicklist end } **Take 1** alias masskick { .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY мugεтsu var %u, %a = 1, %r Rasengan! while ( %a <= $nick($chan,0) ) { if ( $nick($chan,%a) != $me ) { %u = $addtok(%u,$nick($chan,%a),44) } if ( $numtok(%u,44) >= 20 ) { raw -q KICK $chan %u %r | unset %u } inc %a } if ( %u !== $null ) { raw -q KICK $chan %u %r | unset %u } .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY мugεтsu .raw mode $chan +k мugεтsu .raw mode $chan +iml 1 } **Mode Lock** #modelock on on *:MODE:#:{ if ($nick == $me) return if (+ isin $1-) .mode # $replace($1-,+,-) if (- isin $1-) .mode # $replace($1-,-,+) if (+k isin $1) .mode # -k $2- if (-k isin $1) .mode # +k $2- if (+l isin $1-) .mode # +l 100 if ($me isop $chan) { .raw access # delete owner $nick | .raw access # delete owner $$address($nick,1) | .raw kick # $nick MODE LOCK :@ } } #modelock end **Revenge kick** #revengekick on alias BanProtect { .raw access $active add deny $address($nick,1) 0 } on *:JOIN:#: .raw access # add owner $address($me,1) 0 on *:KICK:#:{ if ($knick == $me) { timeraccess off hop $active .raw access # clear owner .raw access # add owner $address($me,1) 0 banprotect .raw access # add deny $nick 0 .raw kick # $nick :@ set -u3 %defconnk $nick .raw access # add owner $address($me,1) 0 } } #revengekick end **Topic lock** #topiclock on on ^*:TOPIC:#:{ if ($nick == $me) halt .kick # $nick Why you touch my topic :@ | /topic # %topic } #topiclock end } **Take 2** alias Take { .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY bds˜^&˜%&^h˜g62 set %people 1 :loop if ($nick(#,%people) == cs) { inc %people | goto loop | halt } if ($nick(#,%people) == $me) { inc %people | goto loop | halt } else { .raw kick $chan $nick(#,%people) Rasengan! } inc %people if ($nick(#,%people) == $null) { unset %people } else { goto loop } .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY bds˜^&˜%&^h˜g62 .raw mode $chan +k bds˜^&˜%&^h˜g62 .raw mode $chan +iml 1 } **Masses** Masses .Mass Kick:/masskick .massop:{ set %i $nick($active,0) | :next | if $nick($active,%i) != $me mode $active +q $nick($active,%i) %kr | dec %i | if %i > 0 goto next } .massdeop:{ set %i $nick($active,0) | :next | if $nick($active,%i) != $me mode $active -q $nick($active,%i) %kr | dec %i | if %i > 0 goto next } } - **mass kick prot** (This one doesn't really work at all.) On *:KICK:#: { /inc %nrofkicks 1 timerkick 1 6 /unset %nrofkicks if ( 4 isin %nrofkicks ) { /mode $chan +b $address if ($nick != $me) { ./kick $chan $nick 0,1Excessive Kicks Detected. } } The mass kick prot is at the end, other than That I have a Deowner prot, Mode lock, Revenge kick and a topic lock, That's all i have as for PROTS. If you wanna post some stuff feel free to do so as I am learning and it may help.
  3. Any idea why that mass kick prot doesn't work so well? I mean someone could mass kick and it wont detect and stop the kick till the last or one before that is kicked, sometimes it doesn't kick in at all.
  4. lol **Kick list** #kicklist on on *:join:#: { if ($readini(kick.ini,(.raw kick,$chan),$address($nick,1))) { var %ifmatch = $ifmatch if ($me isop $chan) { raw -q KICK $chan $nick $gettok(%ifmatch,2-,32) } } #kicklist end } menu nicklist { Kicklist .Add: var %r | writeini -n kick.ini (.raw kick,$chan) $address($1,1) $1 %r .Remove: remini kick.ini (.raw kick,$chan) $address($1,1) }
  5. For Oasiz chat http://chat.oasiz.net Most of what worked for msn will work for oasiz. **Auto owner access** on *:OWNER:*: { if ($opnick == $me) && ($nick != $me) { .raw access $active add OWNER *! $+ $$ial($$1 $+ *,1).addr } } **Deowner** on *:DEOWNER:#:{ if ($nick == $me) halt if ($1- == -q $me) { /hop # | .raw kick $chan $nick : :@ | .raw access # add deny *! $+ $ial($nick,1).addr 30 | var %o $rand(000000,999999) $+ $chr($r(65,200)) } | prop $chan ownerkey fd^&^%&^&vbh: $+ %o | set %okey %o } } **Kick list** #kicklist on on *:join:#: { if ($readini(kick.ini,(.raw kick,$chan),$address($nick,1))) { var %ifmatch = $ifmatch if ($me isop $chan) { raw -q KICK $chan $nick $gettok(%ifmatch,2-,32) } } } menu nicklist { Kicklist .Add: var %r | writeini -n kick.ini (.raw kick,$chan) $address($1,1) $1 %r .Remove: remini kick.ini (.raw kick,$chan) $address($1,1) } #kicklist end } **Take 1** alias masskick { .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY мugεтsu var %u, %a = 1, %r Rasengan! while ( %a <= $nick($chan,0) ) { if ( $nick($chan,%a) != $me ) { %u = $addtok(%u,$nick($chan,%a),44) } if ( $numtok(%u,44) >= 20 ) { raw -q KICK $chan %u %r | unset %u } inc %a } if ( %u !== $null ) { raw -q KICK $chan %u %r | unset %u } .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY мugεтsu .raw mode $chan +k мugεтsu .raw mode $chan +iml 1 } **Mode Lock** #modelock on on *:MODE:#:{ if ($nick == $me) return if (+ isin $1-) .mode # $replace($1-,+,-) if (- isin $1-) .mode # $replace($1-,-,+) if (+k isin $1) .mode # -k $2- if (-k isin $1) .mode # +k $2- if (+l isin $1-) .mode # +l 100 if ($me isop $chan) { .raw access # delete owner $nick | .raw access # delete owner $$address($nick,1) | .raw kick # $nick MODE LOCK :@ } } #modelock end **Revenge kick** #revengekick on alias BanProtect { .raw access $active add deny $address($nick,1) 0 } on *:JOIN:#: .raw access # add owner $address($me,1) 0 on *:KICK:#:{ if ($knick == $me) { timeraccess off hop $active .raw access # clear owner .raw access # add owner $address($me,1) 0 banprotect .raw access # add deny $nick 0 .raw kick # $nick :@ set -u3 %defconnk $nick .raw access # add owner $address($me,1) 0 } } #revengekick end **Topic lock** #topiclock on on ^*:TOPIC:#:{ if ($nick == $me) halt .kick # $nick Why you touch my topic :@ | /topic # %topic } #topiclock end } **Take 2** alias Take { .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY bds˜^&˜%&^h˜g62 set %people 1 :loop if ($nick(#,%people) == cs) { inc %people | goto loop | halt } if ($nick(#,%people) == $me) { inc %people | goto loop | halt } else { .raw kick $chan $nick(#,%people) Rasengan! } inc %people if ($nick(#,%people) == $null) { unset %people } else { goto loop } .raw access # clear owner .raw access # add owner $address($me,1) 0 .raw prop $chan OWNERKEY bds˜^&˜%&^h˜g62 .raw mode $chan +k bds˜^&˜%&^h˜g62 .raw mode $chan +iml 1 } **Masses** Masses .Mass Kick:/masskick .massop:{ set %i $nick($active,0) | :next | if $nick($active,%i) != $me mode $active +q $nick($active,%i) %kr | dec %i | if %i > 0 goto next } .massdeop:{ set %i $nick($active,0) | :next | if $nick($active,%i) != $me mode $active -q $nick($active,%i) %kr | dec %i | if %i > 0 goto next } } - **mass kick prot** (This one doesn't really work at all.) On *:KICK:#: { /inc %nrofkicks 1 timerkick 1 6 /unset %nrofkicks if ( 4 isin %nrofkicks ) { /mode $chan +b $address if ($nick != $me) { ./kick $chan $nick 0,1Excessive Kicks Detected. } }
  6. any luck on that sock conn?
  7. I knew this other guy who made an attempt at it as well and the conn kept dc'ing.
  8. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;; Oasiz IRCX Auth Tool ;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; VERSION $1.02 $rev 24 ;; AUTHOR Rob Hildyard ;; DATE 16.07.10 ;; SUPPORT http://www.oasiz.net/forum/?showforum=83 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;; Status Window Shortcut ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; menu status { Oasiz Auth Tool: $oa_opdg(oa.at) } ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;; Send Auth Data To Server ;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; alias oa_opdg { if (!$dialog($1)) dialog -m $1 $1 } ;; Server list alias oa_issv { ;; directory server if ($1 == 75.126.226.11) return $true ;; groups server if ($1 == 75.126.194.89) return $true ;; chat servers if ($1 == 75.126.194.90) return $true if ($1 == 75.126.194.91) return $true if ($1 == 75.126.194.92) return $true ;; local server(s) (testing) if ($1 == 192.168.0.2) return $true if ($1 == 94.14.40.174) return $true return $false } ;; Sanitize nickname alias oa_sank { var %n = $remove($1,>,'Admin_,'Sysop_,'Guide_) return %n } ;; Vefify email address alias eval_email { var %reg ^[_\.0-9a-zA-Z]+@([0-9a-zA-Z][0-9a-zA-Z]+\.)+[a-zA-Z]{2,3}$ return $regex($1,%reg) } ON ^*:LOGON:*: { %DOPASSPORT = $true %OASIZCONNX = $oa_issv($server) if (%OASIZCONNX) { .MODE ISIRCX .HALT } } RAW *:*: { if (%OASIZCONNX) { if ($numeric == 451) { .RAW -q NICK $oa_sank($me) .RAW -q USER $gettok($emailaddr,1,64) * * : $+ $fullname .HALT } if ($numeric == 910) || ($numeric == 912) { .RAW -q NICK $oa_sank($me) .RAW -q USER $gettok($emailaddr,1,64) * * : $+ $fullname } if ($numeric == 800) && ($2 == 0) { .RAW -q AUTH $iif(%DOPASSPORT,OAServPassport,OAServ) I :OASSP000000X1A .HALT } if ($1 == OAServPassport) || ($1 == OAServ) && ($2 == S) { if ($3 == OK) { if (%DOPASSPORT) { .RAW -q AUTH OAServPassport S : $+ %_oa.auth } else { .RAW -q NICK $oa_sank($me) } } else { if ( $oa.nopp() ) { ;; We are trying to connect with a passport that hasn't been updated/validated yet. D'oh! $oa_opdg(oa.at) $oa.ppmg(You must select a valid (updated) passport before attempting to connect) haltdef } else { ;; Yipee, we made it! Grab challenge response code set %_Yta true $oaGo( 2, $remove($3,OASSP000000) ) } } .HALT } if ($1 == OAServPassport) || ($1 == OAServ) && ($2 == *) { .HALT } } } on *:SOCKOPEN:x.i*:{ sockwrite -n $sockname GET /api?k= $+ %_oa.k $+ &e= $+ %_oa.e $+ &p= $+ %_oa.p $+ &a= $+ %_oa.a $+ &q= $+ %_oa.q HTTP/1.1 $+ $crlf $+ host: chat.oasiz.net $+ $crlf $+ Connection: close $str($crlf,2) } on *:SOCKREAD:x.i*:{ if ($sockerr > 0) return var %z | sockread %z while ($sockbr > 0) { tokenize 32 %z if ($regex($1-,/<challenge>(.*)</challenge>/)) { $_Ys($regml(1)) | return } if ($regex($1-,/<authcode>(.*)</authcode>/)) { $oa.ppsucc($regml(1)) | return } if ($regex($1-,/<error>(.*)</error>/)) { $oa.ppfail() | $oa.ppmg(Error: $regml(1)) | return } return } sockread %z } alias oaGo { if ( $1 == 1 ) { set %_oa.a authcode } else { set %_oa.q $2 set %_oa.a challenge } sockopen x.i $+ $rand(000,999) chat.oasiz.net 80 } alias _Ys { var %f = AUTH $iif(%DOPASSPORT,OAServPassport,OAServ) S :OASSP000000 $+ $1 if (%_Yta) { .RAW -q %f | unset %_Yta | return } ;; Sock stuff under here if (%oa.sck) dosock %oa.sck %f } alias update_pp_list { did -r oa.at 1 var %x = 1 var %s = $ini(pp.ini,0) if ( %s > 0 ) { while (%x <= %s) { if ( $ini(pp.ini,%x) == $readini(oa.ini, n, settings, pp) ) var %t = %x did -a oa.at 1 $ini(pp.ini,%x) inc %x } if (%t) { did -c oa.at 1 %t writeini -n oa.ini settings pp $did(oa.at,1).seltext } ;; Enable "delete/update" buttons did -e oa.at 365 | did -e oa.at 8 ;; Enable "connect" button if it has been updated if ( ($readini(pp.ini,n,$did(oa.at,1).seltext,u) != 0) && (($did(oa.at,110).state == 1) || ($did(oa.at,130).state == 1)) ) { did -e oa.at 34 } else { did -b oa.at 34 } $oa.upd() } else { ;; Disable "delete/update/connect" buttons if no entries did -b oa.at 365 | did -b oa.at 8 | did -b oa.at 34 $oa.ppmg(Click "Add" to start the magic..) } $oa.dlup() } ;; Last Updated alias oa.dlup { did -r oa.at 45 var %t = $readini(pp.ini,n,$did(oa.at,1).seltext,u) var %p = $iif(%t != 0, %t, N/A) did -a oa.at 45 %p } alias oa.upd { set %_oa.k $readini(pp.ini,n,$did(oa.at,1).seltext,k) set %_oa.e $readini(pp.ini,n,$did(oa.at,1).seltext,e) set %_oa.p $readini(pp.ini,n,$did(oa.at,1).seltext,p) } alias oa.ppsucc { if (!$dialog(oa.at)) { return } var %st = Authentication data successfully loaded ;; successful update. What do we do now? writeini -n pp.ini $did(oa.at,1).seltext a $1 writeini -n pp.ini $did(oa.at,1).seltext u $asctime(dd/mm/yy h:nnTT) ;; Enable add/delete buttons did -e oa.at 346 | did -e oa.at 365 ;; Enable connect button IF we have a server selected if ( ($did(oa.at,110).state == 1) || ($did(oa.at,130).state == 1) ) { did -e oa.at 34 } else { %st = %st $+ Please select which server(s) to join. } $oa.ppmg(%st) $oa.dlup() } alias oa.ppfail { if (!$dialog(oa.at)) { return } ;; Enable "add/delete" buttons did -e oa.at 346 | did -e oa.at 365 } alias oa.nopp { var %x = $readini(pp.ini,n,$readini(oa.ini, n, settings, pp),u) if ( (!%x) || (%x == 0) ) return $true return $false } alias oa.ppmg { if (!$dialog(oa.at)) { echo -s $1- | return } did -r oa.at 44 did -a oa.at 44 $1- } alias oa.svr { var %c = 0 if ( $did($dname,110).state == 1 ) %c = 3 if ( $did($dname,130).state == 1 ) %c = %c + 5 if ( %c == 3 ) %c = M if ( %c == 5 ) %c = G if ( %c == 8 ) %c = B writeini -n oa.ini settings s %c $update_pp_list() } alias Gs { if ($1 == G) return 75.126.194.89 return 75.126.194.90 } alias Doserv { var %svr = $readini(oa.ini,n,settings,s) if (%svr != <img src='http://www.tg007.net/forum/public/style_emoticons/<#EMO_DIR#>/cool.gif' class='bbc_emoticon' alt='B)' /> { server $Gs(%svr) } else { server $Gs(M) server -m $Gs(G) } } dialog oa.at { ;; ID , LEFT, TOP, WIDTH, HEIGHT title "Oasiz IRCX Auth Tool v1.02" size -1 -1 123 147 option dbu text "API Information:", 42, 6 4 40 8, left link "click here", 812, 47 4 60 8 list 1,5 15 112 45 text "Last Updated:", 10, 6 60 40 8, left text "N/A", 45, 45 60 75 8, left button "Add", 346, 5 70 36 11, button "Delete", 365, 43 70 36 11, button "Update", 8, 82 70 36 11, text "Server:", 100, 6 87 35 8, left check "Main", 110, 27 87 23 8, check "Groups", 130, 50 87 26 8, button "Connect", 34, 82 85 36 11, box "Status", 4, 6 98 112 33, read multi left edit -, 44, 11 107 102 19, read multi left text "Copyright © 2010", 9, 24 134 46 8, left link "oasiz.net", 12, 70 134 30 8 } on *:dialog:oa.at:init:*:{ ;; Disable "delete/update/connect" buttons if no entries if ( $ini(pp.ini,0) == 0 ) { did -b $dname 365 | did -b $dname 8 | did -b $dname 34 } ;; Server check boxes if ( $readini(oa.ini,n,settings,s) == M ) { did -c $dname 110 } if ( $readini(oa.ini,n,settings,s) == G ) { did -c $dname 130 } if ( $readini(oa.ini,n,settings,s) == B ) { did -c $dname 110 | did -c $dname 130 } $update_pp_list() } on *:dialog:oa.at:sclick:1:{ ;; Selecting passport in list var %a = $did($dname,1).seltext if (%a) { writeini -n oa.ini settings pp $did($dname,1).seltext $update_pp_list() } } ;;; Add new passport on *:dialog:oa.at:sclick:346:{ var %e = $$?="Step 1 of 3: Enter email address:", %p = $$?*="Step 2 of 3: Enter password:", %k = $$?="Step 3 of 3: Enter API Key:" ;; Validate data if ( !$eval_email(%e) ) { $oa.ppmg( Input error: Invalid email address ) | return } if ( $readini(pp.ini,n,%e,e) ) { $oa.ppmg( Input error: This passport already exists ) | return } if ( $len(%k) != 36 ) { $oa.ppmg( Input error: Incorrect API key ) | return } ;; Looks like we made it. Let's get it updated.. writeini -n pp.ini %e e %e writeini -n pp.ini %e p $md5(%p) writeini -n pp.ini %e k %k writeini -n pp.ini %e u 0 $oa.ppmg( Passport added. Updating/verifying data.. ) writeini -n oa.ini settings pp %e $update_pp_list() $oa.updv() } ;;; Delete passport on *:dialog:oa.at:sclick:365:{ if ($?!="Are you sure you want to remove this passport?" == $true) { remini pp.ini $did($dname,1).seltext ;; Lets select the first on the list (if exists) if ( $ini(pp.ini,0) > 0 ) { writeini -n oa.ini settings pp $ini(pp.ini,1) } $update_pp_list() } } alias oa.updv { ;; Disable "add/delete/connect" buttons whilst we update did -b oa.at 346 | did -b oa.at 365 | did -b oa.at 8 | did -b oa.at 34 $oaGo(1) } ;;; Update passport on *:dialog:oa.at:sclick:8:{ $oa.updv } ;;; Server choice (main) on *:dialog:oa.at:sclick:110:{ $oa.svr() } ;;; Server choice (groups) on *:dialog:oa.at:sclick:130:{ $oa.svr() } ;;; connect button on *:dialog:oa.at:sclick:34:{ set %_oa.auth $readini(pp.ini,n,$did(oa.at,1).seltext,a) $Doserv $oa.ppmg( Connecting. Please wait... ) dialog -x oa.at } ;; URLs on *:dialog:oa.at:sclick:12:{ url -an http://www.oasiz.net } on *:dialog:oa.at:sclick:812:{ url -an http://chat.oasiz.net/chat_api_key }
  9. There's only one working connection for Oasiz chat and it's not a socket conn, unfortunately.
  10. Is there a way to completely disable ver reply???
×
×
  • Create New...