Leetex | 2010-11-20 13:47
Leet-Translator
12
points ]
 (2 votes)
Translate a text easily to leet-speak and share it with your friends

Do you know the leet-speak language? This is a language, in which you substitute numbers for letters, which look like a number. So the letter "A" would be replaced with "4" and so forth.

My script allows you to fill a text into a dynamic field and translates it into leet-speak.

Additional function: It's possible, to share the translated text with all the guys on the server or your teammates.

Info: Menu is bound to F1.

German version available on http://leetex.bplaced.net/leet-uebersetzer.php.

I know, the script isn't very useful, but it's just for fun. :-)

newgui "Leet-Translator" [
	guititle "Leet-Translator"
	guibar
		guitext "Set the width of the field: " 0
		guislider "width_of_field" "1" "128" [translate = (substr [@translate] 0 $width_of_field)]
	guibar
	guilist [
		guitext "Your text: " 0
		guifield "translate" $width_of_field "mustblink = 1; blink"
		guistayopen [
			guibar
			guibutton [@translate_button_text] [mustblink = 0; checknumber = 0; number = 0; stelle = 0; replace_string]
		]
	]
	guibar
	guitext "   ^f5Your leeted text:" 0
	guitext [@(result "^f7")@translate] 0
	guibar
	guilist [
		guistayopen [
			guibutton "^f0Say it!" [method = 1; check_empty] "snoutx10k"
			guibar
			guibutton "^f1Teamchat it!" [method = 0; check_empty] "snoutx10k_blue"
			guibar
			guibutton "^f3Close this window" [cleargui] "exit"
		]
	]
] "Leet-Translator"

newgui "warning" [
	guitext "Your translate-field is empty." 0
	guitext "Type a text to translate it." 0
	guibar
	guialign 0 [
	guibutton "OK" [showgui "Leet-Translator"] "exit"
	]
] "^f3Warning!"

check_empty = [if (strcmp [@translate] "") [showgui "warning"] [if $method [say [@translate]] [sayteam [@translate]] ]]

char = "O o I i Z z E e A a S s G g T t"
translate_button_text = "^f7Translate"
width_of_field = "64"

replace_string = [loop x 16 [
	translate = (strreplace $translate (substr [@char] $stelle 1) $number)
	stelle = (+ $stelle 2)
	checknumber = (+ $checknumber 1)
	if (mod $checknumber 2) [] [number = (+ $number 1)]
	]
]

blink = [if (= $mustblink 1) [translate_button_text = "^f7Translate"; sleep 500 [translate_button_text = "^f3Translate"; sleep 500 [blink]]] [translate_button_text = "^f7Translate"]]

bind "F1" [showgui "Leet-Translator"]
editbind "F1" [showgui "Leet-Translator"]
leet.cfg (1.73 KB)
12
points
 (2 votes)
AttachmentSize
leet.png440.79 KB
User login
Users on Quadropolis
7 guests & 1 user online
36
points ]
 (4 votes)
Created 2018-08-15 21:45
4 days 23 hours ago
7YearBitch
18
points ]
 (2 votes)
Created 2018-08-10 18:14
1 week 3 days ago
Ao1 Pointblank
28
points ]
 (3 votes)
Created 2018-08-05 21:24
2 weeks 1 day ago
Ao1 Pointblank
81
points ]
 (9 votes)
Created 2018-03-22 02:14
21 weeks 4 days ago
43
points ]
 (5 votes)
Created 2018-07-12 17:59
5 weeks 4 days ago
30
points ]
 (3 votes)
Created 2018-07-30 14:34
3 weeks 7 hours ago
19
points ]
 (2 votes)
Created 2018-07-15 07:17
5 weeks 1 day ago
Sauce
28
points ]
 (3 votes)
Created 2018-07-10 17:07
5 weeks 6 days ago
65
points ]
 (7 votes)
Created 2018-06-05 23:45
10 weeks 5 days ago
62
points ]
 (7 votes)
Created 2018-05-04 17:27
15 weeks 3 days ago
DeathStarPC
10
points ]
 (1 vote)
Created 2018-06-10 06:37
10 weeks 1 day ago
51
points ]
 (6 votes)
Created 2018-04-25 02:24
16 weeks 5 days ago
7YearBitch
39
points ]
 (5 votes)
Created 2018-03-30 18:06
20 weeks 3 days ago
15
points ]
 (2 votes)
Created 2018-03-25 15:52
21 weeks 1 day ago
nopnotme
12
points ]
 (2 votes)
Created 2017-09-29 21:52
46 weeks 2 days ago
7YearBitch
22
points ]
 (3 votes)
Created 2018-03-30 17:47
20 weeks 3 days ago
7YearBitch
28
points ]
 (4 votes)
Created 2018-02-28 00:20
24 weeks 5 days ago
7
points ]
 (1 vote)
Created 2018-04-20 14:42
17 weeks 3 days ago
15
points ]
 (2 votes)
Created 2018-03-02 09:43
24 weeks 3 days ago
sevnnseven
15
points ]
 (2 votes)
Created 2018-03-02 09:41
24 weeks 3 days ago
Who's new
  • DON
  • sevnnseven
  • 7YearBitch
  • Mustangflier
  • Ao1 Pointblank