Discuss Scratch

ArtemScrathMaster
Scratcher
1 post

Собрание программистов

Всем привет! Эта тема создана для общения программистов пишущих на java, javascript, ruby, assembler, c, c++, c#,Python,QBasic,SmallBasic,vbs и т.д. Создатели Toksin и ArtemScrathMaster.
Toksin
Scratcher
21 posts

Собрание программистов

Меня можно было не указывать… Ладно, сейчас скину код текстовой игры, он точно работает

Мой девиз:
Если не нравится сделай ремикс,
А если не хочешь тогда помолчи!
всегда
ве::red
с::variables
е::control
л::operators
и::sensing
ть::motion
ся::looks
конец
Toksin
Scratcher
21 posts

Собрание программистов

Function fight(mob,moba,damage)
a = MsgBox (“Противник: ” & mob & Chr(13) & “Жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Примите бой?” & Chr(13) & “В движениях ” & moba & “ чувствуется скорость, убежать не получится.”,4+48, “Бой”)

If a = 6 Then

MsgBox “Вы решили избавить этот мир от ” & moba & “…”,0+64, “Бой”

Do Until hpBabayki <= 0

dam = Int((3 * Rnd)+lewel)

dam2 = Int((damage * Rnd)-lewel/3)
if dam2 < 0 then dam2 = 0
hp = hp - dam2

hpBabayki = hpBabayki - dam

MsgBox “Вы наносите урон ” & dam & Chr( 13) & “Теперь жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Вы получаете урон ” & dam2 & Chr(13) & “ Теперь жизней у вас: ”& hp ,0+64, “Бой”

Loop
newExperience = Int((damage * Rnd))+2
experience = experience + newExperience
MsgBox “Бой закончен, ” & moba & “ больше нет в живых…”,0+16, “Бой”


Else

MsgBox “Вы трусливо убежали от боя. Но вы медленны, поэтому вас догнали и навставляли люлей.”,0+16, “Бой”

hp=0

End If

End Function

Function fightCanRun(mob,moba,damage)
a = MsgBox (“Противник: ” & mob & Chr(13) & “Жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Примите бой?” & Chr(13) & “Он кажется медленным от него можно убежать.”,4+48, “Бой”)

If a = 6 Then

MsgBox “Вы решили избавить этот мир от ” & moba & “…”,0+64, “Бой”

Do Until hpBabayki <= 0

dam = Int((3 * Rnd)+lewel)

dam2 = Int((damage * Rnd)-lewel/3)
if dam2 < 0 then dam2 = 0
hp = hp - dam2

hpBabayki = hpBabayki - dam

MsgBox “Вы наносите урон ” & dam & Chr( 13) & “Теперь жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Вы получаете урон ” & dam2 & Chr(13) & “ Теперь жизней у вас: ”& hp ,0+64, “Бой”

Loop
newExperience = Int((damage * Rnd * 2))+3
experience = experience + newExperience
newGold = Int((10 * Rnd))+5
gold = gold + newGold
MsgBox “Бой закончен, ” & moba & “ больше нет в живых…”,0+32, “Бой”


Else

MsgBox “Вы трусливо убежали от боя. Тормозной противник был ослеплён сверканием ваших пяток и не стал вас догонять.”,0+16, “Бой”

End If

End Function
'Function search(lewel2)
'MsgBox “Вам подобран монстр.”,0, “Бой”

' If lewel2 = 1 Then

' End If

'End Function

dim x

dim hp

Dim i

dim dam

dim dam2

dim lewel

dim gold

dim newGold

dim hpBabayki

dim experience

dim newExperience

experience = 0

hp = 50

gold = 0

MsgBox “Вперед, на встечу приключениям!”,0,“Начинаем!”

randomize

Do While hp > 0

if experience > lewel * 20 then
lewel = lewel + 1
experience = 0
MsgBox “Ты стал сильнее и возможно умнее” & Chr(13) & “Твой уровень стал: ” & lewel,0,“Новый уровень!”
end if

x = Int((Rnd)*10)+1

If x = 4 Then

hpBabayki = 50

a = MsgBox (“Перед вами крест” & Chr(13) & “Предположительно копать до клада: ” & hpBabayki & “ дицеметров” & Chr(13) & “ Копать будите?”,4+32, “Бой с ленью”)

If a = 6 Then

MsgBox “Вы решили, что продавать нечего, а деньги нужны.”,0+64, “Бой”

Do Until hpBabayki <= 0

dam = Int((Rnd)*2)+1

hpBabayki = hpBabayki - dam

