on *:TEXT:!luck:#: { 
  if (%dchan [ $+ [ $chan ] ] == on) { halt }
  if (%dnick [ $+ [ $nick ] ] == on) { halt }
  if (%ignore [ $+ [ $nick ] ] == ignore) {
    notice $nick please wait 40-50 seconds before typein !luck again
  }
  else { 
    var %r $r(1,100)
    set -u50 %ignore [ $+ [ $nick ] ] ignore
    if (%r isnum 51-52 || %r isnum 80-83 || %r == 90 || %r == 10 || %r isnum 20-30) {
      notice $nick you are dead unlucky
      unset %xp [ $+ [ $nick ] ]
    }
    else { 
      inc %xp [ $+ [ $nick ] ] %r 
      notice $nick %r You now have %xp [ $+ [ $nick ] ] xp
      if (%xp [ $+ [ $nick ] ] >= 100 && %level [ $+ [ $nick ] ] == $null) {
        msg $chan 12,4 $nick has just made lvl 2!!
        notice $nick gratz you now need to get 200 xp to get to level 3!!
        unset %xp [ $+ [ $nick ] ]
        set %level [ $+ [ $nick ] ] 2
        writeini level2.ini $nick is level 2 $date $time
      }
      elseif (%xp [ $+ [ $nick ] ] >= 200 && %level [ $+ [ $nick ] ] == 2) {
        msg $chan 12,4 $nick has just made lvl 3!!
        notice $nick gratz you now need to get 350 xp to get to level 4!!
        unset %xp [ $+ [ $nick ] ] 
        set %level [ $+ [ $nick ] ] 3
        writeini level3.ini $nick is level 3 $date $time
      }
      elseif (%xp [ $+ [ $nick ] ] >= 350 && %level [ $+ [ $nick ] ] == 3) {
        msg $chan 12,4 $nick has just made lvl 4!!
        notice $nick gratz you now need to get 550 xp to get to level 5!!
        unset %xp [ $+ [ $nick ] ]
        set %level [ $+ [ $nick ] ] 4
        writeini level4.ini $nick is level 4 $date $time
      } 
      elseif (%xp [ $+ [ $nick ] ] >= 550 && %level [ $+ [ $nick ] ] == 4) {
        msg $chan 12,4 $nick has just made lvl 5!!
        notice $nick gratz you now need to get 800 xp to get to level 6!!
        unset %xp [ $+ [ $nick ] ] 
        set %level [ $+ [ $nick ] ] 5
        cs access $chan add $nick 4
        mode $chan +h $nick
        writeini level5.ini $nick is level 5 $date $time
      }
      elseif (%xp [ $+ [ $nick ] ] >= 800 && %level [ $+ [ $nick ] ] == 5) {
        msg $chan 12,4 $nick has just made lvl 6!!
        notice $nick gratz you now need to get 950 xp to get to level 7!!
        unset %xp [ $+ [ $nick ] ]
        set %level [ $+ [ $nick ] ] 6
        writeini level6.ini $nick is level 6 $date $time
      }
      elseif (%xp [ $+ [ $nick ] ] >= 950 && %level [ $+ [ $nick ] ] == 6) {
        msg $chan 12,4 $nick has just made lvl 7!!
        notice $nick gratz you now need to get 1100 xp to get to level 8!!
        unset %xp [ $+ [ $nick ] ]
        set %level [ $+ [ $nick ] ] 7
        writeini level7.ini $nick is level 7 $date $time
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1100 && %level [ $+ [ $nick ] ] == 7) {
        msg $chan 12,4 $nick has just made lvl 8!!
        notice $nick gratz you now need to get 1350 xp to get to level 9!!
        unset %xp [ $+ [ $nick ] ]
        set %level [ $+ [ $nick ] ] 8
        writeini level8.ini $nick is level 8 $date $time
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1350 && %level [ $+ [ $nick ] ] == 8) {
        msg $chan 12,4 $nick has just made lvl 9!!
        notice $nick gratz you now need to get 1500 xp to get to level 10!!
        unset %xp [ $+ [ $nick ] ]
        set %level [ $+ [ $nick ] ] 9
        writeini level9.ini $nick is level 9 $date $time
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1500 && %level [ $+ [ $nick ] ] == 9) {
        msg $chan 12,4 $nick has just made lvl 10!! he/she has now completed the game!!!
        notice $nick gratz you have completed the game!!!! you will be put on the highscores when my owner has seen u are lvl 10!!!!
        unset %xp [ $+ [ $nick ] ]
        set %level [ $+ [ $nick ] ] 10
        cs access $chan add $nick 5
        mode $chan +o $nick
        writeini level10.ini $nick is level 10 $date $time
      }
    }
  }
}



