mIRC Home    About    Download    Register    News    Help

Print Thread
convert #117967 21/04/05 09:19 AM
Joined: Apr 2005
Posts: 38
J
juble Offline OP
Ameglian cow
OP Offline
Ameglian cow
J
Joined: Apr 2005
Posts: 38
Is there anyone outthere who knows how can convert this two codes to VBscript languages ??
thank you!
Code:
  
SWEAR CODE:

on @*:TEXT:*:#:{
  if ($nick !isop #) {
    var %s = $strip($1-)
    if (*[censored]* iswm $1-) || (idiot isin $1-) {
      set -u3600 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
      ;the -u3600 makes the variable unset after 1hr without being used
      if (%rl. [ $+ [ $address($nick,2) ] ] == 1) msg $chan $nick badword detected! 
      if (%rl. [ $+ [ $address($nick,2) ] ] == 2) {
        ban $chan $nick 11
        kick $chan $nick BANNED ( $+ $ifmatch badwords detected)
      }
    }
  }
}


FLOOD CODE:
Code:
 
on @*:TEXT:*:#: {
  if ($nick isop #) return
  set -u3 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)
  ; The variable, %fld.#chan.nick counts the number of lines the person speaks
  ; It is automatically unset 3 seconds after the last time the person talked
  ; So I guess in _theory_ if you managed to do 1 line per 3 secs for 3 lines you could be kicked
  if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 5) {
  ;The above if statement checks if that variable is greater to or equals 5
    ban -u60 # $nick 11
    kick # $nick Please do not flood
  }
}
 

Re: convert #117968 21/04/05 09:22 AM
Joined: Nov 2003
Posts: 2,327
T
tidy_trax Offline
Hoopy frood
Offline
Hoopy frood
T
Joined: Nov 2003
Posts: 2,327
1) Ask on a vb forum.
2) Don't expect people to write an IRC client for you, your code is useless in VB unless you have a working IRC client.


New username: hixxy