purebasic.info

PureBasic forum
Текущее время: Вт дек 18, 2018 9:21 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: Star Wars: WMR'щик
СообщениеДобавлено: Ср авг 04, 2010 11:23 pm 
Не в сети
профессор
Аватар пользователя

Зарегистрирован: Пт янв 08, 2010 9:41 am
Сообщений: 206
Откуда: Приднестровье, Бендеры
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
Пункты репутации: 0
Сижу как-то в нете,на своем сайте Star Wars(если кому интересно: http://www.swguys.clan.su/ ) и тут наталкиваюсь на скрипты WMR бонусов,вот и решил приколоться-чисто для любителей Star Wars блин :D !
Тут короче бонус можно собирать 2 раза(в первом и втором полях,там все увидите!)
вот исходник:
Код:
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
 
Global Window_0, Web_0, info, Quit, Text_0
 
Procedure Open_Window_0()
 
  Window_0 = OpenWindow(#PB_Any, 5, 5, 293, 200, "Star Wars: WMR'щик by _iNi_", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
  Web_0 = WebGadget(#PB_Any, 0, 0, 310, 170, "http://swguys.clan.su/nado/wmr.htm")
  info = ButtonGadget(#PB_Any, 0, 170, 80, 30, "О программе")
  Quit = ButtonGadget(#PB_Any, 222, 170, 70, 30, "Выход")
  Text_0 = TextGadget(#PB_Any, 90, 170, 120, 20, "www.SWGuys.clan.su")
 
EndProcedure
 
Open_Window_0()
 
  Repeat
    Event = WaitWindowEvent()
         
        Select EventGadget()
  Case info
  If OpenWindow(0,5,5,200,190,"О программе",#PB_Window_ScreenCentered)
MessageRequester("О программе","Star Wars: WMR'щик"+Chr(13)+"Это решение для тех кому нужны WMR."+Chr(13)+"Сначала введите свой R кошелек в первом поле и получите бонус,а за тем во втором-все просто:)"+Chr(13)+Chr(13)+"(c)Никита _iNi_ Кушнир"+Chr(13)+"www.SWGuys.clan.su",#MB_ICONINFORMATION)
  EndIf
  Case Quit
  Break
  EndSelect
 
Until Event = #PB_Event_CloseWindow
 
End
 


а прога в аттаче
зЫ: он че-то MessageRequester() не хочет закрывать-х3 почему :(


Вложения:
sw-wmr.rar [14.79 KiB]
Скачиваний: 215

_________________
Free Coders Community
Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB