Spis Stron RPG Regulamin Wieści POMOC Kalendarz
Wróć   lastinn > RPG - ogólnie > Kufer skarbów
Zarejestruj się Użytkownicy

Kufer skarbów Tutaj możesz dodać jakiś plik lub znaleźć coś dla siebie


Odpowiedz
 
Narzędzia wątku Wygląd
Stary 06-08-2004, 01:38   #1
 
Fistus's Avatar
 
Reputacja: 138 Fistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znany
Skrypt Dice - generator rzutów kośćmi (IRC)

Pobierz plik [1.95kB]
Jest to prosty skrypt dla klienta IRCa (testowany tylko na mIRCu, być może da się go też załadować do jakiegoś bota), pozwalający generować rzuty kośćmi.
Instalacja: plik rozpakowujemy do katalogu, w którym jest zainstalowany mIRC (zazwyczaj c:\Progam Files\mIRC), uruchamiamy mIRCa, piszemy:
Kod:
/load -rs dice.ini
Aby wyłączyć skrypt piszemy:
Kod:
/uload -rs dice.ini
Przykładowe komendy:
1d6, 2d5+3, 17d8+17, 7d4-3, itd.
 
__________________
"A flame which never dies, but brightens with the passing of time."
Fistus jest offline   Odpowiedź z Cytowaniem
Stary 28-02-2006, 14:11   #2
TON
 
TON's Avatar
 
Reputacja: 0 TON ma wyłączoną reputację
Witam mozesz mi powiedziec gdzie ten plick sie znaiduje ??
 
TON jest offline   Odpowiedź z Cytowaniem
Stary 06-03-2006, 19:48   #3
 
Fistus's Avatar
 
Reputacja: 138 Fistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znanyFistus wkrótce będzie znany
Znajdował się na baaardzo starym serverze LI.
Kod:
[script]
n0=on 1:text:*d*:#: {
n1=  set %screen a b c e f g h i j k l m n o p q r s t u v w y z
n2=  set %x 1
n3=  :scan
n4=  if ($gettok(%screen,%x,32) isin $1-) { /halt }
n5=  inc %x 1
n6=  if ($gettok(%screen,%x,32) != $null) { goto scan }
n7=  :prestart
n8=  if (($count($1-,d) > 1) || ($count($1-,+) > 1) || ($count($1-,-) > 1) || ($count($1-,x) > 1)) { /msg $chan Too many parameters $nick $+ . | /halt }
n9=  if (d isin $1) { /set %raw $1 | /set %sets 1 }
n10=  else if (d isin $2)  { /set %raw $2 | /set %sets $1 }
n11=  if (%sets !isnum) { /msg $chan %sets is not a valid number $nick $+ . | /halt }
n12=  if (%sets > 12) { /msg $chan 12 sets of dice maximum per roll $nick $+ . | /halt }
n13=  set %checkset 0
n14=  %multiply = 1
n15=  %modifier = 0
n16=  :begin
n17=  inc %checkset 1
n18=  if %checkset > %sets goto final
n19=  %result = 0
n20=  :filter1
n21=  if (x isin %raw) { set %multiply $gettok(%raw,2,120) | set %raw $remtok(%raw,%multiply,120) }
n22=  if (+ isin %raw) { set %modifier $gettok(%raw,2,43) | set %raw $remtok(%raw,%modifier,43) }
n23=  else if (- isin %raw) { set %modifier $gettok(%raw,2,45) | set %raw $remtok(%raw,%modifier,45) | set %modifier - $+ %modifier }
n24=  if (%modifier !isnum) { /msg $chan %modifier is not a valid number $nick $+ . | /halt }
n25=  if (%multiply !isnum) { /msg $chan %multiply is not a valid number $nick $+ . | /halt }
n26=  if ($len(%modifier) > 6) { /msg $chan That modifier is too large $nick $+ . | /halt }
n27=  if (%multiply > 20) { /msg $chan That multiplier is too large $nick $+ . | /halt }
n28=  :filter2
n29=  if ($left(%raw,1) isnum) {
n30=    set %sides $gettok(%raw,2,100)
n31=    set %times $gettok(%raw,1,100)
n32=  }
n33=  else { %sides = $remove(%raw,d) | %times = 1 }
n34=  if (%sides !isnum) { /msg $chan %sides is not a valid number $nick $+ . | /halt }
n35=  if ($len(%sides) > 6) { /msg $chan There are too many sides on that die $nick $+ . | /halt }
n36=  if (%times !isnum) { /msg $chan %times is not a valid number $nick $+ . | /halt }
n37=  if (%times > 1000) { /msg $chan 1000 dice of any type maximum $nick $+ . | /halt }
n38=  set %checkresult 0
n39=  :rolldice
n40=  inc %checkresult 1
n41=  if %checkresult > %times goto process
n42=  else { %result = %result + $rand(1,%sides) | goto rolldice }
n43=  :process
n44=  if (%modifier != 0) { %result = %result + %modifier }
n45=  if (%multiply != 1) { %result = %result * %multiply }
n46=  set %total %total %result
n47=  goto begin
n48=  :final
n49=  /describe $chan throws the bones for $nick ( $+ $1- $+ ) and gets %total $+ .
n50=  /unset %total
n51=}
Zapisz to jako dice.ini i wsio.
 
__________________
"A flame which never dies, but brightens with the passing of time."
Fistus jest offline   Odpowiedź z Cytowaniem
Odpowiedz



Zasady Pisania Postów
Nie Możesz wysyłać nowe wątki
Nie Możesz wysyłać odpowiedzi
Nie Możesz wysyłać załączniki
Nie Możesz edytować swoje posty

vB code jest Wł.
UśmieszkiWł.
kod [IMG] jest Wł.
kod HTML jest Wył.
Trackbacks jest Wył.
PingbacksWł.
Refbacks are Wył.


Czasy w strefie GMT +2. Teraz jest 05:19.



Powered by: vBulletin Version 3.6.5
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.1.0
Pozycjonowanie stron | polecanki
Free online flash Mario Bros -Mario games site

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164