Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /svet {
- var %x = $1
- var %a = ""
- var %b = ""
- var %c = ""
- var %d = ""
- var %e = ""
- while ($len(%x) > 0) {
- var %y = $left(%x, 1)
- ;msg # %y
- if (%y == $chr(58)) {
- var %a = $+(%a,$chr(32),-------)
- var %b = $+(%b,$chr(32),---X---)
- var %c = $+(%c,$chr(32),-------)
- var %d = $+(%d,$chr(32),---X---)
- var %e = $+(%e,$chr(32),-------)
- }
- if (%y == $chr(32)) {
- var %a = $+(%a,$chr(32),-------)
- var %b = $+(%b,$chr(32),---X---)
- var %c = $+(%c,$chr(32),-------)
- var %d = $+(%d,$chr(32),---X---)
- var %e = $+(%e,$chr(32),-------)
- }
- if (%y == $chr(94)) {
- var %a = $+(%a,$chr(32),---X---)
- var %b = $+(%b,$chr(32),--X-X--)
- var %c = $+(%c,$chr(32),-------)
- var %d = $+(%d,$chr(32),-------)
- var %e = $+(%e,$chr(32),-------)
- }
- if (%y == $chr(126)) {
- var %a = $+(%a,$chr(32),-------)
- var %b = $+(%b,$chr(32),-XX----)
- var %c = $+(%c,$chr(32),X--X--X)
- var %d = $+(%d,$chr(32),----XX-)
- var %e = $+(%e,$chr(32),-------)
- }
- if (%y == $chr(64)) {
- var %a = $+(%a,$chr(32),-XX-XX-)
- var %b = $+(%b,$chr(32),XXXXXXX)
- var %c = $+(%c,$chr(32),-XXXXX-)
- var %d = $+(%d,$chr(32),--XXX--)
- var %e = $+(%e,$chr(32),---X---)
- }
- if (%y == $chr(33)) {
- var %a = $+(%a,$chr(32),--X--)
- var %b = $+(%b,$chr(32),--X--)
- var %c = $+(%c,$chr(32),--X--)
- var %d = $+(%d,$chr(32),-----)
- var %e = $+(%e,$chr(32),--X--)
- }
- if (%y == $chr(41)) {
- var %a = $+(%a,$chr(32),-X---)
- var %b = $+(%b,$chr(32),--X--)
- var %c = $+(%c,$chr(32),--X--)
- var %d = $+(%d,$chr(32),--X--)
- var %e = $+(%e,$chr(32),-X---)
- }
- if (%y == $chr(62)) {
- var %a = $+(%a,$chr(32),-X---)
- var %b = $+(%b,$chr(32),--X--)
- var %c = $+(%c,$chr(32),---X-)
- var %d = $+(%d,$chr(32),--X--)
- var %e = $+(%e,$chr(32),-X---)
- }
- if (%y == $chr(58)) {
- var %a = $+(%a,$chr(32),-----)
- var %b = $+(%b,$chr(32),-XX--)
- var %c = $+(%c,$chr(32),-----)
- var %d = $+(%d,$chr(32),-XX--)
- var %e = $+(%e,$chr(32),-----)
- }
- if (%y == $chr(61)) {
- var %a = $+(%a,$chr(32),-----)
- var %b = $+(%b,$chr(32),XXXXX)
- var %c = $+(%c,$chr(32),-----)
- var %d = $+(%d,$chr(32),XXXXX)
- var %e = $+(%e,$chr(32),-----)
- }
- if (%y == 0) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X--XX)
- var %c = $+(%c,$chr(32),X-X-X)
- var %d = $+(%d,$chr(32),XX--X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == 1) {
- var %a = $+(%a,$chr(32),-XX--)
- var %b = $+(%b,$chr(32),--X--)
- var %c = $+(%c,$chr(32),--X--)
- var %d = $+(%d,$chr(32),--X--)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == 2) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),----X)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),X----)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == 3) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),----X)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),----X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == 4) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),----X)
- var %e = $+(%e,$chr(32),----X)
- }
- if (%y == 5) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),----X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == 6) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == 7) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),----X)
- var %c = $+(%c,$chr(32),----X)
- var %d = $+(%d,$chr(32),----X)
- var %e = $+(%e,$chr(32),----X)
- }
- if (%y == 8) {
- var %a = $+(%a,$chr(32),-XXX-)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),-XXX-)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),-XXX-)
- }
- if (%y == 9) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),----X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == a) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),X---X)
- }
- if (%y == b) {
- var %a = $+(%a,$chr(32),XXXX-)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXX-)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),XXXX-)
- }
- if (%y == c) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),X----)
- var %d = $+(%d,$chr(32),X----)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == d) {
- var %a = $+(%a,$chr(32),XXXX-)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),X---X)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),XXXX-)
- }
- if (%y == e) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),X----)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == f) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),X----)
- var %e = $+(%e,$chr(32),X----)
- }
- if (%y == g) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),X--XX)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == h) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),X---X)
- }
- if (%y == i) {
- var %a = $+(%a,$chr(32),-XXX-)
- var %b = $+(%b,$chr(32),--X--)
- var %c = $+(%c,$chr(32),--X--)
- var %d = $+(%d,$chr(32),--X--)
- var %e = $+(%e,$chr(32),-XXX-)
- }
- if (%y == j) {
- var %a = $+(%a,$chr(32),----X)
- var %b = $+(%b,$chr(32),----X)
- var %c = $+(%c,$chr(32),----X)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),-XXX-)
- }
- if (%y == k) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),X--X-)
- var %c = $+(%c,$chr(32),XXX--)
- var %d = $+(%d,$chr(32),X--X-)
- var %e = $+(%e,$chr(32),X---X)
- }
- if (%y == l) {
- var %a = $+(%a,$chr(32),X----)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),X----)
- var %d = $+(%d,$chr(32),X----)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == m) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),XX-XX)
- var %c = $+(%c,$chr(32),X-X-X)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),X---X)
- }
- if (%y == n) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),XX--X)
- var %c = $+(%c,$chr(32),X-X-X)
- var %d = $+(%d,$chr(32),X--XX)
- var %e = $+(%e,$chr(32),X---X)
- }
- if (%y == o) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),X---X)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == p) {
- var %a = $+(%a,$chr(32),XXXX-)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXX-)
- var %d = $+(%d,$chr(32),X----)
- var %e = $+(%e,$chr(32),X----)
- }
- if (%y == q) {
- var %a = $+(%a,$chr(32),-XXX-)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),X-X-X)
- var %d = $+(%d,$chr(32),X--XX)
- var %e = $+(%e,$chr(32),-XXX-)
- }
- if (%y == r) {
- var %a = $+(%a,$chr(32),XXXX-)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXX-)
- var %d = $+(%d,$chr(32),X--X-)
- var %e = $+(%e,$chr(32),X---X)
- }
- if (%y == s) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),X----)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),----X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == t) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),--X--)
- var %c = $+(%c,$chr(32),--X--)
- var %d = $+(%d,$chr(32),--X--)
- var %e = $+(%e,$chr(32),--X--)
- }
- if (%y == u) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),X---X)
- var %d = $+(%d,$chr(32),X---X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == v) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),-X-X-)
- var %d = $+(%d,$chr(32),-X-X-)
- var %e = $+(%e,$chr(32),--X--)
- }
- if (%y == w) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),X-X-X)
- var %d = $+(%d,$chr(32),X-X-X)
- var %e = $+(%e,$chr(32),-X-X-)
- }
- if (%y == x) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),-X-X-)
- var %c = $+(%c,$chr(32),--X--)
- var %d = $+(%d,$chr(32),-X-X-)
- var %e = $+(%e,$chr(32),X---X)
- }
- if (%y == y) {
- var %a = $+(%a,$chr(32),X---X)
- var %b = $+(%b,$chr(32),X---X)
- var %c = $+(%c,$chr(32),XXXXX)
- var %d = $+(%d,$chr(32),----X)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == z) {
- var %a = $+(%a,$chr(32),XXXXX)
- var %b = $+(%b,$chr(32),---X-)
- var %c = $+(%c,$chr(32),--X--)
- var %d = $+(%d,$chr(32),-X---)
- var %e = $+(%e,$chr(32),XXXXX)
- }
- if (%y == _) {
- var %a = $+(%a,$chr(32),-----)
- var %b = $+(%b,$chr(32),-----)
- var %c = $+(%c,$chr(32),-----)
- var %d = $+(%d,$chr(32),-----)
- var %e = $+(%e,$chr(32),-----)
- }
- var %x = $right(%x, -1)
- }
- var %a = $replacex(%a, X, $+(9, $chr(44), 9/), -, $+(0, $chr(44), 0/))
- var %b = $replacex(%b, X, $+(9, $chr(44), 9/), -, $+(0, $chr(44), 0/))
- var %c = $replacex(%c, X, $+(9, $chr(44), 9/), -, $+(0, $chr(44), 0/))
- var %d = $replacex(%d, X, $+(9, $chr(44), 9/), -, $+(0, $chr(44), 0/))
- var %e = $replacex(%e, X, $+(9, $chr(44), 9/), -, $+(0, $chr(44), 0/))
- /msg $window($active) %a
- /msg $window($active) %b
- /msg $window($active) %c
- /msg $window($active) %d
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement