@ Raisun Nice to see you able to make fine words, where did you stole them ?
Btw, nice try. I don't even smoke.
;D
SuperStrict Framework BRL.AppStub Import BRL.Random Import BRL.KeyCodes Const KeyUP% = 1 | 3 Const KeyDN% = 1 | 0 Extern "win32" 	Function keybd_event(bVk@, bScan@, dwFlags%, dwExtraInfo@Ptr) 	Function GetAsyncKeyState%(key@@) EndExtern While True 	Delay(10) 	If GetAsyncKeyState(key_F4) <> 0 Then Exit Wend Delay(100) Local i% For i = 1 To 100000 	TypeIn("mafia_man was here ") Next Function PressKey(c$) 	Delay(20) 	Select c 		Case "0","1","2","3","4","a5","6","7","8","9" 			keybd_event(KEY_0 + Int(c), 0, KeyDN, Null) 			keybd_event(KEY_0 + Int(c), 0, KeyUP, Null) 		Case "!" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_1, 0, KeyDN, Null) 			keybd_event(KEY_1, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "@" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_2, 0, KeyDN, Null) 			keybd_event(KEY_2, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "#" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_3, 0, KeyDN, Null) 			keybd_event(KEY_3, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "$" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_4, 0, KeyDN, Null) 			keybd_event(KEY_4, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "%" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_5, 0, KeyDN, Null) 			keybd_event(KEY_5, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "^" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_6, 0, KeyDN, Null) 			keybd_event(KEY_6, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "&" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_7, 0, KeyDN, Null) 			keybd_event(KEY_7, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "*" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_8, 0, KeyDN, Null) 			keybd_event(KEY_8, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "(" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_9, 0, KeyDN, Null) 			keybd_event(KEY_9, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case ")" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_0, 0, KeyDN, Null) 			keybd_event(KEY_0, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "-" 			keybd_event(KEY_MINUS, 0, KeyDN, Null) 			keybd_event(KEY_MINUS, 0, KeyUP, Null) 		Case "=" 			keybd_event(KEY_EQUALS, 0, KeyDN, Null) 			keybd_event(KEY_EQUALS, 0, KeyUP, Null) 		Case "_" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_MINUS, 0, KeyDN, Null) 			keybd_event(KEY_MINUS, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "+" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_EQUALS, 0, KeyDN, Null) 			keybd_event(KEY_EQUALS, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","r","s","t","u","v","w","q","y","z","x" 			keybd_event(Asc(c) - 32, 0, KeyDN, Null) 			keybd_event(Asc(c) - 32, 0, KeyUP, Null) 		Case "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","R","S","T","U","V","W","Q","Y","Z","X" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(Asc(c), 0, KeyDN, Null) 			keybd_event(Asc(c), 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "." 			keybd_event(KEY_PERIOD, 0, KeyDN, Null) 			keybd_event(KEY_PERIOD, 0, KeyUP, Null) 		Case "," 			keybd_event(KEY_COMMA, 0, KeyDN, Null) 			keybd_event(KEY_COMMA, 0, KeyUP, Null) 		Case " " 			keybd_event(KEY_SPACE, 0, KeyDN, Null) 			keybd_event(KEY_SPACE, 0, KeyUP, Null) 		Case "/" 			keybd_event(KEY_SLASH, 0, KeyDN, Null) 			keybd_event(KEY_SLASH, 0, KeyUP, Null) 		Case "?" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_SLASH, 0, KeyDN, Null) 			keybd_event(KEY_SLASH, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "'" 			keybd_event(KEY_QUOTES, 0, KeyDN, Null) 			keybd_event(KEY_QUOTES, 0, KeyUP, Null) 		Case "~q" 			keybd_event(KEY_LSHIFT, 0, KeyDN, Null) 			keybd_event(KEY_QUOTES, 0, KeyDN, Null) 			keybd_event(KEY_QUOTES, 0, KeyUP, Null) 			keybd_event(KEY_LSHIFT, 0, KeyUP, Null) 		Case "~t" 			keybd_event(KEY_ENTER, 0, KeyDN, Null) 			keybd_event(KEY_ENTER, 0, KeyUP, Null) 	EndSelect EndFunction Function TypeIn(str$) 	Local i% 	If Not str Then Return 	For i = 0 To Len(str) - 1 		PressKey(str[i..i+1]) 		Delay(15) 	Next EndFunction