|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
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 }
}