MsgBox “Вы в порыве ярости прокапываете ” & dam & Chr(13) & “ Теперь осталось прокопать: ” & hpBabayki ,0, “Копание”

Loop
newExperience = Int((2 * Rnd))+1
experience = experience + newExperience
newGold = Int((10 * Rnd))+5
gold = gold + newGold
MsgBox “Вот и клад! В нём вы находите: ” & newGold & “ монет” & Chr(13) & “ Теперь у вас денюжек: ” & gold,0+64, “Конец копания”


Else

MsgBox “Вы подумали, что в Простоквашино найдётся, что-то, что можно продать.”,0+64, “А фиг с ним!”

End If

End If

If x = 5 Then


a = MsgBox (“Вы у города, время посмотреть статистику. ” & Chr(13) & “Жизни: ” & hp & “ золото: ” & gold & “ опыт: ” & experience ,0,“Статистика”)

a = MsgBox (“Перед вами город” & Chr(13) & “ Зайдём?”,4+32, “Внезапно”)

If a = 6 Then

a = MsgBox (“Перед вами больница” & Chr(13) & “Посетим сие дивное заведение?” & Chr(13) & “Только врачи хотят 20 денюжек за посещение”,4+32, “Лечится будем?”)

If a = 6 Then

If gold >= 20 Then
MsgBox “Хирург достал из вас все ногти, восхитился какие длинные у вас когти…”,0+64, “Лечение”
hp = 50
gold = gold-20
Else
MsgBox “У вас не хватило денег на бахилы,”& Chr(13) & “Потому вас и не пустили в больницу”,0+64, “Город”
End if

End If

a = MsgBox (“Перед вами трактир” & Chr(13) & “Посетим сие дивное заведение?” & Chr(13) & “Только есть обязательное условие, купить в нём пивка на 15 золота”,4+32, “Бухать будем?”)

If a = 6 Then

If gold >= 15 Then

MsgBox “Вы напились и отточили навыки рукопашного боя на других посетителях…”,0+64, “Бойня”
hp = hp - Int((Rnd)*5)+1
gold = gold-15
experience = experience + 10

Else
MsgBox “Снова пересчитав деньги в кормане, вы обнаружили, что не хватает даже на самое дешёвое пиво”,0+64, “Город”

End if

End if

End If

End If




If x = 6 Then

hpBabayki = 20
fightCanRun “Злобоглаз”,“злобоглаза”,5
End If

If x = 7 Or x = 3 Then

hpBabayki = 7
fight “Бука”,“Буки”,2
End If

If x = 8 Then
MsgBox “Вы встретили шамана, который ел грибы. Ох, он зол на нас, беда. Но набьём его, мы, да!”,48,“А нечего по лесу шастать!”
hpBabayki = 30
fightCanRun “Злой шаман”,“шамана”,5
If hpBabayki < 1 Then
MsgBox “Внезапно он воскрес с улыбкой на лице.”,48,“Хоба!”
MsgBox “-Я давно искал того, кто снимет с меня проклятье..Ты сделал это! В благодарность я дам тебе немного шаманских грибов”,0,“Такие аппетитные, главное у него на глазах не съесть”
hp = hp + 10
experience = experience + 10
End If

End If

If x = 1 or x = 9 Then

hpBabayki = 5
fight “Бабайка”,“бабайки”,1
End If

If x = 2 or x = 10 Then

hpBabayki = 10
fight “Монстр”,“монстра”,3
End If


If hp < 50 And hp > 0 Then
hp = hp + 1
End If

Loop

MsgBox “Ваша честь растоптана…Как и вы…”,0+16, “Бой”

Мой девиз:
Если не нравится сделай ремикс,
А если не хочешь тогда помолчи!
всегда
ве::red
с::variables
е::control
л::operators
и::sensing
ть::motion
ся::looks
конец
Toksin
Scratcher
21 posts

Собрание программистов

На самом деле он не столь длинный, просто я разделял его.
изменить размер на (размер)

Мой девиз:
Если не нравится сделай ремикс,
А если не хочешь тогда помолчи!
всегда
ве::red
с::variables
е::control
л::operators
и::sensing
ть::motion
ся::looks
конец
Alex799
Scratcher
10 posts

Собрание программистов

А о чём здесь реч?
определить 
(О чём реч???)
Toksin
Scratcher
21 posts

Собрание программистов

Alex799 wrote:

А о чём здесь реч?
определить 
(О чём реч???)

