DinoLang - examples
https://dinolang.ru/
2026-05-14T10:56:33+00:00DinoLang
https://dinolang.ru/
https://dinolang.ru/_media/wiki:dokuwiki.svgtext/html2021-01-28T00:49:52+00:00Anonymous (anonymous@undisclosed.example.com)99bottles
https://dinolang.ru/examples:99bottles?rev=1611794992&do=diff
Пример: 99bottles
Печатает знаменитую песенку "99 бутылок" на английском
use, "strings"
bottles = 99
if bottles == 0
print, "No more bottles of beer on the wall, no more bottles of beer."
print, "Go to the store and buy some more, 99 bottles of beer on the wall..."
exit, 0
else
strings:itoa, bottles
append, returned, " bottles of beer on the wall"
print, returned
strings:itoa, bottles
append, returned, " bottles of beer!"
print, returned
print, "Take one down, pass it around"
bot…text/html2021-07-26T03:50:34+00:00Anonymous (anonymous@undisclosed.example.com)args
https://dinolang.ru/examples:args?rev=1627271434&do=diff
Пример: Продвинутые аргументы
Считает возраст человека, используя метод strings:split для разделения аргументов командной строки.
use, "strings"
if arg == "nil"
print, "Missed params: date of birth and current year"
exit, 1
end
strings:split, arg, " ", args
if returned < 2
print, "Missed params: date of birth and current year"
exit, 1
end
strings:atoi, args[0]
birth = returned
strings:atoi, args[1]
current = returned
strings:itoa, current-birth
append, "Age: ", returned
print, returned…text/html2021-11-26T04:55:00+00:00Anonymous (anonymous@undisclosed.example.com)calc
https://dinolang.ru/examples:calc?rev=1637902500&do=diff
Пример: calc
Простейший калькулятор
if arg == "nil"
print, "Usage: [first_num] [+|-|*|/] [second_number]"
exit, 1
end
use, "strings"
strings:split, arg, " ", args
if returned < 3
print, "Missed params!"
exit, 2
end
strings:atoi, args[0]
x = returned
strings:atoi, args[2]
y = returned
op = args[1]
res = 0
if op == "+"
res = x+y
elif op == "-"
res = x-y
elif op == "*"
res = x*y
elif op == "/"
res = x/y
end
strings:itoa, res
append, "Result: ", returned
print, returned…text/html2021-08-01T12:21:06+00:00Anonymous (anonymous@undisclosed.example.com)emeraldplayer
https://dinolang.ru/examples:emeraldplayer?rev=1627820466&do=diff
Пример: EmeraldPlayer
Небольшой аудио проигрователь, использующий библиотеку bass.
Внимание! Для этого скрипта необходима сборка DinoLang со встроенным классомtext/html2021-01-28T00:46:35+00:00Anonymous (anonymous@undisclosed.example.com)fs_test
https://dinolang.ru/examples:fs_test?rev=1611794795&do=diff
Пример: fs_test
Проверяет функции класса fs
Исходный код
use, "fs"
printc, "Checking fs:makedir... "
fs:makedir, "test.d"
sleep, 500
if returned == 1
print, "OK"
end
printc, "Checking fs:move... "
fs:move, "test.d", "test2.d"
sleep, 500
if returned == 1
print, "OK"
end
printc, "Checking fs:remove... "
fs:remove, "test2.d"
sleep, 500
if returned == 1
print, "OK"
end
printc, "Checking fs:create... "
fs:create, "test.tmp"
sleep, 500
if returned != -1
print, "OK"
file = returned
end
pr…text/html2024-01-31T22:04:40+00:00Anonymous (anonymous@undisclosed.example.com)ircbot
https://dinolang.ru/examples:ircbot?rev=1706738680&do=diff
Пример: Простейший IRC-bot
Умеет отвечать на команду !test сообщение "Hello, World!"
use, "socket"
use, "strings"
server = "irc.libera.chat:6667"
username = "EstintaxBot"
channel = "#mapicom"
socket:connect, server
sock = returned
append, "USER ", username
append, returned, " * * :"
append, returned, username
append, returned, "\n"
socket:write, sock, returned
append, "NICK ", username
append, returned, "\n"
socket:write, sock, returned
append, "JOIN ", channel
append, returned, "\n"
socket:…text/html2024-01-25T21:45:29+00:00Anonymous (anonymous@undisclosed.example.com)notepadppsyntax
https://dinolang.ru/examples:notepadppsyntax?rev=1706219129&do=diff
Синтаксис для Notepad++
<NotepadPlus>
<UserLang name="DinoLang" ext="dino" udlVersion="2.1">
<Settings>
<Global caseIgnored="no" allowFoldOfComments="no" foldCompact="no" forcePureLC="0" decimalSeparator="0" />
<Prefix Keywords1="no" Keywords2="no" Keywords3="no" Keywords4="no" Keywords5="no" Keywords6="no" Keywords7="no" Keywords8="no" />
</Settings>
<KeywordLists>
<Keywords name="Comments">00# 01 02\n 03 04</Keywords>
…text/html2022-07-29T00:18:24+00:00Anonymous (anonymous@undisclosed.example.com)sockettest
https://dinolang.ru/examples:sockettest?rev=1659053904&do=diff
Пример: sockettest
Скрипт для примера работы класса socket
Примечание: из-за работы в другом текстовом редакторе, здесь отсутствуют отступы в блоках if-else