knock box

raw KNOCK:*: {
  set %Knock.Nick $nick
  set %Knock.Gate (THIS IS WHAT IM HAVEN TROUBLE WITH )
  set %Knock.Room $$1
  dialog -m KnockBox KnockBox
  /echo chan 4 $+ $nick is knocking but cannot join $$1 | .haltdef
}
#KNOCKBOX off
dialog KnockBox {
  title "KNOCK Alert"
  size -1 -1 312 130
  option pixels
  button "Ign/off", 5, 65 109 90 20, cancel
  button "Unban", 3, 65 64 90 20, ok
  button "Extend to Indefinite", 4, 65 86 90 20, ok
  button "Msg Room", 1, 162 64 90 20
  button "join Room", 2, 162 87 90 20
  text $msn.decode(%Knock.Nick) ( %Knock.Nick )", 6, 18 5 354 16
  text %Knock.Gate, 7, 17 24 394 16
  text %Knock.Room, 8, 8 46 954 16
}
on *:Dialog:KnockBox:sclick:3: { /msg %Knock.Room %Knock.Nick with %Knock.Gate is unband | /access $active $chan add grant %Knock.Nick | /access $active $chan add grant *! $+ %Knock.Gate | /unban }
on *:Dialog:KnockBox:sclick:4: { /unban extend | access %Knock.Room add deny *! $+ %Knock.Gate 0 | /echo -a extend %Knock.Nick with %Knock.Gate to 4PERTAMENT
}

on *:Dialog:KnockBox:sclick:5: { .disable #KNOCKBOX | timerknockbox 1 20 .enable #KNOCKBOX | timerknockbox1 1 22 timerknockbox off
}

alias unban {
  /access %Knock.Room delete deny %Knock.Nick
  /access %Knock.Room delete deny *! $+ %Knock.Gate
  if ($1 == extend) {
    access %Knock.Room delete deny %Knock.Nick
    access %Knock.Room add deny *! $+ %Knock.Gate
    closeit
  }
}
#KNOCKBOX end
on *:Dialog:KnockBox:sclick:1: { /msg %Knock.Room %Knock.Nick with %Knock.Gate are they to stay band ? }
on *:Dialog:KnockBox:sclick:2: { /join %Knock.Room }
on *:text:*!Y*:#:/msg %Knock.Room %Knock.Nick with %Knock.Gate is unband | /access $active $chan add grant %Knock.Nick | /access $active $chan add grant *! $+ %Knock.Gate | /unban
on *:text:*!N*:#:/msg %Knock.Room %Knock.Nick with %Knock.Gate is still band
on ^*:KNOCK:#:{ /echo chan 4 $+ $nick is knocking but cannot join $$1 | .haltdef }