Скретч это тренировачная оболочка какого-то языка программрирования. Здесь те кто знает хотя бы чуть-чуть любой язык программирования. Короче, если ты просто скретчер тебе тут будет не очень интересно. Разве только если не попросишь какую-нибудь програмку. Я немного знаю вбс могу сделать программу вызывающую системные(виндовс) ошибки

Мой девиз:
Если не нравится сделай ремикс,
А если не хочешь тогда помолчи!
всегда
ве::red
с::variables
е::control
л::operators
и::sensing
ть::motion
ся::looks
конец
npocTo
New to Scratch
1 post

Собрание программистов

Toksin wrote:

Alex799 wrote:

А о чём здесь реч?
определить 
(О чём реч???)

Скретч это тренировачная оболочка какого-то языка программрирования. Здесь те кто знает хотя бы чуть-чуть любой язык программирования. Короче, если ты просто скретчер тебе тут будет не очень интересно. Разве только если не попросишь какую-нибудь програмку. Я немного знаю вбс могу сделать программу вызывающую системные(виндовс) ошибки

Я тоже.
Roder3480
Scratcher
25 posts

Собрание программистов

Toksin wrote:

Function fight(mob,moba,damage)
a = MsgBox (“Противник: ” & mob & Chr(13) & “Жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Примите бой?” & Chr(13) & “В движениях ” & moba & “ чувствуется скорость, убежать не получится.”,4+48, “Бой”)

If a = 6 Then

MsgBox “Вы решили избавить этот мир от ” & moba & “…”,0+64, “Бой”

Do Until hpBabayki <= 0

dam = Int((3 * Rnd)+lewel)

dam2 = Int((damage * Rnd)-lewel/3)
if dam2 < 0 then dam2 = 0
hp = hp - dam2

hpBabayki = hpBabayki - dam

MsgBox “Вы наносите урон ” & dam & Chr( 13) & “Теперь жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Вы получаете урон ” & dam2 & Chr(13) & “ Теперь жизней у вас: ”& hp ,0+64, “Бой”

Loop
newExperience = Int((damage * Rnd))+2
experience = experience + newExperience
MsgBox “Бой закончен, ” & moba & “ больше нет в живых…”,0+16, “Бой”


Else

MsgBox “Вы трусливо убежали от боя. Но вы медленны, поэтому вас догнали и навставляли люлей.”,0+16, “Бой”

hp=0

End If

End Function

Function fightCanRun(mob,moba,damage)
a = MsgBox (“Противник: ” & mob & Chr(13) & “Жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Примите бой?” & Chr(13) & “Он кажется медленным от него можно убежать.”,4+48, “Бой”)

If a = 6 Then

MsgBox “Вы решили избавить этот мир от ” & moba & “…”,0+64, “Бой”

Do Until hpBabayki <= 0

dam = Int((3 * Rnd)+lewel)

dam2 = Int((damage * Rnd)-lewel/3)
if dam2 < 0 then dam2 = 0
hp = hp - dam2

hpBabayki = hpBabayki - dam

MsgBox “Вы наносите урон ” & dam & Chr( 13) & “Теперь жизней у ” & moba & “ ” & hpBabayki & Chr(13) & “Вы получаете урон ” & dam2 & Chr(13) & “ Теперь жизней у вас: ”& hp ,0+64, “Бой”

Loop
newExperience = Int((damage * Rnd * 2))+3
experience = experience + newExperience
newGold = Int((10 * Rnd))+5
gold = gold + newGold
MsgBox “Бой закончен, ” & moba & “ больше нет в живых…”,0+32, “Бой”


Else

MsgBox “Вы трусливо убежали от боя. Тормозной противник был ослеплён сверканием ваших пяток и не стал вас догонять.”,0+16, “Бой”

End If

End Function
'Function search(lewel2)
'MsgBox “Вам подобран монстр.”,0, “Бой”

' If lewel2 = 1 Then

' End If

'End Function

dim x

dim hp

Dim i

dim dam

dim dam2

dim lewel

dim gold

dim newGold

dim hpBabayki

dim experience

dim newExperience

experience = 0

hp = 50

gold = 0

MsgBox “Вперед, на встечу приключениям!”,0,“Начинаем!”

randomize

Do While hp > 0

if experience > lewel * 20 then
lewel = lewel + 1
experience = 0
MsgBox “Ты стал сильнее и возможно умнее” & Chr(13) & “Твой уровень стал: ” & lewel,0,“Новый уровень!”
end if

x = Int((Rnd)*10)+1

If x = 4 Then

hpBabayki = 50

a = MsgBox (“Перед вами крест” & Chr(13) & “Предположительно копать до клада: ” & hpBabayki & “ дицеметров” & Chr(13) & “ Копать будите?”,4+32, “Бой с ленью”)

