dialog help please - mIRC Discussion Forums

Can someone please help me finish this dialog to work with this code?

Code:

 

alias -l SW { return fuck.bitch.asshole }

on @*:text:*:#: {
  if ($nick isop #) return
  var %x $strip($1-) , %i $numtok($SW,46)
  while (%i) {
    if ($istok(%x,$gettok($SW,%i,46),32)) {
      raw -q mode # +b $wildsite
      return
    }
    dec %i
  }
}


alias { dialog -dmn SW SW }

{
  Swear Words Protection ( %SW )
  .Set On:%SW = On | echo 10 -ta Swear Words Protection On
  .Set Off:%SW = Off | echo 10 -ta Swear Words Protection Off
}

dialog SW { 
  title "Swear Words Protection" 
  size -1 -1 148 167
  option dbu
  button "OK",10, 117 150 25 11, flat ok
  list 11, 9 15 125 95, sort, size, vsbar
  box "Enter Swear Words To Ban.", 5, 5 5 135 110
  edit %SW,12, 4 132 139 12, autohs
  button "Add",13, 5 150 25 11, flat
  button "Delete",14, 33 150 25 11, flat
  text "Enter Swear Words.",20, 4 120 138 8, center
  button "ON", 333, 89 150 25 11, flat
  button "OFF", 334, 61 150 25 11, flat
}

on *:dialog:SW:init:*: {



on *:dialog:SW:sclick:*: {
  if ($did == 333) { .enable #SW ON | echo -a $asctime([HH:nn]) * 10Swear Words Protection Is Now 15«4Enable15» }   
  if ($did == 334) { .disable #SW Off | echo -a $asctime([HH:nn]) * 10Swear Words Protection Is Now 15«4Disable15» }

1) I think you want raw ~q rather than raw -q
2) It appears that you have menu options, but no menu definition.
3) Your dialog init and sclick events are both missing closing braces, and you have no code for the init event.

I'll see about coding something for you after dinner.

Ok thx for the help Russel.

It wont set ban ??

Code:

 
On me:*:Disconnect: sw save
On *:Exit: sw save
on *:start:{
  if (!$isdir($mircdirsys)) mkdir $qt($mircdirsys)
  if !$hget(sw)  { .hmake sw 10 }
  if $exists($mircdirsys\sw.op) { .hload -i sw $mircdirsys\sw.op }
}

dialog sw {
  title "Bad swear Protection"
  size -1 -1 148 167
  option dbu
  combo 1, 9 15 125 125, sort, size, vsbar
  button "Add", 2, 5 150 25 11, flat
  button "Delete", 3, 33 150 25 11, flat
  box "Enter Bad swear Words.", 5, 5 5 135 140
  button "Ok", 7, 117 150 25 11, flat ok
  button "ON", 8, 89 150 25 11, flat
  button "OFF", 9, 61 150 25 11, flat
}

on 1:dialog:sw:sclick:8: {
{ .set %sw $+ $active $true | echo -ta 10Swear Protection Is Now 15«4Enable15» } 
}
on 1:dialog:sw:sclick:9: {  
  { .set %sw $+ $active $false | echo -ta 10Swear Protection Is Now 15«4Disable15» } 
}

on *:dialog:sw:*:*: {
  if ($devent == init) {
    did -b $dname 3
    var %x = 1
    while (%x <= $lines(sys/sw.op)) {
      did -a $dname 1 $read(sys/sw.op,%x)
      inc %x
    }
  }
  if ($devent == sclick) {
    if ($did == 1) {
      did -e $dname 3
    }
    if ($did == 2) {
      if ($did($dname,1)) {
        if (!$didwm(sw,1,$did($dname,1),0)) {
          write sys/sw.op $did($dname,1) 
          did -a $dname 1 $did($dname,1)
        }
      }
    }
    if ($did == 3) { 
      write -dw $did($dname,1).seltext sys/sw.op
      did -d $dname 1 $did($dname,1).sel
      did -b $dname 3
    }
  } 
}
}

On @*:Text:*:#: {
 if ($nick isop #) return 
  if (!$hget(sw)) hmake sw 10
  var %x $strip($1-) , %i $numtok(sw.op,46)
  while (%i) {
    if ($istok(%x,$gettok(sw.op,%i,46),32)) {
      raw -q mode # +b $wildsite
      return
    }
    dec %i
  }
}
#SW ON

I found a few bugs but it still wont BAN, any ideals why ???

Code:

 

On me:*:Disconnect: sww save
On *:Exit: sww save
on *:start:{
  if (!$isdir($mircdirsys)) mkdir $qt($mircdirsys)
  if !$hget(sww) { .hmake sww 10 }
  if $exists($mircdirsys\sww.op) { .hload -i sww $mircdirsys\sww.op }
}

alias SWW { dialog -dmn SWW SWW }

dialog sww {
  title "Bad Swear Protection"
  size -1 -1 148 167
  option dbu
  combo 1, 9 15 125 125, sort, size, vsbar
  button "Add", 2, 5 150 25 11, flat
  button "Delete", 3, 33 150 25 11, flat
  box "Enter Bad Swear Words.", 5, 5 5 135 140
  button "Ok", 7, 117 150 25 11, flat ok
  button "ON", 8, 89 150 25 11, flat
  button "OFF", 9, 61 150 25 11, flat
}

on 1:dialog:sww:sclick:8: { .set %sww $+ $active $true | echo -ta 10Swear Protection Is Now 15«4Enable15» }
on 1:dialog:sww:sclick:9: { .set %sww $+ $active $false | echo -ta 10Swear Protection Is Now 15«4Disable15» } 

on *:dialog:sww:*:*: {
  if ($devent == init) {
    did -b $dname 3
    var %x = 1
    while (%x <= $lines(sys/sww.op)) {
      did -a $dname 1 $read(sys/sww.op,%x)
      inc %x
    }
  }
  if ($devent == sclick) {
    if ($did == 1) {
      did -e $dname 3
    }
    if ($did == 2) {
    if ($did($dname,1)) {
    if (!$didwm(sww,1,$did($dname,1),0)) {
    write sys/sww.op $did($dname,1) 
    did -a $dname 1 $did($dname,1)
        }
      }
    }
    if ($did == 3) { 
      write -dw $did($dname,1).seltext sys/sww.op
      did -d $dname 1 $did($dname,1).sel
      did -b $dname 3
    }
  } 
}

on @*:text:*:#: {
if ($nick isop #) return
if $gettok(!$hget(sww)) hmake sww 10
var %x $strip($1-) , %i $numtok($sww,46)
while (%i) {
if ($istok(%x,$gettok($sww,%i,46),32)) {
hinc sww $nick
raw -q mode # +b $wildsite
return
}
dec %i
  }
}

#sww ON

What type of network is it for? IRC or IRCX

IRC

Code:

alias sww dialog $iif(!$dialog(sww),-dmn,-v) sww sww
dialog sww {
  title "Bad Swear Protection"
  size -1 -1 148 167
  option dbu
  combo 1, 9 15 125 125, sort, size, vsbar
  button "Add", 2, 5 150 25 11, flat
  button "Delete", 3, 33 150 25 11, flat
  box "Enter Bad Swear Words.", 5, 5 5 135 140
  button "Ok", 7, 117 150 25 11, flat ok
  button "ON", 8, 89 150 25 11, flat
  button "OFF", 9, 61 150 25 11, flat
}

on 1:dialog:sww:sclick:8: { set %sww $+ $active 1 | echo -ta 10Swear Protection Is Now 15«4Enable15» }
on 1:dialog:sww:sclick:9: { set %sww $+ $active 0 | echo -ta 10Swear Protection Is Now 15«4Disable15» } 

on *:dialog:sww:*:*: {
  if ($devent == init) {
    did -b $dname 3
    var %x = 1
    while (%x <= $lines(sys/sww.op)) {
      did -a $dname 1 $read(sys/sww.op,%x)
      inc %x
    }
  }
  if ($devent == sclick) {
    if ($did == 1) {
      did -e $dname 3
    }
    if ($did == 2) {
      if ($did($dname,1)) {
        if (!$didwm(sww,1,$did($dname,1),0)) {
          write sys/sww.op $did($dname,1) 
          did -a $dname 1 $did($dname,1)
        }
      }
    }
    if ($did == 3) { 
      write -dw $did($dname,1).seltext sys/sww.op
      did -d $dname 1 $did($dname,1).sel
      did -b $dname 3
    }
  } 
}

on @*:text:*:#: {
  if ($nick isop #) || (!$($+(%,sww,$chan),2)) return
  var %x $strip($1-) , %i $lines(sys/sww.op)
  while (%i) {
    if ($istok(%x,$read(sys/sww.op,%i),32)) raw -q mode # +b $wildsite
    dec %i
  }
}

There may be other methods out there.

wow great stuff, this is the best method so far cause it works so thx again Crinul :P