Global tomo=LoadAnimImage(\"tomo.png\",16,16,0,72)

MaskImage tomo,255,160,0

Dim tomo_c(72)
tomo_c(0)=97
tomo_c(1)=98
tomo_c(2)=99
tomo_c(3)=100
tomo_c(4)=101
tomo_c(5)=102
tomo_c(6)=103
tomo_c(7)=104
tomo_c(8)=105
tomo_c(9)=106
tomo_c(10)=107
tomo_c(11)=108
tomo_c(12)=109
tomo_c(13)=110
tomo_c(14)=111
tomo_c(15)=112
tomo_c(16)=113
tomo_c(17)=114
tomo_c(18)=115
tomo_c(19)=116
tomo_c(20)=117
tomo_c(21)=118
tomo_c(22)=119
tomo_c(23)=120
tomo_c(24)=121
tomo_c(25)=122
tomo_c(26)=228
tomo_c(27)=246
tomo_c(28)=252
tomo_c(29)=223
tomo_c(30)=48
tomo_c(31)=49
tomo_c(32)=50
tomo_c(33)=51
tomo_c(34)=52
tomo_c(35)=53
tomo_c(36)=54
tomo_c(37)=55
tomo_c(38)=56
tomo_c(39)=57
tomo_c(40)=33
tomo_c(41)=63
tomo_c(42)=46
tomo_c(43)=44
tomo_c(44)=58
tomo_c(45)=59
tomo_c(46)=96
tomo_c(47)=43
tomo_c(48)=45
tomo_c(49)=61
tomo_c(50)=95
tomo_c(51)=40
tomo_c(52)=41
tomo_c(53)=47
tomo_c(54)=92
tomo_c(55)=62
tomo_c(56)=60
tomo_c(57)=124
tomo_c(58)=94
tomo_c(59)=176
tomo_c(60)=128
tomo_c(61)=37
tomo_c(62)=167
tomo_c(63)=84
tomo_c(64)=74
tomo_c(65)=76
tomo_c(66)=66
tomo_c(67)=90
tomo_c(68)=71
tomo_c(69)=70
tomo_c(70)=69
tomo_c(71)=67

Dim tomo_b(72)
tomo_b(0)=11
tomo_b(1)=11
tomo_b(2)=11
tomo_b(3)=11
tomo_b(4)=11
tomo_b(5)=11
tomo_b(6)=11
tomo_b(7)=11
tomo_b(8)=7
tomo_b(9)=11
tomo_b(10)=11
tomo_b(11)=7
tomo_b(12)=13
tomo_b(13)=11
tomo_b(14)=11
tomo_b(15)=11
tomo_b(16)=11
tomo_b(17)=11
tomo_b(18)=10
tomo_b(19)=10
tomo_b(20)=11
tomo_b(21)=11
tomo_b(22)=12
tomo_b(23)=10
tomo_b(24)=11
tomo_b(25)=11
tomo_b(26)=11
tomo_b(27)=11
tomo_b(28)=11
tomo_b(29)=12
tomo_b(30)=12
tomo_b(31)=8
tomo_b(32)=11
tomo_b(33)=11
tomo_b(34)=11
tomo_b(35)=11
tomo_b(36)=11
tomo_b(37)=11
tomo_b(38)=11
tomo_b(39)=11
tomo_b(40)=9
tomo_b(41)=11
tomo_b(42)=7
tomo_b(43)=8
tomo_b(44)=7
tomo_b(45)=8
tomo_b(46)=8
tomo_b(47)=13
tomo_b(48)=11
tomo_b(49)=11
tomo_b(50)=13
tomo_b(51)=8
tomo_b(52)=8
tomo_b(53)=11
tomo_b(54)=11
tomo_b(55)=11
tomo_b(56)=11
tomo_b(57)=7
tomo_b(58)=10
tomo_b(59)=10
tomo_b(60)=13
tomo_b(61)=15
tomo_b(62)=12
tomo_b(63)=15
tomo_b(64)=14
tomo_b(65)=17
tomo_b(66)=16
tomo_b(67)=16
tomo_b(68)=16
tomo_b(69)=16
tomo_b(70)=16
tomo_b(71)=16

Function tomotext(x,y,txt$)
charcount=Len(txt$)
For i=1 To charcount
char=Asc(Mid(txt$,i,1))
If char=32
x=x+10
Else
For j=0 To 71
If tomo_c(j)=char Then
DrawImage tomo,x,y,j
x=x+tomo_b(j)
Exit
EndIf
Next
EndIf
Next
End Function

Function tomoinput(x,y,laenge)
For n=0 To laenge-1
FlushKeys()
While Not char
char=GetKey()
Wend
Delay 100
txt$=txt+Chr(char)
For i=0 To 71
If tomo_c(i)=char Then
DrawImage tomo,x,y,i
Flip
x=x+tomo_b(i)
Exit
EndIf
Next
char=0
Next
Return txt
End Function

Function vibtomotext(x,y,txt$,toleranz)
charcount=Len(txt$)
For i=1 To charcount
char=Asc(Mid(txt$,i,1))
If char=32
x=x+10
Else
For j=0 To 71
If tomo_c(j)=char Then
DrawImage tomo,x+Rnd(toleranz-toleranz*2,toleranz),y+Rnd(toleranz-toleranz*2,toleranz),j
x=x+tomo_b(j)
Exit
EndIf
Next
EndIf
Next
End Function