Jump to content
coders-irc_Bot

mIRC profiles

Recommended Posts

  • Administrators
Menu Menubar,Nicklist,Channel {
  .Mirc profile system: dialog $iif($dialog(mircprofile.system),-v,-md mircprofile.system) mircprofile.system 
}
Dialog mircprofile.system {
  Title "mircprofilesystem"
  Size -1 -1 146 86
  Option dbu
  list 1, 02 02 90 90, hsbar vsbar
  Button "add" ,2, 94 02 50 10, autohs
  Button "login" ,3, 94 14 50 10, autohs
  Button "edit" ,4, 94 26 50 10, autohs
}
on *:Dialog:mircprofile.system:*:*: {
  if ($devent == init) {
    set %usernames $readini(mircprofile.ini, users, loginnames)
    testwhile 
  }
  if ($devent == sclick) {
    if ($did == 2) {
      openeditor
      .dialog -x mircprofile.system
    }
    if ($did == 3) {
      if (!$did(1).sel) {
        noop $input(Please select a profile to log into from the list)
      }
      else { var %vartest $?="what's your pw"
        if (%vartest == $readini(mircprofile.ini, $did(1).seltext ,Pass)) {
          .set %mircprofile $did(1).seltext
          .nick $readini(mircprofile.ini, %mircprofile ,nick))
          .anick $readini(mircprofile.ini, %mircprofile ,altnick))
          .emailaddr $readini(mircprofile.ini, %mircprofile ,Email))
          .identd on $readini(mircprofile.ini, %mircprofile ,ident))
          if ($readini(mircprofile.ini, %mircprofile ,serveraddy)) {
            .server -m $readini(mircprofile.ini, %mircprofile ,serveraddy))
          }
        }
      }
    }
    if ($did == 4) {
      if (!$did(1).sel) {
        noop $input(Please select a profile to edit into from the list)
      }
      else { 
        .set %editprofile $did(1).seltext
        set %vartest $?="what's your pw"
        if (%vartest == $readini(mircprofile.ini, $did(1).seltext ,Pass)) {
          .set %mircprofile $did(1).seltext
          openeditor 
          .dialog -x mircprofile.system
        }
      }
    }
  }
}
alias openeditor { dialog -v,-md profeditor.system profeditor.system }
Dialog profeditor.system {
  Title "mircprofileeditor"
  Size -1 -1 55 97
  Option dbu
  edit "Enter real name" ,1, 02 02 50 10, autohs
  edit "Enter email" ,2, 02 12 50 10, autohs
  edit "Enter ident" ,3, 02 22 50 10, autohs
  edit "Enter nick " ,4, 02 32 50 10, autohs
  edit "Enter alt nick" ,5, 02 42 50 10, autohs
  edit "Enter server addy" ,6, 02 52 50 10, autohs
  edit "Enter server pw" ,7, 02 62 50 10, autohs
  Button "save" ,9, 02 74 50 10, autohs
  Button "delete" ,10, 02 86 50 10, autohs

}
on *:Dialog:profeditor.system:*:*: {
  if ($devent == init) {
    if (%editprofile) {
      .did -r profeditor.system 1-7
      .did -a profeditor.system 1 %editprofile
      .did -a profeditor.system 2 $readini(mircprofile.ini, %editprofile ,Email))
      .did -a profeditor.system 3 $readini(mircprofile.ini, %editprofile ,ident))
      .did -a profeditor.system 4 $readini(mircprofile.ini, %editprofile ,nick))
      .did -a profeditor.system 5 $readini(mircprofile.ini, %editprofile ,altnick))
      .did -a profeditor.system 6 $readini(mircprofile.ini, %editprofile ,serveraddy))
      .did -a profeditor.system 7 $readini(mircprofile.ini, %editprofile ,Pass))

    }
  }
  if ($devent == sclick) {
    if ($did == 9) {
      .set %usernames $addtok(%usernames, $did(1).text ,44)
      .timer 1 2 addprofnick
      writeini mircprofile.ini $did(1).text email $did(2).text
      writeini mircprofile.ini $did(1).text ident $did(3).text
      writeini mircprofile.ini $did(1).text nick $did(4).text
      writeini mircprofile.ini $did(1).text altnick $did(5).text
      writeini mircprofile.ini $did(1).text serveraddy $did(6).text
      writeini mircprofile.ini $did(1).text pass $did(7).text

    }
    if ($did == 10) {
      remini mircprofile.ini $did(1).text
      set %usernames $remtok(%usernames, $did(1).text ,44)
      .timer 1 2 addprofnick
    }
  }
  if ($devent == close) {
    .unset %editprofile
    .unset %mircprofile
    .unset %vartest
  }
}
alias openmircprofsystem { dialog -v,-md mircprofile.system mircprofile.system }
alias addprofnick { 
  if (!%usernames) {
    remini mircprofile.ini users
    .dialog -x profeditor.system
    openmircprofsystem
    .unset %editprofile
    .unset %mircprofile
  }
  else {
    .writeini -n mircprofile.ini users loginnames %usernames
    .dialog -x profeditor.system
    openmircprofsystem
    .unset %editprofile
    .unset %mircprofile
  }
}
alias testwhile {
  var %a = 1, %b = $numtok(%usernames,44)
  while (%a <= %b) {
    did -a mircprofile.system 1 $gettok(%usernames,%a,44)
    inc %a
  }
}

------------------------------------------------------------------------

