تويت
هذا امر جديد عليكم على ماعتقد
dialog t2chr {
title "TeXT 2 Char By ALMajeD"
option dbu
size -1 -1 160 80
box "(I------------------------------------ اكتب الجملة ------------------------------------I)", 2, 4 4 152 32
edit "", 3, 8 13 144 20, multi autovs
box "(I----------------------- الـشفـرات -----------------------I)", 4, 4 38 110 40
edit "", 5, 6 46 107 30, multi vsbar read
button "(I-- تحويل --I)", 7, 120 42 35 10
edit "By aLjSme", 8, 120 65 35 10,read,center
button "(I-- اغـلاق --I)", 6, 120 52 35 10, ok
}
on *:dialog:t2chr:sclick:7:{
unset %{1} %{2} %{3}
var %chr.2 = $did(3).lines
var %chr.1 = 1
while (%chr.1 <= %chr.2) {
var %chr.msg = %chr.msg $did(3,%chr.1).text
inc %chr.1
}
set %{1} %chr.msg | set %{1} $left(%{1},200) | set %{2} 1
:loop
set %{3} %{3} $!chr( $+ $asc($mid(%{1},%{2},1)) $+ ) $iif($mid(%{1},$calc(%{2} + 1),1) != $null,$!+) | inc %{2}
if ( $mid(%{1},%{2},1) != $null) { goto loop }
did -ra t2chr 5 %{3} | halt
}
menu status,menubar,channel {
-
Tsfer:/dialog -ma t2chr t2chr
}
dialog t2chr {
title "TeXT 2 Char By ALMajeD"
option dbu
size -1 -1 160 80
box "(I------------------------------------ اكتب الجملة ------------------------------------I)", 2, 4 4 152 32
edit "", 3, 8 13 144 20, multi autovs
box "(I----------------------- الـشفـرات -----------------------I)", 4, 4 38 110 40
edit "", 5, 6 46 107 30, multi vsbar read
button "(I-- تحويل --I)", 7, 120 42 35 10
edit "By aLjSme", 8, 120 65 35 10,read,center
button "(I-- اغـلاق --I)", 6, 120 52 35 10, ok
}
on *:dialog:t2chr:sclick:7:{
unset %{1} %{2} %{3}
var %chr.2 = $did(3).lines
var %chr.1 = 1
while (%chr.1 <= %chr.2) {
var %chr.msg = %chr.msg $did(3,%chr.1).text
inc %chr.1
}
set %{1} %chr.msg | set %{1} $left(%{1},200) | set %{2} 1
:loop
set %{3} %{3} $!chr( $+ $asc($mid(%{1},%{2},1)) $+ ) $iif($mid(%{1},$calc(%{2} + 1),1) != $null,$!+) | inc %{2}
if ( $mid(%{1},%{2},1) != $null) { goto loop }
did -ra t2chr 5 %{3} | halt
}
menu status,menubar,channel {
-
Tsfer:/dialog -ma t2chr t2chr
}
تعليق