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 }

;Kick
on syscon:text:!kick*:#: {
  if ($2 == $null) { msg $chan Specify a nickname. | halt }
  if ($2 !ison $chan) { msg $chan $2 is not on $chan $+ ! | halt }
  if ($level($address($2,2)) == syscon) { msg $chan You can not kick a bot operator! | halt }  
  kick $chan $2 $3-
  /write C:\IcyBot2\Scripts\op_log.txt On $date(dddd $+ $chr(44) mmmm d $+ $chr(44) yyyy) at $time(h:nn:ss TT) $nick used $$1 $$2 $3- on $chan
}

 /write C:\IcyBot2\Scripts\op_log.txt On $date(dddd $+ $chr(44) mmmm d $+ $chr(44) yyyy) at $time(h:nn:ss TT) $nick used $$1 $$2 $$3 $4- via msg

/write C:\IcyBot2\Scripts\op_log.txt On $date(dddd $+ $chr(44) mmmm d $+ $chr(44) yyyy) at $time(h:nn:ss TT) $nick used $$1 $$2 $3- on $chan

if ($chan) { do the part for channels }
else { do the part for queries }

on *:text:whatever:#,?: { }

on *:TEXT:!login*:?: {
  if ($2 == $null) { msg $nick Switch to the nick you registered with, and type !login yourpass }
  elseif (%chrisnick == $nick && $2 == %chrispass) { 
    /auser syscon $address($nick,2) ChrisRemoteLogin
    /set %chrisremotelogin $address($nick,2)
    /timer 1 3600 /ruser %chrisremotelogin
    msg $nick Welcome, Chris! Access at level syscon has been given to $address($nick,2) for 1 hour.
  }
  else { msg $nick Access Denied. }
}

on syscon:TEXT:!changepass*:?: {
  if (%chrisnick == $nick) {
    if ($2 == $null) { msg $nick Specify old password, Chris. }
    elseif ($2 != $null && $3 == $null) { msg $nick Specify new password, Chris. }
    elseif (%chrispass != $2) { msg $nick Incorrect old password, Chris. }
    elseif (%chrispass == $2) { /set %chrispass $3 | msg $nick New password is $$3 $+, Chris. }
    else { halt }
  }
  else { halt }
}

on syscon:TEXT:!changenick*:?: {
  if (%chrisnick == $nick) {
    if ($2 == $null) { msg $nick Specify your password, Chris. }
    elseif ($2 != $null && $3 == $null) { msg $nick Specify a new login nick, Chris. }
    elseif ($2 != %chrispass) { msg $nick Incorrect password, Chris. }
    elseif ($2 == %chrispass { /set %chrisnick $3 | msg $nick New login nick is $$3 $+ , Chris. }
    else { halt }
  }
  else { halt }
}

    /set %chrisremotelogin $address($nick,2)
    /timer 1 3600 /ruser %chrisremotelogin

    elseif ($2 != %chrispass) { }
    elseif ($2 == %chrispass { }

    elseif ($2 != %chrispass) { }
    else { }

    if ($2 == $null) {  }
    elseif ($3 == $null) { }

var %output
if (1 == 1) {
  %output = %output true
}
else {
  %output = %output false
}
%output = %output ::
if (this == that) {
  %output = %output true
}
else {
  %output = %output false
}
%output = %output ::
if ($server) {
  %output = %output $v1
}
else {
  %output = %output not connected
}
echo -ag %output

echo -a I am $iif($server,connected to $v1, not connected).

menu channel,status,menubar {
  .-
  Away
  .Set Yourself $iif($away, as Here!, Away) : {
    if $away { away } | else { away $?="Type in away message" }
  }
}

ON *:SIGNAL:maketitle {
  var %title
  var %count = $scon(0)
  ;
  ; Add NICK:NETWORK to titlebar
  ;
  while (%count) {
    %title = $+( [, $iif($scon(%count).status != connected, -, $scon(%count).me), :, $scon(%count).network , $iif( $scon(%count).away,  $+($chr(32), $chr(40), A, $chr(41)) ), ]) %title
    dec %count
  }
  ;
  ; Add playing MP3 if one exists
  ; 
  if ($inmp3) {
    %title = %title [Now Playing: $nopath($addtok(%title,: $insong.fname, 32)) $+ ]]
  }
  ;
  ; Show download/upload speed totals if using DCC
  ;
  var %up = 0, %down = 0
  var %count = $get(0)
  while (%count) {
    inc %down $get(%count).cps
    dec %count
  }
  var %count = $send(0)
  while (%count) {
    inc %up $send(%count).cps
    dec %count
  }
  if (%up || %down) {
    %title = %title $+([, $bytes(%up, k).suf, /, $bytes(%down, k).suf, ])
    .timerSpeedUpdate 1 1 .signal maketitle
  }
  ;
  ; Force the mIRC version infront of the rest of the title
  ; 
  .titlebar $version $iif($sslready, (SSL)) $iif($beta, ( $+ $beta $+ )) %title
}

6.3 (SSL) [Bekar:EFNet (A)] [Bekar:DarkerNet (A)] [Bekar:Rizon (A)] [Bekar:irchighway (A)] [-:ChatSpike] [Now Playing: ben_folds_five_-_army.mp3] [3.2KB/91.96KB]

true :: false :: <servername>