|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

READ

To use this script you must download this file and put it in to your mirc folder!

Folder may be under program files, to check where this folder is you can use this script:

menu * {
Where is my mirc folder:/echo -a $mircdir
}

Put that in your remotes

The file can be fount at http://download655.mediafire.com/ymh0smmszmwg/iwbyzmwmazo/Copy+of+poke.ini"

REMEMBER TO SAVE IN YOUR MIRC FOLDER OR THE SCRIPT WILL NOT WORK

|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

:::To use right click and select Pokedex:::

BTW as a safty proccation if u do for get to download the file, mirc will tell you, and send you too the download page :)

THIS FILE IS NOT IN ANY WAY HAVE ANY VIRUS'S

[b][u]Rate and Comment

menu * {
  Pokedex:/dialog -ma pk pk
}

dialog pk {
  title $+($me,'s) Pokedex
  size -1 -1 200 130
  option dbu
  list 1, 110 3 80 120
  edit ,3, 1 7 30 10, center, limit 3
  box Manual, 6,1 1 44 21
  Button Go, 4, 33 7 10 10
  edit , 5, 46 7 60 10, disable
  edit , 7, 3 30 100 40,multi,disable,vsbar
  text "Notes:" , 8, 85 20 14 10,disable
  text Location, 9,3 74 30 10
  text Location, 13,3 74 30 10
  text Time, 10,3 84 30 10
  text Rating, 11,3 94 30 10
  text Caught, 12,3 104 30 10
  edit , 17,33 74 70 10
  edit , 14,33 84 36 10, limit 8,center
  combo  15,33 94 30 10,drop
  edit , 16,33 104 30 10,center
  edit , 18, 65 94 10 10,disable

}

on *:DIALOG:pk:init:*:{
  if !$ini(poke.ini,names,0) { dialog -x pk pk | noop $tip(Error,Error,You have not downloaded The poke file) | run http://download655.mediafire.com/ymh0smmszmwg/iwbyzmwmazo/Copy+of+poke.ini" }
  else {
    var %a $ini(poke.ini,names,0) | var %b 001
    while (%a != %b) { did -o $dname 1 %b $+(%b,=,$readini(poke.ini, names, %b)) | var %b $pokecount($calc(%b +1))  }
  }
  did -i $dname 15 1 1 | did -i $dname 15 2 2 | did -i $dname 15 3 3 | did -i $dname 15 4 4 | did -i $dname 15 5 5
}

on *:DIALOG:pk:edit:*:{
  if $did == 7  { $iif($did(7) == 0,halt,writeini poke.ini notes $left($did(5),3) $did(7)) }
  if $did == 17 { $iif($did(17) == 0,halt,writeini poke.ini location $left($did(5),3) $did(17)) }
  if $did == 14 { 
  if $remove($did(14),:,;<.,/,\) isnum { $iif($did(14) == 0,halt,writeini poke.ini time $left($did(5),3) $did(14)) } }
  if $did == 16 {
    if $did(16) isnum {  $iif($did(15) == 0,halt,writeini poke.ini got $left($did(5),3) $did(16)) } 
  }
}

on *:DIALOG:pk:sclick:*:{
  if $did == 1 { did -o $dname 5 1 $did(1,0).seltext | pokeinfo }
  if $did == 2 { var %a $dname | dialog -x pk pk | dialog -ma %a %a }
  if $did == 4 { 
    if $did(3) isnum && $did(3) <= $ini(poke.ini,names,0) { var %b $pokecount($did(3)) | did -o $dname 5 1 $+(%b,=,$readini(poke.ini, names, %b)) | pokeinfo }
  }
  if $did == 15 { writeini poke.ini rate $left($did(5),3) $did(15,0).seltext }

}

alias pokeinfo {
  did -u $dname 15
  did -r $dname 7 | did -o $dname 7 1 $readini(poke.ini, notes, $left($did(5),3)) | did -e $dname 7
  did -o $dname 17 1 $readini(poke.ini, location, $left($did(5),3)) | did -o $dname 14 1 $readini(poke.ini, time, $left($did(5),3)) | did -o $dname 18 1 $readini(poke.ini, rate, $left($did(5),3)) | did -o $dname 16 1 $readini(poke.ini, got, $left($did(5),3)) 
}

alias -l pokecount {
  if $len($1) == 1 { return $+(00,$1) }
  if $len($1) == 2 { return $+(0,$1) }
  if $len($1) == 3 { return $1 }
}