Menu Menubar,Nicklist,Channel {
  .Mirc profile system: dialog $iif($dialog(mircprofile.system),-v,-md mircprofile.system) mircprofile.system 
}
Dialog mircprofile.system {
  Title "mircprofilesystem"
  Size -1 -1 146 86
  Option dbu
  list 1, 02 02 90 90, hsbar vsbar
  Button "add" ,2, 94 02 50 10, autohs
  Button "login" ,3, 94 14 50 10, autohs
  Button "edit" ,4, 94 26 50 10, autohs
}
on *:Dialog:mircprofile.system:*:*: {
  if ($devent == init) {
    set %usernames $readini(mircprofile.ini, users, loginnames)
    testwhile 
  }
  if ($devent == sclick) {
    if ($did == 2) {
      openeditor
      .dialog -x mircprofile.system
    }
    if ($did == 3) {
      if (!$did(1).sel) {
        noop $input(Please select a profile to log into from the list)
      }
      else { 
          .set %mircprofile $did(1).seltext
          .nick $readini(mircprofile.ini, %mircprofile ,nick))
          .anick $readini(mircprofile.ini, %mircprofile ,altnick))
          .emailaddr $readini(mircprofile.ini, %mircprofile ,Email))
          .identd on $readini(mircprofile.ini, %mircprofile ,ident))
          if ($readini(mircprofile.ini, %mircprofile ,serveraddy)) {
            .server -m $readini(mircprofile.ini, %mircprofile ,serveraddy))
          }
        }
      }
      if ($did == 4) {
      if (!$did(1).sel) {
        noop $input(Please select a profile to edit into from the list)
      }
      else { 
        .set %editprofile $did(1).seltext
        set %vartest $?="what's your pw"
        if (%vartest == $readini(mircprofile.ini, $did(1).seltext ,Pass)) {
          .set %mircprofile $did(1).seltext
          openeditor 
          .dialog -x mircprofile.system
        }
      }
    }
  }
}
alias openeditor { dialog -v,-md profeditor.system profeditor.system }
Dialog profeditor.system {
  Title "mircprofileeditor"
  Size -1 -1 55 97
  Option dbu
  edit "Enter real name" ,1, 02 02 50 10, autohs
  edit "Enter email" ,2, 02 12 50 10, autohs
  edit "Enter ident" ,3, 02 22 50 10, autohs
  edit "Enter nick " ,4, 02 32 50 10, autohs
  edit "Enter alt nick" ,5, 02 42 50 10, autohs
  edit "Enter server addy" ,6, 02 52 50 10, autohs
  edit "Enter server pw" ,7, 02 62 50 10, autohs
  Button "save" ,9, 02 74 50 10, autohs
  Button "delete" ,10, 02 86 50 10, autohs

}
on *:Dialog:profeditor.system:*:*: {
  if ($devent == init) {
    if (%editprofile) {
      .did -r profeditor.system 1-7
      .did -a profeditor.system 1 %editprofile
      .did -a profeditor.system 2 $readini(mircprofile.ini, %editprofile ,Email))
      .did -a profeditor.system 3 $readini(mircprofile.ini, %editprofile ,ident))
      .did -a profeditor.system 4 $readini(mircprofile.ini, %editprofile ,nick))
      .did -a profeditor.system 5 $readini(mircprofile.ini, %editprofile ,altnick))
      .did -a profeditor.system 6 $readini(mircprofile.ini, %editprofile ,serveraddy))
      .did -a profeditor.system 7 $readini(mircprofile.ini, %editprofile ,Pass))

    }
  }
  if ($devent == sclick) {
    if ($did == 9) {
      .set %usernames $addtok(%usernames, $did(1).text ,44)
      .timer 1 2 addprofnick
      writeini mircprofile.ini $did(1).text email $did(2).text
      writeini mircprofile.ini $did(1).text ident $did(3).text
      writeini mircprofile.ini $did(1).text nick $did(4).text
      writeini mircprofile.ini $did(1).text altnick $did(5).text
      writeini mircprofile.ini $did(1).text serveraddy $did(6).text
      writeini mircprofile.ini $did(1).text pass $did(7).text

    }
    if ($did == 10) {
      remini mircprofile.ini $did(1).text
      set %usernames $remtok(%usernames, $did(1).text ,44)
      .timer 1 2 addprofnick
    }
  }
  if ($devent == close) {
    .unset %editprofile
    .unset %mircprofile
    .unset %vartest
  }
}
alias openmircprofsystem { dialog -v,-md mircprofile.system mircprofile.system }
alias addprofnick { 
  if (!%usernames) {
    remini mircprofile.ini users
    .dialog -x profeditor.system
    openmircprofsystem
    .unset %editprofile
    .unset %mircprofile
  }
  else {
    .writeini -n mircprofile.ini users loginnames %usernames
    .dialog -x profeditor.system
    openmircprofsystem
    .unset %editprofile
    .unset %mircprofile
  }
}
alias testwhile {
  var %a = 1, %b = $numtok(%usernames,44)
  while (%a <= %b) {
    did -a mircprofile.system 1 $gettok(%usernames,%a,44)
    inc %a
  }
}

Basically what this is is a profile system for mIRC which allows you to easily allow more than one person use one irc client or if you have multiple nicks with different info for each of them this will allow you to easily change information it should be self explanatory once it's open if you have questions ask this was a forum request by @unseen it's not 100% completed i plan to tweak it a bit and make it better but it is fully functional as is.

By blackvenomm666

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...


×
×
  • Create New...