alias level_check { mode # +m | msg # Krer update af lvls! var %i $ini(xcayn-deltagere.ini,0) while (%i) { set %xp34 $readini(xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),xp) set %lvl34 $readini(xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),Lvl) if (%xp34 >= 1000) && (%xp34 !< 7999) && (%lvl34 !< 2) { writeini xcayn-deltagere.ini $ini(Xcayn-deltagere.ini,%i) lvl 2 | msg # Nick: $readini(Xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),Brugernavn) Adresse: $ini(xcayn-deltagere.ini,%i) Lvl: 2 - Gratz! | writeini xcayn-deltagere.ini $ini(xcayn-deltagere.ini,%i) Xp $calc(%xp34 - 1000) } elseif (%xp34 >= 4000) && (%xp34 !< 11999) && (%lvl34 !< 3) { writeini xcayn-deltagere.ini $ini(Xcayn-deltagere.ini,%i) lvl 3 | msg # Nick: $readini(Xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),Brugernavn) Adresse: $ini(xcayn-deltagere.ini,%i) Lvl: 3 - Gratz! | writeini xcayn-deltagere.ini $ini(xcayn-deltagere.ini,%i) Xp $calc(%xp34 - 4000) } elseif (%xp34 >= 12000) && (%xp34 !< 19999) && (%lvl34 !< 4) { writeini xcayn-deltagere.ini $ini(Xcayn-deltagere.ini,%i) lvl 4 | msg # Nick: $readini(Xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),Brugernavn) Adresse: $ini(xcayn-deltagere.ini,%i) Lvl: 4 - Gratz! | writeini xcayn-deltagere.ini $ini(xcayn-deltagere.ini,%i) Xp $calc(%xp34 - 12000) } elseif (%xp34 >= 20000) && (%xp34 !< 29999) && (%lvl34 !< 5) { writeini xcayn-deltagere.ini $ini(Xcayn-deltagere.ini,%i) lvl 5 | msg # Nick: $readini(Xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),Brugernavn) Adresse: $ini(xcayn-deltagere.ini,%i) Lvl: 5 - Gratz! | writeini xcayn-deltagere.ini $ini(xcayn-deltagere.ini,%i) Xp $calc(%xp34 - 20000) } elseif (%xp34 >= 30000) && (%xp34 !< 49999) && (%lvl34 !< 6) { writeini xcayn-deltagere.ini $ini(Xcayn-deltagere.ini,%i) lvl 6 | msg # Nick: $readini(Xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),Brugernavn) Adresse: $ini(xcayn-deltagere.ini,%i) Lvl: 6 - Gratz! | writeini xcayn-deltagere.ini $ini(xcayn-deltagere.ini,%i) Xp $calc(%xp34 - 30000) } elseif (%xp34 >= 50000) { writeini xcayn-deltagere.ini $ini(Xcayn-deltagere.ini,%i) lvl 7 | msg # Nick: $readini(Xcayn-deltagere.ini,$ini(xcayn-deltagere.ini,%i),Brugernavn) Adresse: $ini(xcayn-deltagere.ini,%i) Lvl: 7 - Gratz! | writeini xcayn-deltagere.ini $ini(xcayn-deltagere.ini,%i) Xp $calc(%xp34 - 50000) } dec %i } msg # Krte update af lvls! | mode # -m } on *:text:!timere:?: { if ($nick isop %chan) { /timer1 00:01 0 1 /set %idag 0 /timer2 00:02 0 1 /remini xcayn-idag.ini /timer3 0 1800 /level_check msg %chan Timere aktiveret! } } on *:text:!tilmeld*:?: { if (!$2) { msg $nick :: Du skal udfylde brugernavn, dvs !tilmeld :: } elseif ($readini(xcayn-deltagere.ini,$adress($nick,1),Addresse) != $address($nick,1)) && ($2) && ($3) { writeini xcayn-deltagere.ini $address($nick,1) brugernavn $2 writeini xcayn-deltagere.ini $address($nick,1) Addresse $address($nick,1) writeini xcayn-deltagere.ini $address($nick,1) Styrke 5 writeini xcayn-deltagere.ini $address($nick,1) liv 100 writeini xcayn-deltagere.ini $address($nick,1) penge 200 writeini xcayn-deltagere.ini $address($nick,1) status inde writeini xcayn-deltagere.ini $address($nick,1) password $3 writeini xcayn-deltagere.ini $address($nick,1) Xp 0 writeini xcayn-deltagere.ini $address($nick,1) Lvl 1 writeini xcayn-deltagere.ini $address($nick,1) Vben Intet! writeini xcayn-deltagere.ini $address($nick,1) Plate Ingen! msg $nick ( $+ $address($nick,1) $+ ) er nu tilmeld til xcayn, og er klar til kamp! :: mode %chan +v $nick } } on *:text:!login*:?: { if ($readini(xcayn-deltagere.ini,$address($nick,1),password) == $3) && ($nick !isvoice %chan) { writeini xcayn-deltagere.ini $address($nick,1) status inde msg $nick Du er nu logget ind som $2 msg %chan $2 er nu logget ind! Gr klar til kamp! mode %chan +v $nick } elseif ($readini(xcayn-deltagere.ini,*!*gudik@Gudiik.users.quakenet.org,Brugernavn) != $2) { msg $nick Brugernavnet blev ikke fundet! Opret ved at bruge !tilmeld } elseif ($nick isvoice %chan) { msg $nick Du er allerede logget ind! } } on *:text:!logud:?: { if ($nick isvoice %chan) { msg $nick du er nu logged ud! msg %chan $nick er nu logget ud. writeini xcayn-deltagere.ini $address($nick,1) status ude mode %chan -v $nick } elseif ($nick !isvoice %chan) { msg $nick du er ikke logged ind! brug !login } } on *:text:!trne*:#: { if ($nick isreg %chan) { msg $nick Du er ikke logged ind! } elseif ($nick !isreg %chan) && ($2 == liv) && (%timer2 == 0) { set %timer2 10 timer 1 10 set %timer2 0 set %penge $readini(xcayn-deltagere.ini,$address($nick,1),Penge) if (%penge <= 100) { msg $nick Du har ikke penge nok ! } if (100 <= %penge) { set %nupenge $calc(%penge - 100) writeini xcayn-deltagere.ini $address($nick,1) penge %nupenge set %liv $readini(xcayn-deltagere.ini,$address($nick,1),Liv) set %nuliv $calc(%liv + 10) writeini xcayn-deltagere.ini $address($nick,1) liv %nuliv msg $nick Du har nu trnet i liv, Du har nu %nuliv i liv, og har %nupenge kr tilbage - Der vil g 10 sekunder fr du kan trne igen! } } elseif ($nick !isreg %chan) && ($2 == styrke) && (%timer2 == 0) { set %timer2 10 timer 1 10 set %timer2 0 set %penge $readini(xcayn-deltagere.ini,$address($nick,1),Penge) if (%penge <= 50) { msg $nick Du har ikke penge nok ! } if (50 <= %penge) { set %nupenge $calc(%penge - 50) writeini xcayn-deltagere.ini $address($nick,1) penge %nupenge set %styrke $readini(xcayn-deltagere.ini,$address($nick,1),Styrke) set %nustyrke $calc(%styrke + $r(1,10)) writeini xcayn-deltagere.ini $address($nick,1) Styrke %nustyrke msg $nick Du har nu trnet i styrke, Du har nu %nustyrke i styrke, og har %nupenge kr tilbage - Der vil g 10 sekunder fr du kan trne igen! } } } on *:text:!status:%chan: { if ($nick isreg %chan) { msg $nick Du er ikke logged ind! } elseif ($nick !isreg %chan) && (%timer3 == 0) { set %timer3 10 timer 1 10 set %timer3 0 timer 1 1 mode %chan +m timer 1 1 msg %chan Status for $nick  timer 1 2 msg %chan Brugernavn: $readini(xcayn-deltagere.ini,$address($nick,1),Brugernavn) timer 1 3 msg %chan Styrke: $readini(xcayn-deltagere.ini,$address($nick,1),Styrke) timer 1 4 msg %chan Health: $readini(xcayn-deltagere.ini,$address($nick,1),Liv) timer 1 5 msg %chan Saldo: $readini(xcayn-deltagere.ini,$address($nick,1),Penge) timer 1 6 msg %chan Vundet Kampe: $readini(xcayn-deltagere.ini,$address($nick,1),Vundet) timer 1 7 msg %chan Tabte Kampe: $readini(xcayn-deltagere.ini,$address($nick,1),Tabte) timer 1 8 msg %chan Xp: $readini(xcayn-deltagere.ini,$address($nick,1),Xp) timer 1 9 msg %chan Lvl: $readini(xcayn-deltagere.ini,$address($nick,1),Lvl) timer 1 10 msg %chan Vben: $readini(xcayn-deltagere.ini,$address($nick,1),Vben) timer 1 10 msg %chan Plate: $readini(xcayn-deltagere.ini,$address($nick,1),Plate) timer 1 11 mode %chan -m } } on *:text:!fight *:%chan: { set %idagspillet $ini(xcayn-idag.ini,$nick,0) if (%idagspillet == $null) { set %idagspillet 1 } if ($nick !isreg %chan) && ($2 !isreg %chan) && ($2 !== $nick) && (%timer1 == 0) && ($2 !== bot) && (%idagspillet < 10) { set %timer1 15 set %idag $calc(%idag + 1) set %ialt $calc(%ialt + 1) Set %modstanderliv $readini(xcayn-deltagere.ini,$address($2,1),Liv) Set %modstanderstyrke $readini(xcayn-deltagere.ini,$address($2,1),Styrke) Set %modlvl $readini(xcayn-deltagere.ini,$address($2,1),Lvl) Set %mitliv $readini(xcayn-deltagere.ini,$address($nick,1),Liv) Set %mitstyrke $readini(xcayn-deltagere.ini,$address($nick,1),Styrke) set %res1 $calc(%modstanderliv / %mitstyrke) set %res2 $calc(%mitliv / %modstanderstyrke) writeini xcayn-idag.ini $nick $time $date timer 1 15 set %timer1 0 if (%res1 < %res2) { set %fightpenge $readini(xcayn-deltagere.ini,$address($nick,1),Penge) set %fightvundet $readini(xcayn-deltagere.ini,$address($nick,1),Vundet) set %fighttabte $readini(xcayn-deltagere.ini,$address($2,1),Tabte) set %fightxp $readini(xcayn-deltagere.ini,$address($nick,1),Xp) set %rp $r(1,150) set %poi $calc(%rp * %modlvl) set %rp2 $r(1,100) set %xpi $calc(%rp2 * %modlvl) writeini xcayn-deltagere.ini $address($nick,1) Penge $calc(%fightpenge + %poi) writeini xcayn-deltagere.ini $address($nick,1) Vundet $calc(%fightvundet + 1) writeini xcayn-deltagere.ini $address($2,1) Tabte $calc(%fighttabte + 1) writeini xcayn-deltagere.ini $address($nick,1) Xp $calc(%fightxp + %xpi) msg # $nick har vundet! Det tog ham $round(%res1,0) slag at drbe $2 Og har vundet %poi $+ Points & %xpi $+ Xp - Der vil g 15 sekunder fr nsten kamp kan spilles set %brugernavnmig $readini(xcayn-deltagere.ini,$address($nick,1),Brugernavn) writeini xcayn-deltagere2.ini %brugernavnmig %id $nick inc %id 1 } if (%res2 < %res1) { set %fightpenge2 $readini(xcayn-deltagere.ini,$address($2,1),Penge) set %fightvundet2 $readini(xcayn-deltagere.ini,$address($2,1),Vundet) set %fighttabte2 $readini(xcayn-deltagere.ini,$address($nick,1),Tabte) set %fightxp2 $readini(xcayn-deltagere.ini,$address($2,1),Xp) set %rp $r(1,150) set %poi $calc(%rp * %modlvl) set %rp2 $r(1,100) set %xpi $calc(%rp2 * %modlvl) writeini xcayn-deltagere.ini $address($2,1) Penge $calc(%fightpenge + %poi) writeini xcayn-deltagere.ini $address($2,1) Vundet $calc(%fightvundet2 + 1) writeini xcayn-deltagere.ini $address($nick,1) Tabte $calc(%fighttabte2 + 1) writeini xcayn-deltagere.ini $address($2,1) Xp $calc(%fightxp + %xpi) msg # $2 har vundet! Det tog ham $round(%res2,0) slag at drbe $nick Og har vundet %poi $+ Points & %xpi $+ Xp - Der vil g 15 sekunder fr nsten kamp kan spilles set %brugernavnham $readini(xcayn-deltagere.ini,$address($2,1),Brugernavn) writeini xcayn-deltagere2.ini %brugernavnham %id $2 inc %id 1 } } elseif ($nick !isreg %chan) && ($2 == bot) && (%timer1 == 0) && (%idagspillet < 10) { set %timer1 15 set %idag $calc(%idag + 1) set %ialt $calc(%ialt + 1) set %bottenliv $readini(xcayn-deltagere.ini,bot,Liv) set %bottenstyrke $readini(xcayn-deltagere.ini,bot,Styrke) set %mitliv $readini(xcayn-deltagere.ini,$address($nick,1),Liv) set %modlvl $readini(xcayn-deltagere.ini,bot,Lvl) set %mitstyrke $readini(xcayn-deltagere.ini,$address($nick,1),Styrke) set %res1 $calc(%bottenliv / %mitstyrke) set %res2 $calc(%mitliv / %bottenstyrke) writeini xcayn-idag.ini $nick $time $date timer 1 15 set %timer1 0 if (%res1 < %res2) { set %fightpenge $readini(xcayn-deltagere.ini,$address($nick,1),Penge) set %fightvundet $readini(xcayn-deltagere.ini,$address($nick,1),Vundet) set %fighttabte2 $readini(xcayn-deltagere.ini,bot,Tabte) set %fightxp3 $readini(xcayn-deltagere.ini,$address($nick,1),Xp) set %rp $r(1,150) set %poi $calc(%rp * %modlvl) set %rp2 $r(1,100) set %xpi $calc(%rp2 * %modlvl) writeini xcayn-deltagere.ini $address($nick,1) Penge $calc(%fightpenge + %poi) writeini xcayn-deltagere.ini $address($nick,1) Vundet $calc(%fightvundet + 1) writeini xcayn-deltagere.ini $address($nick,1) Xp $calc(%fightxp + %xpi) writeini xcayn-deltagere.ini bot Tabte $calc(%fighttabte2 + 1) set %brugernavnmig $readini(xcayn-deltagere.ini,$address($nick,1),Brugernavn) writeini xcayn-deltagere2.ini %brugernavnmig %id $nick inc %id 1 msg # $nick har vundet! Det tog ham $round(%res1,0) slag at drbe $2 Og har vundet %poi $+ Points & %xpi $+ Xp - Der vil g 15 sekunder fr nsten kamp kan spilles } if (%res2 < %res1) { set %fightpenge $readini(xcayn-deltagere.ini,bot,Penge) set %fightvundet $readini(xcayn-deltagere.ini,bot,Vundet) set %fighttabte3 $readini(xcayn-deltagere.ini,$address($nick,1),Tabte) set %fightxp3 $readini(xcayn-deltagere.ini,bot,Xp) writeini xcayn-deltagere.ini bot Penge $calc(%fightpenge + %poi) writeini xcayn-deltagere.ini bot Vundet $calc(%fightvundet2 + 1) writeini xcayn-deltagere.ini $address($nick,1) Tabte $calc(%fighttabte2 + 1) writeini xcayn-deltagere.ini bot Xp $calc(%fightxp + %xpi) msg # $2 har vundet! Det tog ham $round(%res2,0) slag at drbe $nick Og har vundet 40 Points & 100Xp - Der vil g 15 sekunder fr nsten kamp kan spilles set %brugernavnham $readini(xcayn-deltagere.ini,bot,Brugernavn) writeini xcayn-deltagere2.ini %brugernavnham %id $2 } } elseif ($2 !ison %chan) && ($2 !== bot) { msg # $2 er ikke p channel! - Vlg venligst en som er online! } elseif (%idagspillet = 10) && ($2 ison %chan) { msg # $nick Du har spillet 10 gange idag, og kan derfor ikke spille mere idag! } } on *:TEXT:!top &:#: { var %i = 1 while (%i <= $ini(xcayn-deltagere2.ini,0)) { var %numbers = %numbers $ini(xcayn-deltagere2.ini,%i,0) inc %i } var %numbers = $sorttok(%numbers,32,nr) var %i = 1 while (%i <= $2) { var %k = 1 while (%k <= $ini(xcayn-deltagere2.ini,0)) { if ($ini(xcayn-deltagere2.ini,%k,0) == $gettok(%numbers,%i,32)) && (!$istok(%taken,$ini(xcayn-deltagere2.ini,%k),32)) { var %next = $ini(xcayn-deltagere2.ini,%k) | var %nextantal = $ini(xcayn-deltagere2.ini,%k,0) } inc %k } if ($istok(%taken,%next,32)) { var %next = None | var %nextantal = 0 } var %output = %output $iif(%i != 1, :: ,) $+(%i,:) %next ( $+ %nextantal $+ ) var %taken = %taken %next inc %i } /msg # :: Top $+ $2: :: %output :: } on *:TEXT:!regler:#: { notice $nick Kom godt igang: notice $nick Du tilmelder dig ved at skrive priv til botten - !tilmeld notice $nick For at login/ud skal du bruge !login / !logud (der kan kun logges ind med den samme ip. notice $nick brug !fight $nick / bot for at kmpe. notice $nick Regler for Xcayn: notice $nick Du kan hjest kmpe 10 gange om dagen. notice $nick Snak ordenligt til de andre spillere. notice $nick Undg venligst at spamme botten. notice $nick Lvl bliver updateret klokken 00:01 } on *:text:!shop:#: { timer 1 1 mode # +m timer 1 2 msg # Navn: Long sword Krav: LVL3 - 9k (Giver: 150+ i skade) Antal kbte: $ini(xcayn-weps.ini,longsword,0) (brug !longsword) (Tilbage: %longswordback $+ ) timer 1 3 msg # Navn: Vest Krav: LVL3 - 14k (Giver: 100+ i liv) Antal kbte: $ini(xcayn-weps.ini,fullplate,0) (brug !vest) (Tilbage: %vestback $+ ) timer 1 4 msg # Navn: Legs Krav: LVL4 - 15k (Giver: 150+ i liv) Antal kbte: $ini(xcayn-weps.ini,legs,0) (brug !vest) (Tilbage: %legsback $+ ) timer 1 5 msg # Navn: Mace Krav: LVL4 - 11k (Giver: 110+ i skade) Antal kbte: $ini(xcayn-weps.ini,mace,0) (brug !vest) (Tilbage: %maceback $+ ) timer 1 6 mode # -m } on *:text:!longsword:#: { set %lvl $readini(xcayn-deltagere.ini,$address($nick,1),Lvl) if (3 <= %lvl) && (%longswordback !== 0) { set %longswordback $calc(%longswordback - 1) set %Styrke $readini(xcayn-deltagere.ini,$address($nick,1),Styrke) set %nystyrke $calc(%styrke + 150) writeini xcayn-weps.ini longsword $nick 1 writeini xcayn-deltagere.ini $address($nick,1) Styrke %nystyrke Writeini xcayn-deltagere.ini $address($nick,1) Vben Long Sword (# $+ %id2 $+ ) inc %id2 msg $nick Du har nu kbt dit vben! } } on *:text:!vest:#: { set %lvl $readini(xcayn-deltagere.ini,$address($nick,1),Lvl) if (3 <= %lvl) && (%vestback !== 0) { set %vestback $calc(%vestback - 1) set %liv $readini(xcayn-deltagere.ini,$address($nick,1),Liv) set %nyliv $calc(%liv + 100) writeini xcayn-weps.ini fullplate $nick 1 writeini xcayn-deltagere.ini $address($nick,1) Liv %nyliv Writeini xcayn-deltagere.ini $address($nick,1) Plate Vest (# $+ %id2 ) inc %id2 msg $nick Du har nu kbt dit amor! } } on *:text:!legs:#: { set %lvl $readini(xcayn-deltagere.ini,$address($nick,1),Lvl) if (4 <= %lvl) && (%legsback !== 0) { set %legsback $calc(%legsback - 1) set %liv $readini(xcayn-deltagere.ini,$address($nick,1),Liv) set %nyliv $calc(%liv + 150) writeini xcayn-weps.ini legs $nick 1 writeini xcayn-deltagere.ini $address($nick,1) Liv %nyliv Writeini xcayn-deltagere.ini $address($nick,1) Plate legs (# $+ %id2 ) inc %id2 msg $nick Du har nu kbt dit amor! } } on *:text:!mace:#: { set %lvl $readini(xcayn-deltagere.ini,$address($nick,1),Lvl) if (4 <= %lvl) && (%maceback !== 0) { set %maceback $calc(%maceback - 1) set %Styrke $readini(xcayn-deltagere.ini,$address($nick,1),Styrke) set %nystyrke $calc(%styrke + 110) writeini xcayn-weps.ini mace $nick 1 writeini xcayn-deltagere.ini $address($nick,1) Styrke %nystyrke Writeini xcayn-deltagere.ini $address($nick,1) Vben Mace (# $+ %id2 $+ ) inc %id2 msg $nick Du har nu kbt dit vben! } } on *:text:!fyldbutik:?: { if ($nick isop %chan) { set %longswordback $calc(%longswordback + 10) set %vestback $calc(%vestback + 10) set %legsback $calc(%legsback + 10) set %maceback $calc(%maceback + 10) notice $nick Butikken er nu fyldt op igen! msg %chan $nick Har fyldt varer i butikken igang, go shopping! } } on *:text:!checkstats *:#: { if ($nick isop #) { timer 1 1 mode %chan +m timer 1 1 msg %chan Status for $2  timer 1 2 msg %chan Brugernavn: $readini(xcayn-deltagere.ini,$address($2,1),Brugernavn) timer 1 3 msg %chan Styrke: $readini(xcayn-deltagere.ini,$address($2,1),Styrke) timer 1 4 msg %chan Health: $readini(xcayn-deltagere.ini,$address($2,1),Liv) timer 1 5 msg %chan Saldo: $readini(xcayn-deltagere.ini,$address($2,1),Penge) timer 1 6 msg %chan Vundet Kampe: $readini(xcayn-deltagere.ini,$address($2,1),Vundet) timer 1 7 msg %chan Tabte Kampe: $readini(xcayn-deltagere.ini,$address($2,1),Tabte) timer 1 8 msg %chan Xp: $readini(xcayn-deltagere.ini,$address($2,1),Xp) timer 1 9 msg %chan Lvl: $readini(xcayn-deltagere.ini,$address($2,1),Lvl) timer 1 10 msg %chan Vben: $readini(xcayn-deltagere.ini,$address($2,1),Vben) timer 1 11 mode %chan -m } } on *:text:!stats:#: { set %idagl $ini(xcayn-idag.ini,0) set %idag $calc($lines(xcayn-idag.ini) - %idagl) msg # :: Spillet ialt: %ialt :: Spillet idag: %idag :: } `I%&/m{JJt`$ؐ@iG#)*eVe]f@흼{{;N'?\fdlJɞ!?~|?"Ey')=y6hz<=~|W>Z5uA:f/>y(Gd^ϲe!zѲY)5GA8VeU?/I=YdEnգt/q IUn ۻ/NoN| &} 0euU?_OYT˦*s30_/ ۼV@ʄJTHY>-tY-e^7Uŋ:[`+'UVG]ݻUeFv{^/gy]{#.usuS]Uq?' 賏Ed Bw^5[*-w?NW2:*fݝ=,|+h~%{.0;J]-Elq]d(vN(<_z:[6ۯuգ_M^idiLb%3xfnLl5%v fmnh&obyDF@/ @6+&~5A-,+BU9wE5}5$waS(WWb'uuEChz\YKtN8ҌS#P1}S7H"Fʧy1!..ie7 +FIDY KR Ly^i]kROKE='i7dMA:Ĺº:|cy|%n i|!"QyAm,ZY n`fKHr(gcOq~wBY~U.