API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 23rd, 2019
89
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 13.45 KB | None | 0 0
raw download clone embed print report
  1. ;###StartScript
  2. alias welcome {
  3.   if (%lang) {
  4.     init_toolbar
  5.     titlebar Skyrock officiel - v $+ %version
  6.     echo 2 -s * mIRC $version - irc.skyrock.net - %version - %lang
  7.     echo 4 -s * $msgt(remind-intro)
  8.     echo 3 -s ---
  9.     echo 2 -s • $msgt(tel-detect) :12 $readdb(options,detect_tel)
  10.     echo 2 -s • $msgt(txt-nocolor) :12 $readdb(options,strip)
  11.     echo 2 -s • $msgt(txt-nocaps) :12 $readdb(options,minuscules)
  12.     echo 2 -s • $msgt(hide-join) :12 $readdb(options,hidemsg-j)
  13.     echo 2 -s • $msgt(hide-part) :12 $readdb(options,hidemsg-p)
  14.     echo 2 -s • $msgt(hide-quit) :12 $readdb(options,hidemsg-q)
  15.     echo 2 -s • $msgt(avatar-q) :12 $readdb(options,avatar-q)
  16.     echo 2 -s • $msgt(hide-jp-config) 12( $+ %HideJoins users)2 / 12( $+ %HideParts users)
  17.     echo 2 -s • $msgt(highlights-cs) :12 $readdb(options,confhl)
  18.     echo 2 -s -
  19.     echo 2 -s • $msgt(autoidentify) :12 $readdb(options,autoidentify)
  20.     echo 2 -s • $msgt(autojoin) %staff-chan :12 $readdb(options,autojoinheadquarter)
  21.     echo 2 -s • $msgt(autojoin) #irc :12 $readdb(options,autojoinirc)
  22.     echo 2 -s • $msgt(autojoin-invite-prefer) :12 $readdb(options,joinoninvite)
  23.     echo 2 -s • $msgt(leave-deop) :12 $readdb(options,partdeop)
  24.     echo 2 -s -
  25.     echo 2 -s • $msgt(hl-window) :12 $readdb(window,hl)
  26.     echo 2 -s • $msgt(notices-window) :12 $readdb(window,notice)
  27.     echo 2 -s • $msgt(k-window) :12 $readdb(window,kick)
  28.     echo 2 -s • $msgt(kak-window) :12 $readdb(window,kill-akill)
  29.     echo 2 -s -
  30.     if ($readdb(son,pwr).Off) { echo 2 -s -> $msgt(sound-off) }
  31.     else {
  32.       echo 2 -s - $msgt(sound-on) -
  33.       echo 2 -s • Highlight :12 $readdb(son,hig) ( $+ $readdb(son,hl) $+ ) - $hl_volume
  34.       echo 2 -s • $msgt(invite) :12 $readdb(son,inv)
  35.       echo 2 -s • Notice :12 $readdb(son,not)
  36.       echo 2 -s • $msgt(query) :12 $readdb(son,pri)
  37.       echo 2 -s • $msgt(telephone) :12 $readdb(son,tel)
  38.     }
  39.     echo 3 -s ---
  40.     set %handle $readdb(NickServ,handle) | .emailaddr %handle $+ @nomail.com | .nick %handle | .anick %handle $+ _ | .identd off | unset %kick.* | unset %join* | init_mirc | init_db
  41.     welcome_popup
  42.     ;checkupdate
  43.   }
  44.   else {
  45.     echo 4 -se Setup your lang !
  46.     set_lang
  47.   }
  48. }
  49. alias welcome_popup dialog -om $iif(%update,welcome_majOn welcome_majOn,welcome_majOff welcome_majOff)
  50. dialog welcome_majOn {
  51.   title Bienvenue sur le Chat de Skyrock ! / Welcome to the chat Skyrock!
  52.   icon $mircdiricones\skyetoile.ico
  53.   size -1 -1 783 364
  54.   button "", 9, 100 0 0 0, ok
  55.   icon 10, 0 0 783 159, icones\MAJHEAD.png, noborder
  56.   icon 11, 0 159 391 103, icones\MAJVAD.png, noborder
  57.   icon 12, 391 159 392 103, icones\MAJFORUM.png, noborder
  58.   ;icon 13, 0 261 783 103, icones\MAJON.png, noborder
  59.   icon 13, 0 261 783 103, icones\MAJFOOT.png, noborder
  60. }
  61. dialog welcome_majOff {
  62.   title Bienvenue sur le Chat de Skyrock ! / Welcome to the chat Skyrock !
  63.   icon $mircdiricones\skyetoile.ico
  64.   size -1 -1 783 364
  65.   button "", 9, 100 0 0 0, ok
  66.   icon 10, 0 0 783 159, icones\MAJHEAD.png, noborder
  67.   icon 11, 0 159 391 103, icones\MAJVAD.png, noborder
  68.   icon 12, 391 159 392 103, icones\MAJFORUM.png, noborder
  69.   ;icon 13, 0 261 783 103, icones\MAJOFF.png, noborder
  70.   icon 13, 0 261 783 103, icones\MAJFOOT.png, noborder
  71. }
  72. on *:dialog:welcome_maj*:sclick:*:{
  73.   if ($did == 11) { url -an https://op.skyrock.net/files/vademecum.pdf }
  74.   if ($did == 12) { url -an https://op.skyrock.net/forumv2/ }
  75.   if ($did == 13) { url -an https://op.skyrock.net/forumv2/viewtopic.php?f=3&t=2390 }
  76.   ;if ($did == 13 && %update) { dialog -x welcome_majOn | update }
  77. }
  78. alias init_db {
  79.   hfree -w db
  80.   var %db database.ini
  81.   var %inc_db 0
  82.   var %nb_line_db $lines(%db)
  83.   hmake db %nb_line_db
  84.   while (%inc_db <= %nb_line_db) {
  85.     var %db_line $read(%db,%inc_db)
  86.     if (%db_line != $null) {
  87.       if ($chr(91) $+ * $+ $chr(93) iswm %db_line) { var %db_type $remove(%db_line,$chr(93),$chr(91)) }
  88.       else { hadd -m db %db_type $+ : $+ $token(%db_line,1,61) $token(%db_line,2,61) }
  89.     }
  90.     inc %inc_db
  91.   }
  92. }
  93. ;### Connect - Commandes exécutées à la connexion
  94. on *:CONNECT:{
  95.   init_mirc
  96.   if (%handleoline) {
  97.     oper $readdb(OperServ,handleoline) $readdb(OperServ,%handleoline)
  98.     j #opers
  99.   }
  100.   if ($check) {
  101.     if ($readdb(options,autoidentify).On) ns identify $readdb(NickServ,%handle)
  102.     if ($readdb(options,autojoinheadquarter).On) cs invite %staff-chan
  103.   }
  104.   if ($ignore) {
  105.     .ignore -r
  106.   }
  107.   checkmajscript
  108. }
  109. ;### Disconnect - Commandes exécutées à la déconnexion (forçage de l'ident et fermeture des salons)
  110. on *:DISCONNECT:{
  111.   .emailaddr %handle $+ @nomail.com
  112.   .nick %handle
  113.   .anick %handle $+ _
  114.   .identd off
  115.   unset %kick.*
  116.   .timer 1 5 init_mirc
  117.   var %chans_id = 1
  118.   while (%chans_id <= $chan(0)) {
  119.     if ($istok(%ChannelsOff,$chan(%chans_id),44) || #web-* iswm $chan(%chans_id)) { part $chan(%chans_id) }
  120.     inc %chans_id
  121.   }
  122.   .partall
  123. }
  124. ;### Open - Lors de l'ouverture d'un pv entrant
  125. on *:OPEN:?:*:{
  126.   echo $color(highlight) -eastg * Query:  $+ $cnick($nick).color $+ $nick ( $+ $1- $+ )
  127.   $iif($son(pri),splay $mircdirsounds\snd-signal.mp3)
  128.   query_opened $nick
  129.   $iif($readdb(options,avatar-q) != Off,$get_infos($nick).all,$get_infos($nick).ssi)
  130. }
  131. ;### Text - Lors de la réception de texte pour gestion des highligths
  132. on ^*:TEXT:*:*:{
  133.   if ($is_highlight($$1-)) {
  134.     hl_flash&tip $nick $1-
  135.     if ($target != $me && $is_hq(#) && !$is_hq($active)) { echo $color(highlight) -tag * Highlight: 1 $+ $nick on # -> $+ $color(text) $1- }
  136.     if ($readdb(window,hl).On) {
  137.       $iif(!$window(@Highlights),window -nmk0 @Highlights) | echo -t @Highlights 12 $+ $iif($target != $me,#,Privé) < $+ 4 $+ $nick $+  $+ > $+ $color(text) $1-
  138.     }
  139.     if ($target == $me && $readdb(options,hlpv).On || $target != $me ) {
  140.       $iif($target != $me,echo $color(highlight) -t # $+(<,,$nick(#,$nick).color,$nick(#,$nick).pnick,,>) $1-,echo $color(highlight) -t $nick -< $+ $nick $+ >- $1-)
  141.       window -g2 $iif($target != $me,#,$nick)
  142.       $iif($son(hig),splay $mircdirsounds\snd-hl- $+ $readdb(son,hl) $+ .mp3)
  143.       haltdef
  144.     }
  145.   }
  146. }
  147. ;### Action - Lors de la réception d'actions pour gestion des highlights
  148. on ^*:ACTION:*:*:{
  149.   if ($is_highlight($$1-)) {
  150.     hl_flash&tip $nick $1-
  151.     if ($target != $me && $is_hq(#) && !$is_hq($active)) { echo $color(highlight) -tag * Highlight: 1 $+ $nick on # -> $+ $color(text) $1- }
  152.     if ($readdb(window,hl).On) {
  153.       $iif(!$window(@Highlights),window -nmk0 @Highlights) | echo -t @Highlights 12 $+ $iif($target != $me,#,Privé)  * 4 $+ $nick $+   $+ $color(action) $1-
  154.     }
  155.     if ($target == $me && $readdb(options,hlpv).On || $target != $me ) {
  156.       echo $color(highlight) -t $iif($target != $me,#,$nick) * $nick $1-
  157.       $iif($son(hig),splay $mircdirsounds\snd-hl- $+ $readdb(son,hl) $+ .mp3)
  158.       window -g2 $iif($target != $me,#,$nick)
  159.       haltdef
  160.     }
  161.   }
  162. }
  163. ;### Ban - Traitement des bans reçus
  164. on *:RAWMODE:%ChannelsOff:{
  165.   if ($readdb(window,kick).On) {
  166.     $iif(!$window(@Kicks/Bans),window -nemk0 @Kicks/Bans)
  167.     if (*+b* iswm $1-) {
  168.       echo -t @Kicks/Bans 14[Ban]3 # 1->  $+ $nick(#,$nick).color $+ $nick 14a mis $1- $iif(*~q:* !iswm $1-,$ialchan($2,#,1).pnick,$ialchan($token($2,2,58),#,1).pnick)
  169.     }
  170.     elseif (*-b* iswm $1- && $nick ison %staff-chan && !$is_botoff($nick)) {
  171.       echo -t @Kicks/Bans 14[Unban]3 # 1->  $+ $nick(#,$nick).color $+ $nick 14a mis $1- $iif(*~q:* !iswm $1-,$ialchan($2,#,1).pnick,$ialchan($token($2,2,58),#,1).pnick)
  172.     }
  173.   }
  174. }
  175. ;### Kick - Traitement des kicks reçus
  176. on *:KICK:%ChannelsOff:{
  177.   if ($readdb(window,kick).On) { $iif(!$window(@Kicks/Bans),window -nemk0 @Kicks/Bans) | echo -t @Kicks/Bans 12[Kick]3 # ->  $+ $nick(#,$knick).color $+ $knick par  $+ $nick(#,$nick).color $+ $nick (01 $+ $1- $+ ) }
  178.   if ($address($knick,0)) {
  179.   set -u120 %kick. [ $+ [ # ] ] $iif($except_host_ban($getmask($knick).host) == 0,$getmask($knick).host,EXCEPTED_HOST) $getmask($knick).ident }
  180.   elseif ($me isop $chan) {
  181.     who $knick
  182.     .timer_ban_ $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) -mh 1 200 set -u120 %kick. [ $+ [ # ] ] $iif($except_host_ban($getmask($knick).host) == 0,$getmask($knick).host) $getmask($knick).ident
  183.   }
  184. }
  185. ;### Op - Vérifie la présence sur le bon salon de concertation lorsque l'on op sur des salons FR ou étrangers
  186. on *:OP:%ChannelsOff:{
  187.   if ($opnick == $me && # isin %ChannelsOff && !$ison_hq($me)) { join %staff-chan }
  188. }
  189. ;### Snotice - Traitement des notices serveurs reçues
  190. on ^*:SNOTICE:*:{
  191.   echo $color(notice) -ts -SNotice- < $+ $nick $+ > $1-
  192.   haltdef
  193. }
  194. ;### Join - Vérifie la présence sur %staff-chan lorsqu'un salon officiel est rejoint
  195. on *:JOIN:%ChannelsOff:{
  196.   if (!$ison_hq($me) && $nick == $me) {
  197.     part #
  198.     echo $colour(info2) -es * $msgt(msg-autojoin,$$1)
  199.   }
  200. }
  201. ;### Partdeop - Partir lors d'un deop
  202. #partdeop off
  203. on *:DEOP:%ChannelsOff:if ($opnick == $me) { part # }
  204. #partdeop end
  205. ;### Invite - Gestion des invitations afin de rejoindre mes salons préférés après les invitation de Boo ou ChanServ
  206. on *:INVITE:#:{
  207.   $iif($son(inv),$iif(*web-* !iswm #,splay $mircdirsounds\snd-signal.mp3))
  208.   if ($is_hq(#)) { j # }
  209.   elseif ($is_chanoff(#) && $readdb(options,joinoninvite).On && $is_botoff($nick) && $istok(%MesChannels,#,44)) {
  210.     if ((# == #nanas) && ($+(*,$chr(91),$readlang(fr,away-m),$chr(93),*) iswm $me || $+(*,$chr(91),$readlang(fr,busy-m),$chr(93),*) iswm $me)) {
  211.       echo $color(info2) -ta * $msgt(nanas)
  212.     }
  213.     else { j # }
  214.   }
  215. }
  216. ;### Notice - Gestion des notices reçues
  217. on ^*:NOTICE:*:*:{
  218.   haltdef
  219.   if ($nick === MemoServ) && (*vous*avez*nouveau*mémo* iswm $1- ) { .timer 1 3 echo 4 -t %staff-chan * $1- (/ms read last pour le lire) }
  220.   elseif (($nick === ChanServ) && (*Permission*refus* iswm $1- || *Acc*refus* iswm $1-)) { echo -at  $+ $color(info2) * $msgt(identify-error) | haltdef }
  221.   elseif ($nick === NickServ) && (*Vous*êtes*déjà*identifi* iswm $1- || *You*are*already*identified* iswm $1-) { haltdef }
  222.   elseif (($nick === Air) && (REPLY VERSION ONLINE === $1-3)) { noop $tip(tips,Check Skyrock Script,$iif(%version != $4,4/!\ $msgt(script-badversion) -> (v $+ $4 $+ ),3 $+ $msgt(script-goodversion) (v $+ $4 $+ )),15,icones\skyetoile.ico,,,) | .set %versiononline $4 }
  223.   elseif (($nick === Air) && (REPLY OFFICIAL CHANNELS === $1-3)) { .set %ChannelsFR $4 | .set %ChannelsOff $4 $+ , $+ %ChannelsEN }
  224.   elseif ($is_botoff($1)) && (*invited*into the channel. iswm $1-) { haltdef }
  225.   elseif (($1 === tips) && ($nick isop %staff-chan) && ($is_botoff($nick))) { noop $tip(tips,$nick,$3-,$2,icones\skyetoile.ico,,,) | haltdef }
  226.   else {
  227.     echo -at $iif(#,$+(4-,$nick,:,#,-),$+(4-,$nick,-)) $+(,$color(notice),$1-)
  228.     $iif($son(not) && !$is_service($nick),splay $mircdirsounds\snd-notice.mp3)
  229.     if ($readdb(window,notice).On) {
  230.       $iif(!$window(@Notices),window -nemk0 @Notices)
  231.       echo -t @Notices $iif(#,$+(-,4,$nick,,:,12,#,,-),$+(-,4,$nick,,-)) $+  $+ $color(notice) $1-
  232.     }
  233.   }
  234. }
  235. ;### Cacher messages Join/Part/Quit
  236. #hidemsg-j off
  237. on ^*:JOIN:%ChannelsOff:haltdef
  238. #hidemsg-j end
  239. #hidemsg-p off
  240. on ^*:PART:%ChannelsOff:haltdef
  241. #hidemsg-p end
  242. on ^*:QUIT:{
  243.   if ($readdb(options,hidemsg-q).On) {
  244.     if ($ison_hq($nick)) { echo $color(quit) -t %staff-chan * Quits: $nick ( $+ $token($fulladdress,2,33) $+ ) ( $+ $1- $+ ) | haltdef }
  245.     else { haltdef }
  246.   }
  247.   ;##--Window akill/kill--##
  248.   if (((*user*has*been*banned*from*skyrock* iswm $1-) || (*z:lined* iswm $1-)) && (*Merci de te réidentifier au site !* !iswm $1- && *http://www.skyrock.com* !iswm $1- && *Une erreur est survenue* !iswm $1-)) {
  249.     if ($readdb(window,kill-akill).On) {
  250.       $iif(!$window(@Kills/Akills),window -nemk0 @Kills/Akills)
  251.       echo $color(info2) -t @Kills/Akills 4[AKill]  $+ $cnick($nick).color $+ $nick $+  14( $+ $token($fulladdress,2,33) $+ ) ( $+ $1- $+ )
  252.     }
  253.   }
  254.   elseif (*kill*(*)* iswm $1-) && (*nouvelle*session*tect* !iswm $1-) && (*merci*de*te*identifier* !iswm $1-) && (*RECOVER*command*used*by* !iswm $1-) && (*RECOVER*commande*utilis*par* !iswm $1-) && (*Pseudo*utilis*Nickname*already*in*use* !iswm $1-) {
  255.     if ($readdb(window,kill-akill).On) {
  256.       $iif(!$window(@Kills/Akills),window -nemk0 @Kills/Akills)
  257.       echo $color(info2) -t @Kills/Akills 5[Kill]  $+ $cnick($nick).color $+ $nick $+  14( $+ $token($fulladdress,2,33) $+ ) ( $+ $1- $+ )
  258.     }
  259.   }
  260.   ;##--Echo Pv Quit--##
  261.   if ($query(0) != 0) {
  262.     var %cpt = 1
  263.     while (%cpt <= $query(0)) {
  264.       if ($nick == $query(%cpt)) { echo $color(info2) -et $nick  $+ $msgt(user-quit,$cnick($nick).color $+ $nick $+ 05) ( $+ $1- $+ ) | break }
  265.       inc %cpt
  266.     }
  267.   }
  268. }
  269. ;### Filtrer l'affichage des joins/parts selon réglages (Hide)
  270. on ^*:JOIN:%ChannelsOff:if ($group(#hidemsg-j) == off && $nick(#,0,r) > %HideJoins) { haltdef }
  271. on ^*:PART:%ChannelsOff:if ($group(#hidemsg-p) == off && $nick(#,0,r) > %HideParts) { haltdef }
  272. on ^*:JOIN:%staff-chan:if ($nick == $me) { get_team | $iif($readdb(options,autojoinirc).On,j #irc) }
  273. ;### Partir automatiquement des salons où c'est nécessaire quand on se met absent
  274. on *:NICK:{
  275.   if ($nick == $me) {
  276.     if ($readdb(options,sexe).m && $regex($newnick,(absent|occupe|away|busy)) == 1) {
  277.       if ($newnick ison #nanas) { part #nanas }
  278.     }
  279.     elseif ($readdb(options,sexe).f && $regex($newnick,(absente|occupee|away|busy)) == 1) {
  280.       if ($newnick ison #mecs) { part #mecs }
  281.     }
  282.   }
  283. }
  284. ;###EndScript
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!