AUTOJOIN HTABLE MULTISERVER

[chain]

AUTOJOIN HTABLE MULTISERVER

 

Petit autojoin en htable multiserver.

 

Le server, le salon et la clef ce mettent automatiquement selon là ou est démarrer le dialog.

 

-Utilisation de htable

-Utilisation de Gettok, reptok, wildtok, remtok

 

>1.menu channel {2.  Auto-Join:dialog -m autoj autoj3.}4.on *:disconnect:{5.  .hsave -o autoj autojoin.dou6.}7.on *:start:{8.  hmake autoj 10009.  hload autoj autojoin.dou10.}11.ON 1:LOAD:{ hmake autoj 1000 } 12.on *:exit:{13.  hsave -o autoj autojoin.dou14.}15.on *:connect: { 16.  autojoin17.}18.dialog autoj {19.  title "Auto-Join Salon"20.  size -1 -1 184 18521.  option dbu22.  list 1, 64 12 61 113, size vsbar23.  list 2, 6 12 58 113, size vsbar24.  list 3, 124 12 58 113, size vsbar25.  edit "", 4, 64 128 50 10, autohs center26.  edit "", 5, 6 128 50 10, autohs27.  edit "", 6, 124 128 50 10, autohs28.  button "Ajouter", 7, 13 147 37 1229.  button "Supprimer", 8, 131 147 37 1230.  button "Fermer", 9, 72 166 37 1231.  button "Modifier", 13, 74 147 37 1232.  text "Salon", 10, 79 2 25 8, center33.  text "Server", 11, 17 3 25 8, center34.  text "Clef", 12, 139 2 25 8, center35.}36.37.on *:dialog:autoj:*:*:{38.  if $devent == init {39.    var %i = 140.    var %w = $gettok($hget(autoj,aj),0,47)41.    while %i  0 {92.    var %autojoin $gettok($gettok($hget(autoj,aj),%i,47),2,126)93.    if $server == %autojoin {94.      join $gettok($gettok($hget(autoj,aj),%i,47),1,126) $gettok($gettok($hget(autoj,aj),%i,47),3,126)95.    }96.    dec %i97.  }98.}