API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2018
259
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 26.25 KB | None | 0 0
raw download clone embed print report
  1. dialog kalamngy {
  2. size -1 -1 320 320
  3. title "Kalamngy Chat Setting"
  4. text "Nickname:",1,25 24 60 15
  5. check "Pass:",2,25 48 50 15
  6. box "Nickname",7,13 8 292 63
  7. box "Font Colour",8,13 73 292 50
  8. edit "",9,90 22 206 22
  9. edit "",10,90 44 206 22
  10. check "Bold",11,115 95 50 15
  11. check "Close Private",12,25 190 99 15
  12. check "Allow welcome Sounds",18,25 210 170 15
  13. check "Allow (kick private hummers) Sounds",24,25 230 250 15
  14. combo 13,25 90 80 120,drop
  15. button "OK",14,72 282 80 24, ok
  16. button "Cancel",15,168 282 80 24, cancel
  17. check "Italic",16,170 95 50 15
  18. check "Underline",17,225 95 80 15
  19. box "Other",21,13 125 292 155
  20. edit "",19,110 140 186 22 , %statusmsg autohs
  21. edit "",20,110 162 186 22 , %privatewelcome autohs
  22. check "Status:",22,25 144 70 15
  23. check "Welcome:",23,25 166 80 15
  24. check "Time Line Color:",25,25 253 130 15
  25. combo 26,145 251 80 100,drop
  26. }
  27. on *:DIALOG:kalamngy:init:*: {
  28. dll $dlls(colorcombo) COMBO kalamngy 13
  29. dll $dlls(colorcombo) COMBO kalamngy 26
  30. did -c $dname 13 $calc(%color +2)
  31. did -a $dname 9 %defaultnick
  32. did -a $dname 19 %statusmsg
  33. did -a $dname 20 %privatewelcome
  34. if (%statusmsgon != on) did -m $dname 19
  35. if (%statusmsgon == on) did -c $dname 22
  36. if (%privatewelcomeon != on) did -m $dname 20
  37. if (%privatewelcomeon == on) did -c $dname 23
  38. if (%password) { did -a $dname 10 %password | did -c $dname 2 }
  39. if (!%password) did -m $dname 10
  40. if (%bold == on) { did -c $dname 11 }
  41. if (%italic == on) { did -c $dname 16 }
  42. if (%underline == on) { did -c $dname 17 }
  43. if (%private == on) { did -c $dname 12 }
  44. if (%wsounds == on) { did -c $dname 18 }
  45. if (%msounds == on) { did -c $dname 24 }
  46. if (%timecolorstatus == on) { did -c $dname 25 }
  47. did -c $dname 26 $calc(%timecolor +2)
  48. }
  49. on *:DIALOG:kalamngy:sclick:2: {
  50. if ($did(2).state) {
  51. did -n $dname 10
  52. }
  53. else {
  54. did -rm $dname 10
  55. unset %password
  56. }
  57. }
  58. on *:DIALOG:kalamngy:sclick:22: {
  59. if ($did(22).state) {
  60. did -n $dname 19
  61. set %statusmsgon on
  62. }
  63. else {
  64. did -m $dname 19
  65. set %statusmsgon off
  66. }
  67. }
  68. on *:DIALOG:kalamngy:sclick:23: {
  69. if ($did(23).state) {
  70. did -n $dname 20
  71. set %privatewelcomeon on
  72. }
  73. else {
  74. did -m $dname 20
  75. set %privatewelcomeon off
  76. }
  77. }
  78. on *:DIALOG:kalamngy:sclick:14: {
  79. if ($did(11).state) set %bold on
  80. if (!$did(11).state) set %bold off
  81. if ($did(16).state) set %italic on
  82. if (!$did(16).state) set %italic off
  83. if ($did(17).state) set %underline on
  84. if (!$did(17).state) set %underline off
  85. if ($did(18).state) set %wsounds on
  86. if (!$did(18).state) set %wsounds off
  87. if ($did(24).state) set %msounds on
  88. if (!$did(24).state) set %msounds off
  89. if ($did(25).state) set %timecolorstatus on
  90. if (!$did(25).state) set %timecolorstatus off
  91. if ($did(12).state) { set %private on | if ($sock(sockbot).status == active) mode $me +D }
  92. if (!$did(12).state) { set %private off | if ($sock(sockbot).status == active) mode $me -D }
  93. if ($did(9)) && ((%defaultnick != $replace($did(9),$chr(32),$chr(160))) || ($me != %defaultnick)) { set %defaultnick $replace($did(9),$chr(32),$chr(160)) | nick %defaultnick }
  94. if ($did(10)) { if ($sock(sockbot).status == active) login $did(10) | set %password $did(10) }
  95. set %timecolor $calc($did(26) -1)
  96. if ($len(%timecolor) == 1) %timecolor = 0 $+ %timecolor
  97. set %color $calc($did(13) -1)
  98. set %finalcolor  $+ %color $+ $iif($did(11).state,) $+ $iif($did(17).state,) $+ $iif($did(16).state,$chr(18))
  99. set %finalcolour  $+ %color $+ $iif($did(11).state,) $+ $iif($did(17).state,)
  100. dll -u colorcombo.dll
  101. }
  102. on *:DIALOG:kalamngy:sclick:14: {
  103. dll -u colorcombo.dll
  104. }
  105. alias kalamngysetup {
  106. if ($dialog(kalamngy)) { dialog -o kalamngy }
  107. else { dialog -m kalamngy kalamngy }
  108. }
  109. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  110. dialog kalamngyregister {
  111. size -1 -1 320 190
  112. title "Nickname Register"
  113. text "Nickname:",1,25 24 60 15
  114. text "Password:",2,25 48 60 15
  115. text "Email:",3,25 68 60 15
  116. edit "",9,90 22 206 22
  117. edit "",10,90 44 206 22
  118. edit "",11,90 66 206 22
  119. text "قم باستخدام الاسم لمدة خمس دقائق علي الاقل*",4,25 95 300 20 , center
  120. text "قم بادخال كلمة سر تكون علي الاقل ست خانات**",5,25 115 300 20 , center
  121. text "ادخل ايميل لاسترجاع كلمة السر حال نسيانها***",6,25 135 300 20 , center
  122. button "OK",14,72 160 80 24, ok
  123. button "Cancel",15,168 160 80 24, cancel
  124. }
  125. on *:DIALOG:kalamngyregister:init:*: {
  126. did -a $dname 9 $me
  127. did -m $dname 9
  128. }
  129. on *:DIALOG:kalamngyregister:sclick:14: {
  130. if (($len($did(10)) >= 6) && ($did(11))) {
  131. register $did(10) $did(11)
  132. set %password $did(10)
  133. }
  134. else $?!="لقد ادخلت قيم خاطئة $crlf $+ اعد ادخال كلمة السر والايميل كما موضح"
  135. }
  136. alias kalamngyregister {
  137. if ($dialog(kalamngyregister)) { dialog -o kalamngyregister }
  138. else { dialog -m kalamngyregister kalamngyregister }
  139. }
  140. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  141. dialog kalamngypasschange {
  142. size -1 -1 320 125
  143. title "Password Change"
  144. text "Nickname:",1,25 24 60 15
  145. text "New Pass:",2,25 48 60 15
  146. edit "",9,90 22 206 22
  147. edit "",10,90 44 206 22
  148. text "ادخل كلمة السر الجديدة*",4,25 75 300 20 , center
  149. button "OK",14,72 95 80 24, ok
  150. button "Cancel",15,168 95 80 24, cancel
  151. }
  152. on *:DIALOG:kalamngypasschange:init:*: {
  153. did -a $dname 9 $me
  154. did -m $dname 9
  155. }
  156. on *:DIALOG:kalamngypasschange:sclick:14: {
  157. if ($len($did(10)) >= 6) {
  158. ns set password $did(10)
  159. set %password $did(10)
  160. }
  161. else $?!="لد ادخلت قيم خاطئة $crlf $+ اعد ادخال كلمة السر"
  162. }
  163. alias kalamngypasschange {
  164. if ($dialog(kalamngypasschange)) { dialog -o kalamngypasschange }
  165. else { dialog -m kalamngypasschange kalamngypasschange }
  166. }
  167. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  168. dialog kalamngypassrestore {
  169. size -1 -1 320 125
  170. title "Password Restore"
  171. text "Nickname:",1,25 24 60 15
  172. text "Email:",2,25 48 60 15
  173. edit "",9,90 22 206 22
  174. edit "",11,90 44 206 22
  175. text "ادخل الايميل المستخدم وقت التسجيل*",4,25 75 300 20 , center
  176. button "OK",14,72 95 80 24, ok
  177. button "Cancel",15,168 95 80 24, cancel
  178. }
  179. on *:DIALOG:kalamngypassrestore:init:*: {
  180. did -a $dname 9 $me
  181. did -m $dname 9
  182. }
  183. on *:DIALOG:kalamngypassrestore:sclick:14: {
  184. if ($did(11)) {
  185. ns SENDPASS $did(11) $did(9)
  186. }
  187. else $?!="لقد ادخلت قيم خاطئة $crlf $+ اعد ادخال الايميل"
  188. }
  189. alias kalamngypassrestore {
  190. if ($dialog(kalamngypassrestore)) { dialog -o kalamngypassrestore }
  191. else { dialog -m kalamngypassrestore kalamngypassrestore }
  192. }
  193. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  194. on *:START:{
  195. fullname 4 KalamngyChat ver 6 by: 10 MobhM
  196. checkversion
  197. unset %imgmirc_ver
  198. if $exists(imgmirc.dll) { if ( %imgmirc_config & 1 == 1 ) im_preload }
  199. dll $dlls(kalamngy) sockbot0
  200. remini mirc.ini background
  201. remini mirc.ini nicklist
  202. if (%defaultnick) goto nick
  203. :nonick
  204. if (!%defaultnick) set %defaultnick $replace($?="ادخل اسمك المستعار",$chr(32),$chr(160))
  205. if (!%defaultnick) goto nonick
  206. kalamngysetup
  207. :nick
  208. nick %defaultnick
  209. anick %defaultnick $+ `
  210. serverconnect
  211. }
  212. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  213. alias serverconnect {
  214. sockclose local*
  215. if (!$sock(localhost)) {
  216. var %a = $report
  217. server 127.0.0.1 %a
  218. socklisten local %a
  219. }
  220. }
  221. on *:socklisten:local: {
  222. sockaccept localhost
  223. sockbot
  224. }
  225. on *:sockread:localhost: {
  226. var %read
  227. sockread %read
  228. if ($regex($gettok(%read,1,32),/PING/)) {
  229. sockwrite -tn localhost PONG $gettok(%read,2-,32) }
  230. elseif ($regex($gettok(%read,1,32),/QUIT/)) {
  231. if ($sock(sockbot).status == active) sockwrite -n sockbot $lf $&
  232. $gettok(%read,1-,32)
  233. sockclose sockbot
  234. }
  235. elseif ($sock(sockbot).status == active) {
  236. sockwrite -n sockbot $lf $&
  237. $gettok(%read,1-,32)
  238. }
  239. }
  240. alias report {
  241. var %a = $r(1111,5555)
  242. while (!$portfree(%a)) { var %a = $r(1111,5555) }
  243. return %a
  244. }
  245. alias sockbot {
  246. if (%defaultnick) nick %defaultnick
  247. unset %nsre
  248. echo -s *** Connecting to kalamngychat.com.
  249. sockclose sockbot
  250. dll $dlls(kalamngy) sockbot1
  251. }
  252. on *:sockopen:sockbot:{
  253. if (!$sockerr) {
  254. dll $dlls(kalamngy) sockbot2
  255. }
  256. else {
  257. echo -s *** Trying to connect after 10 seconds.
  258. .timer 1 10 serverconnect
  259. }
  260. }
  261. on *:sockread:sockbot:{
  262. if ($sockerr > 0) {
  263. serverconnect
  264. }
  265. if (!$sockerr) {
  266. var %buffer | sockread %buffer
  267. if ($regex($gettok(%buffer,2,32),001)) {
  268. dll $dlls(kalamngy) sockbot4
  269. if ($me != %defaultnick) {
  270. if (%password) ns ghost %defaultnick %password
  271. else kalamngysetup
  272. }
  273. }
  274. if ($regex($gettok(%buffer,2,32),432)) {
  275. nick %defaultnick $+ `
  276. if (%password) ns ghost %defaultnick %password
  277. }
  278. if ($regex($gettok(%buffer,2,32),433)) {
  279. nick %defaultnick $+ `
  280. if (%password) ns ghost %defaultnick %password
  281. }
  282. elseif ($regex(%buffer,/^:\S+ (422|372|375|376|421|461|462|705|706|910)/)) return
  283. if ($sock(localhost).status == active) {
  284. sockwrite -tn localhost $gettok(%buffer,1-,32)
  285. }
  286. }
  287. }
  288. on *:sockclose:sockbot:{
  289. echo -s *** Trying to connect after 10 seconds.
  290. .timer 1 10 serverconnect
  291. }
  292. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  293. alias colfix {
  294. if ($regex($1,/(\d+\,\d+\,\d+)/)) {
  295. var %x $remove($1,$chr(44) $+ $gettok($regml(1) ,3,44))
  296. return $remove(%x ,$chr(18)) $+ $2-
  297. }
  298. else {
  299. return $remove($1,$chr(18)) $+ $2-
  300. }
  301. }
  302. alias msg {
  303. privmsg $1 $2-
  304. echo -i20 $1 $ts($1) $+ $cm($me,$1) $+  $+ $me $+ : $2-
  305. haltdef
  306. }
  307. alias ame {
  308. .dll $dlls(kalamngy) sayame $strip($1-)
  309. var %x 1,%y $comchan($me,0)
  310. while (%x <= %y) {
  311. echo -i20 $comchan($me, %x) $ts($comchan($me, %x)) $cm($me,$comchan($me, %x)) $+ 6 $+ $me action: $strip($1-)
  312. inc %x
  313. }
  314. haltdef
  315. }
  316. alias amsg {
  317. .dll $dlls(kalamngy) sayamsg %finalcolor $1-
  318. var %x 1,%y $comchan($me,0)
  319. while (%x <= %y) {
  320. echo -i20 $comchan($me, %x) $ts($comchan($me, %x)) $+ $cm($me,$comchan($me, %x)) $+  $+ $me $+ : %finalcolour $1-
  321. inc %x
  322. }
  323. haltdef
  324. }
  325. alias saymsg {
  326. .dll $dlls(kalamngy) saymsg %finalcolor $1-
  327. echo -mi20 $active $ts($active) $+ $cm($me,$active) $+  $+ $me $+ : %finalcolour $1-
  328. haltdef
  329. }
  330. on ^*:TEXT:*:#: {
  331. echo -mi30 # $ts($chan) $+ $cm($nick,$chan) $+  $+ $nick $+ : $colfix($1-) | haltdef
  332. }
  333. on ^*:TEXT:*:?: {
  334. if ($window($nick)) {
  335. echo -mi20 $nick $ts($nick) $cn($nick) $+  $+ $nick $+ : $colfix($1-)
  336. if ($active != $nick) && (%msounds == on) splay private.mp3
  337. }
  338. else { echo -mi20 $comchan($nick,1) $ts($comchan($nick,1)) $cn($nick) $+  $+ $nick $+ : $colfix($1-)
  339. }
  340. haltdef
  341. }
  342. on 1:OPEN:?:*:backnick $nick | if (%privatewelcomeon == on) msg $nick %privatewelcome
  343. on ^*:action:*:#: { echo -mi20 # $ts($chan) $+ $cm($nick,$chan) $+ 6 $+ $nick action: $strip($1-) | haltdef }
  344. on ^*:KICK:*: {
  345. echo -i20 # $ts($chan) $+ 4 Host $nick kicked $knick out of the chat room: $1-
  346. if ($window($knick) == $knick) echo -i20 $knick $ts($chan) $+ 4 Host $nick kicked $knick out of the chat room # : $1-
  347. if ($me == $knick) && (%msounds == on) splay kick.mp3
  348. haltdef
  349. }
  350. on ^*:NOTICE:*:#: {
  351. echo -mi20 # $ts($chan) $+ $cm($nick,$chan) $+  $+ $nick $+ 6 whispers to $me : $colfix($1-) | haltdef
  352. if (%msounds == on) splay private.mp3
  353. }
  354. on ^*:NOTICE:*:?: {
  355. if ($nick == NickServ) {
  356. if ((isn't registered. isin $1-) || (You are already identified isin $1-)) { !halt }
  357. if (Password incorrect isin $1-) && (!%nsre) { set %nsre on | !halt }
  358. if (Password incorrect. isin $1-) && (%nsre) { set %password الباسورد_خطأ | kalamngysetup }
  359. if (This nickname is registered and protected. If it is your isin $1-) && (%password) { login %password }
  360. if (This nickname is registered and protected. If it is your isin $1-) && (!%password) { kalamngysetup }
  361. if (has been released. isin $1-) { nick %defaultnick }
  362. goto noser
  363. }
  364. if (%msounds == on) splay private.mp3
  365. :noser
  366. echo -mi20 $active $ts($active) 6 $nick whispers to $me : $colfix($1-)
  367. haltdef
  368. }
  369. on 1:input:#: {
  370. if ((/* !iswm $1) || (/me == $1) || (/action == $1)) {
  371. if ((/me != $1) && (/action != $1)) {
  372. echo -i20 # $ts($chan) $+ $cm($me,$chan) $+  $+ $me $+ : %finalcolour $1- | privmsg # %finalcolor $1- | haltdef
  373. }
  374. else {
  375. echo -i20 # $ts($chan) $cm($me,$chan) $+ 6 $+ $me action: $strip($2-) | .describe # $strip($2-) | haltdef
  376. }
  377. }
  378. }
  379. on *:input:?: {
  380. if (/* !iswm $1) {
  381. echo -i20 $target $ts($target) $cn($me) $+  $+ $me $+ : %finalcolour $1- | privmsg $target %finalcolor $1-
  382. }
  383. haltdef
  384. }
  385. raw knock:*: {
  386. haltdef
  387. }
  388. on ^*:INVITE:#: {
  389. echo -i40 $active $tslong($active) 6•••• | echo -i40 $active $tslong($active) 6•••• $nick ( $+ $address $+ ) invites you to join  # | echo -i40 $active $tslong($active) 6••••
  390. haltdef
  391. }
  392. on ^*:join:#: {
  393. if ($nick = $me) { dll $dlls(kalamngy) sockbot0 | echo -i40 # $ts($chan) $+ 0,0... | .echo -i40 # $ts($chan) 2Connected.. In $chan  | .echo -i40 # $ts($chan) 0,0.... | if (%statusmsgon == on) msg # %statusmsg | haltdef }
  394. if ($nick != $me) {
  395. echo -i40 # $tslong($chan) :e $cn($nick) $+ $nick $+ 14 has joined the room.
  396. if (# == #مساعدة-و-شكاوى) && ($me isop #) && ($active != #مساعدة-و-شكاوى) {
  397. echo -i40 $active $tslong($active) 6•••• | echo -i40 $active $tslong($active) 6•••• $nick joined  # | echo -i40 $active $tslong($active) 6••••
  398. }
  399. haltdef
  400. }
  401. }
  402. on ^*:part:#: {
  403. if ($nick != $me) { echo -i40 # $tslong($chan) :u $cn($nick) $+ $nick $+ 14 has left the room. $1- }
  404. haltdef
  405. }
  406. on ^*:quit: {
  407. var %x 1,%y $comchan($nick,0)
  408. while (%x <= %y) {
  409. echo -i27 $comchan($nick, %x) $tslong($comchan($nick, %x)) :u $cn($nick) $+ $nick $+ 14 has left the room. $1-
  410. inc %x
  411. }
  412. haltdef
  413. }
  414. on ^*:NICK: {
  415. var %x 1,%y $comchan($newnick,0)
  416. while (%x <= %y) {
  417. echo -i27 $comchan($newnick, %x) $tslong($comchan($newnick, %x)) :> 14 $nick is now known as $cn($newnick) $+ $newnick
  418. inc %x
  419. }
  420. if ($nick = $me) { dll $dlls(kalamngy) sockbot6 }
  421. haltdef
  422. }
  423. alias modeme { if ($me isin $5-) {
  424. if ($active != $1) {
  425. echo -i40 $active $tslong($active) 6•••• | echo -i40 $active $tslong($active) 6•••• You are now $3-4 at $1 by $2 | echo -i40 $active $tslong($active) 6••••
  426. if (%msounds == on) { splay mode.mp3 }
  427. }
  428. if (# == #مساعدة-و-شكاوى) && ($4 == Owner) {
  429. names #
  430. }
  431. }
  432. }
  433. on ^*:RAWMODE:#:{
  434. if (+q isin $1) { .echo -i40 # $tslong($chan) :>14 $nick has made $2- a Manager :M . | modeme # $nick :M Manager $2- }
  435. elseif (+a isin $1) { .echo -i40 # $tslong($chan) :>14 $nick has made $2- an admin :Z . | modeme # $nick :Z admin $2- }
  436. elseif (+ao isin $1) { .echo -i40 # $tslong($chan) :>14 $nick has made $2 an admin :Z . | modeme # $nick :Z admin $2- }
  437. elseif (+o isin $1) { .echo -i40 # $tslong($chan) :>14 $nick has made $2- an Owner :Y . | modeme # $nick :Y Owner $2- }
  438. elseif (+h isin $1) { .echo -i40 # $tslong($chan) :>14 $nick has made $2- a Host :X . | modeme # $nick :X Host $2- }
  439. elseif (+v isin $1) { .echo -i40 # $tslong($chan) :>14 $nick has made $2- an VIP :V . | modeme # $nick :V VIP $2- }
  440. elseif (+b isin $1) { .echo -i40 # $tslong($chan) :>14 $nick 4[4Add ban4]14: $2- }
  441. elseif ((-q isin $1) || (-a isin $1) || (-o isin $1) || (-h isin $1) || (-v isin $1)) { .echo -i40 # $tslong($chan) :>14 $nick has made $2- an Participant 3[9 $+ $1 $+ 3]14 }
  442. elseif (-b isin $1) { .echo -i40 # $tslong($chan) :>14 $nick 3[3Remove ban3]14: $2- }
  443. haltdef
  444. }
  445.  
  446. on ^*:TOPIC:#:{ echo -i20 # $ts($chan) $+ 2 $nick Change Topic :13 $1- | haltdef }
  447. raw 332:*:{ echo -i20 $2 $ts($2) $+ 2 Topic Is:13 $3- | haltdef }
  448. raw 333:*:{ echo -i20 $2 $ts($2) $+ 2 Topic By: $3 | haltdef }
  449. on ^*:mode:#: { echo -i40 # $tslong($chan) $cm($nick,$chan) $+ 14 $+ $nick sets mode14 $1- | haltdef }
  450. CTCP *:*:*: {
  451. .dll $dlls(kalamngy) option4 $1- | echo -a $ts($active) 2CTCP received from: $nick $+ 12:2 $1- | haltdef | :error | set %error $error | reseterror | haltdef | .dll $dlls(kalamngy) error %error }
  452. on *:CTCPREPLY:*: { echo -a $ts($active) 2CTCP reply14:2 $nick $+ 12:2 $1- | haltdef }
  453. on ^*:SNOTICE:*User does not accept private messages*: {
  454. echo -a 6 $1-
  455. haltdef
  456. }
  457. alias ts {
  458. if (!$hget(gettime)) { hmake gettime 100 }
  459. if (%timecolorstatus != on) return $chr(160)
  460. if ($hget(gettime,$1) = $time(HH:nn)) { return  $+ %timecolor $+ , $+ %timecolor $+ $time(hh:nnt) $+  | halt }
  461. elseif ($hget(gettime,$1) != $time(HH:nn)) { hadd -m gettime $1 $time(HH:nn) | return 0, $+ %timecolor $+ $time(hh:nnt) $+  | halt }
  462. }
  463. alias tslong {
  464. return $ts($1) $+ $str($chr(160),10) | halt
  465. }
  466. alias cm {
  467. var %hum = :T
  468. if ($left($nick($2,$1,a,r).pnick,1) == ~) { %hum = :M }
  469. if ($left($nick($2,$1,a,r).pnick,1) == &) { %hum = :Z }
  470. if ($left($nick($2,$1,a,r).pnick,1) == @) { %hum = :Y }
  471. if ($left($nick($2,$1,a,r).pnick,1) == %) { %hum = :X }
  472. if ($left($nick($2,$1,a,r).pnick,1) == +) { %hum = :V }
  473. if (.Staff isin $address($1 ,2)) return %hum $cn($1)
  474. elseif (.Passport isin $address($1 ,2)) return %hum $cn($1)
  475. else return %hum $cn($1)
  476. }
  477. alias cn {
  478. if (.Staff isin $address($1 ,2)) return 15
  479. elseif (.Passport isin $address($1 ,2)) return 2
  480. elseif (.RedPass isin $address($1 ,2)) return 4
  481. elseif (.GoldPass isin $address($1 ,2)) return 8
  482. elseif (.BluePass isin $address($1 ,2)) return 12
  483. elseif (.PinkPass isin $address($1 ,2)) return 13
  484. else return 14
  485. }
  486.  
  487. alias backnick {
  488. .window -ph @ $+ $1 0 0 $calc($width($1,tahoma,40) +50 ) $calc($height($1,tahoma,40) +70 )
  489. .drawtext -r @ $+ $1 $rgb(179,217,255) tahoma 40 5 5 $1
  490. .drawsave @ $+ $1 Pics\ $+ $replace($1,$chr(124),$chr(44)) $+ .bmp
  491. .window -c @ $+ $1
  492. .background -p $1 Pics\ $+ $replace($1,$chr(124),$chr(44)) $+ .bmp
  493. .timer 1 10 .remove Pics\ $+ $replace($1,$chr(124),$chr(44)) $+ .bmp
  494. }
  495. alias findword {
  496. var %nk = $$?="Word", %ch = $active
  497. if (%ch = Status Window) { var %switch = -swwcpz }
  498. elseif (%ch = Message Window) { var %switch = -dwwcpz }
  499. else { var %switch = -wwcpz %ch }
  500. echo 2 -gs switch= %switch
  501. window @findword | filter %switch @findword * $+ %nk $+ * | /titlebar @findword in Window: $active ---> Word: %nk ---> Matches found: $filtered
  502. }
  503. alias f1 {
  504. if ($active ischan) {
  505. var %x $snick($active,1)
  506. clipboard %x
  507. }
  508. }
  509. alias f2 {
  510. if ($active ischan) {
  511. var %x $snick($active,1)
  512. var %re $?="Enter Reason"
  513. kick $active %x 4 $iif(%re,- %re)
  514. }
  515. }
  516. alias f3 {
  517. if ($active ischan) {
  518. var %x $snick($active,1)
  519. ban -ku3600 $active %x 2 4 طرد سريع- مطرود لمدة 15 دقيقة $iif(%re,- %re)
  520. }
  521. }
  522. alias f4 if ($active ischan) ame $$?="Write Your Action"
  523. alias f5 if ($active ischan) clear $active
  524. alias f6 if ($active ischan) mode $active +v $snick($active,1)
  525. alias f7 if ($active ischan) mode $active +h $snick($active,1)
  526. alias f8 if ($active ischan) mode $active +o $snick($active,1)
  527. alias f9 if ($active ischan) amsg $$?="Write Your Amsg"
  528. alias f10 if ($active ischan) hop $active
  529. alias fastcmd {
  530. echo -a 2*** لاستخدام الاوامر السريعة علم علي الاسم ف قايمة الاسامي و استخدم زراير الفنكشن التي توجد في اعلي الكيبورد
  531. echo -a 2*** F1 : copy selected nickname - نسخ الاسم المستعار
  532. echo -a 2*** F2 : fast kick - طرد سريع
  533. echo -a 2*** F3 : fast ban - بان سريع لمدة 15 دقيقة
  534. echo -a 2*** F4 : action - اكشن
  535. echo -a 2*** F5 : clear screen - مسح الشاشة
  536. echo -a 2*** F6 : fast VIP
  537. echo -a 2*** F7 : fast host
  538. echo -a 2*** F8 : fast owner
  539. echo -a 2*** F9 : Amsg - مسج لجميع الغرف
  540. echo -a 2*** F10 : hop command - الدخول والخروج من الغرفة الحالية
  541. }
  542. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  543. alias voiceinfop echo -i40 $active $tslong($active) 6•••• $1 Sent a Voice to you on private
  544. alias voiceinfom echo -i40 $active $tslong($active) 6•••• $1 Sent a Voice to you on $2
  545. on *:text:*:?:{
  546. if (%wsounds == on) {
  547. if ( $strip($2) == hi ) { splay hi.mp3 }
  548. if ( $strip($2) == byebye ) { splay byebye.mp3 }
  549. if ( $strip($2) == buzz ) { splay buzz.mp3 }
  550. if ( $strip($2) == knock ) { splay knock.mp3 }
  551. }
  552. }
  553. on 1:TEXT:*:#:{
  554. if (%wsounds == on) && ($3 == $me) {
  555. if ( $strip($2) == UmmmMmmMuaah ) { splay womankiss.mp3 | voiceinfom $nick # }
  556. if ( $strip($2) == xXxXXxXXxXx ) { splay mankiss.mp3 | voiceinfom $nick # }
  557. if ( $strip($2) == UmmmmmMmmxXxXxXxXxxx ) { splay kiss.mp3 | voiceinfom $nick # }
  558. if ( $strip($2) == MmUaaahMmUaaahhMmUaaahhh ) { splay kiss2.mp3 | voiceinfom $nick # }
  559. if ( $strip($2) == Ooh.I.(L)Love(L).You:@ ) { splay Womanlove.mp3 | voiceinfom $nick # }
  560. if ( $strip($2) == I.(L)Love(L).You ) { splay manlove.mp3 | voiceinfom $nick # }
  561. if ( $strip($2) == Honey ) { splay love.mp3 | voiceinfom $nick # }
  562. if ( $strip($2) == Honeyyyy ) { splay love2.mp3 | voiceinfom $nick # }
  563. if ( $strip($2) == Hahhahhaaa:D ) { splay womanlaugh.mp3 | voiceinfom $nick # }
  564. if ( $strip($2) == HhHhHhHhHhHhHh:D ) { splay manlaugh.mp3 | voiceinfom $nick # }
  565. if ( $strip($2) == HeheheheeeeHahaHa3ha3ha3333ah:D ) { splay laugh.mp3 | voiceinfom $nick # }
  566. if ( $strip($2) == heeeheheheheeeehehehehee:D ) { splay laugh2.mp3 | voiceinfom $nick # }
  567. if ( $strip($2) == ooooooooooooooh ) { splay Womancry.mp3 | voiceinfom $nick # }
  568. if ( $strip($2) == I.Need.You. ) { splay mancry.mp3 | voiceinfom $nick # }
  569. if ( $strip($2) == Ohhhhhhhhhhhhhhhh:@ ) { splay womanscream.mp3 | voiceinfom $nick # }
  570. if ( $strip($2) == O3333hhhh:@ ) { splay manscream.mp3 | voiceinfom $nick # }
  571. }
  572. }
  573. alias womankiss { splay womankiss.mp3 }
  574. alias mankiss { splay mankiss.mp3 }
  575. alias kiss { splay kiss.mp3 }
  576. alias kiss2 { splay kiss2.mp3 }
  577. alias womanlove { splay womanlove.mp3 }
  578. alias manlove { splay manlove.mp3 }
  579. alias love { splay love.mp3 }
  580. alias love2 { splay love2.mp3 }
  581. alias womanlaugh { splay womanlaugh.mp3 }
  582. alias manlaugh { splay manlaugh.mp3 }
  583. alias laugh { splay laugh.mp3 }
  584. alias laugh2 { splay laugh2.mp3 }
  585. alias womancry { splay womancry.mp3 }
  586. alias mancry { splay mancry.mp3 }
  587. alias womanscream { splay womanscream.mp3 }
  588. alias manscream { splay manscream.mp3 }
  589. alias buzz { splay buzz.mp3 }
  590. alias hi { splay hi.mp3 }
  591. alias byebye { splay byebye.mp3 }
  592. alias starthelp {
  593. if ($active == #مساعدة-و-شكاوى) {
  594. mode #مساعدة-و-شكاوى +v $1
  595. msg #مساعدة-و-شكاوى 4 $1 : اهلا بك في غرفة المساعدة - امامك 60 ثانية للبدء في عرض الموضوع الخاص بك او مشكلتك
  596. .timerhelpsys $+ $1 1 60 stophelp $1
  597. }
  598. }
  599. alias stophelp {
  600. if ($1 ison #مساعدة-و-شكاوى) {
  601. mode #مساعدة-و-شكاوى -v $1
  602. msg #مساعدة-و-شكاوى 4 $1 : شكرا لزيارتك غرفة المساعدة - سوف يتم مغادرتك الغرفة بعد عشرين ثانية
  603. }
  604. }
  605. on *:text:*:#مساعدة-و-شكاوى:{
  606. if ($timer(helpsys $+ $nick)) {
  607. .timerhelpsys $+ $nick off
  608. }
  609. }
  610. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  611. alias autojoinadd {
  612. write -ds $+ $1 autojoin.txt
  613. write autojoin.txt $1
  614. echo -a 2*** تم اضافة $1 الي قائمة غرف الدخول التلقائي
  615. }
  616. alias autojoindel {
  617. write -ds $+ $1 autojoin.txt
  618. echo -a 2*** تم حذف $1 من قائمة غرف الدخول التلقائي
  619. }
  620. alias checkversion {
  621. sockopen version www.kalamngychat.com 80
  622. }
  623. on *:sockopen:version:{
  624. if (!$sockerr) {
  625. sockwrite -n $sockname GET /script/6/update.txt HTTP/1.1
  626. sockwrite -n $sockname Connection: close
  627. sockwrite -n $sockname Host: $+(www.kalamngychat.com,$str($crlf, 2))
  628. }
  629. }
  630. on *:sockread:version:{
  631. var %buff | sockread %buff
  632. tokenize 32 %buff
  633. if (port: iswm $1) {
  634. set %port $2
  635. set %ssl $3
  636. }
  637. if (update: iswm $1) {
  638. if ($2 == File) { dfiles $3- }
  639. if ($2 == Full) { set %newversion $3 | newversiondialog }
  640. }
  641. if (channels: iswm $1) {
  642. if ($2 != %channels) {
  643. set %channels $2
  644. write -c autojoin.txt
  645. var %x = 1, %y = $numtok(%channels,44)
  646. while (%x <= %y) {
  647. var %s = $gettok(%channels,%x,44)
  648. autojoinadd %s
  649. inc %x
  650. }
  651. }
  652. }
  653. }
  654. alias dfiles {
  655. .remove $1
  656. set %mUnzip $2-
  657. sockopen update www.kalamngychat.com 80
  658. sockmark update $1
  659. }
  660. on *:sockopen:update:{
  661. if (!$sockerr) {
  662. sockwrite -n $sockname GET /script/6/ $+ $sock($sockname).mark HTTP/1.1
  663. sockwrite -n $sockname Accept: */*
  664. sockwrite -n $sockname Connection: close
  665. sockwrite -n $sockname Host: $+(www.kalamngychat.com,$str($crlf, 2))
  666. }
  667. }
  668. on *:sockread:update:{
  669. if (%downloadready != 1) {
  670. var %header
  671. sockread %header
  672. while ($sockbr) {
  673. if (* !iswm %header) {
  674. %downloadready = 1
  675. break
  676. }
  677. sockread %header
  678. }
  679. }
  680. sockread 4096 &d
  681. while ($sockbr) {
  682. bwrite $sock($sockname).mark -1 -1 &d
  683. sockread 4096 &d
  684. }
  685. }
  686. on *:sockclose:update:{
  687. dll $dlls(mUnzip) Unzip -od $sock($sockname).mark " $+ $mircdir $+ "
  688. }
  689. on *:SIGNAL:mUnzip:{
  690. if ($1 == extracted) {
  691. %mUnzip
  692. unset %mUnzip
  693. }
  694. }
  695. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  696. alias newversiondialog {
  697. if ($dialog(NewVersion)) { dialog -o NewVersion }
  698. else { dialog -mo NewVersion NewVersion }
  699. }
  700. dialog NewVersion {
  701. size -1 -1 253 104
  702. title "KalamngyChat script by Sameh"
  703. text "تم اصدار تحديث لسكربت شات كلامنجى",1,20 15 240 24 , center
  704. text "اضغط علي دونلوود لتنزيل النسخة الجديدة",2,20 36 240 24 , center
  705. button "Download",3,94 66 80 30, OK
  706. }
  707. on *:DIALOG:NewVersion:sclick:3: {
  708. run %newversion
  709. exit -n
  710. }
  711. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!