Forums Scripts & Popups $read

on *:start: {
  NickRespTable
}

alias NickRespTable {
  hmake NickResp 100
  if ($exists($scriptdir\NickResp.txt)) { hload NickResp $scriptdir\NickResp.hsh }
}

on *:join:#: {
  if (!$hget(NickResp)) { NickRespTable }
  if ($hget(NickResp,$nick)) { msg $chan $v1 }
}

alias AddNewNickResp {
  if (!$hget(NickResp)) { NickRespTable }
  hadd NickResp $$?="Enter a nickname" $$?="Enter the message"
  hsave NickResp $scriptdir\NickResp.hsh 
}

alias RemNickResp {
  if (!$hget(NickResp)) { NickRespTable }
  var %nick = $iif($1,$1,$$?="Enter Nick")
  if ($hget(NickResp,%nick)) { hdel NickResp %nick }
  hsave NickResp $scriptdir\NickResp.hsh
}

menu channel,status {
  Nick Responder
  .Add Nick:AddNewNickResp
  .Remove Nick:RemNickResp
}

menu nicklist,query {
  Nick Responder
  .Add $1:AddNewNickResp $1
  .Remove $1:RemNickResp $1
}

MsgMyself
.Food
..Cake:/msg $me You bake yourself a cake
..Ice Cream:/msg $me You serve yourself a bowl of ice cream
.Drink
..Coke:/msg $me You hand yourself a Coke
..Sprite:/msg $me You hand yourself a Sprite

alias GetInfo {
  var %data1 = $?="Enter 1"
  var %data2 = $?="Enter 2"
  var %data3 = $?="Enter 3"
  echo -a %data1 ~ %data2 ~ %data3
}

-
Send Bar:/icybotbar

alias icybotbar {
set %bardata1 $?="Callup Code?"
set %bardata2 $?="Nickname for greet?"
set %bardata3 $?="Color banner?"
msg IcyBot !addbar %bardata1 %bardata2 %bardata3
unset %bardata1
unset %bardata2
unset %bardata3
}

menu nicklist {
  $iif($1 == whatever,Show this menu option):Do this
}

if ($mode == +c) { msg $chan Sorry, colors are disabled on $chan $+ . You'll need to find somewhere else to play Uno. }

if ($user($nick) == syscon) { msg $nick You can not ban a bot operator! }

(if $level($address($2,2)) == syscon) { msg $nick You can not ban a bot operator! }

if (c isincs $chan(#chan).mode) { msg $chan Sorry, colors are disabled on $chan $+ . You'll need to find somewhere else to play Uno. }

if ($istok($remove($level(NICK/MASK),=),YOURLEVEL,44)) { stuff }