on *:TEXT:!luck:#: { 
  if (%ignore [ $+ [ $nick ] ] == ignore) {
    notice $nick please wait 20-40seconds before typein !luck again
  }
  else { 
    var %r $r(1,100)
    set -u30 %ignore [ $+ [ $nick ] ] ignore
    if (%r isnum 51-52 || %r isnum 80-83 || %r == 90 || %r == 10 || %r isnum 20-30) {
      notice $nick you are dead unlucky
      set %xp [ $+ [ $nick ] ] 0
    }
    else { 
      inc %xp [ $+ [ $nick ] ] %r 
      notice $nick %r You now have %xp [ $+ [ $nick ] ] xp
      if (%xp [ $+ [ $nick ] ] >= 100 && $readini(level.ini,$nick,1)) {
        msg $chan 12,4 $nick has just made lvl 2!!
        notice $nick gratz you now need to get 200 xp to get to level 3!!
        set %xp [ $+ [ $nick ] ] 0
        writeini level.ini $nick 2 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 200 && $readini(level.ini,$nick,2)) {
        msg $chan 12,4 $nick has just made lvl 3!!
        notice $nick gratz you now need to get 350 xp to get to level 4!!
        set %xp [ $+ [ $nick ] ] 0
        writeini level.ini $nick 3
      }
      elseif (%xp [ $+ [ $nick ] ] >= 350 && $readini(level.ini,$nick,3)) {
        msg $chan 12,4 $nick has just made lvl 4!!
        notice $nick gratz you now need to get 550 xp to get to level 5!!
        set %xp [ $+ [ $nick ] ] 0
        writeini level.ini $nick 4 
      } 
      elseif (%xp [ $+ [ $nick ] ] >= 550 && $readini(level.ini,$nick,4)) {
        msg $chan 12,4 $nick has just made lvl 5!!
        notice $nick gratz you now need to get 800 xp to get to level 6!!
        set %xp [ $+ [ $nick ] ] 0
        cs access $chan add $nick 4
        mode $chan +h $nick
        writeini level.ini $nick 5 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 800 && $readini(level.ini,$nick,5)) {
        msg $chan 12,4 $nick has just made lvl 6!!
        notice $nick gratz you now need to get 950 xp to get to level 7!!
        set %xp [ $+ [ $nick ] ] 0
        writeini level.ini $nick 6 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 950 && $readini(level.ini,$nick,6)) {
        msg $chan 12,4 $nick has just made lvl 7!!
        notice $nick gratz you now need to get 1100 xp to get to level 8!!
        set %xp [ $+ [ $nick ] ] 0
        writeini level.ini $nick 7 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1100 && $readini(level.ini,$nick,7)) {
        msg $chan 12,4 $nick has just made lvl 8!!
        notice $nick gratz you now need to get 1350 xp to get to level 9!!
        set %xp [ $+ [ $nick ] ] 0
        writeini level.ini $nick 8
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1350 && $readini(level.ini,$nick,8)) {
        msg $chan 12,4 $nick has just made lvl 9!!
        notice $nick gratz you now need to get 1500 xp to get to level 10!!
        set %xp [ $+ [ $nick ] ] 0
        writeini level.ini $nick 9
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1500 && $readini(level.ini,$nick,9)) {
        msg $chan 12,4 $nick has just made lvl 10!! he/she has now completed the game!!!
        notice $nick gratz you have completed the game!!!! you will be put on the highscores when my owner has seen u are lvl 10!!!!
        set %xp [ $+ [ $nick ] ] 0
        cs access $chan add $nick 5
        mode $chan +o $nick
        writeini level.ini $nick 10
      }
    }
  }
}
on *:join:#The_luck_game: {
  if ($readini(level.ini,$nick,1)) {
  halt }
  else {
    writeini level.ini $nick 1
  }
}