Stuff

remote:


on 1:START: { start }

dialog start {
  title "Yourbot IRC Bot 4.5 - Startup"
  size -1 -1 160 49
  option dbu
  icon images\logo2.ico, 0
  text "Operation: Loading Files...", 1, 4 2 101 13
  icon 2, 33 23 88 12, images\start1.bmp, 0
  text "Complete: 0%", 3, 118 2 39 13
  button "Ok" 8, 2 47 6 2, Ok
}

alias start {
  titlebar Yourbot IRC Bot 4.5> Offline
  if ($os == XP) { .unload -rs scripts\config.mrc | .load -rs scripts\xpconfig.mrc }
  else { .unload -rs scripts\xpconfig.mrc | .load -rs scripts\config.mrc }
  if ($exists(scripts\gopro.mrc) == $true) { 
    if (%unusep == on) { .load -rs scripts\gopro.mrc | set %unusep off | import | halt }
    if (%unusep == off) { }
  }
  if (%pro.yb == true) { ybpro }
  if (%prstart == on) { spr | setup | halt }
  dialog -m start start
  did -h start 8
  if ($script(away.mrc) == $null) { .load -rs scripts\away.mrc }
  if ($script(antitalk.mrc) == $null) { .load -rs scripts\antitalk.mrc }
  if ($script(autostart.mrc) == $null) { .load -rs scripts\autostart.mrc }
  if ($script(away.mrc) == $null) { .load -rs scripts\away.mrc }
  if ($script(boxop.mrc) == $null) { .load -rs scripts\boxop.mrc }
  if ($script(btserv.mrc) == $null) { .load -rs scripts\btserv.mrc }
  if ($script(chancmds.mrc) == $null) { .load -rs scripts\chancmds.mrc }
  if ($script(chancmds2.mrc) == $null) { .load -rs scripts\chancmds2.mrc }
  if ($script(commands.mrc) == $null) { .load -rs scripts\commands.mrc }
  if ($script(ctrl.mrc) == $null) { .load -rs scripts\ctrl.mrc }
  if ($script(def.mrc) == $null) { .load -rs scripts\def.mrc }
  if ($script(dialogs.mrc) == $null) { .load -rs scripts\dialogs.mrc }
  if ($script(faqcent.mrc) == $null) { .load -rs scripts\faqcent.mrc }
  if ($script(faqdb.mrc) == $null) { .load -rs scripts\faqdb.mrc }
  if ($script(games.mrc) == $null) { .load -rs scripts\games.mrc }
  if ($script(greet.mrc) == $null) { .load -rs scripts\greet.mrc }
  if ($script(guestbook.mrc) == $null) { .load -rs scripts\guestbook.mrc }
  if ($script(help.mrc) == $null) { .load -rs scripts\help.mrc }
  if ($script(link.mrc) == $null) { .load -rs scripts\link.mrc }
  if ($script(mboard.mrc) == $null) { .load -rs scripts\mboard.mrc }
  if ($script(onoff.mrc) == $null) { .load -rs scripts\onoff.mrc }
  if ($script(oper.mrc) == $null) { .load -rs scripts\oper.mrc }
  if ($script(protect.mrc) == $null) { .load -rs scripts\protect.mrc }
  if ($script(register.mrc) == $null) { .load -rs scripts\register.mrc }
  if ($script(seen.mrc) == $null) { .load -rs scripts\seen.mrc }
  if ($script(sk.mrc) == $null) { .load -rs scripts\sk.mrc }
  if ($script(status.mrc) == $null) { .load -rs scripts\status.mrc }
  if ($script(sys.mrc) == $null) { .load -rs scripts\sys.mrc }
  if ($script(various.mrc) == $null) { .load -rs scripts\various.mrc }
  if ($script(ybpro.mrc) == $null) { .load -rs scripts\ybpro.mrc }
  did -a start 1 Operation: Initialiazing DDE and IAL...
  did -a start 3 Complete: 13%
  did -g start 2 images\start1.bmp
  .ddeserver on
  .ial on
  inc %start.num 1
  if (%start.num == 30) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  if (%start.num == 50) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  if (%start.num == 75) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  if (%start.num == 100) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  if (%start.num == 200) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  if (%start.num == 300) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  if (%start.num == 400) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  if (%start.num == 500) { did -a start 1 Operation: Resetting variables... | did -a start 3 Complete: 26% | did -g start 2 images\start2.bmp | tenstart }
  unset %gb.AD.*
  if (%sont == off) { did -a start 1 Operation: Re-enabling the bot... | did -a start 3 Complete: 39% | did -g start 2 images\start3.bmp | .bton | .set %sont on }
  set %check.cur $findfile($mircdiraddons,*.*,0)
  set %check.num 1
  set %first.disconnect true
  :CHECK
  if (%check.num <= %check.cur) { 
    if (.yb isin $shortfn($findfile($mircdiraddons,*.*,%check.num))) { .load -rs $shortfn($findfile($mircdiraddons,*.*,%check.num)) | inc %check.num 1 | did -a start 1 Operation: Loading addon files... | did -a start 3 Complete: 52% | did -g start 2 images\start4.bmp | goto CHECK }
    else { inc %check.num 1 | goto CHECK }
  }
  unset %check.*
  set %check.cur $findfile($mircdiraddons,*.*,0)
  set %check.num 1
  :2CHECK
  if (%check.num <= %check.cur) { 
    if (.yb isin $findfile($mircdir,*.*,%check.num)) { .load -rs $findfile($mircdir,*.*,%check.num) | inc %check.num 1 | did -a start 1 Operation: Loading addon files... | did -a start 3 Complete: 52% | did -g start 2 images\start4.bmp | goto 2CHECK }
    else { inc %check.num 1 | goto 2CHECK }
  }
  unset %check.*
  write -c ini\tempgb.ini
  set %gbInUse false
  if (%spopon == QuitIRC) { unset %spopon }
  if (%made.owner == on) { echo Please make sure you follow the directions in the Readme file and set yourself as Owner. | echo 12Please press F1 to view. | .echo ------------------------------------------------------------------------- }
  did -a start 1 Operation: Configuring display...
  did -a start 3 Complete: 87%
  did -g start 2 images\start5.bmp
  if ($script(bt.mrc) == bt.mrc) { set %btpop Bot Talk }
  if ($script(bt.mrc) == $null) { unset %btpop }
  echo 10Command Keys:
  echo F1 - Opens the Readme.
  echo F2 - Opens the Configuration Wizard.
  echo F3 - $iif(%pro.yb == $true, 3Upgrade to 12Yourbot IRC Bot Professional12, Enables/Disables channel and query colors.)
  echo F4 - Changes the bots nickname.
  echo F5 - Auto-Start setup.
  echo F6 - Displays Command Identifier setup.
  echo F7 - Displays the Operator Management dialog.
  echo F8 - Displays Command Retrieval setup.
  echo F9 - Restarts the bot.
  echo F10 - Quits the bot.
  echo F11 - List all "F" commands.
  echo -------------------------------------------------------------------------
  svset
  did -a start 1 Operation: Successful
  did -a start 3 Complete: 100%
  did -g start 2 images\start6.bmp
  .timer 1 1 dialog -x start start
  if (%2prstart == on) { set %2prstart off | readme }
  if (%rst == on) { server %rs.server | set %rst off | .timer 2 10 /join %rs.chan | halt }
  if (%astart == on) { server %auto.server %auto.port }
  if (%news.check == on) { 
    if (%news.now == %news.days) { .timer 1 1 /news | set %news.now 1 }
    else { 
      if (%news.last == $adate) { halt } 
      else { set %news.last $adate | inc %news.now }
    }
  }
  if ($adate == 08/15/2004) { 
    if (%nwcheck == on) { .timer 1 1 /news | set %nwcheck off } 
  }
  if ($adate == 09/15/2004) { 
    if (%2nwcheck == on) { .timer 1 1 /news | set %2nwcheck off }
  }
  if ($adate == 10/01/2004) { 
    if (%3nwcheck == on) { .timer 1 1 /news | set %2nwcheck off }
  }
}

alias spr { 
  .ddeserver on
  .ial on
  rmecho
  echo 10Command Keys:
  echo F1 - Opens the Readme.
  echo F2 - Opens the Configuration Wizard.
  echo F3 - $iif(%pro.yb == $true, 3Upgrade to 12Yourbot IRC Bot Professional12., Enables/Disables channel and query colors.)
  echo F4 - Changes the bots nickname.
  echo F5 - Auto-Start setup.
  echo F6 - Displays Command Identifier setup.
  echo F7 - Displays the Operator Management dialog.
  echo F8 - Displays Command Retrieval setup.
  echo F9 - Restarts the bot.
  echo F10 - Quits the bot.
  echo F11 - List all "F" commands.
  echo -------------------------------------------------------------------------
  svset 
}

alias svset { 
  if (%auto.server != $null) { echo 5Primary IRC Server -  $+ %auto.server $+  (push F12 to connect) }
  else { echo 5Primary IRC Server - irc.chatcircuit.com (push F12 to connect) }