If a = 6 Then

MsgBox “Вы решили, что продавать нечего, а деньги нужны.”,0+64, “Бой”

Do Until hpBabayki <= 0

dam = Int((Rnd)*2)+1

hpBabayki = hpBabayki - dam

MsgBox “Вы в порыве ярости прокапываете ” & dam & Chr(13) & “ Теперь осталось прокопать: ” & hpBabayki ,0, “Копание”

Loop
newExperience = Int((2 * Rnd))+1
experience = experience + newExperience
newGold = Int((10 * Rnd))+5
gold = gold + newGold
MsgBox “Вот и клад! В нём вы находите: ” & newGold & “ монет” & Chr(13) & “ Теперь у вас денюжек: ” & gold,0+64, “Конец копания”


Else

MsgBox “Вы подумали, что в Простоквашино найдётся, что-то, что можно продать.”,0+64, “А фиг с ним!”

End If

End If

If x = 5 Then


a = MsgBox (“Вы у города, время посмотреть статистику. ” & Chr(13) & “Жизни: ” & hp & “ золото: ” & gold & “ опыт: ” & experience ,0,“Статистика”)

a = MsgBox (“Перед вами город” & Chr(13) & “ Зайдём?”,4+32, “Внезапно”)

If a = 6 Then

a = MsgBox (“Перед вами больница” & Chr(13) & “Посетим сие дивное заведение?” & Chr(13) & “Только врачи хотят 20 денюжек за посещение”,4+32, “Лечится будем?”)

If a = 6 Then

If gold >= 20 Then
MsgBox “Хирург достал из вас все ногти, восхитился какие длинные у вас когти…”,0+64, “Лечение”
hp = 50
gold = gold-20
Else
MsgBox “У вас не хватило денег на бахилы,”& Chr(13) & “Потому вас и не пустили в больницу”,0+64, “Город”
End if

End If

a = MsgBox (“Перед вами трактир” & Chr(13) & “Посетим сие дивное заведение?” & Chr(13) & “Только есть обязательное условие, купить в нём пивка на 15 золота”,4+32, “Бухать будем?”)

If a = 6 Then

If gold >= 15 Then

MsgBox “Вы напились и отточили навыки рукопашного боя на других посетителях…”,0+64, “Бойня”
hp = hp - Int((Rnd)*5)+1
gold = gold-15
experience = experience + 10

Else
MsgBox “Снова пересчитав деньги в кормане, вы обнаружили, что не хватает даже на самое дешёвое пиво”,0+64, “Город”

End if

End if

End If

End If




If x = 6 Then

hpBabayki = 20
fightCanRun “Злобоглаз”,“злобоглаза”,5
End If

If x = 7 Or x = 3 Then

hpBabayki = 7
fight “Бука”,“Буки”,2
End If

If x = 8 Then
MsgBox “Вы встретили шамана, который ел грибы. Ох, он зол на нас, беда. Но набьём его, мы, да!”,48,“А нечего по лесу шастать!”
hpBabayki = 30
fightCanRun “Злой шаман”,“шамана”,5
If hpBabayki < 1 Then
MsgBox “Внезапно он воскрес с улыбкой на лице.”,48,“Хоба!”
MsgBox “-Я давно искал того, кто снимет с меня проклятье..Ты сделал это! В благодарность я дам тебе немного шаманских грибов”,0,“Такие аппетитные, главное у него на глазах не съесть”
hp = hp + 10
experience = experience + 10
End If

End If

If x = 1 or x = 9 Then

hpBabayki = 5
fight “Бабайка”,“бабайки”,1
End If

If x = 2 or x = 10 Then

hpBabayki = 10
fight “Монстр”,“монстра”,3
End If


If hp < 50 And hp > 0 Then
hp = hp + 1
End If

Loop

MsgBox “Ваша честь растоптана…Как и вы…”,0+16, “Бой”
на чём это написано?
Toksin
Scratcher
21 posts

Собрание программистов

Roder3480, это написано на visual basic script или сокращённо VBS это интепритируемый язык, который итепретируется системой виндовс 7 и больше, то есть буквально это можно скопировать в блакнот и сохранить с расширением vbs. Программа будет работать. Вышла новая версия, если интересуешься могу скинуть, также могу скинуть пример сайта на js.

Мой девиз:
Если не нравится сделай ремикс,
А если не хочешь тогда помолчи!
всегда
ве::red
с::variables
е::control
л::operators
и::sensing
ть::motion
ся::looks
конец

Powered by DjangoBB

Standard | Mobile