Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias nookie {
- var %1 pokeball
- var %2 train
- var %3 battle
- var %4 gym
- var %5 dcave
- var %6 mewtwo
- var %7 lucario
- var %8 tower
- var %line [LINESTART]:
- while (1 !isin %line || 2 !isin %line || 3 !isin %line || 4 !isin %line || 5 !isin %line || 6 !isin %line || 7 !isin %line || 8 !isin %line) {
- var %pick $r(1,8)
- if (%pick !isin %line) {
- var %line %line $+ % [ $+ [ %pick ] ] $+ %pick $+ @
- }
- }
- var %line2 $remove(%line,1,2,3,4,5,6,7,8,[LINESTART]:)
- var %line3 $left(%line2,52)
- var %x 1
- while ($gettok(%line3,%x,64)) {
- var %line4 %line4 $+ $+ $gettok(%line3,%x,64) $+ 12 >0,0*2
- inc %x
- }
- var %line5 $left(%line4,145)
- var %line6 7[11OPTIONS7]2 %line5 $+ .
- echo -a %line6
- var %y 1
- while ($gettok(%line3,%y,64)) {
- var %t $calc($iif(%t,%t + $r(4,7),$r(2,5)))
- var %data. [ $+ [ %y ] ] $iif($r(1,2) == 1,!,.) $+ $gettok(%line3,%y,64)
- .timer 1 %t msg #benelux %data. [ $+ [ %y ] ]
- inc %y
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement