Results 1 to 5 of 5
  1. #1
    BloodSkin's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    Columbus, OH
    Posts
    353
    Reputation
    11
    Thanks
    63

    [RELEASE] mIRC age verification script

    heres an age verification script i wrote for a friend a while back, decided to release it here. its designed to be placed on a bot and optionally report to you when a ban is made.

    PLACE IN REMOTES:

    Code:
    ;BloodSkins Age Verification Script v1.0 
    ;utilizes hixxys "Split tokens" script
    ;Completed on June 12th 2010
    ;Tested on mIRC 6.35
    
    
    alias -l raiseerror {
      if (!$line($active,0)) { linesep -a }
      echo $colour(info) -a $1-
      linesep -a
      halt
    }
    
    alias split {
      if (($1 == -c) && ($0 < 2)) || (($1 != -c) && ($0 < 3)) { raiseerror * /split: Insufficient parameters }
      var %c, %g, %i = 1, %name = $iif($1 == -c,$2,$v1)
      if ($1 == -c) { var %c = $true }
      .alias %name $+ 0
      while ($isalias(%name $+ %i)) {
        .alias %name $+ %i
        %g = %i + 1
        while ($isalias($+(%name,%i,-,%g))) {
          .alias $+(%name,%i,-,%g)
          inc %g
        }
        .alias $+(%name,%i,-)
        inc %i
      }
      %i = %i - 1
      while (%i) {
        .alias $+(%name,-,%i)
        dec %i
      }
      if (!%c) {
        %i = 1
        tokenize 13 $replace($3-,$2,$cr)
        while ($eval($ $+ %i,2) != $null) {
          if (%i < $0) {
            %g = %i + 1
            while ($eval($ $+ %g,2) != $null) {
              .alias $+(%name,%i,-,%g) return $eval($+($,%i,-,%g),2)
              inc %g
            }
          }
          .alias $+(%name,%i) return $eval($ $+ %i,2)
          .alias $+(%name,%i,-) return $eval($+($,%i,-),2)
          inc %i
        }
        %i = %i - 1
        .alias %name $+ 0 return %i
        while (%i) {
          inc %c
          .alias $+(%name,-,%c) return $eval($ $+ %i,2)
          dec %i
        }
      }
    }
    
    on *:join:%agechan: {
      ..msg $nick Welcome $nick to %agechan! Please start off by telling me what year you were born in. EXAMPLE 1: /msg BOTNAMEHERE !age <month> <day> <year> EXAMPLE 2: /msg BOTNAMEHERE !AGE 11 9 1911
      ..msg $nick If you do not tell me your age in 3 minutes I will have to ban you :(
      ..notice $nick Welcome $nick to %agechan! Please check your private message from me for further instructions.
      /timer $+ $nick $+ ban 1 180 /mode %agechan +b $nick
      /timer $+ $nick $+ kick 1 180 /kick %agechan $nick You did not confirm your age. Please contact an op for assistance.
      /timer $+ $nick $+ msg 1 180 ..msg %ageadmin (ADMIN MSG) $nick was banned because they did not verify their age.
      //split todaysdate / $date | set %thismonth $todaysdate1 |  set %today $todaysdate2 | set %legalyear $calc($todaysdate3 - 18)
    }
    
    on *:TEXT:!age *:?: {
    
      if ($4 < %legalyear) {
        /mode %agechan +v $nick
        ..msg $nick Thank you for confirming your age! Enjoy your visit!
        /timer $+ $nick $+ ban off
        /timer $+ $nick $+ kick off
      }
    
      if ($4 > %legalyear) {
        /mode %agechan +b $nick
        /kick %agechan $nick Please come back when you are 18.
        ..msg $nick Please come back when you are 18.
        ..msg %ageadmin (ADMIN MSG) $nick was banned because they do not meet the age requirements.
        /timer $+ $nick $+ ban off
        /timer $+ $nick $+ kick off
      }
    
      if ($4 == %legalyear) {
    
        if ($2 < %thismonth) {
          /mode %agechan +v $nick
          ..msg $nick Thank you for confirming your age! Enjoy your visit!
          /timer $+ $nick $+ ban off
          /timer $+ $nick $+ kick off
        }
    
        if ($2 == %thismonth) {
          if ($3 < %today) {
            /mode %agechan +v $nick
            ..msg $nick Thank you for confirming your age! Enjoy your visit!
            /timer $+ $nick $+ ban off
            /timer $+ $nick $+ kick off
          }
          if ($3 == %today) {
            /mode %agechan +v $nick
            ..msg $nick Thank you for confirming your age! Enjoy your visit!
            ..msg $nick HAPPY BIRTHDAY!
            /timer $+ $nick $+ ban off
            /timer $+ $nick $+ kick off
          }
        }
    
        else {
          /mode %agechan +b $nick
          /kick %agechan $nick Please come back when you are 18.
          ..msg $nick Please come back when you are 18.
          ..msg %ageadmin (ADMIN MSG) $nick was banned because they do not meet the age requirements.
          /timer $+ $nick $+ ban off
          /timer $+ $nick $+ kick off
        }
      }
      
    
      ;BloodSkins Age Verification Script v1.0 
      ;utilizes hixxys "Split tokens" script
      ;Completed on June 12th 2010
      ;Tested on mIRC 6.35
    VARIABLES

    Code:
    %agechan #YOURCHANNEL
    %ageadmin YOURNICK
    all other variables are auto set.

  2. #2
    StEpyZzz's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Slovenia
    Posts
    449
    Reputation
    11
    Thanks
    2,110
    lol

    Q:why a age verification?

  3. #3
    Gilcrow's Avatar
    Join Date
    Oct 2006
    Gender
    male
    Posts
    1,370
    Reputation
    31
    Thanks
    86
    My Mood
    Breezy
    failscript, no age script can ever be good because people can lie

  4. #4
    BloodSkin's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    Columbus, OH
    Posts
    353
    Reputation
    11
    Thanks
    63
    Quote Originally Posted by Greg View Post
    failscript, no age script can ever be good because people can lie
    well, duh, but it was made for someone who wanted to pay me forum gold on a diablo 2 trading site, and a decent amount for what little code there was to write, so why not do it?

  5. #5
    noelcjf's Avatar
    Join Date
    Dec 2008
    Gender
    male
    Posts
    191
    Reputation
    10
    Thanks
    40
    My Mood
    Worried
    code lol --

Similar Threads

  1. [RELEASE]Mod Fixer For Scripts *.gsc_ACE
    By ♪~ ᕕ(ᐛ)ᕗ in forum Call of Duty Modern Warfare 2 Server / GSC Modding
    Replies: 27
    Last Post: 08-11-2010, 08:37 PM
  2. [Release] Ak-47 "Aged Gold"
    By 777Aluseu777 in forum Combat Arms Mods & Rez Modding
    Replies: 24
    Last Post: 06-29-2010, 01:15 PM
  3. (Release)M24 Ice Age-My First Mod(Fixed)
    By Meow556 in forum Combat Arms Mods & Rez Modding
    Replies: 12
    Last Post: 04-10-2010, 11:06 AM
  4. (Release)Ice Age-M24 Skin(My First Mod)
    By Meow556 in forum Combat Arms Mods & Rez Modding
    Replies: 7
    Last Post: 04-09-2010, 11:59 PM
  5. [Info] Combat Arms Release a New Kick Script
    By Mouzie in forum Combat Arms Hacks & Cheats
    Replies: 57
    Last Post: 09-19-2009, 09:12 PM